Tugas 3 Pemrograman Visual

Memodifikasi Program dan Membuat Puzzle

Assalamua'alaikum.....

I .Yang pertama akan saya tampilkan adalah modifikasi dari Tugas 2 ,

Soal :

1. Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif
2. Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isi data tidak aktif
3. Saat ditekan combol clear sama dengan saat form dijalankan

Berikut adalah listing coding menurut logika saya:

Public Class Form1

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

Dim a As Windows.Forms.Control

For Each a In Me.Controls

a.Enabled = False

Button2.Enabled = True

Button1.Enabled = True

cmbkode.Items.Add(“SPT”)

cmbkode.Items.Add(“SND”)

cmbkode.Items.Add(“TST”)

cmbkode.Items.Add(“TOP”)

cmbkode.Items.Add(“TAS”)

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 = 50000

Case “TAS”

namabarang = “TAS”

harga = 200000

Case Else

namabarang = “_”

harga = 0

End Select

Txtnama.Text = namabarang

Txtharga.Text = harga

Txtharga.Text = Format(harga, “#,#”)

End Sub

Private Sub Txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtjumlah.TextChanged

Dim total As Single

Txttotal.Text = Val(Txtharga.Text) * Val(Txtjumlah.Text)

Txtbayar.Text = Val(Txttotal.Text) – Val(Txtdiskon.Text)

Txttotal.Text = Format(total, “#,#”)

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) – Val(Txtdiskon.Text)

End Sub

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

Dim a As Windows.Forms.Control

For Each a In Me.Controls

a.Enabled = False

Button2.Enabled = True

Button1.Enabled = True

Txtbayar.Clear()

Txtdiskon.Clear()

Txtharga.Clear()

Txtjumlah.Clear()

Txtnama.Clear()

Txttotal.Clear()

Me.Radiotunai.Checked = False

Me.Radiokredit.Checked = False

cmbkode.Text = “”

End Sub

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

Me.Close()

End Sub

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

Dim a As Windows.Forms.Control

For Each a In Me.Controls

a.Enabled = True

Button1.Enabled = False

End Sub

End Class

1) Berikut Tampilan Progam yang dijalankan :

2) Kemudian apa bila kita menekan tombol isi data, Form akan aktif, Sedangkan tombol isi data tidak aktif... :

3) Dan ktika tombol clear ditekan maka form akan kembali tampil seperti keadaan awal :

II. Membuat Puzzle

Soal :

1. Saat form dijalankan posisi angka acak
2. Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8
3. Saat angka sudah tersusun tampilkan pesan selamat anda berhasil

Pertama Buatlah form seperti berikut :

1) langkah yang pertama, Buatlah button sebanyak 9 button ,ubah properties (name) masing2 button menjadi : btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, dan btn9.

2) Ubah properties text form1 jadi : Puzzel, kemudian ubah properties text masing2 button menjadi Angka 1 sampai 8 ,untuk btn9 teks(BIARKAN KOSONG)

3) Saat angka sudah tersusun tampilkan pesan selamat anda berhasil.

jawab :

Saya akan tampilkan listing'a terlebih dahulu ::

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            If control.GetType.Name = "Button" Then
                btn1.Text = "6"
                btn2.Text = "1"
                btn3.Text = "8"
                btn4.Text = "7"
                btn5.Text = "5"
                btn6.Text = "2"
                btn7.Text = "4"
                btn8.Text = "3"
                btn9.Text = " "
            End If
        Next

    End Sub

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        Dim tuker As String
        If btn2.Text = " " Then
            tuker = btn1.Text
            btn1.Text = btn2.Text
            btn2.Text = tuker
        ElseIf btn4.Text = " " Then
            tuker = btn1.Text
            btn1.Text = btn4.Text
            btn4.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        Dim tuker As String
        If btn1.Text = " " Then
            tuker = btn2.Text
            btn2.Text = btn1.Text
            btn1.Text = tuker
        ElseIf btn3.Text = " " Then
            tuker = btn2.Text
            btn2.Text = btn3.Text
            btn3.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn2.Text
            btn2.Text = btn5.Text
            btn5.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        Dim tuker As String
        If btn2.Text = " " Then
            tuker = btn3.Text
            btn3.Text = btn2.Text
            btn2.Text = tuker
        ElseIf btn6.Text = " " Then
            tuker = btn3.Text
            btn3.Text = btn6.Text
            btn6.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        Dim tuker As String
        If btn1.Text = " " Then
            tuker = btn4.Text
            btn4.Text = btn1.Text
            btn1.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn4.Text
            btn4.Text = btn5.Text
            btn5.Text = tuker
        ElseIf btn7.Text = " " Then
            tuker = btn4.Text
            btn4.Text = btn7.Text
            btn7.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        Dim tuker As String
        If btn2.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn2.Text
            btn2.Text = tuker
        ElseIf btn4.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn4.Text
            btn4.Text = tuker
        ElseIf btn6.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn6.Text
            btn6.Text = tuker
        ElseIf btn8.Text = " " Then
            tuker = btn5.Text
            btn5.Text = btn8.Text
            btn8.Text = tuker
        End If
        benar()
    End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        Dim tuker As String
        If btn9.Text = " " Then
            tuker = btn6.Text
            btn6.Text = btn9.Text
            btn9.Text = tuker
        ElseIf btn3.Text = " " Then
            tuker = btn6.Text
            btn6.Text = btn3.Text
            btn3.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn6.Text
            btn6.Text = btn5.Text
            btn5.Text = tuker
        End If
        benar()
    End Sub

Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        Dim tuker As String
        If btn4.Text = " " Then
            tuker = btn7.Text
            btn7.Text = btn4.Text
            btn4.Text = tuker
        ElseIf btn8.Text = " " Then
            tuker = btn7.Text
            btn7.Text = btn8.Text
            btn8.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        Dim tuker As String
        If btn9.Text = " " Then
            tuker = btn8.Text
            btn8.Text = btn9.Text
            btn9.Text = tuker
        ElseIf btn7.Text = " " Then
            tuker = btn8.Text
            btn8.Text = btn7.Text
            btn7.Text = tuker
        ElseIf btn5.Text = " " Then
            tuker = btn8.Text
            btn8.Text = btn5.Text
            btn5.Text = tuker
        End If
        benar()
    End Sub

    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        Dim tuker As String
        If btn6.Text = " " Then
            tuker = btn9.Text
            btn9.Text = btn6.Text
            btn6.Text = tuker
        ElseIf btn8.Text = " " Then
            tuker = btn9.Text
            btn9.Text = btn8.Text
            btn8.Text = tuker
        End If
        benar()
    End Sub

Private Sub benar()
        If btn1.Text = "1" And btn2.Text = "2" And btn3.Text = "3" And btn4.Text = "4" And btn5.Text = "5" And btn6.Text = "6" And btn7.Text = "7" And btn8.Text = "8" Then
            MessageBox.Show("SELAMAT ANDA BERHASIL")
        End If

    End Sub

Pada sa'at progam dijalankan Angka akan acak seperti berikut :

Dan untuk menggeser ke tempat yang kosong ..klik tombol yg ingin di geser...contoh : saya meng klik angka 2....

Dan ktika berhasil akan muncul Tampilan pesan :

Demikian penjelasan singkat dari saya....
Semoga bermanfaat :D
wasalamu'alaikum.....

Tugas 3 Pemrograman Visual