KE ' ROCK ' AN

Nge Rock Forever

Increase Page Rank for Blogger in No Time !

External links - Jquery You want to Increase Page Rank for Blogger or your site in no time ? Ok ,perfect ! All those what you have found from tips and tricks about SEO and Ranking may work ,but have you came across the tips which I found ?

All you need to try it here you wont be sorry ! go try it GUMGUM :) visit my another explained post about this tips about ranking

What is Twitter ,how to use it and what for ?

External links - Jquery Twitter is a service for friends, family, and co–workers to communicate and stay connected through the exchange of quick, frequent answers to one simple question: What are you doing?While Twitter may have started as a micro-blogging service, it is grown into much more than simply a tool to type in quick status updates. I often describe Twitter as a cross between blogging and instant messaging, but even that doesn't do it justice.

WHY USE TWITTER ? GO HERE AND READ WHY :)

Hide Blogger Navbar in New Blogger Blogspot !

External links - Jquery Want to get rid of the blogger toolbar in new blogger that just came out of beta ? If you have shifted your blogspot blog from old blogger to the new blogger beta, you may have noticed that the previous CSS code to remove the blogger navbar will no longer be effective. That's because Google now uses different CSS tags to display the blogger bar. [#navbar-iframe instead of #b-navbar] If you want to hide the navbar in your blogger blog, here's what you should do ! (these instructions refer to the "new" Blogger layouts templates) GO GET IT GUMGUM:)

Super Sexy Bookmarks Widget for Blogger !

Thumbnail image that says sleek button using photoshop that links to a Photoshop tutoril. Looking for professional Social Bookmark Buttons for your blog ! me too :) however, while i was searching the net too, I came across a post by Naeemnur, that had instructions for Blogger (BlogSpot.com) based blogs which was really good.If you have a blog on blogger you can definitely give this a try.

Its very attractive social bookmarking widget ! it can help you to let your visitors bookmark your page effectively .

for instructions about the use of this SEXY Social bookmarking widget ! you can go here and get it GUMGUM:)

Minggu, 09 Desember 2012

TUGAS_5 - MEMBUAT MENU STRIP,TOOLBAR,MDI FORM VARIASI(Horizontal,Vertikal,Cascade)

             Pada Postingan kali ini saya akan membahas tentang bagaimana cara pengaturan pada menu strip, toolbar dan pada MDI form pada Microsoft Visual Basic 2010.
Terdapat 3 soal :


1. Mengatur menu toolbar yang berada di atas (top) menjadi  (bottom) di bawah
2. Pengaturan menu form menggunakan MDI Form,MDI child.
     -Horizontal
     -Vertikal
     -Cascade
3. Membuat Menu tambahan menggunakan Library pada VB 2010.
Penyelesaian :
          1.  Untuk menjawab soal no. 1 Pertama kita desain form terlebih dahulu dengan cara memasukan MenuStrip pada toolbox, seperti gambar dibawah ini :


Setelah selesai mendesain kita akan coba mengatur tata letak toolbar dari posisi atas (top) menjadi posisi di kiri (left), caranya klik toolbar yang akan dipindah lalu pilih pada opsi DOCK pada tabel properties da ganti posisi ke arah kiri (left). dan hasilnya sebagai berikut :


           2.   Membuat form menjadi MDI dan didalamnya terdapat MDI child...
caranya pertama kita buat beberapa form baru yang sudah di hubungkan dengan menu pada menu bar. sehingga apabila salah satu menu bar di pilih maka akan menampilkan form-form yang telah dibuat tadi, caranya : 
pertama kita rubah form menjadi form mdi dengan mengaktifkan form pada properties kita pilih IsMDIContainer dan rubah dari False ke True :

Selanjutnya kita masukan codingnya :
Public Class Form1

    Private Sub NamaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NamaToolStripMenuItem.Click
        Form2.Show()
        Form2.MdiParent = Me

    End Sub

    Private Sub KelasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KelasToolStripMenuItem.Click
        Form3.Show()
        Form3.MdiParent = Me

    End Sub

    Private Sub NIMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIMToolStripMenuItem.Click
        Form4.Show()
        Form4.MdiParent = Me

    End Sub

    Private Sub MapelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MapelToolStripMenuItem.Click
        Form5.Show()
        Form5.MdiParent = Me

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()

    End Sub
   Private Sub HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class
hasilnya sebagai berikut :
Form menggunakan "Mode Pilihan" Cascade :

 Form menggunakan "Mode Pilihan" Horizontal dan Vertikal :
 
 
          3.    untuk membuat menu tambahan ribbon harus menggunakan library tambahan dengan nama dan ekstensi. caranya :
-  Download Librarynya.
-  kemudian arahkan kursor pada toolbox paling bawah .
-  drag and drop file "System.Windows.Forms.Ribbon.dll" pada menu yang telah di sediakan.
               Sumber :    http://www.gakbakalmati.blogspot.com

Minggu, 11 November 2012

Mau Kerja Seperti Ini?

Kantor yang nyaman bukan semata-mata gaji yang tinggi. Melainkan juga lingkungan kerja yang nyaman, rekan kerja yang kooperatif, tak ada jarak dengan bos, waktu kerja yang tidak tergantung office hours, dan apa lagi?
Tambahkan sendiri ke dalam daftar impianmu, yang jelas beberapa perusahaan ini telah menempatkan arti "bekerja" pada koridor yang sesuai sehingga perusahaan dan karyawan sama-sama menikmati keuntungan.


Kantor apa saja yang ada dalam daftar?

Google
Bekerja di Google tampaknya jadi impian banyak orang. Tempat kerjanya benar-benar enak, banyak makanan gratis, bisa bersantai dan bermain. Pokoknya sisi kreatifitas pegawainya yang paling utama. Tak heran, bbc.co.uk menulis artikel kusus tentang kantor google. Dalam artikel tersebut, ditulis bahwa kantor google itu benar-benar "wacky office".









Foto-foto diambil dari kantor google di Zurich


Facebook
Sudah nonton film "Social Network", kan? Jadi tahu seperti apa isi otak Mark Zuckerberg. Nah, seperti itulah impian "kerja nyaman" si pendiri facebook.
Menurut hasil penelitian businessinsider, berikut daftar kenyamanan kerja di facebook:
1. Opsi saham.
2. Jam kerja fleksibel, bisa bekerja dari rumah.
3. Banyak makanan.
4. Tak ada bilik kerja, jadi bisa kerja dan sosialisasi dengan siapa saja.
5. Kesempatan besar untuk meraih apa yang kamu impikan.
6. Budaya yang terbuka terhadap berbagai ide.






Akhirnya, kesimpulan Alaska Miller dan Nicholas Carson, yang menulis artikel tersebut adalah, "Manfaat yang paling berharga untuk bekerja di facebook adalah kemampuan untuk mengatur jam kerja sendiri, kebebasan untuk bekerja dari rumah ketika Anda inginkan dan sebanyak yang Anda ingin, dan semua ini dengan sedikit atau tidak ada gangguan dari manajemen."


Yahoo

Yahoo memiliki banyak kantor cabang di berbagai negara. Untuk workspace environment yang paling asik, kita ambil contoh kantor yahoo di Barcelona.

Bukan apa-apa, kantor yahoo sebenarnya belum bisa dibilang "mampu bersaing" dengan milik google atau facebook. Kantor yahoo masih terlalu "clean". Namun, untuk yang di Barcelona ini sudah lumayan seru, sih.









Kaskus
Tanpa banyak komentar, ini jawara kantor masa depan di Indonesia. Mungkin, seharusnya kaum konvensional harus mulai berkaca pada kreatifitas anak-anak muda negeri ini.



Sepertinya kaskuser sekarang bisa bilang begini, "Bos, percaya deh, mau mencari keuntungan bukan berarti harus kerja rodi, kan? Jangan warisi terus sisi feodal para penjajah, dong."





