Baca Juga
Kali ini saya akan memberi tahu cara membuat kalkulator dengan mengunakan Visual Basic.
Oke lihat langkah-langkah nya yah .
1. Buatlah proyek baru dan tambahkan tiga kontrol label, dua kontrol label TextBox dan tiga kontrol CommandButton pada form dengan desain sebagai berikut
2. Ubah properti masing-masing kontrol dengan ketentuan :
a. label1 = caption nya nilai1
b. label2 = caption nya nilai2
c. label3 = name nya lblHasil
d. Textbox1 = name nya txtnilai1
e. TextBox2 = name nya txtnilai2
f. Command1 = name nya CmdPlus, caption nya = +
g. Command2 = name nya CmdKali, caption nya = *
h. Command3 = name nya CmdKurang , caption nya = -
3.Ketikan kode berikut pada masing-masing CommandButton :
'perintah untuk CmdPlus'
Private Sub cmdplus_Click()
lblhasil.Caption = "Hasilnya Adalah:" & Val(txtnilai1) + Val(txtnilai2)
End Sub
Oke lihat langkah-langkah nya yah .
1. Buatlah proyek baru dan tambahkan tiga kontrol label, dua kontrol label TextBox dan tiga kontrol CommandButton pada form dengan desain sebagai berikut
2. Ubah properti masing-masing kontrol dengan ketentuan :
a. label1 = caption nya nilai1
b. label2 = caption nya nilai2
c. label3 = name nya lblHasil
d. Textbox1 = name nya txtnilai1
e. TextBox2 = name nya txtnilai2
f. Command1 = name nya CmdPlus, caption nya = +
g. Command2 = name nya CmdKali, caption nya = *
h. Command3 = name nya CmdKurang , caption nya = -
3.Ketikan kode berikut pada masing-masing CommandButton :
'perintah untuk CmdPlus'
Private Sub cmdplus_Click()
lblhasil.Caption = "Hasilnya Adalah:" & Val(txtnilai1) + Val(txtnilai2)
End Sub
'perintah untuk CmdKali'
Private Sub cmdkali_Click()
lblhasil.Caption = "Hasilnya Adalah:" & Val(txtnilai1) * Val(txtnilai2)
End Sub
'perintah untuk CmdKurang'
Private Sub cmdkurang_Click()
lblhasil.Caption = "Hasilnya Adalah:" & Val(txtnilai1) - Val(txtnilai2)
End Sub
5. Jalan kan Program nya ^_^
EmoticonEmoticon