Dunia Digital

1.     IF & Case

Sourch Code

Public Class form1

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

        MsgBox("Anda Yakin Ingin Menghapus")

        txtbayar.Clear()

        txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        cmbkode.Text = ""

        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.Tag = "T" Then

                control.Enabled = False

            End If

        Next

        btisidata.Enabled = True

    End Sub

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

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.Tag = "T" Then

                control.Enabled = True

            End If

        Next

        btisidata.Enabled = False

        btclear.Enabled = True

    End Sub

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

        cmbkode.Items.Add("SPT")

        cmbkode.Items.Add("SND")

        cmbkode.Items.Add("TST")

        cmbkode.Items.Add("TOP")

        cmbkode.Items.Add("TAS")

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.Tag = "T" Then

                control.Enabled = False

            ElseIf control.Tag = "S" Then

                control.Enabled = False

            End If

        Next

    End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        MsgBox("Anda yakin ingin keluar ?")

        Me.Close()

    End Sub

    Private Sub rbtunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtunai.CheckedChanged

        txtdiskon.Text = Val(txtbayar.Text) * 10 / 100

        txtbayar.Text = Val(txttotharga.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 150000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "TAS"

                harga = 250000

            Case Else

                namabarang = "---"

                harga = 0

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

    Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

        txttotharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

        txtbayar.Text = Val(txttotharga.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub rbkredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbkredit.CheckedChanged

        txtdiskon.Text = 0

        txtbayar.Text = Val(txtbayar.Text) - Val(txtdiskon.Text)

    End Sub

End Class

2. CheckBox

Sourch Code

Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged,CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged,CheckBox5.CheckedChanged, CheckBox6.CheckedChanged

        TextBox1.Clear()

        For Each item As Windows.Forms.CheckBox In GroupBox1.Controls

            If item.Checked = True Then

                If TextBox1.Text = TextBox1.Text & item.Text Then

                    TextBox1.Text = TextBox1.Text & item.Text

                Else

                    TextBox1.Text = TextBox1.Text & "," & item.Text

                End If

            End If

        Next

    End Sub

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

        MsgBox("Apakah Anda Yakin")

        Me.Close()

    End Sub

End Class

3.          Radio Button

                                                  

Sourch Code

Public Class Form1

    Private Sub rbtnKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnKawin.CheckedChanged

        If rbtnPria.Checked = True Then

            txtHasil.Text = "ISTRI"

        ElseIf rbtnWanita.Checked = True Then

            txtHasil.Text = "SUAMI"

        Else

            txtHasil.Text = ""

        End If

    End Sub

    Private Sub rbtnTakKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnTakKawin.CheckedChanged

        If rbtnPria.Checked = True Or rbtnWanita.Checked = True Then

            txtHasil.Text = "ANDA MASIH LAJANG"

        Else

            txtHasil.Text = ""

        End If

    End Sub

    Private Sub rbtnPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnPria.CheckedChanged

        If rbtnKawin.Checked = True Then

            txtHasil.Text = "ISTRI"

        ElseIf rbtnTakKawin.Checked = True Then

            txtHasil.Text = "ANDA MASIH LAJANG"

        Else

            txtHasil.Text = ""

        End If

    End Sub

    Private Sub rbtnWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnWanita.CheckedChanged

        If rbtnKawin.Checked = True Then

            txtHasil.Text = "SUAMI"

        ElseIf rbtnTakKawin.Checked = True Then

            txtHasil.Text = "ANDA MASIH LAJANG"

        Else

            txtHasil.Text = ""

        End If

    End Sub

    Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click

        MsgBox("Anda Yakin")

        Application.Exit()

    End Sub

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

        btnTutup.Cursor = Cursors.Hand

    End Sub

End Class

4.     ListBox

Sourch Code

Public Class Form1

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listkedua.SelectedIndexChanged

    End Sub

    Private Sub Btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsatu.Click

        While Listkedua.SelectedIndices.Count > 0

            Listketiga.Items.Add(Listkedua.Items(Listkedua.SelectedIndices(0)))

            Listkedua.Items.Remove(Listkedua.Items(Listkedua.SelectedIndices(0)))

        End While

    End Sub

    Private Sub List1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Txt1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt1.TextChanged

    End Sub

    Private Sub BtIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtIsi.Click

        Dim isi As String

        isi = Txt1.Text

        If isi.Trim <> "" Then

            Listkedua.Items.Add(isi)

        End If

        Txt1.Text = ""

    End Sub

    Private Sub Btangka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btangka.Click

        Dim bil As Integer

        For bil = 1 To 10

            Listkedua.Items.Add(bil)

        Next

    End Sub

    Private Sub BtBeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBeberapa.Click

        Listkedua.SelectionMode = SelectionMode.MultiSimple

        While Listkedua.SelectedIndices.Count > 0

            Listketiga.Items.Add(Listkedua.Items(Listkedua.SelectedIndices(0)))

            Listkedua.Items.Remove(Listkedua.Items(Listkedua.SelectedIndices(0)))

        End While

    End Sub

    Private Sub Btsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsemua.Click

        While Listkedua.Items.Count > 0

            Listketiga.Items.Add(Listkedua.Items(0))

            Listkedua.Items.RemoveAt(0)

        End While

    End Sub

    Private Sub BtHapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHapussatu.Click

        Listketiga.Items.Remove(Listketiga.SelectedItem)

    End Sub

    Private Sub BtHapusBeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHapusBeberapa.Click

        Dim xy As Integer

        Listketiga.SelectionMode = SelectionMode.MultiSimple

        For xy = 0 To Listketiga.SelectedIndices.Count - 1

            Listketiga.Items.RemoveAt(Listketiga.SelectedIndices(0))

        Next

    End Sub

    Private Sub BtHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHapusSemua.Click

        Txt1.Focus()

        Listketiga.Items.Clear()

    End Sub

    Private Sub BtTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtTutup.Click

        MsgBox("Apakah Anda Yakin")

        Me.Close()

    End Sub

End Class

5.     PUZZL

Sourch Code

Public Class Form1

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

        Dim Control As Windows.Forms.Control

        Dim number As Integer

        Dim rndnumber As Random

        rndnumber = New Random

        For Each Control In Me.Controls

            If Control.GetType.Name = "Button" Then

                number = rndnumber.Next(1, 9)

                Control.Text = number

            End If

            If bt1.Text = Bt2.Text Then

                Do

                    number = rndnumber.Next(1, 9)

                    Bt2.Text = number

                Loop Until bt1.Text <> Bt2.Text

            End If

            If bt1.Text = Bt3.Text Or Bt2.Text = Bt3.Text Then

                Do

                    number = rndnumber.Next(1, 9)

                    Bt3.Text = number

                Loop Until bt1.Text <> Bt3.Text And Bt2.Text <> Bt3.Text

            End If

            If bt1.Text = Bt4.Text Or Bt2.Text = Bt4.Text Or Bt3.Text = Bt4.Text Then

                Do

                    number = rndnumber.Next(1, 9)

                    Bt4.Text = number

                Loop Until bt1.Text <> Bt4.Text And Bt2.Text <> Bt4.Text And Bt3.Text <> Bt4.Text

            End If

            If bt1.Text = Bt5.Text Or Bt2.Text = Bt5.Text Or Bt3.Text = Bt5.Text Or Bt4.Text = Bt5.Text Then

                Do

                    number = rndnumber.Next(1, 9)

                    Bt5.Text = number

                Loop Until bt1.Text <> Bt5.Text And Bt2.Text <> Bt5.Text And Bt3.Text <> Bt5.Text And Bt4.Text <> Bt5.Text

            End If

            If bt1.Text = Bt6.Text Or Bt2.Text = Bt6.Text Or Bt3.Text = Bt6.Text Or Bt4.Text = Bt6.Text Or Bt5.Text = Bt6.Text Then

                Do

                    number = rndnumber.Next(1, 9)

                    Bt6.Text = number

                Loop Until bt1.Text <> Bt6.Text And Bt2.Text <> Bt6.Text And Bt3.Text <> Bt6.Text And Bt4.Text <> Bt6.Text And Bt5.Text <> Bt6.Text

            End If

            If bt1.Text = Bt7.Text Or Bt2.Text = Bt7.Text Or Bt3.Text = Bt7.Text Or Bt4.Text = Bt7.Text Or Bt5.Text = Bt7.Text Or Bt6.Text = Bt7.Text Then

                Do

                    number = rndnumber.Next(1, 9)

                    Bt7.Text = number

                Loop Until bt1.Text <> Bt7.Text And Bt2.Text <> Bt7.Text And Bt3.Text <> Bt7.Text And Bt4.Text <> Bt7.Text And Bt5.Text <> Bt7.Text And Bt6.Text <> Bt7.Text

            End If

            If bt1.Text = Bt8.Text Or Bt2.Text = Bt8.Text Or Bt3.Text = Bt8.Text Or Bt4.Text = Bt8.Text Or Bt5.Text = Bt8.Text Or Bt6.Text = Bt8.Text Or Bt7.Text = Bt8.Text Then

                Do

                    number = rndnumber.Next(1, 9)

                    Bt8.Text = number

                Loop Until bt1.Text <> Bt8.Text And Bt2.Text <> Bt8.Text And Bt3.Text <> Bt8.Text And Bt4.Text <> Bt8.Text And Bt5.Text <> Bt8.Text And Bt6.Text <> Bt8.Text And Bt7.Text <> Bt8.Text

            End If

            If Bt0.Text <> "" Then

                Bt0.Text = ""

            End If

        Next

    End Sub

    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click

        If Bt2.Text = "" Then

            Bt2.Text = Bt1.Text

            Bt1.Text = ""

        ElseIf Bt4.Text = "" Then

            Bt4.Text = Bt1.Text

            Bt1.Text = ""

        Else

            Bt1.Text = Bt1.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt2.Click

        If Bt1.Text = "" Then

            Bt1.Text = Bt2.Text

            Bt2.Text = ""

        ElseIf Bt3.Text = "" Then

            Bt3.Text = Bt2.Text

            Bt2.Text = ""

        ElseIf Bt5.Text = "" Then

            Bt5.Text = Bt2.Text

            Bt2.Text = ""

        Else

            Bt2.Text = Bt2.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt3.Click

        If Bt2.Text = "" Then

            Bt2.Text = Bt3.Text

            Bt3.Text = ""

        ElseIf Bt6.Text = "" Then

            Bt6.Text = Bt3.Text

            Bt3.Text = ""

        Else

            Bt3.Text = Bt3.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt4.Click

        If Bt1.Text = "" Then

            Bt1.Text = Bt4.Text

            Bt4.Text = ""

        ElseIf Bt7.Text = "" Then

            Bt7.Text = Bt4.Text

            Bt4.Text = ""

        ElseIf Bt5.Text = "" Then

            Bt5.Text = Bt4.Text

            Bt4.Text = ""

        Else

            Bt4.Text = Bt4.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt5.Click

        If Bt2.Text = "" Then

            Bt2.Text = Bt5.Text

            Bt5.Text = ""

        ElseIf Bt4.Text = "" Then

            Bt4.Text = Bt5.Text

            Bt5.Text = ""

        ElseIf Bt8.Text = "" Then

            Bt8.Text = Bt5.Text

            Bt5.Text = ""

        ElseIf Bt6.Text = "" Then

            Bt6.Text = Bt5.Text

            Bt5.Text = ""

        Else

            Bt5.Text = Bt5.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt6.Click

        If Bt0.Text = "" Then

            Bt0.Text = Bt6.Text

            Bt6.Text = ""

        ElseIf Bt3.Text = "" Then

            Bt3.Text = Bt6.Text

            Bt6.Text = ""

        ElseIf Bt5.Text = "" Then

            Bt5.Text = Bt6.Text

            Bt6.Text = ""

        Else

            Bt6.Text = Bt6.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt7.Click

        If Bt8.Text = "" Then

            Bt8.Text = Bt7.Text

            Bt7.Text = ""

        ElseIf Bt4.Text = "" Then

            Bt4.Text = Bt7.Text

            Bt7.Text = ""

        Else

            Bt7.Text = Bt7.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt8.Click

        If Bt0.Text = "" Then

            Bt0.Text = Bt8.Text

            Bt8.Text = ""

        ElseIf Bt7.Text = "" Then

            Bt7.Text = Bt8.Text

            Bt8.Text = ""

        ElseIf Bt5.Text = "" Then

            Bt5.Text = Bt8.Text

            Bt8.Text = ""

        Else

            Bt8.Text = Bt8.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

    Private Sub Bt0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt0.Click

        If Bt8.Text = "" Then

            Bt8.Text = Bt0.Text

            Bt0.Text = ""

        ElseIf Bt6.Text = "" Then

            Bt6.Text = Bt0.Text

            Bt0.Text = ""

        Else

            Bt0.Text = Bt0.Text

        End If

        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt0.Text = "" Then

            MessageBox.Show("SELAMAT ANDA BERHASIL")

        End If

    End Sub

End Class

6.        Program Kalkulator

Sourch Code

Public Class Form1

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

        TxtHasil.Text = Val(Txt1.Text) + Val(Txt2.Text)

    End Sub

    Private Sub BtKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKurang.Click

        TxtHasil.Text = Val(Txt1.Text) - Val(Txt2.Text)

    End Sub

    Private Sub BtKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtKali.Click

        TxtHasil.Text = Val(Txt1.Text) * Val(Txt2.Text)

    End Sub

    Private Sub BtBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBagi.Click

        TxtHasil.Text = Val(Txt1.Text) / Val(Txt2.Text)

    End Sub

    Private Sub BtClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtClear.Click

        Txt1.Clear()

        Txt2.Clear()

        TxtHasil.Clear()

        Txt1.Focus()

    End Sub

    Private Sub BtTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtTutup.Click

        MsgBox("Yakin")

        Me.Close()

    End Sub

End Class