KUIS SATU

PROGRAM PENJUALAN TIKET

 

 

Private Sub Cmdproses_Click()

Dim d, a, b, c, s As String

s = Left(Txtkt.Text, 3)

If s = “eko” Then

a = “50000”

b = “ekonomi”

c = “15:00”

d = “”

 

TXTHt.Text = a

TXTJt.Text = b

TXTjb.Text = c

txttb.Text = d

TXTJpl.SetFocus

 

 

 

 

s = Left(Txtkt.Text, 3)

ElseIf s = “bim” Then

a = “300000”

b = “bima”

c = “16:00”

d = “”

 

TXTHt.Text = a

TXTJt.Text = b

TXTjb.Text = c

txttb.Text = d

TXTJpl.SetFocus

 

s = Left(Txtkt.Text, 3)

ElseIf s = “mut” Then

a = “300000”

b = “mutiara”

c = “16:00”

d = “”

 

TXTHt.Text = a

TXTJt.Text = b

TXTjb.Text = c

txttb.Text = d

TXTJpl.SetFocus

 

 

 

 

 

 

 

 

 

s = Left(Txtkt.Text, 3)

ElseIf s = “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 December 23, 2011, 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: