Program Salon

Public Class Class1


Public Function fpembayaran(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer, ByVal bil4 As Integer) As Integer

fpembayaran = Val(bil1) + Val(bil2) + Val(bil3) + Val(bil4)

End Function

End Class










Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim obj As New Class1

Label9.Text = obj.fpembayaran(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
MsgBox("Total Harga adalah Rp " + Label9.Text + " ")

End Sub
End Class

Program Bioskop

Saat program ini dijalankan, user harus memasukkan judul film yang akan di tonton, jam mainnya, serta memasukkan jumlah orang yang akan menonton dan donasi untuk PMI. Setelah itu, user diminta untuk menekan tombol "CETAK" lalu setelah tombol itu di tekan, maka nanti akan muncul keterangan tentang film yang ditonton serta jumlah yang harus di bayar.

source code:

Public Class Form1

Private Sub buat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buat.Click
sher.Checked = False
hp6.Checked = False
faf.Checked = False
thom.Checked = False
j1.Checked = False
j2.Checked = False
j3.Checked = False
j4.Checked = False
j5.Checked = False
jml.Text = ""
donasi.Text = ""
film.Text = ""
jam.Text = ""
studio.Text = ""
tagihan.Text = ""
film.Enabled = False
jam.Enabled = False
studio.Enabled = False
tagihan.Enabled = False
lfilm.Enabled = False
ljam.Enabled = False
lstudio.Enabled = False
ltagihan.Enabled = False
End Sub

Private Sub sher_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sher.CheckedChanged
j1.Text = " 12.30 - 14.45 "
j2.Text = " 15.00 - 17.15 "
j3.Text = " 17.30 - 19.45 "
j4.Text = " 20.00 - 22.15 "
j5.Visible = True
j5.Text = " 22.30 - 00.45 "
End Sub

Private Sub faf_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles faf.CheckedChanged
j1.Text = " 12.30 - 14.45 "
j2.Text = " 15.00 - 17.15 "
j3.Text = " 17.30 - 19.45 "
j4.Text = " 20.00 - 22.15 "
j5.Visible = True
j5.Text = " 22.30 - 00.45 "
End Sub

Private Sub hp6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hp6.CheckedChanged
j1.Text = " 12.00 - 15.00 "
j2.Text = " 15.15 - 18.15 "
j3.Text = " 18.30 - 21.30 "
j4.Text = " 21.45 - 00.45 "
j5.Visible = False
End Sub

Private Sub thom_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles thom.CheckedChanged
j1.Text = " 12.00 - 15.00 "
j2.Text = " 15.15 - 18.15 "
j3.Text = " 18.30 - 21.30 "
j4.Text = " 21.45 - 00.45 "
j5.Visible = False
End Sub

Private Sub selesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selesai.Click
End
End Sub

Private Sub cetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cetak.Click
film.Enabled = True
jam.Enabled = True
studio.Enabled = True
tagihan.Enabled = True
lfilm.Enabled = True
ljam.Enabled = True
lstudio.Enabled = True
ltagihan.Enabled = True

jml.TextAlign = HorizontalAlignment.Center
donasi.TextAlign = HorizontalAlignment.Center

Select Case jml.Text
Case Is = ""
MsgBox("Tak ada pemesan", MsgBoxStyle.Information, "TAK ADA PEMESAN")
film.Enabled = False
jam.Enabled = False
studio.Enabled = False
tagihan.Enabled = False
lfilm.Enabled = False
ljam.Enabled = False
lstudio.Enabled = False
ltagihan.Enabled = False
Exit Sub
End Select

Select Case donasi.Text
Case Is = ""
donasi.Text = "0"
End Select

Dim a As String
Dim b As String
Dim c As String
Dim d As String

a = UCase(sher.Text)
b = UCase(hp6.Text)
c = UCase(faf.Text)
d = UCase(thom.Text)

If j1.Checked = True Then
jam.Text = j1.Text
ElseIf j2.Checked = True Then
jam.Text = j2.Text
ElseIf j3.Checked = True Then
jam.Text = j3.Text
ElseIf j4.Checked = True Then
jam.Text = j4.Text
ElseIf j5.Checked = True Then
jam.Text = j5.Text
Else
MsgBox("Belum ada pilihan jam main", MsgBoxStyle.Information, "PILIHAN JAM MAIN TIDAK ADA")
film.Enabled = False
jam.Enabled = False
studio.Enabled = False
tagihan.Enabled = False
lfilm.Enabled = False
ljam.Enabled = False
lstudio.Enabled = False
ltagihan.Enabled = False
Exit Sub
End If

If sher.Checked = True Then
film.Text = a
studio.Text = "1"
studio.TextAlign = HorizontalAlignment.Center
ElseIf hp6.Checked = True Then
film.Text = b
studio.Text = "2"
studio.TextAlign = HorizontalAlignment.Center
ElseIf faf.Checked = True Then
film.Text = c
studio.Text = "3"
studio.TextAlign = HorizontalAlignment.Center
ElseIf thom.Checked = True Then
film.Text = d
studio.Text = "4"
studio.TextAlign = HorizontalAlignment.Center
Else
MsgBox("Belum ada pilihan film", MsgBoxStyle.Information, "PILIHAN FILM TIDAK ADA")
film.Enabled = False
jam.Enabled = False
studio.Enabled = False
tagihan.Enabled = False
lfilm.Enabled = False
ljam.Enabled = False
lstudio.Enabled = False
ltagihan.Enabled = False
Exit Sub
End If

tagihan.Text = Val(25000 * jml.Text) + donasi.Text

End Sub

End Class