TUGAS 3 PEMROGRAMAN VISUAL

TUGAS 3 PEMROGRAMAN VISUAL

TENTANG :

A. MODIFIKASI TUGAS 2 ( IF DAN CASE )

B. MEMBUAT APLIKASI PUZZLE ANGKA

=========================================================

A. MODIFIKASI TUGAS 2 ( IF DAN CASE )

1. Tambahkan Tampilan sebelumnya yang ada di tugas2 dengan menambahkan button = text : isi data , name : Btisidata

2. CODING TAMBAHAN

FORM1_LOAD :

Btclear :

Btisidata :

3. TAMPILAN PROGRAM

Saat program di jalankan :

Saat menekan tombol isi data :

Saat pengisian data :

Gambar saat tombol Clear di tekan maka tampilan akan kembali semula, yaitu tampilan awal saat program di jalankan :

4. SELESAI :)

=========================================================

B. PUZZLE ANGKA

1. PROGRAM UTAMA SEBELUM DI JALANKAN :

2. INISIALISASI :

3. CODING  :

btsatu :

bttiga :

bttujuh :

btkosong :

btdua :

btdelapan :

btenam :

btempat :

btlima :

CODING FORM1_LOAD :

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

End Class

4. TAMPILAN PROGRAM

Sebelum PUZZLE di jalankan :

Sesudah PUZZLE di jalankan, maka otomatis mengacak angka :

Saat berhasil menyusun :

5. SELESAI :)

=========================================================