Cara Membuat Kalkulator

Posted by : Unknown Selasa, 18 Juni 2013

Cara membuat Kalkulator dengan menggunakan Microsoft Visual Basic.

Anda dapat mendownload Microsoft Visual Basic dengan mengklik: Microsoft Visual Basic

Berikut ini cara membuatnya:

1. Buka program Visual Basic dan buat project baru.

2. Tambahkan TextBox dan setting:

- Name : TextBox1

- Text : (kosong)

3. Tambahkan TextBox dan setting:

- Name : TextBox2

- Text : (kosong)

4. Tambahkan Label dan setting:

- Nama : Label1

- Text : (kosong)

5. Tambahkan Label dan setting:

- Nama : Label2

- Text : (kosong)

6. Tambahkan Button dan setting:

- Nama : Button1

- Text : x

7. Tambahkan Button dan setting:

- Nama : Button2

- Text : /

8. Tambahkan Button dan setting:

- Nama : Button3

- Text : +

9. Tambahkan Button dan setting:

- Nama : Button4

- Text : -

10. Tambahkan Button dan setting:

- Nama : Button5

- Text : Clear

11. Copy dan masukkan scripnya:

Public Class Kalkulator

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "*"
Label2.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "/"
Label2.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "+"
Label2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Text = "-"
Label2.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label1.Text = ""
Label2.Text = ""
End Sub

Private Sub tmrjam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrjam.Tick
Jam.Text = TimeOfDay
End Sub

Private Sub Kalkulator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class