CheckBox

Memberikan nilai pada saat Checkbox dicentang dan mengurangi nilai total pada saat Checkbox tidak dicentang.

Contoh Code:

Public Class frmSelectItem

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            lblTotal.Text += 1000

        ElseIf CheckBox1.Checked = False Then

            lblTotal.Text -= 1000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            lblTotal.Text += 2000

        ElseIf CheckBox2.Checked = False Then

            lblTotal.Text -= 2000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            lblTotal.Text += 3000

        ElseIf CheckBox3.Checked = False Then

            lblTotal.Text -= 3000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            lblTotal.Text += 4000

        ElseIf CheckBox4.Checked = False Then

            lblTotal.Text -= 4000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

        If CheckBox5.Checked = True Then

            lblTotal.Text += 5000

        ElseIf CheckBox5.Checked = False Then

            lblTotal.Text -= 5000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

End Class

Simple Calculator

Dibuat menggunakan VB.Net 2005, dalam materi ini berisikan contoh beberapa control seperti : textbox, label, combobox, listbox dan button. Materi ini juga menggunakan Variabel, yang digunakan untuk menampung data secara sementara

 

Code:

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        'mengisi nilai ComboBox Operator
        cboOperator.Items.Add("+  ""Tambah""")
        cboOperator.Items.Add("-  ""Kurang""")
        cboOperator.Items.Add("*  ""Kali""")
        cboOperator.Items.Add("/  ""Bagi""")
    End Sub
 
    Private Sub btnProcess_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnProcess.Click
        'variabel -> berfungsi untuk menampung data sementara
        Dim sng1stNumber, sng2ndNumber, sngResult As Single
 
        'jika user mengisi TextBox txt1stNumber, txt2ndNumber
        'dengan karakter selain angka, maka tidak akan diproses
        If Not IsNumeric(txt1stNumber.Text) = True Then
            MessageBox.Show("Silahkan masukkan angka pada TextBox 1stNumber", _
                            "WARNING", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            'memberikan nilai textbox menjadi 0 (nol)
            txt1stNumber.Text = 0
            'membuat cursor berada pada textbox 1stNumber
            txt1stNumber.Focus()
            'memberhentikan proses selanjutnya
            Exit Sub
        ElseIf Not IsNumeric(txt2ndNumber.Text) = True Then
            MessageBox.Show("Silahkan masukkan angka pada TextBox 2ndNumber", _
                            "WARNING", MessageBoxButtons.OK, _
                            MessageBoxIcon.Warning)
            txt2ndNumber.Text = 0
            txt2ndNumber.Focus()
            Exit Sub
        End If
 
        'mengisi nilai variabel berdasarkan yang input oleh user
        sng1stNumber = CSng(txt1stNumber.Text)
        sng2ndNumber = CSng(txt2ndNumber.Text)
        sngResult = 0
 
        'memilih index atau urutan item yang dipilih oleh user
        'pada ComboBox cboOperator
        Select Case cboOperator.SelectedIndex
            Case 0 'tambah
                sngResult = sng1stNumber + sng2ndNumber
            Case 1 'kurang
                sngResult = sng1stNumber - sng2ndNumber
            Case 2 'kali
                sngResult = sng1stNumber * sng2ndNumber
            Case 3 'bagi
                sngResult = sng1stNumber / sng2ndNumber
            Case Else 'jika user mengisi ComboBox cboOperator
                'dengan sembarangan maka akan menampilkan pesan
                MessageBox.Show("Operator tidak dikenal / Anda belum memilih", _
                                "WARNING", MessageBoxButtons.OK, _
                                MessageBoxIcon.Warning)
        End Select
        txtResult.Text = sngResult
    End Sub
 
End Class


Download Source Lengkap : DOWNLOAD