Membuat Game Puzzle

Buatlah Form game Puzzle di bawah ini

Berikut ini adalah Listing programgame Puzzle :

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

            If control.GetType.Name = "Button" Then

                Dim rndnumber As Random

                Dim number As Integer

                rndnumber = New Random

                number = rndnumber.Next(1, 9)

                control.Text = number

                If Button2.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button2.Text = number

                    Loop Until Button2.Text <> Button1.Text

                End If

                If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button3.Text = number

                    Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text

                End If

                If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button4.Text = number

Analisa kesalahan Program Visual Studio

Soal latihan 1

1.   Apa yang menyebabkan program error pada btalamat1_click baris program alamat = “Kuningan”?

2.   Kenapa saat ditekan tombol nama1 dan nama2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditakan tombol alamat1  dan alamat2 alamat yang ditampilkan pada textbox alamat sama?

3.   Kenapa saat ditekan tombol tambah umur 1  umur selalu keluar angka 1 sedangkan saat ditekan tombol umur 2 umur selalu bertambah 1 dari umur sebelumnya?

4.    Berilah analisa anda untuk form 2?

Hasil Analisa Program:

1.   Menurut pengamatan saya yang menjadikan program error pada  btalamat1_click baris program alamat = “Kuningan” yaitu pada btalamat1_click tidak ada pendeklarasiannya yaitu kurang ditambahkan “Dim alamat As String”/ type const tidak dapat mewakili untuk alamat.

2.   *Untuk  nama1 dan nama2 berbeda karena nama dalam form1 hanya menggunakan “Dim....” yang hanya dikenal di variabel itu saja, sedangkan pada module menggunakan “Public Const.....” sehingga dikenal disemua program.

      * Sedangkan pada alamat dalam form1 sudah menggunakan “Const...” dan pada module “ Public Const....” digunakan kembali sehingga untuk alamat itu tidak berpengaruh.

3.  Karena pada tombol umur 1 hanya menggunakan;

Dim umur As Integer

      Umur +=1

 Sehingga hanya angka 1 yang muncul, dan apabila angka 1 diganti 2, begitu juga angka 2 saja yang muncul.

Sedangakan, pada tombol umur 2 menggunakan;

Static umur As Integer

       umur += 1

Sehingga angka tersebut akan bertambah secara urut sampai tak terhingga dan tak hilang selama program dijalankan.