Sebuah artikel tentang bagaimana membangun sebuah diary pribadi dengan WPF.
Read More …
Pada Kesempatan kali ini saya akan memberikan tips bagaimana membuat koneksi database dari sql server 2005 ke visual basic 2005 (VB 2005).
Kenapa VB 2005, karena saat ini saya sedang belajar pemrograman vb 2005 ditambah sudah semakin berumurnya vb 6, membuat saya ingin beralih. Ok langsung kita mulai saja.
Sebelumnya, jika Anda blm punya SQL server 2005 Express disini
dan SQL Server Management Studio Express disini
Buat dahulu database di SQL server dengan menggunakan SQL Server Management Studio Express.
Buka SQL Server Management Studio Express di Start Menu ->All programs -> Microsoft SQL Server 2005 -> SQL Server Management Studio Express.
Setelah itu akan muncul tampilan seperti di bawah ini :
Pastikan nama servernya benar, setelah itu pada klik kanan pada database -> New database. Dalam contoh ini saya akan membuat database dengan nama Ihsan
Setelah selesai, buka visual basic 2005. Tambahkan sebuah objek di form, yaitu button. Lalu ganti tulisan button dengan tulisan “Connect to database” dengan cara mengganti properti text pada button.
Setelah itu kita masuk pada tahap coding, double click pada button yang telah ditambahkan tadi.
Masukan code dibawah ini ke dalam form coding tersebut :
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlconn As New SqlClient.SqlConnection
‘membuat koneksi dengan database
‘RAIN-57C3A9A4CD\SQLEXPRESS adalah nama server di komputer, ini bisa diganti
sqlconn.ConnectionString = “server = RAIN-57C3A9A4CD\SQLEXPRESS;Database = Ihsan;integrated security=true”
Try
sqlconn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, “Connection Failed”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
If sqlconn.State = 1 Then
Me.Text = “Koneksi Berhasil”
Me.BackColor = Color.Aqua
End If
End Sub
End Class
Penjelasan :
1. Inherits System.Windows.Forms.Form : Class Form1 sebagai turunan
(inherits)dari System.Windows.Forms.Form. Ini karena setiap objek
yang kita buat pada vb 2005 terdiri dari class. 2. sqlconn.ConnectionString = “server =
RAIN-57C3A9A4CD\SQLEXPRESS;Database = Ihsan;integrated
security=true” : Sintaks ini sebagai pembuat koneksi
database antara vb 2005 dengan sql server 2005, dengan nama
server “RAIN-57C3A9A4CD\SQLEXPRESS” adalah nama komputer
saya, sedangkan nama databasenya adalah Ihsan sesuai dengan
yang tadi telah kita buat. Nama server dan database sebaiknya
diganti sesuai nama server pada laptop atau komputer anda.
3. Perintah try sampai dengan end try adalah sintaks yang berfungsi
untuk mengalihkan jika terjadi error. Jika dalam instruksi dalam Try
terdapat kesalahan maka yang akan dijalankan adalah instruksi
dibawah catch. Dalam contoh di atas apabila, tidak ada kesalahan
pada Try koneksi akan berjalan, sedangkan jika tidak akan keluar
pesan eror.
4. Sedangkan pada percabangan if, jika koneksi berhasil akan merubah background form dan properti text pada form.
Semoga bermanfaat !
Read More …
Kenapa VB 2005, karena saat ini saya sedang belajar pemrograman vb 2005 ditambah sudah semakin berumurnya vb 6, membuat saya ingin beralih. Ok langsung kita mulai saja.
Sebelumnya, jika Anda blm punya SQL server 2005 Express disini
dan SQL Server Management Studio Express disini
Buat dahulu database di SQL server dengan menggunakan SQL Server Management Studio Express.
Buka SQL Server Management Studio Express di Start Menu ->All programs -> Microsoft SQL Server 2005 -> SQL Server Management Studio Express.
Setelah itu akan muncul tampilan seperti di bawah ini :
Setelah itu kita masuk pada tahap coding, double click pada button yang telah ditambahkan tadi.
Masukan code dibawah ini ke dalam form coding tersebut :
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlconn As New SqlClient.SqlConnection
‘membuat koneksi dengan database
‘RAIN-57C3A9A4CD\SQLEXPRESS adalah nama server di komputer, ini bisa diganti
sqlconn.ConnectionString = “server = RAIN-57C3A9A4CD\SQLEXPRESS;Database = Ihsan;integrated security=true”
Try
sqlconn.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, “Connection Failed”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
If sqlconn.State = 1 Then
Me.Text = “Koneksi Berhasil”
Me.BackColor = Color.Aqua
End If
End Sub
End Class
Perancangan form
Koneksi berhasil
Penjelasan :
1. Inherits System.Windows.Forms.Form : Class Form1 sebagai turunan
(inherits)dari System.Windows.Forms.Form. Ini karena setiap objek
yang kita buat pada vb 2005 terdiri dari class. 2. sqlconn.ConnectionString = “server =
RAIN-57C3A9A4CD\SQLEXPRESS;Database = Ihsan;integrated
security=true” : Sintaks ini sebagai pembuat koneksi
database antara vb 2005 dengan sql server 2005, dengan nama
server “RAIN-57C3A9A4CD\SQLEXPRESS” adalah nama komputer
saya, sedangkan nama databasenya adalah Ihsan sesuai dengan
yang tadi telah kita buat. Nama server dan database sebaiknya
diganti sesuai nama server pada laptop atau komputer anda.
3. Perintah try sampai dengan end try adalah sintaks yang berfungsi
untuk mengalihkan jika terjadi error. Jika dalam instruksi dalam Try
terdapat kesalahan maka yang akan dijalankan adalah instruksi
dibawah catch. Dalam contoh di atas apabila, tidak ada kesalahan
pada Try koneksi akan berjalan, sedangkan jika tidak akan keluar
pesan eror.
4. Sedangkan pada percabangan if, jika koneksi berhasil akan merubah background form dan properti text pada form.
Semoga bermanfaat !
Sebenarnya gwga mau ngasitau cara ini, cz bisa bisa software yang gw gunakan untuk Cheat point blank bisa terdeteksi oleh hackshield yang ada di point blank,namun karena ini untuk kemajuan blogianz ya terpaksa ian posting juga Cheat Point blank ini…
Yang dibutuhkan adalah
• MHS : untuk Cheat Point blank
• Hide Tools : menyembunyikan software yang sedang digunakan
Yang harus dipersiapkan :
• Rokok untuk perokok, kopi untuk yang suks minum kopi, bokep untuk bokep'ers. upz yang terakhir jangan dulu, ntar ga jadi maen malah jadi.....hmmmm....tau lah, wkwkwkwk
• berdoa. itu penting biar kita selamat sampe tujuan. lho???wakakaka
langsung aj ya !!! banyak basi basa, kebalik.
Sebelum mau menggunakan software yang diatas carilah cadangan software supaya jika ini tidak bisa dapat
menggunakan software cadangan misal MHS sudah terdeteksi carilah lagi software yang mirip Mhs cara kerjanya dan jika Hide tools sudah terdeteksi carilah software yang cara kerjanya mirip ngerti kan ??
Akhirnya kita langsung ke inti permasalahan yaitu cheat point blank langsung kita ke cara !!
Cheat Point blank darah tidak terbatas
• Pertama sembunyikan Mhs dengan Hide Tools lalu jalankan Mhs
• Lalu setalah Pb launcher selesai cepatlah Attach Point blank.exe sebelum Hack Shield aktif (Attach = Open Procees lalu pilih PointBlank.exe lalu OK ) Ini untuk Mhs
• Setelah itu buatlah Room dimana saja jadi sobat jadi Room Master
• Darah kita masih 120 atau 100 lalu scan lah di MHs dengan Cara CTRL + Shift + S
Setelah itu masukan angka 100 atau 120 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Pasti terdapat banyak sekali value 100 maka dari itu cobalah merubahnya angka 100 dengan cara boom diri sendiri tapi jangan sampai mati (intinya mengurangi darah )
• Jika darah sobat sekarang 40 lalu scan lah di MHs dengan Cara CTRL + Shift + D
Setelah itu masukan angka 40 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Maka akan ada satu value 40 lalu klik value tersebut danganti angkanya jadi 250 lalu klik kanan Lock selected
• Mainlah seperti biasa tapi lebih baik pertama tama sobat mati dulu 5 kali karena jika tidak mati mati akan membuat musuh tahu bahwa anda sekrang sedang Cheat Point Blank….
• Selesai dech Cara Cheat Pint blank darah tidak terbatas
Note : untuk orang yang tidak bisa main Pb tapi mau main wkwkwkw
Cheat Point blank Cash
• Pertama sembunyikan Mhs dengan Hide Tools lalu jalankan Mhs
• Lalu setalah Pb launcher selesai cepatlah Attach Point blank.exe sebelum Hack Shield aktif (Attach = Open Procees lalu pilih PointBlank.exe lalu OK ) Ini untuk Mhs
• Misal cash kita ada 1000 lalu scan lah di MHs dengan Cara CTRL + Shift + S
Setelah itu masukan angka 1000 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Pasti terdapat banyak sekali value 1000 maka dari itu cobalah merubahnya angka 100 dengan cara membeli barang yang murah
• Maka setelah member barang yang murah pastinya cash anda berkurang misal 600
Setelah CTRL +Shift + D lalu masukan angka 600 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Maka akan ada satu value 600 lalu klik value tersebut dan ganti angkanya jadi 9999 lalu klik kanan Lock selected
• Selesai dech Cara Cheat Point Blank Cash dengan Mhs
Note : untuk orang yang tidak punya duit untuk Beli cash seperti ian
Cheat Point blank Peluru tidak terbatas
• Pertama sembunyikan Mhs dengan Hide Tools lalu jalankan Mhs
• Lalu setalah Pb launcher selesai cepatlah Attach Point blank.exe sebelum Hack Shield aktif (Attach = Open Procees lalu pilih PointBlank.exe lalu OK ) Ini untuk Mhs
• Setelah itu buatlah Room dimana saja jadi sobat jadi Room Master
• Peluru kita masih 30 lalu scan lah di MHs dengan Cara CTRL + Shift + S
Setelah itu masukan angka 30 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Pasti terdapat banyak sekali value 100 maka dari itu cobalah merubahnya angka 100 dengan cara tembak tembak gak jelas (intinya berkurang)
• Jika peluru sobat sekarang 20 lalu scan lah di MHs dengan Cara CTRL + Shift + D
Setelah itu masukan angka 20 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Maka akan ada satu value 20 lalu klik value tersebut dan ganti angkanya jadi 250 lalu klik kanan Lock selected
• Mainlah seperti biasa
• Selesai dech Cara Cheat Pint blank Peluru tidak terbatas
Note : Cara ini sangat ampuh untuk main Destroy wkwkwk Ancur Ancur tuh Helikopter dengan peluru tidak terbatas wkwkwk
Kesimpulan dari Cheat Point Blank :
Caranya sama saja tidak terlalu berbeda tetapi yang jadi masalahahnya ialah software di detect oleh Hack shield maka dari itu carilah software yang belum terdetek oleh hack Shield.
Read More …
Yang dibutuhkan adalah
• MHS : untuk Cheat Point blank
• Hide Tools : menyembunyikan software yang sedang digunakan
Yang harus dipersiapkan :
• Rokok untuk perokok, kopi untuk yang suks minum kopi, bokep untuk bokep'ers. upz yang terakhir jangan dulu, ntar ga jadi maen malah jadi.....hmmmm....tau lah, wkwkwkwk
• berdoa. itu penting biar kita selamat sampe tujuan. lho???wakakaka
langsung aj ya !!! banyak basi basa, kebalik.
Sebelum mau menggunakan software yang diatas carilah cadangan software supaya jika ini tidak bisa dapat
menggunakan software cadangan misal MHS sudah terdeteksi carilah lagi software yang mirip Mhs cara kerjanya dan jika Hide tools sudah terdeteksi carilah software yang cara kerjanya mirip ngerti kan ??
Akhirnya kita langsung ke inti permasalahan yaitu cheat point blank langsung kita ke cara !!
Cheat Point blank darah tidak terbatas
• Pertama sembunyikan Mhs dengan Hide Tools lalu jalankan Mhs
• Lalu setalah Pb launcher selesai cepatlah Attach Point blank.exe sebelum Hack Shield aktif (Attach = Open Procees lalu pilih PointBlank.exe lalu OK ) Ini untuk Mhs
• Setelah itu buatlah Room dimana saja jadi sobat jadi Room Master
• Darah kita masih 120 atau 100 lalu scan lah di MHs dengan Cara CTRL + Shift + S
Setelah itu masukan angka 100 atau 120 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Pasti terdapat banyak sekali value 100 maka dari itu cobalah merubahnya angka 100 dengan cara boom diri sendiri tapi jangan sampai mati (intinya mengurangi darah )
• Jika darah sobat sekarang 40 lalu scan lah di MHs dengan Cara CTRL + Shift + D
Setelah itu masukan angka 40 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Maka akan ada satu value 40 lalu klik value tersebut danganti angkanya jadi 250 lalu klik kanan Lock selected
• Mainlah seperti biasa tapi lebih baik pertama tama sobat mati dulu 5 kali karena jika tidak mati mati akan membuat musuh tahu bahwa anda sekrang sedang Cheat Point Blank….
• Selesai dech Cara Cheat Pint blank darah tidak terbatas
Note : untuk orang yang tidak bisa main Pb tapi mau main wkwkwkw
Cheat Point blank Cash
• Pertama sembunyikan Mhs dengan Hide Tools lalu jalankan Mhs
• Lalu setalah Pb launcher selesai cepatlah Attach Point blank.exe sebelum Hack Shield aktif (Attach = Open Procees lalu pilih PointBlank.exe lalu OK ) Ini untuk Mhs
• Misal cash kita ada 1000 lalu scan lah di MHs dengan Cara CTRL + Shift + S
Setelah itu masukan angka 1000 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Pasti terdapat banyak sekali value 1000 maka dari itu cobalah merubahnya angka 100 dengan cara membeli barang yang murah
• Maka setelah member barang yang murah pastinya cash anda berkurang misal 600
Setelah CTRL +Shift + D lalu masukan angka 600 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Maka akan ada satu value 600 lalu klik value tersebut dan ganti angkanya jadi 9999 lalu klik kanan Lock selected
• Selesai dech Cara Cheat Point Blank Cash dengan Mhs
Note : untuk orang yang tidak punya duit untuk Beli cash seperti ian
Cheat Point blank Peluru tidak terbatas
• Pertama sembunyikan Mhs dengan Hide Tools lalu jalankan Mhs
• Lalu setalah Pb launcher selesai cepatlah Attach Point blank.exe sebelum Hack Shield aktif (Attach = Open Procees lalu pilih PointBlank.exe lalu OK ) Ini untuk Mhs
• Setelah itu buatlah Room dimana saja jadi sobat jadi Room Master
• Peluru kita masih 30 lalu scan lah di MHs dengan Cara CTRL + Shift + S
Setelah itu masukan angka 30 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Pasti terdapat banyak sekali value 100 maka dari itu cobalah merubahnya angka 100 dengan cara tembak tembak gak jelas (intinya berkurang)
• Jika peluru sobat sekarang 20 lalu scan lah di MHs dengan Cara CTRL + Shift + D
Setelah itu masukan angka 20 ke kotak Value to Find….
Date Type pilih yang Long
Evaluation Type pilih Exact Value lalu OK
• Maka akan ada satu value 20 lalu klik value tersebut dan ganti angkanya jadi 250 lalu klik kanan Lock selected
• Mainlah seperti biasa
• Selesai dech Cara Cheat Pint blank Peluru tidak terbatas
Note : Cara ini sangat ampuh untuk main Destroy wkwkwk Ancur Ancur tuh Helikopter dengan peluru tidak terbatas wkwkwk
Kesimpulan dari Cheat Point Blank :
Caranya sama saja tidak terlalu berbeda tetapi yang jadi masalahahnya ialah software di detect oleh Hack shield maka dari itu carilah software yang belum terdetek oleh hack Shield.
Bagi gw Cheat Engine itu adalah salah satu Hack Tools kesukaan yang paling gw sukai,Mengapa ? Karena hampir semua game dan software bisa di hack oleh software satu ini tetapi bukan hanya itu saja karena jika ingin belajar cheat engine harus mempunyai niat yang
kuat dan rasa ingin tahu yang tinggi pula.Langsung saja ian kasih tahu caranya !!
1. Pertama yang dibutuhkan adalah sebuah computer lengkap dengan perangkatnya
2. Uang untuk main di warnetnya, beuakakaka
3. Download lah Cheat Engine versi yang terbaru,Kalau yang sekarang yang versi 5.5
4. Setelah itu jalankan software tersebut lalu klik yang mirip gambar computer..Letaknya di bawah TAB file
5. Kalau sudah di klik pilih Client008.exe (kalau gak bisa di open dan kata cheat enginenya error sobat harus disabled Deep Freenze ) Klo gak tau Deep Freenze berarti jarang ke warnet ya ??? Itu lohh yang gambarnya beruang putih,,,, Tau kan ???
6. Setelah tahap kelima yang melelhakan selesai sobat pilih Scan Typenya yang UKNOWN INITIAL VALUE ( yang bereati kita tidak tahu valuenya )
7. Setelah itu First Scan dan tunggu beberapa saat, Klo dah matang angkat wkwkwkwkwk Bercanda
8. Lalu scan typenya ganti dengan Increased Value ( yang artinya mencari Value yang bertambah ) Value itu angka Menurut Ian )
9. Nahh pada saat ini pasti banyak Addres
10. Pada saat ini kita belum bisa menemukan Valuenya karena masih banyak sekali address, MAKA dari itu kita Scan lagi dengan yang Increased Value by (Isilah dengan angka satu ) Karena waktu di billing pasti nambahnya satu terus…. Ngerti gak ??? Contoh sekarang sobat dah main selama 10.20 lalu bertambah lagi 10.21 lalu bertambah lagi 10.22 dan seterusnya kan ??? MAKA dari itu angkanya harus di pilih satu
11. Kalau sudah tahap ini sobat sudah dapat mencarinya dengan mata tanpa perlu di scan lagi. Dengan cara mencari angka yang sama dengan waktu billing
12. Contoh : | 01.00 = 60 | 10.00 = 600 | 50.00 = 3000 | yang warna biru itu sama aja detik
13. Kalau dah ketemu yang mirip dengan angka di billing sobat…Lalu sobat…Lalu klik angkanya dan kurangi angkanya sedikit saja misal yang tadinya 2398 jadi 2388
14. Kalau sudah di tahap ini, jangan buka website bokep (sok suci,waka waka e e)
15. Uang yang dipersiapkan tadi jangan lupa untuk disisihkan ke yang tidak mampu, ya seperti saya ini. ga banyak koq cuma 50ribu. hahahaha
Ohh ya kalau anda seorang yang gemar gunain cheat engine pastinya tidak perlu tutorial ini karena sudah hafal kuncinya dan tinggal otak atik dikit hihihihihihi……Mau tau gak sekarang ian lagi mau Hack point blank supaya point ian banyak hahahahaha tapi ian harus penelitian dulu
Read More …
kuat dan rasa ingin tahu yang tinggi pula.Langsung saja ian kasih tahu caranya !!
1. Pertama yang dibutuhkan adalah sebuah computer lengkap dengan perangkatnya
2. Uang untuk main di warnetnya, beuakakaka
3. Download lah Cheat Engine versi yang terbaru,Kalau yang sekarang yang versi 5.5
4. Setelah itu jalankan software tersebut lalu klik yang mirip gambar computer..Letaknya di bawah TAB file
5. Kalau sudah di klik pilih Client008.exe (kalau gak bisa di open dan kata cheat enginenya error sobat harus disabled Deep Freenze ) Klo gak tau Deep Freenze berarti jarang ke warnet ya ??? Itu lohh yang gambarnya beruang putih,,,, Tau kan ???
6. Setelah tahap kelima yang melelhakan selesai sobat pilih Scan Typenya yang UKNOWN INITIAL VALUE ( yang bereati kita tidak tahu valuenya )
7. Setelah itu First Scan dan tunggu beberapa saat, Klo dah matang angkat wkwkwkwkwk Bercanda
8. Lalu scan typenya ganti dengan Increased Value ( yang artinya mencari Value yang bertambah ) Value itu angka Menurut Ian )
9. Nahh pada saat ini pasti banyak Addres
10. Pada saat ini kita belum bisa menemukan Valuenya karena masih banyak sekali address, MAKA dari itu kita Scan lagi dengan yang Increased Value by (Isilah dengan angka satu ) Karena waktu di billing pasti nambahnya satu terus…. Ngerti gak ??? Contoh sekarang sobat dah main selama 10.20 lalu bertambah lagi 10.21 lalu bertambah lagi 10.22 dan seterusnya kan ??? MAKA dari itu angkanya harus di pilih satu
11. Kalau sudah tahap ini sobat sudah dapat mencarinya dengan mata tanpa perlu di scan lagi. Dengan cara mencari angka yang sama dengan waktu billing
12. Contoh : | 01.00 = 60 | 10.00 = 600 | 50.00 = 3000 | yang warna biru itu sama aja detik
13. Kalau dah ketemu yang mirip dengan angka di billing sobat…Lalu sobat…Lalu klik angkanya dan kurangi angkanya sedikit saja misal yang tadinya 2398 jadi 2388
14. Kalau sudah di tahap ini, jangan buka website bokep (sok suci,waka waka e e)
15. Uang yang dipersiapkan tadi jangan lupa untuk disisihkan ke yang tidak mampu, ya seperti saya ini. ga banyak koq cuma 50ribu. hahahaha
Ohh ya kalau anda seorang yang gemar gunain cheat engine pastinya tidak perlu tutorial ini karena sudah hafal kuncinya dan tinggal otak atik dikit hihihihihihi……Mau tau gak sekarang ian lagi mau Hack point blank supaya point ian banyak hahahahaha tapi ian harus penelitian dulu
Melanjutkan artikel kemarin, sebelum kita lanjutkan pembuatan aplikasi ini, ada baiknya kita berkenalan sedikit dengan LINQ.
Apa itu LINQ?
LINQ (Language Integrated Query), merupakan suatu bahasa yang digunakan untuk melakukan query terhadap suatu sumber data (-sederhananya-). LINQ terdiri dari beberapa pernyataan (statement) yang bisa diterapkan ke dalam program kita untuk memilih item dari beberapa koleksi (collection) berdasarkan kriteria yang berbeda.
Contoh struktur LINQ dan aturannya dalam aplikasi. Coba kita lihat daftar array di bawah ini:
- Dim data() As Int16 = {3, 2, 5, 4, 6, 4, 12, 43, 45, 42, 65}
Untuk menentukan elemen dari array tersebut, kita akan menggunakan looping For..Next, mengeksekusi tiap elemen array, dan nantinya bisa menyimpannya ke dalam array baru atau menghapusnya. Untuk memilih elemen dengan nilai yang lebih kecil dari 10, kita gunakan kode di bawah ini:
- Dim nilaiKecil(data.Length-1) As Integer
- Dim itm As Integer = 0
- For i As Integer = 0 To data.Length
- If data(i) < 10 Then
- nilaiKecil(itm) = data(i)
- itm += 1
- End If
- Next
- ReDim nilaiKecil(itm)
Akan lebih mudah menyimpan elemen-elemen yang telah terpilih ke dalam suatu ArrayList menggunakan looping seperti di bawah ini:
- Dim nilaiKecil As New ArrayList
- Dim itm As Integer
- For Each itm In data
- If itm < 10 Then
- nilaiKecil.Add(itm)
- End If
- Next
Bila kita menggunakan LINQ,
- Dim nilaiKecil = From n In data _
- Where n < 10 _
- Select n
Penggunaan bahasa dalam LINQ hampir sama dengan bahasa yang digunakan dalam SQL. Jika kita telah terbiasa dengan bahasa yang digunakan dalam SQL, kita akan menemukan beberapa kemiripan.
Contoh pernyataan SQL:
SELECT *
FROM data
WHERE data.n < 10
(Contoh di atas mengasumsikan dalam database kita terdapat tabel data yang memiliki kolom bernama n). Bila menggunakan LINQ, kode kita menjadi:
Dim = From n In data
Where n < 10
Ok, cukup teorinya... kita langsung saja ke praktek pembuatan program ;)
Pada tutorial kemarin kita telah membuat database barang dan kategori menggunakan SQL Express 2005, nah sekarang kita akan membuat tiap-tiap form untuk form barang dan untuk form kategori. Ikuti langkah-langkah berikut:
1. Menambah Form Barang
Tambahkan satu form dan beri nama frmBarang, dengan cara memilih menu Project > Add Windows Form atau dengan mengklik kanan nama proyek kita di solution explorer dan memilih Add > Windows Form. Akan muncul window Add New Item, masukkan nama frmBarang dan klik add.
Akan muncul form baru dengan nama frmBarang. Atur besar form sesuai keinginan.
2. Property Form Barang
(Skip jika ingin melewati bagian ini.)
Buka jendela property dari form barang (frmBarang) atau dengan cara menekan tombol F4. Atur property frmBarang sebagai berikut:
Text : Data barang
FormBorderStyle : FixedToolWindow
Ini hanya sekedar contoh dari property suatu form yang sering saya buat, silahkan di ubah sesuai keinginan.
3. Menambah DataGridView
Tampilkan jendela Toolbox (default: bagian kiri) dengan memilih menu View > Toolbox atau dengan menekan kombinasi tombol CTRL+ALT+X.
Geser control DataGridView ke dalam frmBarang:
Nama DataGridView1 akan secara otomatis diberikan untuk control DataGridView tadi.
4. Menampilkan data ke dalam DataGridView
Sekarang kita akan mencoba menampilkan data ke dalam control DataGridView1, data yang akan ditampilkan diambil dari tabel 'barang' dan tabel 'kategori.
Double klik tampilan frmBarang, maka kita akan masuk ke dalam tampilan Code View.
Ketikkan perintah berikut di bagian Private Sub frmBarang_Load
- Dim db As New DataClasses1DataContext
- Dim qBarang = From barang In db.barangs _
- Join kategori In db.kategoris _
- On kategori.KDKategori Equals barang.KDKategori _
- Select barang
- Me.DataGridView1.DataSource = qBarang
Pada kode di atas (Hampir sama dengan pernyataan SQL) kita memulai dengan mendeklarasikan db sebagai object dari Class DataClasses1DataContext, kemudian membuat suatu variable baru dengan nama qBarang dan menuliskan query LINQ yang berfungsi untuk mengambil data dari 2 tabel (barang dan kategori, yang memiliki relasi pada kolom KDKategori) dari database. Hasil dari query LINQ tersebut akan ditampilkan dalam control DataGridView1 dengan menggunakan object DataSource dari property DataGridView1.
Kode lengkapnya seperti ini:
- Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim db As New DataClasses1DataContext
- Dim qBarang = From barang In db.barangs _
- Join kategori In db.kategoris _
- On kategori.KDKategori Equals barang.KDKategori _
- Select barang
- Me.DataGridView1.DataSource = qBarang
- End Sub
Sebelum kita mencoba menjalankan program ini, pastikan frmBarang merupakan Startup Form dengan cara memilih menu Project > CTHAplikasi1 Properties. Pada tab Application bagian Startup form, pilih frmBarang sebagai form yang akan di load saat pertama kali aplikasi dijalankan. Jalankan aplikasi dengan menekan tombol F5.
Tampilan form setelah dijalankan (masih kosong karena belum ada data yang dimasukkan.. ) :
5. Menambah kontrol tombol, teks dan label.
Aplikasi kita sudah bisa dijalankan, tetapi kita masih perlu menambahkan tombol dan teks serta label ke dalam frmBarang agar memudahkan dalam interaksi dari user terhadap aplikasi.
Kembali ke Designer View (Klik kanan di area kosong di bagian kode dan pilih View Designer atau dengan menekan kombinasi tombol Shift+F7) dan tambahkan 1 label, dengan cara menggeser control Label dari Toolbox ke dalam frmBarang. Pada bagian property untuk Label1, untuk text masukkan 'Kode Barang:' dan untuk name masukkan 'lblKode'.
Tambahkan Control TextBox ke dalam frmBarang, dengan property, name: txtKodeBarang dan pada bagian text dikosongkan.
Lakukan hal yang sama untuk 4 Label, 1 ComboBox dan 3 TextBox selanjutnya dengan property sebagai berikut:
Control ComboBox: name = cmbKategori
Control TextBox: name = txtNamaBarang, text = dikosongkan
Control TextBox: name = txtJumlah, text = '0'
Control TextBox: name = txtHargaJual, text = '0'
Control Label: name = lblKategori, text = 'Kategori'
Control Label: name = lblNamaBarang, text = Nama Barang'
Control Label: name = lblJumlah, text = 'Jumlah'
Control Label: name = lblHargaJual, text = 'Harga Jual'
Sehingga hasilnya menjadi :
Setelah penambahan TextBox, Label serta ComboBox di atas selesai, kita lanjutkan dengan menambahkan Tombol-tombol (Button).
Klik dan geser 5 buah Control Button dari Toolbox ke dalam frmBarang dengan nilai property masing-masing:
Tombol 1: name = cmdEdit, Text = 'Edit'
Tombol 2: name = cmdBaru, Text = 'Baru'
Tombol 3: name = cmdSimpan, Text = 'Simpan'
Tombol 4: name = cmdHapus, Text = 'Hapus'
Tombol 5: name = cmdKeluar, Text = 'Keluar'
Sehingga tampilan akhir dari frmBarang akan menjadi :
6. Bersambung....
Yups, sekian dulu untuk tutorial bagian ke-2 ini. Nantinya kita akan mencoba menuliskan kode ke dalam frmBarang untuk mengeksekusi perintah saat ke lima tombol di atas diklik.
Tambahan (Upgrade dari VB 2005 ke VB 2008)
Mungkin masih banyak yang belum mengetahui bagaimana mengaktifkan LINQ dalam suatu project yang telah di upgrade dari VB 2005 ke VB 2008. (LINQ cuman ada di VB 2008).
Sekedar tambahan bagi yang menggunakan VB 2005 yang ingin bermigrasi ke VB 2008 dan ingin bereksperimen dengan LINQ:
Konversi project ke VB 2008, setelah proses konversi berakhir,
Buka Project Property
Masuk ke tab Compile
Pada Option Infer, pilih On.
Masuk ke tab Reference
Tambahkan reference System.Linq
Tutup dan buka kembali project-nya..
