perhitungan harga pakai keypress

Private Sub cmdhitung_Click()
txtha = ""
txtdis = ""
txtha = ""
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulangi_Click()
txtha = ""
txtdis = ""
txtha = ""
End Sub



Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - Val(txtdis)
End If
End Sub


Komentar

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)