MEMBUAT PROGRAM PERHITUNGAN HARTA SETELAH DI DISCOUNT 10%

Slide1

Code :

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
Text1.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
If Form1.Caption = “SUHARTATI” Then
Form1.Caption = ” “
ElseIf Form1.Caption = “SUHAR” Then
Form1.Caption = “SUHARTA”
ElseIf Form1.Caption = “SUHA” Then
Form1.Caption = “SUHA”
ElseIf Form1.Caption = “SUH” Then
Form1.Caption = “SUH”
ElseIf Form1.Caption = “SU” Then
Form1.Caption = “SU”
Else
Form1.Caption = “SUHARTATI”
End If
End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: