-->

[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 :

Output Program Kasir Sederhana Pemrograman Visual Basic


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..

Program Visual Basic .Net Membuat Kasir Sederhana Dengan Select Case

0 Response to "[Task8] Program Visual Basic .Net Membuat Kasir Sederhana Dengan Select Case"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel