PROGRAM 4 PENJUMLAHAN MENGGUNAKAN ENTER

-

Private Sub Cmdhitung_Click()

txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3)
End Sub

Private Sub Cmdbatal_Click()
Txtn1 = ""
txtn2 = ""
txtn3 = ""
txtjmlh = ""
Txtn1.SetFocus
End Sub



Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtn1 = ""
txtn2 = ""
txtn3 = ""
txtjmlh = ""
Txtn1.SetFocus
End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
End If
End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3)

End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

PROGRAM 3.8 BP1

-
Gambar
Private Sub Command1_Click() Dim a As String a = Mid(Text2, 1, 4) If a = "2009" Then Text6 = "2009" End If a = Mid(Text2, 5, 1) If a = "A" Then Text7 = "Manajer" Text3 = "A" Text9 = "4000000" Text10 = "1025000" ElseIf a = "B" Then Text7 = "Ka. Seksi" Text3 = "B" Text9 = "3500000" Text10 = "975000" ElseIf a = "C" Then Text7 = "Staff" Text3 = "C" Text9 = "3000000" Text10 = "925000" End If a = Mid(Text2, 7, 1) If a = "S" Then Text4 = "S" Text5 = "Single" ElseIf a = "M" Then Text4 = "M" Text5 = "Menikah" ElseIf a = "J" Then Text4 = "J" Text5 = "Janda" ElseIf a = "D" Then Text4 = "D" Text5 = "Duda" End If a = Mid(Text2, 9, 3) ...
Baca selengkapnya

PROGRAM 2.6 BP1

-
Gambar
  Private Sub Chk1_Click() lbl2.FontBold = Chk1.Value End Sub Private Sub Chk2_Click() lbl2.FontItalic = Chk2.Value End Sub Private Sub Command1_Click() lbl2.Caption = txt1 End Sub Private Sub Command2_Click() Unload me End Sub Private Sub Opt1_Click() lbl2.ForeColor = vbBlue End Sub Private Sub Opt2_Click() lbl2.ForeColor = vbRed End Sub
Baca selengkapnya

PROGRAM 3.6 BP1

-
Gambar
Private Sub Cmdlagi_Click() Txtkt = "" Txtjk = "" Txtht = "" Txtjb = "" Txtjt = "" txttotalp = "" End Sub Private Sub Cmdproses_Click() Dim a As String a = Mid(Txtkt, 1, 3) If a = "BIM" Then Txtjk = "BIMA" Txtht = "50000" Txtjb = "16.00" End If If a = "EKO" Then Txtjk = "EKONOMI" Txtht = "35000" Txtjb = "19.00" End If If a = "MUT" Then Txtjk = "MUTIARA" Txtht = "23000" Txtjb = "17.00" End If If a = "SEN" Then Txtjk = "SENJA" Txtht = "15000" Txtjb = "20.00" End If Txtjt.SetFocus End Sub   Private Sub Txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(Txtjt) * Val(Txtht) End If End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub
Baca selengkapnya