Sumber:
http://news.bbc.co.uk/
http://www.officesnapshots.com/
http://1dak.com/
http://officeal.com/
http://www.businessinsider.com/

Tugas_4 : ListBox, CheckBox


 



1.    LISTBOX



      a.  Pertama kita desain dulu tampilannya.
           Buat : textbox 1 buah, checkbox 2 buah, button 9 buah.
           lalu atur dan ganti nama sesuai tampilan berikut :


      b.  Lalu kita masukan codingnya :
         
     Double klik pada button isi masukan coding ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.ListBox
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox2.Items.Add(TextBox1.Text)
    End Sub

       Double klik pada button 1-10 masukan coding ini :

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For bil = 1 To 10
            ListBox2.Items.Add(bil)
        Next
    End Sub


       Double klik pada button satu > masukan coding ini :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox2.Text = ListBox3.Items.Add(ListBox2.Text)
    End Sub

       Double klik pada button Beberapa > masukan coding ini :

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox2.Items.Count
        For i = 0 To j - 1
            Try
                ListBox3.Items.Add(ListBox2.Items(ListBox2.SelectedIndices(i)))
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

        Double klik pada button Semua > masukan coding ini :

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended

        Dim Jumlah As Integer = ListBox2.Items.Count
        For i = 0 To Jumlah - 1
            ListBox3.Items.Add(ListBox2.Items(i))
        Next
    End Sub

         Double klik pada button Hapus Satu masukan coding ini :

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox3.SelectionMode = SelectionMode.One

        ListBox3.Items.Remove(ListBox3.SelectedItem)
    End Sub

         Double klik pada button Hapus Beberapa masukan coding ini :

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ListBox3.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox3.Items.Count
        For i = 0 To j - 1
            Try
                ListBox3.Items.RemoveAt(ListBox3.SelectedIndex)
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

          Double klik pada button Hapus Semua masukan coding ini :

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ListBox3.Items.Clear()
    End Sub

          Double klik pada button Tutup masukan coding ini :

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()

    End Sub
End Class

       c.  Lalu Kita Run Pogramnya. Maka Hasilnya sebagai berikut :
         
            bila kita klik tombol 1-10 maka akan muncul tampilan angka 1 sampai 10
            tombol satu kita klik maka akan menginputkan angka yang kita pilih saja..
            tombol beberapa berarti untuk menginputkan lebih dari satu pilihan...
            tombol semua berarti akan menginputkan semua yang terdaftar...
            begitu juga dengan tombol hapus satu, beberapa, dan semua akan menghapus sesuai perintah...


            kita juga bisa menginputkan huruf contoh "komputer" dengan cara ketikan di textbox 1 dan
            klik tombol isi maka tampilanya sebagai berikut :









2. CHECKBOX

    a.  Pertama Kita desain dahulu tampilannya dengan menambahkan :
         Textbox 1 buah, Check Box 6 buah, button 3 buah GroupBox 1 buah. pada GroupBox kita
         gabungkan ke enam checkbox tersebut ke dalam groupbox.  lalu desain dan ganti nama sesuai
         tampilan berikut :

 
    b.  Selanjutnya masukan coding berikut:

         Double klik pada button Tampilkan masukan coding ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
        For Each control In Me.GroupBox1.Controls
            If control.Checked = True Then
                TextBox1.Text &= control.Text & ","
            End If
        Next
        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End Sub

          Double klik pada button GroupBox masukan coding ini :

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
    End Sub

           Double klik pada button Keluar masukan coding ini :

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

    End Sub

           Double klik pada button Hapus masukan coding ini :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Clear()

    End Sub
End Class





     c.  Lalu jalankan programnya. maka tampilanya sebagai berikut :







            Sumber :    http://www.gakbakalmati.blogspot.com


           

Minggu, 28 Oktober 2012

MEMODIFIKASI PROGRAM PENJUALAN DAN MEMBUAT PUZZLE ANGKA ALAKADARNYA


Tambahkan kejadian berikut ini, gunakan perulangan :


