BEASISWA DATA PRINT

Peraturan

Persyaratan Umum:
1.  Pelajar/mahasiswa aktif dari tingkat SMP hingga perguruan tinggi untuk jenjang D3/S1
2.  Terlibat aktif di kegiatan atau organisasi sekolah/perguruan tinggi
3.  Tidak terlibat narkoba atau pernah melakukan tindak kriminal
4.  Tidak sedang menerima beasiswa dari perusahaan lain. Jika saat ini peserta masih menerima beasiswa dari kampus, peserta berhak mengikuti pendaftaran beasiswa dari DataPrint.
5. Penerima beasiswa di periode 2 tahun 2012 tidak dapat menjadi penerima beasiswa di periode 1 tahun 2013.
Peraturan Lomba :
1.  Mengisi formulir registrasi di kolom Pendaftaran
2.  Satu nomor kupon yang terdapat di dalam produk DataPrint, hanya berlaku untuk satu kali registrasi
3.  Pendaftaran tidak dipungut biaya
4.  Isilah formulir dengan sebenar-benarnya.
5. Kolom NAMA, diisi dengan nama lengkap
6. Kolom KODE KUPON, diisi dengan kode yang tertera pada bagian belakang kupon yang ada di dalam produk DataPrint
7. Kolom EMAIL, diisi dengan email aktif yang masih berlaku
8. Kolom NO TELPON, diisi dengan no HP atau no telpon rumah yang masih aktif dan bisa dihubungi
9. Kolom JENJANG PENDIDIKAN, diisi dengan jenjang pendidikan yang sedang ditempuh saat ini.
Contoh: SMA, D3, S1
10. Kolom NAMA PERGURUAN TINGGI/SEKOLAH, diisi dengan nama sekolah/perguruan tinggi tempat kamu menuntut ilmu.
11. Kolom PRESTASI YANG PERNAH DIRAIH, diisi dengan prestasi dari kompetisi yang pernah diikuti.
12. kolom KEGIATAN YANG PERNAH/SEDANG DIIKUTI, diisi dengan penjabaran partisipasi pendaftar beasiswa DataPrint di unit kegiatan pada lingkungan belajar, lingkungan rumah dan acara-acara khusus (seminar, dll).
Aktivitas berupa kuliah atau belajar di sekolah, tidak termasuk prestasi.
13. Kolom LAMA MENGGUNAKAN DATAPRINT, diisi dengan waktu penggunaan produk DataPrint
14. Kolom MENGETAHUI INFORMASI BEASISWA, diisi dengan narasumber awal yang memberitahu mengenai program beasiwa pendidikan DataPrint
15. Kolom NILAI RAPORT (BAGI PELAJAR dan MAHASISWA BARU), diisi dengan total nilai secara keseluruhan beserta jumlah mata pelajaran pada semester terakhir. Ingat, kolom ini hanya diisi oleh pelajar atau mahasiswa baru yang belum mempunyai IP.
Contoh: 98 dari 7 mata pelajaran
16. Kolom IPK TERAKHIR (BAGI MAHASIWA), diisi dengan nilai IPK atau jika belum memiliki IPK boleh diisi dengan nilai IP semester terakhir. Tuliskan juga semester yang sedang ditempuh. Ingat, kolom ini hanya diisi oleh mahasiswa, bukan pelajar.
17. Kolom URL BLOG, diisi dengan copy URL blog kamu yang memuat informasi mengenai beasiswa DataPrint. Isi kolom ini jika kamu memiliki blog. Pengisian pada kolom ini akan menambah 1-3 poin pada penilaian.
18. Kolom ESSAY, diisi dengan karya tulis/essay berisi hasil pemikiran kamu sendiri sesuai dengan tema yang telah ditentukan. Panjang penulisan minimal 100 kata, maksimal 500 kata. Tema akan berubah setiap periode.
Dilarang mengcopy paste tulisan orang lain. Jika bermaksud untuk menyadur atau mengutip tulisan orang lain, tuliskan juga sumbernya.
19.  Beasiswa akan dibagi menjadi 2 periode.
20.  Jika gagal di periode pertama, peserta BOLEH mendaftarkan diri di periode selanjutnya.
21.  Penerima beasiswa yang telah mendapat dana beasiswa di satu periode TIDAK DAPAT menjadi penerima beasiswa di periode selanjutnya.
22.  Waktu per periode:
Periode 1: 1 Februari  – 30 Juni
Periode 2: 1 Juli – 31 Desember
22.  Perincian pemenang per periode sebagai berikut:

PERIODE	JUMLAH PENERIMA DANA BEASISWA
	@ Rp 1.000.000	@ Rp 500.000	@ Rp 250.000
Periode I	50 orang	50 orang	150 orang
Periode II	50 orang	50 orang	150 orang

23.  Penerima beasiswa akan diseleksi (bukan diundi) oleh tim dari DataPrint.
24.  Panitia tidak menghubungi penerima beasiswa. Nama penerima beasiswa  dapat dilihat di website ini, website DataPrint www.dataprint.do.id atau di www.facebook.com/dataprintindonesia . Simpan fotokopi raport terakhir atau IPK terakhir dan kupon sebagai bukti sah verifikasi jika Anda terseleksi sebagai penerima dana beasiswa.
25.  Dana beasiswa akan diberikan sekaligus dan secara langsung kepada penerima di periode tersebut.
26.  Dana beasiswa akan dikirimkan dalam jangka waktu paling lambat satu bulan setelah pengumuman dan atau setelah selesainya pemberkasan dari para penerima beasiswa.
27.  Beasiswa akan ditransfer melalui bank BCA. Bagi penerima beasiswa yang menggunakan rekening bank lain, biaya administrasi sebesar Rp 5.000 ditanggung penerima (beasiswa akan dipotong Rp 5.000).
28.  Penerima beasiswa akan diumumkan di website DataPrint www.dataprint.co.id ,  page Facebook DataPrint www.facebok.com/dataprintindonesia dan www.beasiswadataprint.com
Tema Essay dapat dilihat di tab “ESSAY”

FAQ
1.  Siapakah yang boleh mendaftarkan diri di beasiswa DataPrint
Semua pelajar atau mahasiswa yang masih aktif
2.  Apa saja persyaratan mengikuti pendaftaran beasiswa DataPrint?
Cukup isi semua kolom di formulir registrasi dengan data yang sebenar-benarnya. Kalau kamu keluar sebagai salah satu penerima dana beasiswa, pihak DataPrint akan menghubungi kamu untuk melakukan verifikasi data.
3.  Apakah pendaftaran dipungut biaya?
Pendaftaran beasiswa sama sekali tidak dipungut biaya atau gratis.
4.  Berapa dana beasiswa yang akan saya terima?
Dana beasiswa akan diberikan sebesar Rp 1.000.000, Rp 500.000 dan Rp 250.000
Penentuan besaran dana beasiswa yang akan diterima ditentukan oleh tim DataPrint.
5.  Apakah penerima beasiswa di satu periode dapat menjadi penerima beasiswa lagi?
Tidak, penerima beasiswa yang sudah pernah menerima beasiswa tidak berhak menjadi penerima beasiswa di periode berikutnya.
6.  Bagaimana cara pemberian beasiswa?
Dana beasiswa akan ditransfer kepada penerima.
7.  Kapan beasiswa akan diterima?
Setelah verifikasi yang dilakukan oleh pihak DataPrint selesai atau kurang lebih satu bulan setelah pengumuman.
8.  Apakah beasiswa yang diterima akan terkena pajak?
Tidak, beasiswa yang diterima tidak dikenai pajak. Dana beasiswa akan ditransfer melalui rekening BCA. Bagi penerima beasiwa yang memiliki rekening selain BCA maka dana administrasi akan ditanggung penerima.
9.  Dimana pengumuman penerima beasiswa dapat dilihat?
Pengumuman dapat dilihat di website DataPrint www.dataprint.co.id , page Facebook DataPrint www.faceboo

