Membuat tampilan Puzzle di VB.net 2008

thank's before buat Temen saya ini, cz saya copy dari blog dia,, pinjem bentar ya prenn,, buat ujian..
buat dulu design kaya gini :



Lalu ubah "Nama" Button 1 menjadi "3" dengan merubah pada propertiesnya :

Lakukan Hal yang sama untuk Button Lain, Seperti Berikut :

button2 textnya menjadi =5

button3 textnya menjadi =6

button4 textnya menjadi =2

button5 textnya menjadi =1

button6 textnya menjadi =7

button7 textnya menjadi =8

button8 textnya menjadi =4

sedangkan button9

button9 menjadi visible = false *,seperti:


kemudian, masukkan coding berikut & sesuaikan dengan button awal (nomor yang normal ):

Public Class Form1

(button1):

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

If Button2.Visible = False Then

Button2.Visible = True

Button1.Visible = False

Button2.Text = Button1.Text

Else

If Button4.Visible = False Then

Button4.Visible = True

Button1.Visible = False

Button4.Text = Button1.Text

End If

End If

kerja()

End Sub

(button2):

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

If Button1.Visible = False Then

Button1.Visible = True

Button2.Visible = False

Button1.Text = Button2.Text

ElseIf Button3.Visible = False Then

Button3.Visible = True

Button2.Visible = False

Button3.Text = Button2.Text

ElseIf Button5.Visible = False Then

Button2.Visible = True

Button5.Visible = False

Button5.Text = Button2.Text

End If

kerja()

End Sub

(button3):

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

If Button2.Visible = False Then

Button2.Visible = True

Button3.Visible = False

Button2.Text = Button3.Text

Else

If Button6.Visible = False Then

Button6.Visible = True

Button3.Visible = False

Button6.Text = Button3.Text

End If

End If

End Sub

(button4):

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If Button1.Visible = False Then

Button1.Visible = True

Button4.Visible = False

Button1.Text = Button4.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button4.Visible = False

Button5.Text = Button4.Text

ElseIf Button7.Visible = False Then

Button7.Visible = True

Button4.Visible = False

Button7.Text = Button4.Text

End If

kerja()

End Sub

(button5):

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

If Button2.Visible = False Then

Button2.Visible = True

Button5.Visible = False

Button2.Text = Button5.Text

ElseIf Button4.Visible = False Then

Button4.Visible = True

Button5.Visible = False

Button4.Text = Button5.Text

ElseIf Button6.Visible = False Then

Button6.Visible = True

Button5.Visible = False

Button6.Text = Button5.Text

ElseIf Button8.Visible = False Then

Button8.Visible = True

Button5.Visible = False

Button8.Text = Button5.Text

End If

kerja()

End Sub

(button6):

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

If Button3.Visible = False Then

Button3.Visible = True

Button6.Visible = False

Button3.Text = Button6.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button6.Visible = False

Button9.Text = Button6.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button6.Visible = False

Button5.Text = Button6.Text

End If

kerja()

End Sub

(button7):

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If Button8.Visible = False Then

Button8.Visible = True

Button7.Visible = False

Button8.Text = Button7.Text

Else

If Button4.Visible = False Then

Button4.Visible = True

Button7.Visible = False

Button4.Text = Button7.Text

End If

End If

kerja()

End Sub

(button8):

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

If Button7.Visible = False Then

Button7.Visible = True

Button8.Visible = False

Button7.Text = Button8.Text

ElseIf Button9.Visible = False Then

Button9.Visible = True

Button8.Visible = False

Button9.Text = Button8.Text

ElseIf Button5.Visible = False Then

Button5.Visible = True

Button8.Visible = False

Button5.Text = Button8.Text

End If

kerja()

End Sub

(button9):

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

If Button6.Visible = False Then

Button6.Visible = True

Button9.Visible = False

Button6.Text = Button9.Text

Else

If Button8.Visible = False Then

Button8.Visible = True

Button9.Visible = False

Button8.Text = Button9.Text

End If

End If

kerja()

End Sub

setelah selesai mengisi printah dari setiap button tersebut sekarang kita tambah methotnya :

Private Sub kerja()

If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4") Then

