Tugas 3 Memodifikasi Dan Membuat Puzzle

kali ini penulis akan melanjutkan tugas 2 nih dengan sedikit modifikasi. Nah langsung saja ya..
pada tugas 2 kemarin tampilannya adalah seperti dibawah ini :


tampilan hasil modifikasinya terlihat seperti dibawah ini :

dengan ketentuan seperti dibawah ini :

1       1. Saat form dijalankan : semua isian tidak aktif, tombol isi data dan tutup aktif, dan tombol clear tidak aktif.

2       2. Saat ditekan tombol isi data : kode barang, jumlah barang, cara beli, tombol clear dan tombol tutup aktif, tombol isi data.

3       3. Saat ditekan tombol clear sama saat dengan saat form dijalankan.
  Untuk cara pembuatan modifikasinya langsung aja ya :
     1. Tambahkan tombol isi data 
     2. Pada properties, atur tag untuk combobox1,textbox jumlah barang dan cara beli (tunai & kredit) misalnya "a". kemudian atur juga tag untuk textbox nama barang,harga barang,total harga,total bayar,dan diskon misalnya "b".
     3. Double klik pada form kemudian tuliskan kode program seperti dibawah ini :
         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
            'control.Enabled = False
            If control.Tag = "a" Or control.Tag = "b" Then
                control.Enabled = False
            End If
            btclear.Enabled = False
            isi.Enabled = True
            bttutup.Enabled = True
        Next
     4. Double klik pada tombol Isi Data, tuliskan kode program berikut :
         Private Sub isi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isi.Click
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            'control.Enabled = True
            If control.Tag = "a" Then
                control.Enabled = True
            End If
            isi.Enabled = False
            btclear.Enabled = True
        Next
    End Sub
      5. Double klik pada tombol clear, tambahkan kode program berikut :
       Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click     
          Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            btclear.Enabled = False
            isi.Enabled = True
            bttutup.Enabled = True
        Next
    End Sub
 

      Nah itu penjelasan singkat tentang modifikasi yang penulis buat. Sekarang kita lanjutkan program selanjutnya yaitu Program Puzzle.

  

  PUZZLE   

  Untuk program puzzle tampilannya seperti ini nihh ..

 

  Untuk ketentuannya :

   1. Saat form dijalankan posisi angka dalam keadaan acak. Tapi penulis mengabaikan aturan ini karena penulis menghendaki untuk mengacak lebih dulu.

   2. saat ditekan tombol yang terletak didekat tombol kosong, maka tombol tersebut akan menempati tombol tersebut, begitu seterusnya hingga angka tersusun 1 sampai 8.

   3. Ketika angka sudah tersusun 1 sampai 8 maka akan muncul pesan "Selamat, Anda Berhasil !".

  Penjelasan programnya ada di bawah ini :

   1. Buat tampilam form seperti diatas.

   2. Tambahkan 2 tombol acak dan stop

  kode programnya :

  Public Class Form1
    Dim acak, acak2, acak3, acak4, acak5, acak6, acak7, acak8, acak9 As Integer
    Dim smt As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
    End Sub

    Private Sub mulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mulai.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        acak = Rnd() * 8
        acak2 = Rnd() * 8
        acak3 = Rnd() * 8
        acak4 = Rnd() * 8
        acak5 = Rnd() * 8
        acak6 = Rnd() * 8
        acak7 = Rnd() * 8
        acak8 = Rnd() * 8

        satu.Text = acak
        dua.Text = acak2
        tiga.Text = acak3
        empat.Text = acak4
        lima.Text = acak5
        enam.Text = acak6
        tujuh.Text = acak7
        delapan.Text = acak8
    End Sub

    Private Sub delapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delapan.Click
        If st.Text = "" Then
            smt = delapan.Text
            delapan.Text = st.Text
            st.Text = smt
        ElseIf tujuh.Text = "" Then
            smt = tujuh.Text
            tujuh.Text = delapan.Text
            delapan.Text = smt
        ElseIf lima.Text = "" Then
            smt = lima.Text
            lima.Text = delapan.Text
            delapan.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub st_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles st.Click
        If enam.Text = "" Then
            smt = enam.Text
            enam.Text = st.Text
            st.Text = smt
        ElseIf delapan.Text = "" Then
            smt = delapan.Text
            delapan.Text = st.Text
            st.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub lima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lima.Click
        If dua.Text = "" Then
            smt = dua.Text
            dua.Text = lima.Text
            lima.Text = smt
        ElseIf empat.Text = "" Then
            smt = empat.Text
            empat.Text = lima.Text
            lima.Text = smt
        ElseIf enam.Text = "" Then
            smt = enam.Text
            enam.Text = lima.Text
            lima.Text = smt
        ElseIf delapan.Text = "" Then
            smt = delapan.Text
            delapan.Text = lima.Text
            lima.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub enam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enam.Click
        If tiga.Text = "" Then
            smt = tiga.Text
            tiga.Text = enam.Text
            enam.Text = smt
        ElseIf lima.Text = "" Then
            smt = lima.Text
            lima.Text = enam.Text
            enam.Text = smt
        ElseIf st.Text = "" Then
            smt = st.Text
            st.Text = enam.Text
            enam.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub tujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tujuh.Click
        If empat.Text = "" Then
            smt = empat.Text
            empat.Text = tujuh.Text
            tujuh.Text = smt
        ElseIf delapan.Text = "" Then
            smt = delapan.Text
            delapan.Text = tujuh.Text
            tujuh.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub empat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles empat.Click
        If satu.Text = "" Then
            smt = satu.Text
            satu.Text = empat.Text
            empat.Text = smt
        ElseIf lima.Text = "" Then
            smt = lima.Text
            lima.Text = empat.Text
            empat.Text = smt
        ElseIf tujuh.Text = "" Then
            smt = tujuh.Text
            tujuh.Text = empat.Text
            empat.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satu.Click
        If empat.Text = "" Then
            smt = empat.Text
            empat.Text = satu.Text
            satu.Text = smt
        ElseIf dua.Text = "" Then
            smt = dua.Text
            dua.Text = satu.Text
            satu.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub dua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dua.Click
        If satu.Text = "" Then
            smt = satu.Text
            satu.Text = dua.Text
            dua.Text = smt
        ElseIf lima.Text = "" Then
            smt = lima.Text
            lima.Text = dua.Text
            dua.Text = smt
        ElseIf tiga.Text = "" Then
            smt = tiga.Text
            tiga.Text = dua.Text
            dua.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub tiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiga.Click
        If dua.Text = "" Then
            smt = dua.Text
            dua.Text = tiga.Text
            tiga.Text = smt
        ElseIf enam.Text = "" Then
            smt = enam.Text
            enam.Text = tiga.Text
            tiga.Text = smt
        End If
        If satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And
            tujuh.Text = "7" And delapan.Text = "8" Then
            MsgBox("Selamat, Anda Berhasil !")
        End If
    End Sub

    Private Sub henti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles henti.Click
        Timer1.Stop()

        satu.Text = "5"
        dua.Text = "6"
        tiga.Text = "8"
        empat.Text = "2"
        lima.Text = "1"
        enam.Text = "4"
        tujuh.Text = "3"
        delapan.Text = "7"
        st.Text = ""
    End Sub