TUTORIAL DAN LISTING GAME PUZZLE 24

GAME PUZZLE OKE 24

Tujuan : Untuk membuat aplikasi Game Puzzle dengan mengaplikasikan beberapa  control dasar pada visual basic 2010

Form awal saat kita buka adalah seperti di bawah ini, dimana ada kolom nama yang wajib disikan apabila tidak diisi maka akan muncul peringatan msg.box

Listing :

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

        If TextBox1.Text = "" Then

            MsgBox("Nama Pengguna Harus di isi") -> msg.box akan muncul jika kita sebelum memainkan permainan tidak mengisi nama kita sebagai user permainan puzzle.

Apabila kita mengisikan data nama dan menekan tombol start maka program game puzzle terbuka dan kita siap menjalankan game.

            Return

        End If

        Form1.Show()

End Sub

 

Listing :

Public Class Form1

    Dim digeser As Object

  Dim acak, menit, detik As Integer ( akan mengubah satuan data menjadi angka yang dapat dihitung)

    Dim tukar As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "GAME PUZZLE OKE 24" => adalah judul pada form program puzzle ketika dibuka

       

    End Sub

Apabila kita menekan tombol start maka otomatis gambar akan diacak dengan menggunakan rumus timer.

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Timer1.Enabled = True (timer true maka akan berfungsi untuk mengacak sesuai dengan rumus timer yang diatur)

        acak = Rnd() * 10

    End Sub

Dan akan berhenti mengacak apabila menekan tombol stop, dimana rumus tombol stop adalah timer 1 false, yaitu menghentikan pengacakan dengan timer.

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Timer1.Enabled = False (fungsi timer adalah mengacak sesuai rumus, apabila fungsi timer kita false kan maka akan menghentikan acakan)

    End Sub

Rumus pada timer :

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        digeser = B0.BackgroundImage

        B0.BackgroundImage = B4.BackgroundImage

        B4.BackgroundImage = digeser

        tukar = B0.Text

        B0.Text = B4.Text

        B4.Text = tukar => apabila timer is true maka button 0 akan bergeser / bertukar pada button 4

        digeser = B0.BackgroundImage

        B0.BackgroundImage = B3.BackgroundImage

        B3.BackgroundImage = digeser

        tukar = B0.Text

        B0.Text = B3.Text

        B3.Text = tukar => apabila timer is true maka button 0 akan bergeser / bertukar pada button 3

        digeser = B2.BackgroundImage

        B2.BackgroundImage = B7.BackgroundImage

        B7.BackgroundImage = digeser

        tukar = B2.Text

        B2.Text = B7.Text

        B7.Text = tukar => apabila timer is true maka button 2 akan bergeser / bertukar pada button 7

        digeser = B2.BackgroundImage

        B2.BackgroundImage = B6.BackgroundImage

        B6.BackgroundImage = digeser

        tukar = B2.Text

        B2.Text = B6.Text

        B6.Text = tukar=> apabila timer is true maka button 2 akan bergeser / bertukar pada button 6

        digeser = B3.BackgroundImage

        B3.BackgroundImage = B8.BackgroundImage

        B8.BackgroundImage = digeser

        tukar = B3.Text

        B3.Text = B8.Text

        B8.Text = tukar => apabila timer is true maka button 3 akan bergeser / bertukar pada button 8

        digeser = B3.BackgroundImage

        B3.BackgroundImage = B1.BackgroundImage

        B1.BackgroundImage = digeser

        tukar = B3.Text

        B3.Text = B1.Text

        B1.Text = tukar => apabila timer is true maka button 3 akan bergeser / bertukar pada button 1

        digeser = B5.BackgroundImage

        B5.BackgroundImage = B8.BackgroundImage

        B8.BackgroundImage = digeser

        tukar = B5.Text

        B5.Text = B8.Text

        B8.Text = tukar => apabila timer is true maka button 5 akan bergeser / bertukar pada button 8

        digeser = B5.BackgroundImage

        B5.BackgroundImage = B7.BackgroundImage

        B7.BackgroundImage = digeser

        tukar = B5.Text

        B5.Text = B7.Text

        B7.Text = tukar => apabila timer is true maka button 5 akan bergeser / bertukar pada button 7

        digeser = B6.BackgroundImage

        B6.BackgroundImage = B1.BackgroundImage

        B1.BackgroundImage = digeser

        tukar = B6.Text

        B6.Text = B1.Text

        B1.Text = tukar => apabila timer is true maka button 6 akan bergeser / bertukar pada button 1

    End Sub

Pada tombol reset digunakan rumus seperti dibawah ini, dimana apabila kita telah melakukan beberapa langkah lalu kita reset maka langkah yang kita miliki akan kembali utuh sebesar 50 dan secara bersamaan akan mengacak lagi karena timer1 is true.

Gambar 1

Gambar 2

Jika kita menekan tombol play maka angka akan mengacak secara acak dimanaakan diberi kesempatan untuk menggeser sebanyak 50 kali (gambar1), setiap geseran akan dikurang satu  kesempatan menggeser(gambar2)

Listing :

   Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        Timer1.Enabled = True

        Label2.Text = "50" ( apabila ditekan tombol tersebut maka timer is true dan nyawa untuk melangkah kembali utuh yaitu disediakan 50)

    End Sub

Pada setiap tombol button gambar dimasukkan listing seperti berikut sesuai dengan letaknya

·         Tombol 1 hanya dapat digeser kekanan pada tombol 2 dan kebawah pada tombol 4

    Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click

Apabila B1 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B2 dan B4

        If B2.Text = "" Then

            digeser = B1.BackgroundImage

            B1.BackgroundImage = B2.BackgroundImage

            B2.BackgroundImage = digeser

            tukar = B1.Text

            B1.Text = B2.Text

            B2.Text = tukar

            Label2.Text = Int(Label2.Text) – 1 1 => jika B2 digeser maka setiap nyawa akan berkurang satu

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B4.Text = "" Then

            digeser = B1.BackgroundImage

            B1.BackgroundImage = B4.BackgroundImage

            B4.BackgroundImage = digeser

            tukar = B1.Text

            B1.Text = B4.Text

            B4.Text = tukar

            Label2.Text = Int(Label2.Text) – 1 => jika B4 digeser maka setiap nyawa akan berkurang satu

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa") = adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 2 hanya dapat digeser kekanan tombol 3, kebawah tombol 5 dan ke kiri tombol 1

    Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click

Apabila B2 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B3,B1 dan B5

        If B1.Text = "" Then

            digeser = B2.BackgroundImage

            B2.BackgroundImage = B1.BackgroundImage

            B1.BackgroundImage = digeser

            tukar = B2.Text

            B2.Text = B1.Text

            B1.Text = tukar

            Label2.Text = Int(Label2.Text) – 1  => jika B1 digeser maka setiap nyawa akan berkurang satu

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B3.Text = "" Then

            digeser = B2.BackgroundImage

            B2.BackgroundImage = B3.BackgroundImage

            B3.BackgroundImage = digeser

            tukar = B2.Text

            B2.Text = B3.Text

            B3.Text = tukar

            Label2.Text = Int(Label2.Text) – 1  => jika B4 digeser maka setiap nyawa akan berkurang satu

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