If (Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7") Then

If (Button8.Text = "8") Then

MessageBox.Show(" selamat anda berhasil")

End If

End If

End If

End Sub

End Class

Tinggal di Running Deh... F5 atao Debugging,,,,

nnti button2 tersebut bisa dipindah2in kaya main puzzle..





Met UJIAN YAAA>>>> *_^

Looping di VB.net 2008

Kali ini,, qt belajar looping yaaa,, hmmm.. lagi2 kesalahan jaringan internetnya,, jadi aku ga bs upload gambar untuk artikelnya nih,,, mohon maaf,, yaa,, sementara untuk malihat file nya silahkan download disini gratis kok... n klo koneksi dah lancar,, aq pasti upload artikelnya..
MOhon Maaaf AtasKetidaknyamananya yaaa piissss ,,,,=)

Review pertemuan 4 VB . Net 2008

Postingan ini memuattentang bagaimana kita membuat program loping , memakai fasilitas Combo box , karena terjadi kesalahan koneksi, karena aq tdk dpt meng-upload foto untuk artikel ini... maka aku simpan di sinii ..... untuk melihatnya silahkan men-Download.. nya Its Freee..

Belajar membuat LIST BOX di VB.net 2008

Belajar yukk,,,

namanya juga belajar,, jadi bila terdapat kesalahan dalam penulisan ini, mohon untuk bantuanyaa yaaa…=) .. kali ini kita akan membahas tentang List Box..

List box memiliki fungsi untuk menampilkan beberapa daftar pilihan. Kita tinggal memilih pilihan yang ada, atau list box juga dapat di gunakan untuk menampung data-data yang di input, untuk kemudian kita dapat gabungkan pada list box.

Tampilan list box :

Pembahasan kali ini, kita akan coba membuat program untuk menggabungkan data yang kita input, lalu akan kita gabungkan , dan akan ditampilkan melalui listbox…

Perintah sederhananya : ListBox1.Items.Add(TextBox.Text + " " + TextBox……..)

Pertama,,, buat form windows seperti tampilan di atas, lalu buat coding seperti dibawah ini :

Sub pros3()
ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " _
+ TextBox6.Text + " " + TextBox7.Text)
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
TextBox5.Focus()
End If
End Sub
Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If e.KeyChar = Chr(13) Then
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If e.KeyChar = Chr(13) Then
TextBox7.Focus()
End If
End Sub

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
If e.KeyChar = Chr(13) Then
Call pros3()
Call bersihpros()
TextBox3.Focus()
End If
End Sub
Sub bersihpros()
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
End Class

Lalu jalankan denga F5, isi kata untuk data 1 diakhiri dengan Enter, hingga data 7 :

Maka kumpulan kata-kata yang di input tadi akan tergabung di dalam List Box

Memulai VB 2008

Sebelum memulai, pastikan software Microsoft Visual Studio 2008 sudah terinstal , pilih menu Microsoft Visual Studio 2008


Maka tampilannya akan seperti ini :


Pilih file > new > project




Pilih Windows From Aplication, lalu ketik nama project yg diinginkan, dan tentukan lokasi penyimpanannya. Maka kita telah memulai VB 2008…. Wellcomee…=)



Jenis-jenis variable dalam VB terbagi dalam :

1. Variable Public
Adalah variable yang bisa digunakan ke semua program atau form dalam 1 PROJECT.
2. Variable general
Yaitu varibel yang bisa digunakan dalam 1 CLASS / FORM , Letaknya ada di bawah kata “Public Class”.
3. Variable Local
Variable yang bisa digunakan dalam 1 METHODE (SUB CLASS / PRIVATE) saja. Pada pembuatannya, setiap variable Lokal MESTI, HARUS digunakan dalam program, bila tidak maka terjadi ERROR.

Cara penulisan variable , dengan diawalai perintah “DIM” (NB : tanpa tanda kutip):



Contoh 1 : dim jurusan As String -----> untuk 1 variabel
Contoh 2 : dim kelas, jurusan As String , Waktu As integer -----> untuk 2 variable yang sama jenis & beda jenis.
Contoh 3 : dim d As integer = 0 ---------> d merupakan variable konstanta yg nilainya tetap (ditentukan).

Pembuatan event :
Duble Click button yang akan kita buat event nya :



Membuat Methode dan memanggilnya :

Buatlah method dengan diawali printah Sub , lalu ketikkan perintah2 nya


atau klik SINI biar lebih jelas coding-nya

kemudian jalankan program dengan menekan F5 atau DEBUGGING