Visual Basic - Membuat Kalkulator

     Kali ini saya ingin membuat aplikasi kalkulator melalui Visual Basic 6.0 

1. Bikin menu kalkulator sesuai design dibawah ini .

2. Kita beri nama masing-masing object :
    - Kalkulator (Label) : Label1
    - Bilangan 1 (Label) : Bilangan1
    - Bilangan 2 (Label) : Bilangan2
    - Hasil (Label) : Hasil
    - Textbox Bilangan1 (Textbox) : Text1
    - Textbox Bilangan2 (Textbox) : Text2
    - Textbox Hasil (Textbox) : Text3
    - "+" (Command Button) : Cmdtambah
    - "-" (Command Button) : Cmdkurang
    - "/" (Command Button) : Cmdbagi
    - "*" (Command Button) : Cmdkali
    - Hapus (Command Button) : Command1
    - Exit (Command Button) : Cmdexit


3. Klik 2 kali pada command "+"
    coding :
    Private Sub Cmdtambah_Click()
    Dim Bilangan1 As Integer
    Dim Bilangan2 As Integer
    Dim Hasil As Integer
    Bilangan1 = Text1.Text
    Bilangan2 = Text2.Text
    Hasil = Bilangan1 + Bilangan2
    Text3.Text = Hasil
    End Sub


4.  Klik 2 kali pada command "-"
    coding :

    Private Sub Cmdkurang_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 - Bilangan2

   Text3.Text = Hasil

   End Sub

5.  Klik 2 kali pada command "/"
    coding :

    Private Sub Cmdbagi_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 / Bilangan2

    Text3.Text = Hasil

    End Sub

6.  Klik 2 kali pada command "*"
    coding :

    Private Sub Cmdkali_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 * Bilangan2

    Text3.Text = Hasil

    End Sub

6.  Klik 2 kali pada command Hapus
    coding :

    Private Sub Command1_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    End Sub




6.  Klik 2 kali pada command Exit
    coding :


    Private Sub cmdexit_Click()
    End
    End Sub


7. Dan hasilnya adalah :