[ VB.NET ] Memanfaatkan CheckBox untuk Menghitung Total Harga

Belajar memanfaatkan Checkbox untuk menghitung total harga,  semisal kita mempunyai idea penjualan alat tulis dengan adanya beragam pilihan peralatan, misal disini disebutkan ada tiga pilihan,  yaitu penjualan buku, pensil dan penggaris. Jika kita menghitungnya secara manual pasti kita menjumlahkannya dengan mudah  tentunya akan tetepi jika lebih dari tigapilihan kemungkinan kita akan mengalami kesulitan dalam menghitung totalnya, atau mungkin salah untuk menghitungnya, yang namanya sifat manusiawi itukan biasanya mudah lupa dan kurang teliti.

Disini dengan bantuan aplikasi beserta memanfaatkan algoritma pemrogramannya, maka secara cepat dan tepat program tersebut dapat langsung bisa menghitungnya tanpa ada yang salah, karena program tersebut hanya menuruti apa yang perintahkan dari sang pembuat program.

[ Visual Basic.NET ] Memanfaatkan CheckBox untuk Menghitung Total Harga

Buat desain antarmuka sistem seperti berikut / bebas terserah agan, asal ngerti aja maksudnya inilah yang dinamakan GUI  (Graphical User Interface)  yang termasuk didalamnya berupa komponen komponen atau objec yang ada dan dibutuhkan dalam membuat desain antar muka sistem

[ Visual Basic.NET ] Memanfaatkan CheckBox untuk Menghitung Total Harga

Membutuhkan

Label : Untuk merubah nama Label1,Label2,Label3,Label4 dst , cukup mengganti Text label pada bagian properties yang ada disamping agar dapat dilihat dalam tampilan Desain . Sedangkan pada name, itu untuk membedakan objec satu dengan objec yang lainnya.

CheckBox : Digunakan untuk memilih satu atau lebih dari pilihan yang ada, beda dengan RadioButton yang hanya dapat memilih satu pilihan dari beberapa pilihan, misal penentuan jenis kelamin.

Button : Disini fungsi button perannya sebagai fungsi perintah/pemrosesan dari code-code yang telah ditanamkan

TextBox :  Membuat kotak text  untuk menginput atau mengubah teks

Untuk code program bisa dilihat dibawah ini

——————————————————————————————————–

Public Class Form1

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

Const buku As Integer = 2000.0

Const pensil As Integer = 1500.0

Const penggaris As Integer = 1200.0

Dim sum As Integer

If CheckBox1.Checked = True Then

sum += buku

End If

If CheckBox2.Checked = True Then

sum += pensil

End If

If CheckBox3.Checked = True Then

sum += penggaris

End If

TextBox1.Text = sum.ToString()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim total, bayar, Jumlah As Single

total = TextBox1.Text

bayar = TextBox2.Text

Jumlah = (bayar) – (total)

TextBox3.Text = Jumlah

End Sub

End Class

Keterangan

Const buku As Integer = 2000.0

Const pensil As Integer = 1500.0

Const penggaris As Integer = 1200.0

konstanta adalah satu nilai yang tetap, tidak bisa dirubah saat program dijalankan.

syntax: Const_[namaconstanta]_ [tipedata] = Nilai, jadi untuk membuat constanta kita menggunakan kata kunci const,

Dim

Ini adalah jenis variabel.

/# pahami dulu jenis-jenis variabel dan typedata pasti agan bisa ngerti