Kalkulator sederhana menggunakan Visual Basic 6.0

Tutorial kali ini, penulis akan menjeleskan bagaimana membuat kalkulator sederhana menggunakan Microsoft  visual basic 6.0

Baik lah mari kita mulai…….

1. Buat tampilan seperti gambar berikut :

2. Double klik pada form, ketikkan script berikut :

Private Sub Form_Load()

Dim a, b, Hasil As Double

Label1.Caption = "Angka ke-1"

Label2.Caption = "Angka ke-2"

Label3.Caption = "Kalkulator Sederhana"

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "+"

Command2.Caption = "-"

Command3.Caption = "x"

Command4.Caption = "/"

Command5.Caption = "EXIT"

End Sub

3. Kemudian double klik pada command 1 dan ketikkan script berikut :

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = a + b

MsgBox "Hasil Penjumlahan = " & c, vbOKOnly, "Hasil"

End Sub

4. Double klik lagi pada command 2 dan ketikkan script berikut :

Private Sub Command2_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = a - b

MsgBox "Hasil Pengurangan = " & c, vbOKOnly, "Hasil"

End Sub

5. Double klik pada command 3 dan ketikkan script berikut :

Private Sub Command3_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = a * b

MsgBox "Hasil Perkalian = " & c, vbOKOnly, "Hasil"

End Sub

6. Double klik lagi pada command 4 dan ketikkan script berikut :

Private Sub Command4_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = a / b

MsgBox "Hasil Pembagian = " & c, vbOKOnly, "Hasil"

End Sub

7. Kemudian double klik lagi pada command 5 dan ketikkan script berikut :

Private Sub Command5_Click()

a = MsgBox("Apakah Anda yakin ingin keluar", vbYesNo + vbQuestion, "Exit")

If a = vbYes Then

End

Else

MsgBox "Tetap buka Aplikasi", vbOKOnly, "Exit"

End If

End Sub

Setelah selesai, coba jalan kan program dengan menekan F5 dan lihat hasil nya……

Berikut adalah hasil yang telah penulis buat :

*penjumlahan

*pengurangan

*perkalian

*pembagian

kalian bisa menambahkan command lain sesuai dengan kebutuhan dan keinginan Anda, selamat mencoba...

follow twitter saya di : @ariefbudiman_26