MEMBAUT KALKULATOR SEDERHANA MENGGUNAKAN VISUAL BASIC

Keterangan kode :

·         Private Sub Command1_Click(Index As Integer)

Label4.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Fungsinya untuk menghitung pertambahan

·         Private Sub Command3_Click()

Label4.Caption = Val(Text1.Text) - Val(Text2.Text)

End Sub

Fungsinya untuk menghitung pengurangan

·         Private Sub Command2_Click()

Label4.Caption = Val(Text1.Text) * Val(Text2.Text)

End Sub

Fungsinya untuk menghitung perkalian

·         Private Sub Command4_Click()

Label4.Caption = Val(Text1.Text) / Val(Text2.Text)

End Sub

Fungsinya untuk menghitung pembagian

·         Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

Label4.Caption = "0"

End Sub

Fungsinya untuk menghapus isi di text1 dan 2 lalu mengubah isi label4 menjadi 0

·         Private Sub Command6_Click()

End

End Sub

Fungsinya Mengakhiri eksekusi program / keluar dari program

Eksekusi program :

·         Tampilan ketika program dijalankan

·         Tampilan program ketika menghitung pertambahan

DAN UNTUK PERKALIAN PENGURANGAN PERKALIAN ANDA COBA SENDIRI WORKING ATAU TIDAK :)