Disamping kesederhanaannya program ini sangat tepat untuk belajar dasar vb.net karena sudah terdapat
contoh fungsi aritmatika, condition if, elseif, for while Case dan Class.
Langsung saja berikut sedikit screen shoot aplikasi beserta codingannya.
Script Form1.vb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 6
cboStudio.Items.Add("Studio " & i)
Next
With cboHari
.Items.Add("Senin")
.Items.Add("Selasa")
.Items.Add("Rabu")
.Items.Add("Kamis")
.Items.Add("Jumat")
.Items.Add("Sabtu")
.Items.Add("Minggu")
End With
Dim a As Integer = 11
Do While a < 24
cboJam.Items.Add(a & ":00")
a = a + 1
Loop
txtBayar.Enabled = False
txtKembali.Enabled = False
txtFilm.Enabled = False
txtHarga.Enabled = False
End Sub
Private Sub cboStudio_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboStudio.SelectedIndexChanged
Select Case cboStudio.Text
Case Is = "Studio 1"
txtFilm.Text = "The Hunger Games : Mokingjay"
Case Is = "Studio 2"
txtFilm.Text = "Big Hero 6"
Case Is = "Studio 3"
txtFilm.Text = "Interstellar"
Case Is = "Studio 4"
txtFilm.Text = "Salah Body"
Case Is = "Studio 5"
txtFilm.Text = "Automata"
Case Is = "Studio 6"
txtFilm.Text = "Penguin Of Madagascar"
End Select
End Sub
Private Sub cboHari_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboHari.SelectedIndexChanged
If cboHari.Text = "Senin" Or cboHari.Text = "Selasa" Or cboHari.Text = "Rabu" Or cboHari.Text = "Kamis" Then
txtHarga.Text = "35000"
ElseIf cboHari.Text = "Jumat" Then
txtHarga.Text = "40000"
Else
txtHarga.Text = "50000"
End If
End Sub
Private Sub txtJumlah_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtJumlah.KeyUp
Dim hitung As hitung
hitung = New hitung
txtBayar.Text = hitung.totalHarga(Val(txtHarga.Text), Val(txtJumlah.Text))
End Sub
Private Sub cmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProses.Click
Dim hitung As hitung
hitung = New hitung
txtKembali.Text = hitung.kembalian(Val(txtBayar.Text), Val(txtDibayar.Text))
End Sub
Private Sub cmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBatal.Click
cboStudio.Text = ""
txtFilm.Text = ""
cboHari.Text = ""
txtHarga.Text = ""
txtJumlah.Text = ""
txtBayar.Text = ""
txtDibayar.Text = ""
txtKembali.Text = ""
End Sub
Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
End
End Sub
End Class
Script hitung.class
Public Class hitung
Public Function totalHarga(ByVal harga As Double, ByVal jumlah As Double) As Double
Dim hasil As Double
hasil = harga * jumlah
totalHarga = hasil
End Function
Public Function kembalian(ByVal total As Double, ByVal bayar As Double) As Double
Dim hasil As Double
hasil = bayar - total
kembalian = hasil
End Function
End Class
