2.Buat 4 Label
Label 1 diberi nama Angka pertama
Label 2 diberi nama Angka kedua
Label 3 diberi nama Hasil
Label 4 (Tidak Wajib) diisi dengan kata Kalkulator
3.Buatlah 4 button command
Button Command 1 diberi nama Tambah
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a+b
Button Command 2 diberi nama Kurang
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a-b
Button Command 3 diberi nama Kali
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a*b
Button Command 4 diberi nama Bagi
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a/b
4.Buatlah 3 Text
Text 1 untuk angka pertama
Text 2 untuk angka kedua
Text 3 untuk hasil penjumlahan text1 dan text 2
kalo belum punya programnya nch tinggal download aja cuy
No comments:
Post a Comment