membuat kalkulator dengan vb 6.0

ass.wr wb,...salam sejahtra untuk kita semua para pecinta bloger...sudah lama saya tidak aktip di blog karna terlalu banyak kesibukan baik di kampus maupun di rumah jadinya blog terbengkalai tapi tak apalah yg penting hari ini saya ingin membagikan sedikit trik cara membuat kalkulator dengan vb 6.0 jadi langsung sja okey....

pertama tama:

1-kawan kawan persiapkan 3 buah label,3 buah textbook,dan 3 buah commont button...
   Gntilah=
   -text1=txtnilai1
   text2=txtnilai2
   text3=txthasil
  commond1=cmdhitung
  commond2=cmdhapus
 commond3=cmdkembali
2-untuk membuat keyfress yg gunnya agar kita bisa langsung memindahkan kusor ke nilai 2 caranya ganti saja pada samping kanan pojok atas click menjadi keyfress/...

3-kemuadina buatlah design di vbnya kira kira seperti di bawah ini..

3-kemudian ketikan kode ini atau copy/paste saja lah..

   Private Sub CMDHITUNG_Click()
TXTHASIL.Text = Val(TXTNILAI1.Text) + Val(TXTNILAI2.Text)
End Sub


Private Sub TXTNILAI1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNILAI2.SetFocus
End If
End Sub
Private Sub CMDHAPUS_Click()
TXTNILAI1.Text = ""
TXTNILAI2.Text = ""
TXTHASIL.Text = ""
TXTNILAI1.SetFocus

End Sub

 Private Sub CMDKEMBALI_Click()
Unload Me

End Sub

ket=
silahkan kawan kawan ganti operator aritmetikanya dengan yg lain
sekian dari saya dan silahkan kawan kawan kembangkan strusnya....

selamat berkarya...