Membuat koneksi VB 2010 ke SQL server 2005 (Data Base)

Kali ini saya akan membahas tentang Cara menggabungkan VB dan SQL, yang saya gunakan adalah VB 2010 dan SQL server 2005

Berikut penjelasannya :

è Klik Start >> All Programs >> Microsoft SQL Server 2005 >>  SQL Server Managenent Studio, maka akan muncul jendela dialog seperti dibawah ini kemudian Pilih Connect

è Buat Database baru , klik kanan Database >> Pilih New Database

è Pada Database name beri nama data mahasiswa >> klik tombol Ok

è Klik ganda pada Databases, kemudian klik ganda pada pada pilihan data mahasiswa 

è  Klik kanan pada table kemudian pilih new table

è  Buat Table dengan desain seperti gambar dibawah ini,simpan dan beri nama tbmahasiswa kemudian          simpan

è Buka VB 2010 dan buat Project Baru di VB. Net 2010 kemudian buat form baru seperti tampilan berikut ini :

è Koneksikan form dengan database

è Data >> Add New Data Source

 è  Tekan Next >> 

è  Tekan Next >> 

è  Pilih New Connection- Microsoft SQL Server-Continue

è Pada Server Name anda bisa copy nama server dari SQL server anda dan bisa juga mengetikan “local” atau “.”  [tanda titik] >> Klik Connect to a Database>>pada kolom dibawah ada pilihan untuk memilih database yang telah kita buat drag dan pilih sesuai nama database yang telah dibuat>>untuk memastikan koneksi berhasil bisa mengetest koneksi dengan klik tombol TestConnection dan akan diketahui lewat pesan yang muncul

è  Tekan Next >> 

è  Tekan  next kemudian  beri centang pada tab tables, otomatis tbmahasiswa semua terpilih >> Finish

è  Desain form pada VB 2010 seperti dibawah ini, drag database ke form sesuaikan juga layoutnya

Penjelasan VB 2010 :

1. Tombol Delete :

Kode :

   Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then

            TbmahasiswaBindingSource.RemoveCurrent()

        End If

    End Sub

2.  Tombol Search :

Kode :

    Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mencari.Click

        If (TbmahasiswaBindingSource.Find("Nama", Tbsearch.Text)) > -1 Then

            MsgBox("Data berhasil ditemukan")

        Else

            MsgBox("Data tidak berhasil ditemukan")

        End If

    End Sub

3.  Tombol Filter :

Kode :

   Private Sub filter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter.Click

        Dim Mencari As String

        Mencari = InputBox("Masukkan Jurusan Yang Di Cari", "Filter ...")

    End Sub

Kode  selengkapnya : 

 Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.Data_mahasiswaDataSet)

    End Sub

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

        'TODO: This line of code loads data into the 'Data_mahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.

        Me.TbmahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.tbmahasiswa)

    End Sub

    Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baru.Click

        TbmahasiswaBindingSource.AddNew()

        NimTextBox.Focus()

        Tgl_lhrDateTimePicker.ResetText()

    End Sub

    Private Sub Pertama_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pertama.Click

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub Sebelumnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sebelumnya.Click

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub Berkutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Berkutnya.Click

        TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub Terkhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Terkhir.Click

        TbmahasiswaBindingSource.MoveLast()

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.Data_mahasiswaDataSet)

    End Sub

    Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click

        NimTextBox.Focus()

    End Sub

End Class

Maaf bila ada kesalahan dalam kode program 

TERIMA KASIH

MACAM - MACAM FUNCTION BAWAAN

Kali ini saya akan menjelaskan tentang macam - macam function bawaan di Visual Basic 2010

Dalam Visual Basic, Fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

1.       Fungsi-fungsi Numerik Dengan menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe data numerik.

Fungsi-fungsi ini dapat dikelompokkan sebagai berikut :

a. Fungsi-fungsi konversi ke integer. Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada tabel .

Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama. Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama

Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda.

Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() :

b. Fungsi – fungsi konversi tipe data

Tabel 10.2 merupakan fungsi – fungsi yang melakukan konversi ke tipe data. Tabel 10.2 Fungsi-fungsi Konversi ke Tipe Data

Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) .

a. Fungsi-fungsi matematika Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada
Fungsi-fungsi Matematika

2.Fungsi-fungsi String
Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti berikut ini:

Fungsi-fungsi String

Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :
a. Left$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .
b. Right$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .
c. Mid$(StringVal, startVal, length)
Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .
Contoh :

3.Fungsi-fungsi Tanggal dan Waktu
Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi – fungsi Now(), Date(), dan Time().

Fungsi-fungsi Tanggal dan Waktu

Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu

Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan.

