PEMOGRAMAN VISUAL 1 biliing bioskop

                                                TUGAS PEMOGRAMAN VISUAL  1

Project saat running:

Project saat diinput:

Listing program:

Sub bersih()                                        

tnotik = ""

ttgl = ""

tkofi = ""

tjudi = ""

tharga = ""

tstudio = ""

tjumbel = ""

tsubtot = 0

tdisc = 0

ttotbay = 0

texe.Value = 0

tvip.Value = 0

tbias.Value = 0

tbike = 0

tbon = ""

tubay = ""

tukem = ""

End Sub

Sub nonaktif()

tnotik.Enabled = False

ttgltik.Enabled = False

tkofi.Enabled = False

tjudi.Enabled = False

tharga.Enabled = False

tstudio.Enabled = False

tjumbel.Enabled = False

tsubtot.Enabled = False

tdisc.Enabled = False

ttotbay.Enabled = False

tubay.Enabled = False

tukem.Enabled = False

texe.Enabled = False

tvip.Enabled = False

tbias.Enabled = False

tbike.Enabled = False

tbon.Enabled = False

End Sub

Sub aktif()

tnotik.Enabled = True

ttgltik.Enabled = True

tkofi.Enabled = True

tjudi.Enabled = True

tharga.Enabled = True

tstudio.Enabled = True

tjumbel.Enabled = True

tsubtot.Enabled = True

tdisc.Enabled = True

ttotbay.Enabled = True

tubay.Enabled = True

tukem.Enabled = True

texe.Enabled = True

tvip.Enabled = True

tbias.Enabled = True

tbike.Enabled = True

tbon.Enabled = True

End Sub

Private Sub cexit_Click()

p = MsgBox("Sudah Jalan Belum Programnya!! Kalau Sudah boleh Keluar", vbInformation + vbYesNo, "pesan")

If p = vbYes Then

Unload Me

End If

End Sub

Private Sub clagi_Click()

aktif

bersih

cexit.Enabled = True

End Sub

Private Sub Form_Activate()

cexit.Enabled = False

nonaktif

bersih

End Sub

Private Sub Form_Load()

tkofi.AddItem "SPD01"

tkofi.AddItem "HRR02"

tkofi.AddItem "ACC03"

End Sub

Private Sub tbias_Click()

tbike = "7500"

tbon = "Pop Corn"

End Sub

Private Sub texe_Click()

tbike = "15000"

tbon = "Brownies"

End Sub

Private Sub tvip_Click()

tbike = "10000"

tbon = "Pepsi cola"

End Sub

Private Sub tjumbel_Change()

tsubtot = Val(tharga) * Val(tjumbel) + Val(tbike)

If tjumbel > 6 Then

tdisc = 0.1 * Val(tsubtot)

ElseIf tjumbel < 6 Then

tdisc = 0

End If

ttotbay = Val(tsubtot) - Val(tdisc)

End Sub

Private Sub tkofi_Click()

Select Case tkofi

Case "SPD01"

tjudi = "Spiderman"

tharga = "17500"

tstudio = " Studio 1"

Case "HRR02"

tjudi = "Harry Potter"

tharga = "20000"

tstudio = "studio 1"

Case Else

tjudi = "Ayat Ayat Cinta"

tharga = "22500"

tstudio = "Studio 1"

End Select

End Sub

Private Sub tnotik_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ttgltik.Text = Format(Date, "dd/mmmm/yyyy")

End If

End Sub

Private Sub tubay_Change()

tukem = Val(tubay) - Val(ttotbay)

End Sub

Posted in: program visual basic