1.Buat label
lalu namai dengan judulnya,angka 1,angka 2 dan hasil
2.buat
button comand Tambah(+), kurang(-), kali(*) dan bagi(/).Dan buat comand button
exit dan clear
3.Buat
textbox
4.lalu klik 2x di comand button, jika tampilan sudah seperti ini lalu masukan rumus untuk tambah(+),bagi(/),kurang(-), dan kali(*).Dan comand exit dan clear
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
End
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
by:Alif syukurillah shuaillah
Aldi ardiansyah
M.Radifan Aufar


Posting Komentar