Private Sub cmdproses_Click()
Txtgk = Val(txtgapok) + Val(txttj) -
Val(txtpt)
Txtpj = Val(Txtgk) * 0.25
Txtgd= Val(Txtgk) - Val(Txtpj)
End Sub
Private Sub cmdulang_Click()
txtgapok = ""
txttj = ""
txtpt = ""
Txtgk = ""
Txtpj = ""
Txtgd = ""
txtgapok.SetFocus
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub txtgapok_keypress(keyascii As
Integer)
If keyascii = 13 Then
txttj.SetFocus
End If
End Sub
Private Sub txtpt_keypress(keyascii As
Integer)
If keyascii = 13 Then
Txtgk = Val(txtgapok) + Val(txttj) -
Val(txtpt)
Txtpj = Val(Txtgk) * 0.25
Txtditerima = Val(Txtgk) - Val(Txtpj)
End If
End Sub
Private Sub txttj_keypress(keyascii As
Integer)
If keyascii = 13 Then
txtpt.SetFocus
End If
End Sub
Share this
Related Posts
TUGAS BP VB 2.5
Private Sub Chkb_Click()
If Chkb.Value = 1 Then
lblteks.FontBold = True
Else
lblt
TUGAS BP VB 2.7
Private Sub cbonpm_Click()
Dim nama, jurusan, Hm As String
Select Case cbonpm.Text
TUGAS BP VB 2.3
Private Sub cmdproses_Click()
Txtgk = Val(txtgapok) + Val(txttj) - Val(txtpt)
Txtp
TUGAS BP VB 2.1
Private Sub cmdhitung_Click()
Txtdis = Val(Txtha) * 0.25
Txtakhir =
:)
:(
hihi
:-)
:D
=D
:-d
;(
;-(
@-)
:P
:o
:>)
(o)
:p
:-?
(p)
:-s
(m)
8-)
:-t
:-b
b-(
:-#
=p~
$-)
(y)
(f)
x-)
(k)
(h)
cheer