Dimalam yang dingin ini, sebelum saya main futsal saya sempatkan untuk memposting Program Sederhana VB.NET Penjualan Tiket Film, yang mungkin bisa menjadi referensi anda untuk belajar pemrograman VB.NET.
Langsung saja ya ini Program Sederhana VB.NET Penjualan Tiket Film.
Desain form berikut :
Jika sudah selesai membuat form, berikut listing Proram Sederhana VB.NET Pejualan Tiket Film :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode.Items.Add("A001")
Kode.Items.Add("A002")
Kode.Items.Add("A003")
Kode.Items.Add("A004")
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
If Kode.Text = "A001" Then
Nama_studio.Text = "Studio 1"
Kelas.Text = "Eksklusif"
Harga.Text = 900000
ElseIf Kode.Text = "A002" Then
Nama_studio.Text = "Studio 2"
Kelas.Text = "Bisnis"
Harga.Text = 800000
ElseIf Kode.Text = "A003" Then
Nama_studio.Text = "Studio 3"
Kelas.Text = "Ekonomi"
Harga.Text = 700000
Else
Nama_studio.Text = "Studio 4"
Kelas.Text = "Super Ekonomi"
Harga.Text = 600000
End If
Jumlah.Focus()
End Sub
Sub Hapus()
Kode.Text = ""
Nama_studio.Text = ""
Kelas.Text = ""
Harga.Text = ""
Jumlah.Text = ""
Tohar.Text = ""
Dis.Text = ""
Tobar.Text = ""
Dibayar.Text = ""
Kembalian.Text = ""
End Sub
Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
If e.KeyChar = Chr(13) Then
Tohar.Text = Harga.Text * Jumlah.Text
If Jumlah.Text >= 5 Then
kon.Text = "10%"
Dis.Text = 0.1 * Tohar.Text
Else
kon.Text = "0%"
Dis.Text = 0
End If
Tobar.Text = Tohar.Text - Dis.Text
Dibayar.Focus()
End If
End Sub
Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
End Sub
Private Sub Bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click
Me.Close()
End Sub
Private Sub Dibayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Dibayar.KeyPress
If e.KeyChar = Chr(13) Then
Kembalian.Text = Dibayar.Text - Tobar.Text
End If
End Sub
Private Sub Dibayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dibayar.TextChanged
End Sub
Private Sub Bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus.Click
Call Hapus()
End Sub
End Class
Semoga Program Sederhana VB.NET Penjualan Tiket Film bisa bermanfaat, dan terimakasih.
wasalamm,,,
wasalamm,,,
Posting Komentar