Tutorial kali ini, penulis akan
menjeleskan bagaimana membuat kalkulator sederhana menggunakan Microsoft visual basic 6.0
Baik lah mari kita mulai…….
- Buat tampilan seperti gambar berikut :
- 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
- 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
- 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
- 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
- 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
- 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
kalian bisa menambahkan command lain sesuai dengan kebutuhan dan keinginan Anda, selamat mencoba...
follow twitter saya di : @ariefbudiman_26
0 komentar:
Posting Komentar