a).    Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif
b).  Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif
b).    Saat ditekan tombol clear sama dengan saat form dijalankan

 Sebelumnya kita pernah membahas dan membuat program penjualan, sekarang kita modifikasi program tersebut agar memiliki fungsi seperti perintah diatas.
     Langkah-langkah :

    1.     Pada form kita tambahkan 1 Button lagi, dan ganti namanya menjadi Isi Data. Seperti tampilan berikut :

         
    2.      Selanjutnya double klik pada form 1 lalu masukan coding berikut 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
            btisi.Enabled = True
            bttutup.Enabled = True
        Next
        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

      End Sub

    3.      Lalu double klik pada button Clear dan masukan coding berikut ini :

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
            btisi.Enabled = True
            bttutup.Enabled = True
        Next

        txtnama.Clear()
        txtbayar.Clear()
        txtjumlah.Clear()
        txtharga.Clear()
        txtdiskon.Clear()
        txttotal.Clear()
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        cmbkode.Text = ""

         End Sub

      4.      Terakhir kita double klik pada button Isi Data lalu masukan coding berikut ini :

Private Sub btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisi.Click
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = True
            btisi.Enabled = False
        Next

End Sub
End Class

      5.      Setelah semua selesai lalu kita jalankan program klik Debug – Start Debugging ( F5 ).
      Maka secara otomatis saat program dijalankan semua fungsi akan mati kecuali tombol Isi Data dan     
      Tutup, dan saat tombol Isi Data di klik maka semua fungsi akan aktif kembali, dan sebaliknya bila kita 
      mengklik tombol Clear makan semua fungsi akan mati kecuali tombol Isi Data dan Tutup. Sekian dan
      Selamat Mencoba...................... 












MEMBUAT PUZZLE ANGKA SEDERHANA


 Berikut langkah-langkah membuat Puzzle angka sederhana :


      1.      Jalankan Microsoft Visual Basic. Lalu buat projech baru.
      2.      Pertama kita inputkan Button sebanyak 9 buah, lalu ganti nama pada masing- masing button menjadi 
            berurutan seperti 1,2,3,4,5,6,7,8 dan yang terakhir kita ganti dengan ( ... ) . lalu atur posisi dan ukuran 
            masing-masing dengan rapih. Bila perlu ganti warna dan jenis fontnya sesuai selera. Seperti gambar 
            dibawah ini :

        


 

      3.      Selanjutnya kita masukan coding pada Formnya, dengan cara double klik pada Form1 lalu isikan :

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



           4.      Selanjutnya kita msukan coding pada masing-masing Button.  Berikut codingnya:

           Button 1 :

                      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 MENANG ")
                      End If
                      End Sub

          Button 2 :
 
                      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 MENANG ")
                      End If
                      End Sub


          Button 3 :

                       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 MENANG ")
                      End If
                      End Sub

           Button 4 :

                      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 MENANG ")
                     End If
                     End Sub

         Button 5 :

                    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 MENANG ")
                    End If
                    End Sub

         Button 6 :

                    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 MENANG ")
                    End If
                    End Sub

         Button 7 :

                     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
                     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 MENANG ")
                     End If
                     End Sub

         Button 8 :

                     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 MENANG ")
                    End If
                    End Sub

         Button 9 :

                    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 MENANG ")
                   End If

                   End Sub


 
       5.      Setelah semua selesai selanjutnya kita jalankan programnya dengan klik Debug – Start Debugging (F5). 
             Maka tampilannya otomatis akan diacak seperti gambar dibawah ini :






       6.      Selanjutnya kita coba mainkan Puzzlenya.. otomatis apabila kita berhasil mengurutkanya maka akan 
             muncul tampilan  ucapan : “ SELAMAT ANDA MENANG “ 
           



Sumber :    http://www.gakbakalmati.blogspot.com



 

100 % LOVE INDONESIA

Maju Terus INDONESIA dan Rajai Dunia

World Historians Copyright © 2009 REDHAT Dashboard Designed by SAER