Apabila B5 kosong maka dapat ditukar dengan posisi B2, B4, B6, B8

        ElseIf B5.Text = "" Then

            digeser = B5.BackgroundImage

            B5.BackgroundImage = B2.BackgroundImage

            B2.BackgroundImage = digeser

            tukar = B5.Text

            B5.Text = B2.Text

            B2.Text = tukar

            Label2.Text = Int(Label2.Text) – 1 => jika B4 digeser maka setiap nyawa akan berkurang satu

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa") = adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 3 hanya dapat digeser kekiri tombol 2 dan kebawah tombol 6

    Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click

Apabila B3 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B6 dan B2

        If B2.Text = "" Then

            digeser = B3.BackgroundImage

            B3.BackgroundImage = B2.BackgroundImage

            B2.BackgroundImage = digeser

            tukar = B3.Text

            B3.Text = B2.Text

            B2.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")

        ElseIf B6.Text = "" Then

            digeser = B3.BackgroundImage

            B3.BackgroundImage = B6.BackgroundImage

            B6.BackgroundImage = digeser

            tukar = B3.Text

            B3.Text = B6.Text

            B6.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

         ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa") = adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 4 hanya dapat digeser kekanan tombol 5 dan kebawah tombol 7

    Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click

Apabila B4 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B1 dan B5

        If B1.Text = "" Then

            digeser = B4.BackgroundImage

            B4.BackgroundImage = B1.BackgroundImage

            B1.BackgroundImage = digeser

            tukar = B4.Text

            B4.Text = B1.Text

            B1.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")

        ElseIf B5.Text = "" Then

            digeser = B4.BackgroundImage

            B4.BackgroundImage = B5.BackgroundImage

            B5.BackgroundImage = digeser

            tukar = B4.Text

            B4.Text = B5.Text

            B5.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")

        ElseIf B7.Text = "" Then

            digeser = B4.BackgroundImage

            B4.BackgroundImage = B7.BackgroundImage

            B7.BackgroundImage = digeser

            tukar = B4.Text

            B4.Text = B7.Text

            B7.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa") = adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 5 dapat digeser kesegala arah yaitu kekanan pada tombol 6, kebawah tombol 8, keatas pada tombol 2, dan kekiri pada tombol 4

    Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click

Apabila B5 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B2, B4, B6 dan B8

        If B2.Text = "" Then

            digeser = B5.BackgroundImage

            B5.BackgroundImage = B2.BackgroundImage

            B2.BackgroundImage = digeser

            tukar = B5.Text

            B5.Text = B2.Text

            B2.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B4.Text = "" Then

            digeser = B5.BackgroundImage

            B5.BackgroundImage = B4.BackgroundImage

            B4.BackgroundImage = digeser

            tukar = B5.Text

            B5.Text = B4.Text

            B4.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B6.Text = "" Then

            digeser = B5.BackgroundImage

            B5.BackgroundImage = B6.BackgroundImage

            B6.BackgroundImage = digeser

            tukar = B5.Text

            B5.Text = B6.Text

            B6.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu") = menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B8.Text = "" Then

            digeser = B5.BackgroundImage

            B5.BackgroundImage = B8.BackgroundImage

            B8.BackgroundImage = digeser

            tukar = B5.Text

            B5.Text = B8.Text

            B8.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu") = menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B2.Text = "" Then

            tukar = B5.Text

            B5.Text = B2.Text

            B2.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B4.Text = "" Then

            tukar = B5.Text

            B5.Text = B4.Text

            B4.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B6.Text = "" Then

            tukar = B5.Text

            B5.Text = B6.Text

            B6.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B8.Text = "" Then

            tukar = B5.Text

            B5.Text = B8.Text

            B8.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa") = adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 6 hanya dapat digeser kekiri tombol 5 dan kebawah tombol 0

    Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click

