[Task8] Program Visual Basic .Net Membuat Kasir Sederhana Dengan Select Case
Seperti biasa pada kali ini Mr. Comro akan bagikan catatan perkuliahan yaitu program Visual Basic .Net membuat Kasir sederhana dengan kombinasi Select Case, ComboBox, TextBox, Botton dan juga Label lihat selengkapnya di bawah ya teman-teman :
TAMPILAN PROGRAM :
TAMPILAN PROGRAM :
SOURCE CODE :
Public Class Form1
Dim Sepatu, Kaos_kaki, sendal, Jumlah_Barang, Jumlah_Pembayaran, Uang_Pembayaran, Sisa As Integer
Dim clear As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Sepatu = 150000
Kaos_kaki = 15000
sendal = 12000
Jumlah_Barang = Val(TextBox1.Text)
Select Case (ComboBox1.Text)
Case "Sepatu"
Jumlah_Pembayaran = Sepatu * Jumlah_Barang
TextBox2.Text = Jumlah_Pembayaran
Case "Kaos Kaki"
Jumlah_Pembayaran = Kaos_kaki * Jumlah_Barang
TextBox2.Text = Jumlah_Pembayaran
Case "Sendal"
Jumlah_Pembayaran = sendal * Jumlah_Barang
TextBox2.Text = Jumlah_Pembayaran
Case Else
MsgBox("MASUKAN INPUT BARANG", MsgBoxStyle.Critical, "PESAN DARI MR. COMRO")
End Select
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Uang_Pembayaran = Val(TextBox3.Text)
Sisa = Uang_Pembayaran - Jumlah_Pembayaran
TextBox4.Text = Sisa
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ComboBox1.Text = clear & ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
End
End Sub
End Class
Mungkin cukup sekian info kali ini mudah-mudahan berguna dan bermanfaat, sampai bertemu kembali di tugas kuliah Mr. Comro berikut nya. Untuk lebih jelasnya teman-teman bisa mendownload project program kasir di atas via Google Drive di bawah ini. Dan jangan lupa comment and share ke teman-teman kalian jika postingan ini bermanfaat Terimakasih..
0 Response to "[Task8] Program Visual Basic .Net Membuat Kasir Sederhana Dengan Select Case"
Post a Comment