Senin, 29 Oktober 2012

Tugas Pertemuan K-3

Tugas kali ini memodifikasi program pada tugas pemrograman visual ke-2 dan membuat permainan Puzzel sederhana, dengan skenario sbb :

Latihan 1 : Memodifikasi Program
Skenario yang di minta yaitu :

  1. Saat form dijalankan : Semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif.
  2. Saat ditekan tombol isi data : Kode Barang, Jumlah Barang, Cara Beli, Tombol Clear semua "AKTIF", Tetapi tombol Isi Data "TIDAK AKTIF".
  3. Saat ditekan Tombol Clear sama dengan saat form dijalankan

=================================================================================
1. Saat form dijalankan : Semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif.

Tampilan awal ketika program dijalankan


Koding dari tampilan awal



2.Saat ditekan tombol isi data : Kode Barang, Jumlah Barang, Cara Beli, Tombol Clear semua "AKTIF", Tetapi tombol Isi Data "TIDAK AKTIF".


Tampilan setelah button Isi Data ditekan


Perintah yang ada pada button Isi Data


>> Kemudian Kita mulai mengisi datanya sesuai pilihan yang ada pada combobox. 




3.Saat "Tombol Clear" ditekan hasil tampilan sama, Seperti saat program pertama kali dijalankan

Screenshot sebelum button Clear diekan


Screenshot setelah button Clear ditekan 


>> Maka hasilnya akan kembali seperti awal, yaitu saat program pertama kali dijalanjan. Untuk koding yang berada dibalik button clear adalah sebagai berikut :

Source Coding Button Clear



Latihan 2 : Membuat Permainan Puzzel Sederhana
Skenario yang di minta yaitu :

  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


=================================================================================
1.Saat form dijalankan posisi angka acak

>> Screenshoot Puzzel saat program dijalankan. ada 4 contoh screenshoot puzzel semuanya teracak sesuai perintah koding yang ada didalamnya.


Koding dibalik aplikasi puzzel yang teracak

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
        For Each control In Me.Controls
        Next
        If control.GetType.Name = "Button" Then
        End If
        Dim rndnumber As Random
        Dim number As Integer
        rndnumber = New Random
        number = rndnumber.Next(1, 9)
        control.Text = number

        If btdua.Text = btsatu.Text Then
        End If
            Do
            number = rndnumber.Next(1, 9)
            btdua.Text = number
        Loop Until (btdua.Text <> btsatu.Text)
        If bttiga.Text = btdua.Text Or bttiga.Text = btsatu.Text Then
            Do
                number = rndnumber.Next(1, 9)
                bttiga.Text = number
            Loop Until (bttiga.Text <> btdua.Text And bttiga.Text <> btsatu.Text)
        End If
        If btempat.Text = bttiga.Text Or btempat.Text = btdua.Text Or btempat.Text = btsatu.Text Then
            Do
                number = rndnumber.Next(1, 9)
                btempat.Text = number
            Loop Until (btempat.Text <> bttiga.Text And btempat.Text <> btdua.Text And btempat.Text <> btsatu.Text)
        End If
        If btlima.Text = btempat.Text Or btlima.Text = bttiga.Text Or btlima.Text = btdua.Text Or btlima.Text = btsatu.Text Then
            Do
                number = rndnumber.Next(1, 9)
                btlima.Text = number
            Loop Until (btlima.Text <> btempat.Text And btlima.Text <> bttiga.Text And btlima.Text <> btdua.Text And btlima.Text <> btsatu.Text)
        End If
        If btenam.Text = btlima.Text Or btenam.Text = btempat.Text Or btenam.Text = bttiga.Text Or btenam.Text = btdua.Text Or btenam.Text = btsatu.Text Then
            Do
                number = rndnumber.Next(1, 9)
                btenam.Text = number
            Loop Until (btenam.Text <> btlima.Text And btenam.Text <> btempat.Text And btenam.Text <> bttiga.Text And btenam.Text <> btdua.Text And btenam.Text <> btsatu.Text)
        End If
        If bttujuh.Text = btenam.Text Or bttujuh.Text = btlima.Text Or bttujuh.Text = btempat.Text Or bttujuh.Text = bttiga.Text Or bttujuh.Text = btdua.Text Or bttujuh.Text = btsatu.Text Then
            Do
                number = rndnumber.Next(1, 9)
                bttujuh.Text = number
            Loop Until (bttujuh.Text <> btenam.Text And bttujuh.Text <> btlima.Text And bttujuh.Text <> btempat.Text And bttujuh.Text <> bttiga.Text And bttujuh.Text <> btdua.Text And bttujuh.Text <> btsatu.Text)
        End If
        If btdelapan.Text = bttujuh.Text Or btdelapan.Text = btenam.Text Or btdelapan.Text = btlima.Text Or btdelapan.Text = btempat.Text Or btdelapan.Text = bttiga.Text Or btdelapan.Text = btdua.Text Or btdelapan.Text = btsatu.Text Then
            Do
                number = rndnumber.Next(1, 9)
                btdelapan.Text = number
            Loop Until (btdelapan.Text <> bttujuh.Text And btdelapan.Text <> btenam.Text And btdelapan.Text <> btlima.Text And btdelapan.Text <> btempat.Text And btdelapan.Text <> bttiga.Text And btdelapan.Text <> btdua.Text And btdelapan.Text <> btsatu.Text)
        End If
        btkosong.Text = ""
    End Sub
  
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

Tampilan perpindahan button angka


>> Koding Yang Digunakan
1.Button Satu


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

2.Button Dua


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

3.Button Tiga


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

4.Button Empat


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

5.Button Lima


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

6.Button Enam


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

7.Button Tujuh


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

8.Button Delapan



If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub

9.Button Kosong  


If btsatu.Text = "1" And btdua.Text = "2" And bttiga.Text = "3" And btempat.Text = "4" And btlima.Text = "5" And btenam.Text = "6" And bttujuh.Text = "7" And btdelapan.Text = "8" And btkosong.Text = "" Then
            MsgBox("Selamat Anda Menang")
        End If
    End Sub


3. Saat angka sudah tersusun tampilkan pesan selamat anda berhasil





Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)