Buka Visual Basic nya. Pilih yang Standard EXE, Langsung buat 3 Text Box dan 5 Command Button.
Masukan kode berikut :
Keterangan :
Text box 1 buat hasilnya
Text box 2 buat angka pertama
Text box 3 buat angka kedua
Ganti Name :
Text box 1 : Hasil
Text box 2 : a
Text box 3 : b
Untuk kode Command nya
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 )
Private Sub Command7_Click()
End
End Sub
Setelah jadi akan seperti ini gambarnya
- Buka Visual Basic nya sob
- Pilih yang Standard EXE
- Langsung buat 3 Text Box dan 5 Command Button