Tugas 3 Memodif Program & Membuat Puzzle Anggka

Memodif Program

Modifikasi program pada pertemuan sebelumnya
Masih Ingatkan Preogram yang ini:

Mari kita Modif

1. Buka Program yang kemarin
2. Setelah itu tambah 1 Button Buat Isi Data
3. Setelah didesain & Kodingnya selesai
4. Kemudai Klik Start Debugging / Tekan F5
5. Maka tampilan akan seperti di bawah ini :

Semua isi tidak aktif 
Kemudian Klik Tombol Isi Data maka semua isian akan aktif

Jika kita Klik tombol Clear Maka akan kembali seperti semula / waktu pertama muncul

Membuat Puzzle Angka

Skenario sebagai berikut :

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!!!" 

Buat Desain dan Kodingnya
Tampilan Desainnya sepertidibawah ini :

Berikut ini Koding Programnya :

1. 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
                       Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.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
                       Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text
                   End If
   
                   If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then
                       Do
                           number = rndnumber.Next(1, 9)
                           Button5.Text = number
                       Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text
                   End If
   
                   If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then
                       Do
                           number = rndnumber.Next(1, 9)
                           Button6.Text = number
                       Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text
                   End If
   
                   If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then
                       Do
                           number = rndnumber.Next(1, 9)
                           Button7.Text = number
                       Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text
                   End If
   
                   If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then
                       Do
                           number = rndnumber.Next(1, 9)
                           Button8.Text = number
                       Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text
                   End If
               End If
               Button9.Text = ""
           Next
       End Sub
   End Class
2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           If Button2.Text = "" Then
               Button2.Text = Button1.Text
               Button1.Text = ""
           ElseIf Button4.Text = "" Then
               Button4.Text = Button1.Text
               Button1.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
3. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           If Button1.Text = "" Then
               Button1.Text = Button2.Text
               Button2.Text = ""
           ElseIf Button3.Text = "" Then
               Button3.Text = Button2.Text
               Button2.Text = ""
           ElseIf Button5.Text = "" Then
               Button5.Text = Button2.Text
               Button2.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
4. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
           If Button2.Text = "" Then
               Button2.Text = Button3.Text
               Button3.Text = ""
           ElseIf Button6.Text = "" Then
               Button6.Text = Button3.Text
               Button3.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
5. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
           If Button1.Text = "" Then
               Button1.Text = Button4.Text
               Button4.Text = ""
           ElseIf Button7.Text = "" Then
               Button7.Text = Button4.Text
               Button4.Text = ""
           ElseIf Button5.Text = "" Then
               Button5.Text = Button4.Text
               Button4.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
6. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
           If Button2.Text = "" Then
               Button2.Text = Button5.Text
               Button5.Text = ""
           ElseIf Button4.Text = "" Then
               Button4.Text = Button5.Text
               Button5.Text = ""
           ElseIf Button6.Text = "" Then
               Button6.Text = Button5.Text
               Button5.Text = ""
           ElseIf Button8.Text = "" Then
               Button8.Text = Button5.Text
               Button5.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
7. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
           If Button9.Text = "" Then
               Button9.Text = Button6.Text
               Button6.Text = ""
           ElseIf Button3.Text = "" Then
               Button3.Text = Button6.Text
               Button6.Text = ""
           ElseIf Button5.Text = "" Then
               Button5.Text = Button6.Text
               Button6.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
8. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
           If Button4.Text = "" Then
               Button4.Text = Button7.Text
               Button7.Text = ""
           ElseIf Button8.Text = "" Then
               Button8.Text = Button7.Text
               Button7.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
9. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
           If Button7.Text = "" Then
               Button7.Text = Button8.Text
               Button8.Text = ""
           ElseIf Button9.Text = "" Then
               Button9.Text = Button8.Text
               Button8.Text = ""
           ElseIf Button5.Text = "" Then
               Button5.Text = Button8.Text
               Button8.Text = ""
           End If
           If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
               MsgBox("Selamat Anda Berhasil!!!")
           End If
       End Sub
10. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
            If Button6.Text = "" Then
                Button6.Text = Button9.Text
                Button9.Text = ""
            ElseIf Button8.Text = "" Then
                Button8.Text = Button9.Text
                Button9.Text = ""
            End If
            If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then
                MsgBox("Selamat Anda Berhasil!!!")
            End If
        End Sub

Ketika Program dijalankan tapilan seperti ini

 

Tampilan Setelah anda memainkan & Berhasil Menyusunnya :

Sekian Dulu Ya?????

Terima Kasih......

Tugas Pemrograman Visual 2

Latihan 1 Varibel Constanta Type Data

Soal & Jawaban

a. Apa yang menyebabkan program eror pada btalamat1_Click baris program alamat = “Kuningan”?

Jawab

Yang menyebabkan eror pada btalamat1_click yaitu belum adanya konstanta atau pengenal yang digunakan untuk menyimpan data dan nilainya tidak dapat berubah ubah pada saat program dijalankan.

Kode yang error / salah :

 Kode yang benar

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

Jawab

Karena pada kedua konstanta yang ada pada kode program hanya satu alamat yaitu kuningan. Solusinya adalah mengganti salah satu kode program, karena pada alamat1 sudah ada “kuningan” maka  yang dirubah pada kode program yang berada di  Public Class frmsatu,  alamatnya diganti menjadi misalkan “Banyumas”.

Sebelum dirubah

Sesudah dirubah

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

Jawab

Karena kode program pada tombol tambah umur1 yaitu

Dim Umur As Integer

Umur += 1

TxtUmur.Text = Umur

Jika menggunakan Dim/variabel lokal maka data Hanya dikenal di tempat variabel tersebut dipesan dan pada saat di klick maka angka yang muncul adalah 1 sesuai dengan pemesanan umur += 1 ,  jika di klick kembali angka yang sebelumnya akan hilang dan muncul angka yang sudah di pesan di awal program.

Sedangkan kode program pada tombol tambah umur2 yaitu

Static umur As Integer

       umur += 1

       txtumur.Text = umur

Jika menggunakan Static nilainya tidak akan hilang selam program dijalankan dan pada saat diclick maka akan muncul angka 1 sesuai dengan pemesanan umur += 1, jika di click kembali  maka angka yang tadi muncul tidak hilang dan akan ditambahkan 1 lagi dan seterusnya jika diklick kembali.

d.      Berikan analisa anda untuk form dua?

Jawab

Form Dua di munculkan melalui Form Satu, berikut kode programnya :

Sedangkan kode-kode program pada Form Dua di tuliskan di Module yang berfungsi Untuk memanggil beberapa function yang ada dalam module tersebut  dan function tersebut sifatnya public yang artinya semua form dapat menggunkan function yang ada pada mudule tersebut.

Berikut kode programnya :

 

 Berikut adalah listing programnya :

 

Tampilan programnya :

LATIHAN 2 If dan Case

Pada kode program terdapat kesalahan di dalam combobox, pada penulisan kode program di bagian Case Else yang bertulis seprti ini :

 

 Seharusnya namabarang diisi barang  terakhir yaitu namabarang = “TAS” dan harganya diisi terserah, misalnya say tuliskan harga = 75000

Jadi kode programnya seharusnya seperti di bawah ini :

 

  Ada kesalahan lagi namun tidak fatal yaitu kode program pada tombol clear 

 

Jika menggunakan kode program yang dari dosen maka kita akan membersihkan data/text kita harus meng-click 2 kali pada tombol clear, jadi untuk membenarkan kode program saya tambahkan  “TxtDiskon.Clear()” & “TxtBayar.Clear()” sebelum “CmKode.Clear()”

Berikut gambar kode program setelah diperbaiki :

 Tampilan awal pada program diatas

 

 Tampian setelah anda mengisi & memilih cara belinya :

Sekian anlisa dari saya

Terima Kasih........