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:


klik gambar!

propertiesnya yaitu:


text1 =
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