End Class

  Nah sekiranya itu yang bisa penulis postkan hari ini semoga bermanfaat untuk semua. Sampai jumpa diprogram selanjutnyaaa..... :)

  Terimakasih..

Tugas 2 Analisa Kesalahan Program Pada VB 2010

Kali ini penulis membahas tentang kesalahan program yang ditugaskan oleh Dosen saya Nandang Hermanto. Langsung aja yaa..

Jawaban Latihan 1 Nomor 3

a.Yang menyebabkan program error pada btalamat1_click baris program alamat = “kuningan”, itu karena belum dideklarasikan dimethod tersebut. Agar tidak terjadi error maka harus dideklarasikan dulu dengan menambahkan dim alamat as string  = “kuningan” atau bisa jadi dengan menonaktifkan baris program  alamat = “kuningan” dengan memberikan tanda ( ‘ ) didepannya.

b.  Alasan mengapa saat tombol nama1 dan nama2 ketika ditekan hasilnya berbeda itu karena pada btnama1 menggunakan variable dim yang hanya bisa dibaca / dikenal ditempat variable itu dipesan. Sedangkan btnama2 itu hanya ada baris perintah txtnama.text = nama, jadi nilai variable yang diambil adalah dari module1. Kemudian untuk btalamat1 dan btalamat2 mengapa hasil yang ditampilkan sama itu karena sudah dideklarasikan pada public class frmsatu yaitu const alamat =”kuningan” jadi ketika ditekan btalamat1 atau btalamat2 hasilnya pun akan sama. Berbeda ketika const alamat = “kuningan” dihilangkan maka hasilnya juga akan berbeda karena yang dialamat2 variable yang terbaca adalah pada module1 bukan pada public class frmsatu.

c. Alasan mengapa ketika tombol umur1 ditekan berulang ulang hasilnya tetap 1 itu karena menggunakan DIM sedangkan pada tombol umur2 ketika ditekan berulang ulang hasilnya selalu bertambah 1 itu karena variable yang digunakan adalah static yang nilainya tidak akan hilang selama program berjalan. 

d. Hasil analisa untuk form 2 adalah adanya options explisit off yang berarti variable tidak harus dipesan dulu, dan semua button yang ada pada frmdua memiliki variable yang ditampung dari module1. Jadi ketika program dijalankan maka nilai yang dihasilkan adalah dari module1.

Jawaban Latihan If / Case

Analisa saya untuk if / case adalah belumadanya baris program untuk kode barang TAS, jadi harus ditambahkan dulu untuk melengkapi kekurangan tersebut.jadi programnya menjadi seperti  dibawah ini :

 

kemudian untuk kekurangan selanjutnya adalah ketika kita ingin berganti memilih kode barang yang lain,  pada textbox jmlbarang,totalharga,totalbayar tidak ikut kosong,maka harus ditambahkan kode program seperti dibawah ini :

 

jadi setelah ganti kode barang, texboxnya yang tadi pun akan kosong, yang tadinya seperti ini :

 

setelah  ditambahkan kode program seperti dibawah ini :

 

akan menjadi seperti dibbawah ini :

nah sekiranya itu yang bisa penulis sampaikan untuk kesalahn program diatas, semoga bermanfaat bagi semua,Amin.