yang anda perlukan dalam membuat aplikasi calculator sederhana adalah :
- tiga buah textbox
- satu buah commandbutton
- empat buah optionbutton (diubah menjadi tanda bagi(/), kurang(-), tambah (+) dan kali (*))
- empat buah label (diganti namanya, contoh pada label1 diganti menjadi calculator sederhana, label2 diganti angka pertama, label3 diganti angka kedua dan label4 diganti menjadi hasilnya. lihat gambar)
kodingan :
Pada optionbutton bertanda kali (*)
Private Sub Option1_Click()
Text3.Text = Val(Text1) * Val(Text2)
End Sub
Pada optionbutton bertanda bagi (/)
Private Sub Option2_Click()
Text3.Text = Val(Text1) / Val(Text2)
End Sub
Pada optionbutton bertanda tambah (+)
Private Sub Option3_Click()
Text3.Text = Val(Text1) + Val(Text2)
End Sub
Pada optionbutton bertanda kurang(-)
Private Sub Option4_Click()
Text3.Text = Val(Text1) - Val(Text2)
End Sub
Pada commandbutton yang digani nama menjadi 'Edit'
Private Sub Command1_Click()
Text1.Text = ''"
Text2.Text = ""
Text3.Text = ""
End Sub









0 komentar:
Posting Komentar