Cara membuat kalkulator dengan VB6
Tahukah sobat apa itu VB6? ya, visual basic 6 yang merupakan aplikasi bahasa pemrograman. Dengan program ini kita dapat membangun berbagai macam program. Yang belum mengerti selengkapnya, bisa cari di google. Pertama, buatlah struktur form sebagai berikut:
name :txtnilai1
caption: kosongkan(Setiap text dikosongkan!!!!)
text2=
name = txtnilai2
caption: kosongkan
text3=
name: txttotal
caption: kosongkan
command1:
name: cmdpangkat
cap: ^
command2:
name: cmdkali
cap: *
command3:
name: cmdbagi
cap: /
command4:
name: cmdtambah
cap: +
command5:
name: cmdkurang
cap: -
command6:
name: cmdlagi
cap: &LAGI
command7:
name: cmdkeluar
cap: &KELUAR
frame1:
cap: HITUNG OPERATOR
frame2:
cap: Total
bila sudah, sekarang bahasanya:
Private Sub cmdkeluar_Click()
pesan = MsgBox("Anda yakin inginkeluar?", vbYesNo, "KELUAR")
If pesan = vbYes Then
End
End If
End Sub
Private Sub cmdbagi_Click()
TxtTotal = Val(TxtNilai1) / (txtnilai2)
End Sub
Private Sub cmdkali_Click()
TxtTotal = Val(TxtNilai1) * (txtnilai2)
End Sub
Private Sub cmdkurang_Click()
TxtTotal = Val(TxtNilai1) - (txtnilai2)
End Sub
Private Sub cmdpangkat_Click()
TxtTotal = Val(TxtNilai1) ^ (txtnilai2)
End Sub
Private Sub cmdtambah_Click()
TxtTotal = Val(TxtNilai1) + (txtnilai2)
End Sub
Private Sub cmdlagi_Click()
TxtNilai1 = ""
txtnilai2 = ""
TxtTotal = ""
TxtNilai1.SetFocus
0 comments :
Post a Comment