Kalkulator Sederhana Dengan Prosedur
2:30 AM1. Silahkan masukkan 3text,3label,5commandbutton :
2. Lalu gantilah :
a. Label1 = Angka Pertama
b.Label2 = Angka Kedua
c.Label3 = Hasil
d.Text1,Text2,Text3 = Dikosongkan
e.Command1 = Tambah
f.Command2 = Kurang
g.Command3 = Kali
h.Command4 = Bagi
i,Command5 = Bersihkan
Setelah sudah sesuai seperti diatas, silahkan masukkan kode dibawah ini :
Private Sub Bersihkan()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Hitungan()
A1 = Val(Text1.Text)
A2 = Val(Text2.Text)
If Command1.Value = True Then
Text3.Text = A1 + A2
ElseIf Command2.Value = True Then
Text3.Text = A1 - A2
ElseIf Command3.Value = True Then
Text3.Text = A1 * A2
ElseIf Command4.Value = True Then
Text3.Text = A1 / A2
Else
MsgBox "Program ini tidak dapat berfungsi!", vbCritical, "Error"
End If
End Sub
Private Sub Command1_Click()
Call Hitungan
End Sub
Private Sub Command2_Click()
Call Hitungan
End Sub
Private Sub Command3_Click()
Call Hitungan
End Sub
Private Sub Command4_Click()
Call Hitungan
End Sub
Private Sub Command5_Click()
Call Bersihkan
End Sub
Selamat Mencoba :)
0 comments