4.Fungsi Date and Time pada VB

Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
pemakaiannya ( lihat contoh di bawah ini)
A$ = Time ‘hasil 18:16:35 AM
MyTime = #4:35:17 PM# ‘assign a time
Time = MyTime ‘set system time to MyTime
Now : merekam tanggal dan waktu sekarang
A$ = Now ‘hasil 10/8/02 18:16:35 AM

Timer : menghitung jumlah detik sejak tengah malam
Start = Timer ‘hasilnya 29991

Date : menetapkan hari pada sistem komputer
Dim MyDate
MyDate = #February 12, 1985 # ‘Assign a date
Date = MyDate ‘Change system date
DateAdd : menghasilkan Varian(Date) yang berisi tanggal baru setelah suatu interval waktu yang ditetapkan dari tanggal lama.
DateAdd(kode_interval,jumlah_interval,tanggal_lama)

Contoh pemakaiannya :
Dim FirstDate As_Date ‘Declare variables
Dim IntervalType As String
Dim Number As Integer
Dim Msg
FirstDate = InputBox(“Enter a date”)
Bynber = InputBox(“Enter number of months to add”)
Msg = “New date : “ & DateAdd(“m”, Number, FirstDate)
MsgBox Msg

DateDiff : mencari interval waktu antara dua tanggal
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Dim TheDate As Date ‘declare variables
TheDate = InputBox(“Enter a date”) Msg = “Day from today : “ & DateDiff(“d”, Now, TheDate)
MsgBox Msg

DateSerial : menghasilkan tanggal dengan bulan/hari/tahun
MyDate = DateSerial(1969, 2, 12) ‘Hasil 2/12/69

DateValue : menghasilkan tanggal
MyDate = DateValue(“February 12, 1969”) ‘Hasil 2/12/69

Year : menghasilkan tahun sekarang
MyYear = Year(#2/12/1969#) ‘Hasil 1969

Month : menghasilkan bilangan integer yang menunjukkan bulan
MyDate = #February 12, 1969# ‘Assign a date
MyMonth = Month(MyDate) ‘MyMonth = 2

MonthName : menghasilkan teks yang menunjukkan nama bulan
a$ = MonthName(1, True) ‘a$ = Jan
b$ = MonthName(1, False) ‘b$ = January
c$ = MonthName(1) ‘c$ = January

Day : menghasilkan integer yang menunjukkan tanggal dari data date
MyDate = #February 12, 1969# ‘Assign a date
MyDay = Day(MyDate) ‘MyDay berisi 12

Hour : menghasilkan integer yang menunjukkan jam dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MyHour = Hour(MyTime) ‘MyHour berisi 16

Minute : menghasilkan integer yang menunjukkan menit dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MyMinute = Minute(MyTime) ‘MyMinute berisi 35

Second : menghasilkan integer yang menunjukkan detik dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MySecond = Second(MyTime) ‘MySecond berisi 17

TimeSerial : menghasilkan waktu dengan jam/menit/detik
MyTime = TimeSerial(16, 35, 17) ‘Isinya 4:35:17 PM

TimeValue : mengubah string waktu dari pukul 0:00:00 (12:00:00 AM) sampai 23:59:59 (11:59:59 PM) menjadi data waktu
MyTime = TimeValue(“4:35:17 PM”) ‘Isinya 4:35:17 PM
MyTime = TimeValue(“0:00:00”) ‘Isinya 12:00:00 AM

WeekDay : menghasilkan bilangan petunjuk hari dari suatu tanggal
Hari = #February 12, 1969# ‘Hari Rabu
MyweekDay = Weekday(Hari) ‘MyweekDay isinya 4

WeekDayName : menghasilkan teks nama hari dalam satu minggu

Sekian mengenai masam - macam FUNCTION 

TERIMAKASIH

OVERLOADING FUNCTIO

Pengertian dari Overloading Function; merupakan sebuah function dengan nama yang sama tetapi memiliki Parameter yang berbeda. Untuk lebih jelasnya kita lihat penjelasannya berikut

Buatlah form seperti berikut :

masukan Listing programnya, sebagai Berikut :

Public Class Form1

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

        hitung = bil1 * bil2

    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer

        hitung = bil1 + bil2 + bil3

    End Function

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

        TextBox1.Text = hitung(3, 1, 2)

    End Sub

End Class

Jalankan programnya , seperti berikut :

Penjelasan :

1. Terdapat 2 Sub Program “Function” yang bisa berfungsi, tetapi pada saat kita melihat pemanggilan namaFunction pada Button1, terdapat 3 bilangan yang artinya, hanya “function” yang memiliki 3 parameterlah yang dapat berjalan, sedangkan “Function” yang memiliki 2 parameter diabaikan.
2. Tetapi, jika angka parameter pada pemanggilan namaparameter di hapus 1, maka “Function” yang memiliki 2 parameterlah yang dijalankan, sedangkan “function” yang memiliki 3 parameter akan diabaikan. Hasil :

 

Sekian penjelasan tentang Overloading Function

FUNCTION

Saya akan menjelaskan fungsi “Function” dari pembuatan program berbentuk Array. Simak lebih jelas, langsung saja kita buat dulu sebuah project Visual Basic 2010.

Buatlah Form seperti berikut :

Lalu isikan listing Program sebagai berikut :

   Private Function abc(ByVal ParamArray args() As Object) As Single()

        Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(args)

            hasil(0) = hasil(0) + args(i)

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

            End If

            If hasil(1) > args(i) Then hasil(1) = args(i)

            If hasil(2) < args(i) Then hasil(2) = args(i)

        Next i

        Return hasil

    End Function

Lalu isikan Listing Program pada button 1 :

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

        Dim abcd As Single() = abc(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

        TextBox1.Text = abcd(0)

        TextBox2.Text = abcd(1)

        TextBox3.Text = abcd(2)

    End Sub

Lalu jalankan, (RUN) hasil seperti berikut :

 

Penjelasan seperti brikut :

                Sub Program “Function” ini memberikan umpan balik berbentuk nilai, sehingga bisa mendapatkan hasil sesuai dengan isi programnya yang ingin dibuat.

Keterangan :

1.       Pada kata “args()” adalah sebuah nama parameter array. Dan pada kata “single()” adalah sebuah type data ( semua itu adalah lambang dari array, dan harus di tambahkan jika menggunakan array)

2.       Pada kata “ hasil(3)” merupakan sebuah parameter, terdapat 3 parameter, yaitu 0,1, dan 2

3.       Menentukan Terbesar dan Terkecil

4.       Memanggil hasil

5.       Kata “single()” menunjukan bahwa tipe data digunakan lebih lebih dari 1 / untuk penggunaan array. Kata “abc(1, 6, 2, ... , 5)” merupakan isi dari array tersebut dari nama array ABC, isi data / nama array dapat di ubah semaunya.

6.       Deklarasi program untuk menampilkan di textbox. Kata “abcd(0-2)” merupakan pemanggilan function dengan parameter masing- masing (0,1,dan 2) dan nama tersebur dapat di ubah semaunya.

Sekian penjelasan mengenai kerja dari Sub Program “Function”.

Tugas 7

MEMBUAT MDI FORM, LAYER CASECADE, HORIZONTAL, VERTICAL & RIBBON TOOLBOX

Kali ini saya akan menerangkan tentang MDI Form – MDI Child, Membuat layer MDI Child berbentuk Casecade, Horizontal, Vertical, & Membuat Toolbox Ribbon seperti pada MS Office Word 2010.....

Langsung ajah :

1. Buatlah form Induk MDI Form seperti dibawah ini :

2. Ganti Properties Form1 sub IsMDIContain ubah menjadi “True” untuk menetapkan Form1 sebagai Induk dari MDIForm. Untuk memindahkan ToolStrip, klik pada segitiga saat ToolStrip di klik, Lalu pilih Dock, pindah sesuai kebutuhan.

3. Isikan Tab Latihan dengan Latihan 1 – Latihan 3, dan buat Tab barum dengan nama "Tugas " di isi dari tugas 1 - tugas 3 ( siisi semau kamu )

4. Buat perintah tombol menggunakan toolstrip, untuk membuat perintah: casecade, horizontal, dan vertical.

    a. Hasil dari casecade : 

    b. Hasil dari horizontal :

    c. Hasil dari vertical :

5. Untuk membuat Tool tambahan saya menggunakan toolstrip, karena belum tau tool tambahan yang lain slain di visual basic 2010. Dan hasilnya seperti ini : 

6. Untuk membuat program seperti diatas , berikut coding yang saya gunakan, mungkin ada kesalahn saya minta maaf :

Public Class FormInduk

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    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

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FertikalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

      

    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

      

    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click

        Me.Close()

    End Sub

End Class

7. Sekian yang sya dapat jelaskan, bila ada kesalahan saya mohon maaf, karena manusia ga jauh dari kesalahan. 

TERIMA KASIH 

PUZZLE

Puzzle 

cara unruk membuat puzzle si atas sebagai berikut skrip yang di buruhkan.

Copy scrip di visual basic

Public Class Form1
    Dim smt As String
    Dim acak As Integer
    Dim b, s As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each kontrol In Me.Controls
            kontrol.enabled = False
            Button10.Enabled = True
            Button12.Enabled = True
        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        b = True
        s = False

        If Button2.Visible = s Then
            Button2.Visible = b
            Button1.Visible = s
            Button2.Text = Button1.Text
        Else
            If Button4.Visible = s Then
                Button4.Visible = b
                Button1.Visible = s
                Button4.Text = Button1.Text

            End If
        End If

        cek()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        b = True
        s = False

        If Button1.Visible = s Then
            Button1.Visible = b
            Button2.Visible = s
            Button1.Text = Button2.Text
        Else If Button3.Visible = s Then
                Button3.Visible = b
                Button2.Visible = s
                Button3.Text = Button2.Text

            Else If Button5.Visible = s Then
                    Button5.Visible = b
                    Button2.Visible = s
                    Button5.Text = Button2.Text
                End If
         
        cek()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        b = True
        s = False

        If Button2.Visible = s Then
            Button2.Visible = b
            Button3.Visible = s
            Button2.Text = Button3.Text

        Else
            If Button6.Visible = s Then
                Button6.Visible = b
                Button3.Visible = s
                Button6.Text = Button3.Text

            End If
           End If
        cek()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        b = True
        s = False

        If Button1.Visible = s Then
            Button1.Visible = b
            Button4.Visible = s
            Button1.Text = Button4.Text
        ElseIf Button5.Visible = s Then
                Button5.Visible = b
                Button4.Visible = s
                Button5.Text = Button4.Text
            Else If Button7.Visible = s Then
                    Button7.Visible = b
                    Button4.Visible = s
                    Button7.Text = Button4.Text
                End If        
        cek()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        b = True
        s = False

        If Button2.Visible = s Then
            Button2.Visible = b
            Button5.Visible = s
            Button2.Text = Button5.Text
        Else If Button4.Visible = s Then
                Button4.Visible = b
                Button5.Visible = s
                Button4.Text = Button5.Text
            Else If Button6.Visible = s Then
                    Button6.Visible = b
                    Button5.Visible = s
                    Button6.Text = Button5.Text
                Else If Button8.Visible = s Then
                        Button8.Visible = b
                        Button5.Visible = s
                        Button8.Text = Button5.Text
                    End If
        cek()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        b = True
        s = False

        If Button3.Visible = s Then
            Button3.Visible = b
            Button6.Visible = s
            Button3.Text = Button6.Text
        Else If Button9.Visible = s Then
                Button9.Visible = b
                Button6.Visible = s
                Button9.Text = Button6.Text
            ElseIf Button5.Visible = s Then
                    Button5.Visible = b
                    Button6.Visible = s
                    Button5.Text = Button6.Text
                End If
        cek()
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        b = True
        s = False

        If Button8.Visible = s Then
            Button8.Visible = b
            Button7.Visible = s
            Button8.Text = Button7.Text
        Else
            If Button4.Visible = s Then
                Button4.Visible = b
                Button7.Visible = s
                Button4.Text = Button7.Text
            End If
        End If
        cek()
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        b = True
        s = False
        If Button7.Visible = s Then
            Button7.Visible = b
            Button8.Visible = s
            Button7.Text = Button8.Text
        ElseIf Button9.Visible = s Then
                Button9.Visible = b
                Button8.Visible = s
                Button9.Text = Button8.Text
            ElseIf Button5.Visible = s Then
                    Button5.Visible = b
                    Button8.Visible = s
                    Button5.Text = Button8.Text
                End If
        cek()
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        b = True
        s = False

        If Button6.Visible = s Then
            Button6.Visible = b
            Button9.Visible = s
            Button6.Text = Button9.Text
        Else
            If Button8.Visible = s Then
                Button8.Visible = b
                Button9.Visible = s
                Button8.Text = Button9.Text
            End If
        End If
        cek()
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim kontrol As Windows.Forms.Control
        For Each kontrol In Me.Controls
            kontrol.Enabled = True
            Button10.Enabled = True
            Button12.Enabled = True
            smt = Button1.Text
            Button1.Text = Button3.Text
            Button3.Text = Button2.Text
            Button2.Text = Button5.Text
            Button5.Text = Button6.Text
            Button6.Text = Button7.Text
            Button7.Text = Button8.Text
            Button8.Text = Button4.Text
            Button4.Text = Button6.Text
            Button6.Text = smt

            Button12.Enabled = True
            Button11.Enabled = True
            Label1.Enabled = True
            Label1.Text = "Selamat Mencoba"
        Next
    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If MsgBox("Apakah Anda Ingin Mengulang ?", vbYesNo + vbQuestion + vbDefaultButton2, "Anda Ingin Mengulang") _
            = vbYes Then Application.Restart()
    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If MsgBox("Apakah Anda Yakin Akan Keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = _
            vbYes Then Me.Close()
    End Sub
    Private Sub cek()
        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" Then MessageBox.Show("selamat anda berhasil")
    End Sub
End Class