Membuat kalkulator dengan Visual Basic

Listing program

Private Sub btnBagi_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) / Val(b)

lblHasil.Caption = hasil

lblOperator = " / "

End Sub

Private Sub btnKali_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) * Val(b)

lblHasil.Caption = hasil

lblOperator = " * "

End Sub

Private Sub btnKurang_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) - Val(b)

lblHasil.Caption = hasil

lblOperator = " - "

End Sub

Private Sub btnPangkat_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) ^ Val(b)

lblHasil.Caption = hasil

lblOperator = " ^ "

End Sub

Private Sub btnTambah_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) + Val(b)

lblHasil.Caption = hasil

lblOperator = " + "

End Sub

Private Sub Form_Load()

End Sub

Logika Program

Private Sub btnBagi_Click()

Dim a, b, hasil As Integer

b = txtVar2.Text

hasil = Val(a) / Val(b)

lblHasil.Caption = hasil

lblOperator = " / "

End Sub

Statement diatas maksudnya mendefinisikan komponen button yang memiliki nama btnBagi dan memiliki identifier private.selanjutnya mendeklarasikan variable a, b dan hasil yang bertipe data Integer kepada komponen textbox yang memiliki nama txtVar1 kepada variable a,txtVar2 kepada variable b,selanjutnya membuat perhitungan dari variable-variabel diatas yaitu hasil = Val(a) / Val(b) dimana hasil tersebut akan disimpan pada variable hasil,berikutnya menampilkan hasil perhitungan tersebut yang terdapat pada variable hasil dengan cara mendeklarasikan variable tersebut pada komponen label,dan otomatis akan mencetak tanda / pada komponen label yang diberi nama lblOperator

Private Sub btnKali_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) * Val(b)

lblHasil.Caption = hasil

lblOperator = " * "

End Sub

Statement diatas maksudnya mendefinisikan komponen button yang memiliki nama btnKali dan memiliki identifier private.selanjutnya mendeklarasikan variable a, b dan hasil yang bertipe data Integer kepada komponen textbox yang memiliki nama txtVar1 kepada variable a,txtVar2 kepada variable b,selanjutnya membuat perhitungan dari variable-variabel diatas yaitu hasil = Val(a) * Val(b) dimana hasil tersebut akan disimpan pada variable hasil,berikutnya menampilkan hasil perhitungan tersebut yang terdapat pada variable hasil dengan cara mendeklarasikan variable tersebut pada komponen label,dan otomatis akan mencetak tanda * pada komponen label yang diberi nama lblOperator

Private Sub btnKurang_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) - Val(b)

lblHasil.Caption = hasil

lblOperator = " - "

End Sub

Statement diatas maksudnya mendefinisikan komponen button yang memiliki nama btnKurang dan memiliki identifier private.selanjutnya mendeklarasikan variable a, b dan hasil yang bertipe data Integer kepada komponen textbox yang memiliki nama txtVar1 kepada variable a,txtVar2 kepada variable b,selanjutnya membuat perhitungan dari variable-variabel diatas yaitu hasil = Val(a) - Val(b) dimana hasil tersebut akan disimpan pada variable hasil,berikutnya menampilkan hasil perhitungan tersebut yang terdapat pada variable hasil dengan cara mendeklarasikan variable tersebut pada komponen label,dan otomatis akan mencetak tanda - pada komponen label yang diberi nama lblOperator

Private Sub btnPangkat_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) ^ Val(b)

lblHasil.Caption = hasil

lblOperator = " ^ "

End Sub

Statement diatas maksudnya mendefinisikan komponen button yang memiliki nama btnPangkat dan memiliki identifier private.selanjutnya mendeklarasikan variable a, b dan hasil yang bertipe data Integer kepada komponen textbox yang memiliki nama txtVar1 kepada variable a,txtVar2 kepada variable b,selanjutnya membuat perhitungan dari variable-variabel diatas yaitu hasil = Val(a) ^ Val(b) dimana hasil tersebut akan disimpan pada variable hasil,berikutnya menampilkan hasil perhitungan tersebut yang terdapat pada variable hasil dengan cara mendeklarasikan variable tersebut pada komponen label,dan otomatis akan mencetak tanda ^ pada komponen label yang diberi nama lblOperator

Private Sub btnTambah_Click()

Dim a, b, hasil As Integer

a = txtVar1.Text

b = txtVar2.Text

hasil = Val(a) + Val(b)

lblHasil.Caption = hasil

lblOperator = " + "

End Sub

Statement diatas maksudnya mendefinisikan komponen button yang memiliki nama btnTambah dan memiliki identifier private.selanjutnya mendeklarasikan variable a, b dan hasil yang bertipe data Integer kepada komponen textbox yang memiliki nama txtVar1 kepada variable a,txtVar2 kepada variable b,selanjutnya membuat perhitungan dari variable-variabel diatas yaitu hasil = Val(a) + Val(b) dimana hasil tersebut akan disimpan pada variable hasil,berikutnya menampilkan hasil perhitungan tersebut yang terdapat pada variable hasil dengan cara mendeklarasikan variable tersebut pada komponen label,dan otomatis akan mencetak tanda + pada komponen label yang diberi nama lblOperator