Membuat kalkulator menggunakan oprator option button VB.06

             oke sekarang gue akan coba untuk update codding langsung ajah yahh kita update dulu nihh coddingnya sebelumnya akan gue jelasin...
mungkin ini masih gampang ya... oke tanpa panjang lebar check.....

PROPERTIES :
( Nama )                         (Caption)
Text1                                 (kosong)
Text2                                 (kosong)
Text3                                 (Kosong)
option1                               +
option2                               -
option3                               x
option4                               /
option5                               \
option6                               ^
option7                               &&
option8                               mod
command1                         EXIT
command2                         Bersih


NOW lets check this out
This Codding dari Program sederhana Visual Basic 0.6
kalkulator dengan oprator memakai Option Button

Private Sub Command1_Click()
pesan = MsgBox("Thakyuu Brow.. :D", vbOKOnly, "TERIMAKASIH")
If pesan = vbYes Then
End If
End
End Sub

'nanti akan terdapat jendela pemberitahuan yang ber tuliskan Msgbox di atas...
seperti di samping saya ini,.. :D







Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Option1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Option2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Option3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Option4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Option5_Click()
Text3.Text = Val(Text1.Text) \ Val(Text2.Text)
End Sub

Private Sub Option6_Click()
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
End Sub

Private Sub Option7_Click()
Text3.Text = Val(Text1.Text) & Val(Text2.Text)
End Sub

Private Sub Option8_Click()
Text3.Text = Val(Text1.Text) Mod Val(Text2.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

OKEH kan...?
sebenernya ini tugas Kampus saya, tetapi sharing dikit buat pemula...
thanks for Visited my Blog :D
Tunggu Update Selanjutnya......!!!