Apabila B6 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B0,B3 dan B5

        If B3.Text = "" Then

            digeser = B6.BackgroundImage

            B6.BackgroundImage = B3.BackgroundImage

            B3.BackgroundImage = digeser

            tukar = B6.Text

            B6.Text = B3.Text

            B3.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B5.Text = "" Then

            digeser = B6.BackgroundImage

            B6.BackgroundImage = B5.BackgroundImage

            B5.BackgroundImage = digeser

            tukar = B6.Text

            B6.Text = B5.Text

            B5.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B0.Text = "" Then

            digeser = B6.BackgroundImage

            B6.BackgroundImage = B0.BackgroundImage

            B0.BackgroundImage = digeser

            tukar = B6.Text

            B6.Text = B0.Text

            B0.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa") = adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 7 hanya dapat digeser kekanan tombol 8 dan keatas tombol 4

    Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click

Apabila B7 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B4 dan B8

        If B4.Text = "" Then

            digeser = B7.BackgroundImage

            B7.BackgroundImage = B4.BackgroundImage

            B4.BackgroundImage = digeser

            tukar = B7.Text

            B7.Text = B4.Text

            B4.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B8.Text = "" Then

            digeser = B7.BackgroundImage

            B7.BackgroundImage = B8.BackgroundImage

            B8.BackgroundImage = digeser

            tukar = B7.Text

            B7.Text = B8.Text

            B8.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

       ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa")= adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 8 dapat digeser ke atas pada tombol 5, kekiri pada tombol 7 dan kekanan pada tombol 0

    Private Sub B8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8.Click

 Apabila B8 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B7,B0 dan B5

        If B5.Text = "" Then

            digeser = B8.BackgroundImage

            B8.BackgroundImage = B5.BackgroundImage

            B5.BackgroundImage = digeser

            tukar = B8.Text

            B8.Text = B5.Text

            B5.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B7.Text = "" Then

            digeser = B8.BackgroundImage

            B8.BackgroundImage = B7.BackgroundImage

            B7.BackgroundImage = digeser

            tukar = B8.Text

            B8.Text = B7.Text

            B7.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B0.Text = "" Then

            digeser = B8.BackgroundImage

            B8.BackgroundImage = B0.BackgroundImage

            B0.BackgroundImage = digeser

            tukar = B8.Text

            B8.Text = B0.Text

            B0.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

        If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa")= adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

·         Tombol 0 hanya dapat digeser kekiri pada tombol 8 dan atas pada tombol 6

    Private Sub B0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B0.Click

Apabila B0 ingin tukar posisi hanya ada dua kemungkinan untuk menukar posisi yaitu pada B8 dan B6

        If B6.Text = "" Then

            digeser = B0.BackgroundImage

            B0.BackgroundImage = B6.BackgroundImage

            B6.BackgroundImage = digeser

            tukar = B0.Text

            B0.Text = B6.Text

            B6.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        ElseIf B8.Text = "" Then

            digeser = B0.BackgroundImage

            B0.BackgroundImage = B8.BackgroundImage

            B8.BackgroundImage = digeser

            tukar = B0.Text

            B0.Text = B8.Text

            B8.Text = tukar

            Label2.Text = Int(Label2.Text) - 1

        ElseIf Label2.Text = "0" Then

            MsgBox("kasihan deh luu")= menunjukkan bahwa apabila kita melangkah sebanyak lebih dari 50 dan belum berhasil menyusun gambar maka secara otomatis msgbox muncul dengan keterangan (“Kasihan deh luu”)

        End If

If B1.Text = "1" And B2.Text = "2" And B3.Text = "3" And B4.Text = "4" And B5.Text = "5" And B6.Text = "6" And B7.Text = "7" And B8.Text = "8" And B0.Text = "" Then

            MsgBox("congrats yuaaa")= adalah listing yang menunjukkan apabila kita dapat menempatkan posisi semula dan menjadi gambar yang baik dan sempurna maka secara otomatis muncul Msgbox (Congrats Yuaa)

        End If

    End Sub

Apabila kita menekan tombol Quit maka secara otomatis akan keluar dari program puzzle yang dijalankan.

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        Close() => maka form akan mengakiri permainan dan keluar dari program.

    End Sub

End Class