Sintaknya :
Private Sub cmdbersih_Click()
txtnil1.Text = " "
txtnil2.Text = " "
txthasil.Text = " "
txtnil1.SetFocus
End Sub
Private Sub cmdkeluar_Click()
x = MsgBox("Anda Ingin Keluar Dari Form Ini?", vbQuestion + vbOKCancel, "Informasi")
If x = vbOK Then
End
End If
End Sub
Private Sub cmdtambah_Click()
txthasil = Val(txtnil1.Text) + Val(txtnil2.Text)
End Sub
Private Sub cmdkurang_Click()
txthasil = Val(txtnil1.Text) - Val(txtnil2.Text)
End Sub
Private Sub cmdbagi_Click()
txthasil = Val(txtnil1.Text) / Val(txtnil2.Text)
End Sub
Private Sub cmdkali_Click()
txthasil = Val(txtnil1.Text) * Val(txtnil2.Text)
End Sub
Private Sub cmdpangkat_Click()
txthasil = Val(txtnil1.Text) ^ Val(txtnil2.Text)
End Sub
Private Sub cmdmod_Click()
txthasil = Val(txtnil1.Text) Mod Val(txtnil2.Text)
End Sub
Private Sub cmd1_Click()
txthasil = Val(txtnil1.Text) > Val(txtnil2.Text)
End Sub
Private Sub cmd2_Click()
txthasil = Val(txtnil1.Text) < Val(txtnil2.Text) End Sub Private Sub cmd3_Click() txthasil = Val(txtnil1.Text) >= Val(txtnil2.Text)
End Sub
Private Sub cmd4_Click()
txthasil = Val(txtnil1.Text) <= Val(txtnil2.Text) End Sub Private Sub cmd5_Click() txthasil = Val(txtnil1.Text) = Val(txtnil2.Text) End Sub Private Sub cmd6_Click() txthasil = Val(txtnil1.Text) <> Val(txtnil2.Text)
End Sub
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :