Hanya Sekedar Blog Biasa: November 2012

1. modifikasi latihan if case

Listing Programnya:

Public Class Form1

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 kontrol As Windows.Forms.Control

For Each kontrol In Me.Controls

If kontrol.GetType.Name = "TextBox" Or kontrol.Name = "ComboBox" Or kontrol.GetType.Name = "RadioButton" Then

kontrol.Enabled = False

Btclear.Enabled = False

Bttutup.Enabled = True

End If

Next kontrol

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

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

Dim kdbarang, nmbarang As String

Dim harga As Single

kdbarang = cmbkode.Text

Select Case kdbarang

Case "SPT"

nmbarang = "Sepatu"

harga = 200000

Case "SND"

nmbarang = "Sandal"

harga = 100000

Case "TST"

nmbarang = "T-Shirt"

harga = 1500000

Case "TOP"

nmbarang = "Topi"

harga = 500000

Case Else

nmbarang = "-"

harga = 0

End Select

txtnama.Text = nmbarang

txtharga.Text = harga

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnama.TextChanged

End Sub

Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged

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

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

End Sub

Private Sub radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged

txtdiskon.Text = 0

txtbayar.Text = Val(txttotal.Text)

End Sub

Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click

txtbayar.Clear()

txtharga.Clear()

txtjumlah.Clear()

txtnama.Clear()

txttotal.Clear()

txtdiskon.Clear()

Me.radiotunai.Checked = False

Me.radiokredit.Checked = False

cmbkode.Text = " "

For Each kontrol In Me.Controls

If kontrol.GetType.Name = "TextBox" Or kontrol.GetType.Name = "ComboBox" Or kontrol.GetType.Name = "RadioButton" Then

kontrol.Enabled = False

Btclear.Enabled = False

Bttutup.Enabled = True

btisi.Enabled = True

End If

Next kontrol

End Sub

Private Sub Bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttutup.Click

If MsgBox("Apakah yakin akan keluar ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi") = vbYes Then

Me.Close()

End If

End Sub

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

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

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

End Sub

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

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

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

If radiotunai.Checked = True Then

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

ElseIf radiokredit.Checked = True Then

txtdiskon.Text = 0

txtbayar.Text = Val(txttotal.Text)

End If

End Sub

Private Sub txttotal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotal.TextChanged

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

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

End Sub

Private Sub txtdiskon_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdiskon.TextChanged

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

End Sub

Private Sub txtbayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbayar.TextChanged

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

End Sub

Private Sub btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisi.Click

Dim kontrol As Windows.Forms.Control

For Each kontrol In Me.Controls

If kontrol.GetType.Name = "TextBox" Or kontrol.GetType.Name = "ComboBox" Or kontrol.GetType.Name = "RadioButton" Then

kontrol.Enabled = True

Btclear.Enabled = True

Bttutup.Enabled = True

btisi.Enabled = False

End If

Next kontrol

End Sub

End Class

Hasil setelah di run :

1.Tampilan awal

2. Setelah tekan masukan data:

3. Lalu kita masukan data sesuai keinginan:

Catatan : Disini saya menambahkan tombol masukan data

2. Program Puzzle

Listing programnya:

Public Class Form1

    Private Sub tb_main_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_main.Click
        For Each puzzle In Me.GroupBox1.Controls
            If puzzle.GetType.Name = "Button" Then
                puzzle.Enabled = True
                tb_main.Enabled = False
                tb_acak.Enabled = True
            End If
        Next
        Dim swap As String
        swap = bt1.Text
        bt1.Text = bt2.Text
        bt2.Text = swap
        swap = bt2.Text
        bt2.Text = bt3.Text
        bt3.Text = swap
        swap = bt4.Text
        bt4.Text = bt5.Text
        bt5.Text = swap
        swap = bt5.Text
        bt5.Text = bt6.Text
        bt6.Text = swap
        swap = bt6.Text
        bt6.Text = bt7.Text
        bt7.Text = swap
        swap = bt7.Text
        bt7.Text = bt8.Text
        bt8.Text = swap
        swap = btblank.Text
        btblank.Text = bt1.Text
        bt1.Text = swap
        swap = btblank.Text
        btblank.Text = bt4.Text
        bt4.Text = swap
    End Sub

    Private Sub tb_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_keluar.Click
        If MsgBox("Berhenti mainnya ?", vbQuestion + vbYesNo + vbDefaultButton2, "Pesan") = vbYes Then Me.Close()
    End Sub

    Private Sub tb_acak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_acak.Click
        Dim swap As String
        swap = bt1.Text
        bt1.Text = bt2.Text
        bt2.Text = swap
        swap = bt2.Text
        bt2.Text = bt3.Text
        bt3.Text = swap
        swap = bt4.Text
        bt4.Text = bt5.Text
        bt5.Text = swap
        swap = bt5.Text
        bt5.Text = bt6.Text
        bt6.Text = swap
        swap = bt6.Text
        bt6.Text = bt7.Text
        bt7.Text = swap
        swap = bt7.Text
        bt7.Text = bt8.Text
        bt8.Text = swap
        swap = btblank.Text
        btblank.Text = bt1.Text
        bt1.Text = swap
        swap = btblank.Text
        btblank.Text = bt4.Text
        bt4.Text = swap
    End Sub

    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
        Dim swap1 As String
        If bt2.Text = " " Then
            swap1 = bt2.Text
            bt2.Text = bt1.Text
            bt1.Text = swap1
        ElseIf bt4.Text = " " Then
            swap1 = bt4.Text
            bt4.Text = bt1.Text
            bt1.Text = swap1
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click
        Dim swap2 As String
        If bt1.Text = " " Then
            swap2 = bt1.Text
            bt1.Text = bt2.Text
            bt2.Text = swap2
        ElseIf bt3.Text = " " Then
            swap2 = bt3.Text
            bt3.Text = bt2.Text
            bt2.Text = swap2
        ElseIf bt5.Text = " " Then
            swap2 = bt5.Text
            bt5.Text = bt2.Text
            bt5.Text = swap2
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each kotak In Me.GroupBox1.Controls
            If kotak.GetType.Name = "Button" Then
                kotak.Enabled = True
                tb_acak.Enabled = True
            End If
        Next
    End Sub

    Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click
        Dim swap3 As String
        If bt2.Text = " " Then
            swap3 = bt2.Text
            bt2.Text = bt3.Text
            bt3.Text = swap3
        ElseIf bt6.Text = " " Then
            swap3 = bt6.Text
            bt6.Text = bt3.Text
            bt3.Text = swap3
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click
        Dim swap4 As String
        If bt1.Text = " " Then
            swap4 = bt1.Text
            bt1.Text = bt4.Text
            bt4.Text = swap4
        ElseIf bt5.Text = " " Then
            swap4 = bt5.Text
            bt5.Text = bt4.Text
            bt4.Text = swap4
        ElseIf bt7.Text = " " Then
            swap4 = bt7.Text
            bt7.Text = bt4.Text
            bt4.Text = swap4
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click
        Dim swap5 As String
        If bt2.Text = " " Then
            swap5 = bt2.Text
            bt2.Text = bt5.Text
            bt5.Text = swap5
        ElseIf bt4.Text = " " Then
            swap5 = bt4.Text
            bt4.Text = bt5.Text
            bt5.Text = swap5
        ElseIf bt6.Text = " " Then
            swap5 = bt6.Text
            bt6.Text = bt5.Text
            bt5.Text = swap5
        ElseIf bt8.Text = " " Then
            swap5 = bt8.Text
            bt8.Text = bt5.Text
            bt5.Text = swap5
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click
        Dim swap6 As String
        If bt3.Text = " " Then
            swap6 = bt3.Text
            bt3.Text = bt6.Text
            bt6.Text = swap6
        ElseIf bt5.Text = " " Then
            swap6 = bt5.Text
            bt5.Text = bt6.Text
            bt6.Text = swap6
        ElseIf btblank.Text = " " Then
            swap6 = btblank.Text
            btblank.Text = bt6.Text
            bt6.Text = swap6
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt7.Click
        Dim swap7 As String
        If bt4.Text = " " Then
            swap7 = bt4.Text
            bt4.Text = bt7.Text
            bt7.Text = swap7
        ElseIf bt8.Text = " " Then
            swap7 = bt8.Text
            bt8.Text = bt7.Text
            bt7.Text = swap7
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt8.Click
        Dim swap8 As String
        If bt5.Text = " " Then
            swap8 = bt5.Text
            bt5.Text = bt8.Text
            bt8.Text = swap8
        ElseIf bt7.Text = " " Then
            swap8 = bt7.Text
            bt7.Text = bt8.Text
            bt8.Text = swap8
        ElseIf btblank.Text = " " Then
            swap8 = btblank.Text
            btblank.Text = bt8.Text
            bt8.Text = swap8
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

    Private Sub btblank_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btblank.Click
        Dim swap9 As String
        If bt6.Text = " " Then
            swap9 = bt6.Text
            bt6.Text = btblank.Text
            btblank.Text = swap9
        ElseIf bt8.Text = " " Then
            swap9 = bt8.Text
            bt8.Text = btblank.Text
            btblank.Text = swap9
        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 btblank.Text = " " Then
            MsgBox("Berhasil", vbInformation, "Pesan ")
        End If
    End Sub

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

Setelah selesai, jalankan program :

1.Ketika program dijalankan