kode programnya:
Private Sub cmdbatal_Click()
txtkd.SetFocus
txtkd.Text = “”
txtnama.Text = “”
txtjumlah.Text = “”
txtsisa.Text = “”
txtterjual.Text = “”
txtharga.Text = “”
txttotal.Text = “”
End Sub
kode programnya:
Private Sub cmdbatal_Click()
txtkd.SetFocus
txtkd.Text = “”
txtnama.Text = “”
txtjumlah.Text = “”
txtsisa.Text = “”
txtterjual.Text = “”
txtharga.Text = “”
txttotal.Text = “”
End Sub
kode programnya
Private Sub cmdproses_Click()
Dim k As String
k = Left(txtkt.Text, 3)
If k = “bim” Then Baca lebih lanjut
Sub Private Sub chkbold_Click()
If chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub
Private Sub chkitalic_Click()
If chkitalic.Value = 1 Then
lblteks.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub
Private Sub chkstrike_Click()
If chkstrike = 1 Then
lblteks.FontStrikethru = True
Private Sub chkunder_Click()
If chkunder.Value = 1 Then
lblteks.FontUnderline = True
Else
lblteks.FontUnderline = False
End If
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub optblue_Click()
lblteks.ForeColor = vbBlue
End Sub
Private Sub optgreen_Click()
lblteks.ForeColor = vbGreen
End Sub
Private Sub optred_Click()
lblteks.ForeColor = vbRed
End Sub
Private Sub optyellow_Click()
lblteks.ForeColor = vbYellow
End
Private Sub CMDLAGI_Click()
TXTKT.SetFocus
TXTKT = “”
TXTHT = “”
TXTJB = “”
TXTJT = “”
TXTJK = “”
TXTTB = “”
End Sub
Private Sub CMDPROSES_Click()
TXTTB = Val(TXTHT.Text) * Val(TXTJT.Text)
End Sub
Private Sub TXTKT_KeyPress(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTHT.SetFocus
End If
End Sub
Private Sub TXTHT_KeyPress(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTJK.SetFocus
End If
End Sub
Private Sub TXTJK_KeyPress(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTJB.SetFocus
End If
End Sub
Private Sub TXTJB_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TXTJT.SetFocus
End If
End Sub
Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.
Here are some suggestions for your first post.