PROGRAM TIKET DENGAN SISIPAN TANGGAL

Private Sub Cmdproses_Click()

Dim d, a, b, c As String

Txtkt.Text = Left(Txtkt.Text, 3)

If LCase(Txtkt.Text) = “eko” Then

 

a = “50000”

b = “ekonomi”

c = “15:00”

d = “”

 

TXTHt.Text = a

TXTJt.Text = b

TXTjb.Text = c

txttb.Text = d

TXTJpl.SetFocus

 

 

ElseIf LCase(Txtkt.Text) = “bim” Then

 

a = “300000”

b = “BIMA”

c = “16:00”

d = “”

TXTHt.Text = a

TXTJt.Text = b

TXTjb.Text = c

txttb.Text = d

TXTJpl.SetFocus

 

 

 

ElseIf LCase(Txtkt.Text) = “mut” Then

a = “300000”

b = “mutiara”

c = “16:00”

d = “”

 

TXTHt.Text = a

TXTJt.Text = b

TXTjb.Text = c

txttb.Text = d

TXTJpl.SetFocus

 

 

ElseIf LCase(Txtkt.Text) = “sen” Then

a = “15000”

b = “SENJA”

c = “19:00”

d = “”

 

TXTHt.Text = a

TXTJt.Text = b

TXTjb.Text = c

txttb.Text = d

TXTJpl.SetFocus

 

End If

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtkt.SetFocus

Txtkt.Text = “”

TXTHt.Text = “”

TXTJt.Text = “”

TXTjb.Text = “”

txttb.Text = “”

TXTJpl.Text = “”

End Sub

Private Sub TXTJpl_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttb.Text = Val(TXTHt.Text) * Val(TXTJpl.Text)

End If

End Sub

About irfanstmik

KEJUJURAN ADALAH MODAL UTAMA UNTUK MEMPEROLEH KEPERCAYAAN

Posted on January 6, 2012, in Uncategorized. Bookmark the permalink. Leave a comment.

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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s

%d bloggers like this: