Oke langsung aja simak caranya ya :
- Buka Visual Basic nya sob
- Pilih yang Standard EXE
- Langsung buat 3 Text Box dan 5 Command Button
Keterangan :
Text box 1 buat hasilnya
Text box 2 buat angka pertama
Text box 3 buat angka kedua
Ganti Name :Untuk kode Command nya
Text box 1 : Hasil
Text box 2 : a
Text box 3 : b
Klik 2 kali button 1, copas kode ini ( buat perkalian )
Private Sub Command1_Click()
Hasil = a - b
End Sub
Klik 2 kali button 2, copas kode ini ( buat pembagian )
Private Sub Command2_Click()
Hasil = a / b
End Sub
Klik 2 kali button 3, copas kode ini ( buat penambahan )
Private Sub Command3_Click()
Hasil = Val(a) + Val(b)
End Sub
Klik 2 kali button 4, copas kode ini ( buat pemangkatan )
Private Sub Command4_Click()
Hasil = a ^ b
End Sub
Klik 2 kali button 5, copas kode ini ( buat perkalian )
Private Sub Command5_Click()
Hasil = a * b
End Sub
Klik 2 kali button 6, copas kode ini ( buat resetar atau hapus )
Private Sub Command6_Click()
a = ""
b = ""
Hasil = ""
End Sub
Klik 2 kali button 7, copas kode ini ( buat Off atau Exit )Setelah jadi akan seperti ini gambarnya
Private Sub Command7_Click()
End
End Sub
oiya, buat sobat blogger yang ingin mencoba Kalkulator punya saya bisa di download dibawah ini :
Password :www.wongzo.blogspot.com
source : http://wongzo.blogspot.com/
thanks buat tutornya..
ReplyDeletewww.smartkiosku.com