Menggunakan DataGridView pada Visual Basic 2008

Menggunakan DataGridView pada Visual Basic 2008 - DataGridView adalah sebuah control di VB.Net yang digunakan untuk menampilkan data dalam bentuk grid. Control ini dirancang untuk menjadi solusi untuk menampilkan data tabular dengan Windows Form.

Menambahkan Kolom

1. Melauli GUI

- Pastikan control DataGridView sudah diletakan pada Form

- Aktifkan DataGridView1 kemudian pada bagian Properties pilih Coloumns, kemudian akan muncul jendela Edit Columns.

 

- Klik tombol Add.. untuk membuat kolom baru, dan akan muncul jendela Add Column

- Selanjutnya ganti Name sesuai dengan kolom yang akan dibuat, misal Kode_Barang, dan Header text isi dengan teks kolom yang akan dibuat, misal Kode Barang.

- Kemudian klik Add, lakukan cara yang sama jika kolom lebih dari satu. Jika telah selesai klik tombol Cancel.

- Klik tombol OK untuk menyelesaikan nya.

 

2. Melalui Kode Program

- Berikut kode program untuk menambah kolom pada DataGridView

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

        With DataGridView1

            .Columns.Add("Kode_Barang", "Kode Barang")

            .Columns.Add("Nama_Barang", "Nama Barang")

        End With

End Sub 

- Menambah baris atau data

Berikut kode program untuk menambah baris atau data pada DataGridView

Private Sub BtnTambahData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambahData.Click

        With DataGridView1

            .Rows.Insert(.NewRowIndex, "AP098DG", "Jas Pria")

            .Rows.Insert(.NewRowIndex, "AP076DF", "Blazer Wanita")

        End With

End Sub

- Menghapus baris atau data yang dipilih

Berikut kode program untuk menghapus baris atau data yang dipilih

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        If DataGridView1.CurrentRow.Index <> DataGridView1.NewRowIndex Then

            DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)

        End If

End Sub

- Menghapus semua baris atau data

Berikut kode program untuk menghapus keseluruhan baris atau data pada DataGridView

Private Sub BtnHpsSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHpsSemua.Click

        DataGridView1.Rows.Clear()

End Sub

Read More

Aplikasi Perulangan While - End While dengan Visual Basic 2008

Aplikasi Perulangan While - End While dengan Visual Basic 2008 - Pada tutorial ini, saya akan membuat contoh perulangan While - End While. Pada contoh ini hasil dari perulangan akan ditampilkan pada ListBox. Berikut langkah - langkah aplikasi perulangan dengan While - End While:

 

1 Buat lah project baru Windows Form Application

2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan While – End While
2	ListBox1	Name	LboxHasil
3	Button1	Name Text	BtnProses Proses

3. Desain project sesuai dengan gambar berikut :

 

4. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim i As Integer

        i = 1

        LboxHasil.Items.Clear()

        While i <= 10

            LboxHasil.Items.Add(i)

            i += 1

        End While

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program :

Read More

Aplikasi Perulangan Do Until – Loop dengan Visual Basic 2008

Aplikasi Perulangan Do Until – Loop dengan Visual Basic 2008 - Pada tutorial ini saya akan memberikan contoh perulangan Do Until - Loop, hasil perulangan akan di tampilkan pada ListBox. Berikut langkah - langkah membuat aplikasi perulangan dengan Do Until - Loop:

1. Buat lah project baru Windows Form Application
2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan Do Until – Loop
2	ListBox1	Name	LboxHasil
3	Button1	Name Text	BtnProses Proses

3. Desain project sesuai dengan gambar berikut :

4. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim i As Integer

        i = 1

        LboxHasil.Items.Clear()

        Do Until i > 10

            LboxHasil.Items.Add(i)

            i += 1

        Loop

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program :

 

Read More

Aplikasi Perulangan Do While – Loop dengan Visual Basic 2008

Aplikasi Perulangan Do While – Loop dengan Visual Basic 2008 - Pada tutorial ini saya akan memberikan contoh perulangan Do While - Loop, hasil perulangan akan di tampilkan pada ListBox. Berikut langkah - langkah membuat aplikasi perulangan dengan Do While - Loop:

1. Buat lah project baru Windows Form Application

2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan Do While – Loop
2	ListBox1	Name	LboxHasil
3	Button1	Name Text	BtnProses Proses

 3. Desain project sesuai dengan gambar berikut :

4. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim i As Integer

        i = 1

        LboxHasil.Items.Clear()

        Do While i <= 10

            LboxHasil.Items.Add(i)

            i += 1

        Loop

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program :

Read More

Aplikasi Perulangan For – Next dengan Visual Basic 2008

Aplikasi Perulangan For – Next dengan Visual Basic 2008 - Pada tutorial ini saya akan memberikan contoh perulangan For - Next, hasil perulangan akan di tampilkan pada ListBox. Berikut langkah - langkah membuat aplikasi perulangan dengan For - Next : 
1. Buat lah project baru Windows Form Application

2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan For – Next
2	ListBox1	Name	LboxHasil
3	Button	Name Text	BtnProses Proses

3. Desain project sesuai dengan gambar berikut :  

4. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim i As Integer

        LboxHasil.Items.Clear()

        For i = 1 To 10

            LboxHasil.Items.Add(i)

        Next

End Sub

 

5. Jalankan program dengan menekan tombol pada keyboard F5 

6. Hasil program :   

Read More

Struktur Perulangan pada Visual Basic

1. Struktur For – Next

Struktur For-Next digunakan untuk mengulang blok perintah dalam jumlah yang sudah ditentukan. Pada struktur ini tidak perlu menuliskan kondisi yang akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung ini akan secara otomatis bertambah atau berkurang setiap kali suatu pengulangan dikerjakan. Bentuk penulisan dari struktur For-Next sebagai berikut:

For var = awal to akhir step pertambahan .......... ekspresi ......... Next

Keterangan :
 var
Nama variabel integer yang digunakan untuk melakukan proses pengulangan.

 awal
Nilai suatu variabel integer untuk menentukan harga awal suatu perulangan

 akhir
Nilai suatu variabel integer untuk menentukan harga akhir suatu perulangan

pertambahan

Besarnya nilai perubahan dari awal sampai nilai akhir. Jika pengulangannya menurun yaitu dari nilai yang besar menuju nilai yang kecil, maka nilai pertambahannya harus negatif.

ekspresi

Suatu blok perintah yang akan dikerjakan jika kondisi dari proses pengulangan memenuhi syarat.

2. Struktur Do While – Loop

Struktur Do While – Loop digunakan untuk melakukan perulangan terus menerus selama kondisi memenuhi syarat (bernilai true). Pengulangan ini akan berhenti jika kondisinya tidak memenuhi syarat (bernilai false).

Bentuk penulisan dari struktur Do While – Loop sebagai berikut :

Do while (kondisi) ...... ekspresi ..... Loop

3. Struktur Do Until – Loop

Struktur Do Until – Loop digunakan untuk melakukan pengulangan terus menerus selama kondisi tidak memenuhi syarat (bernilai false). Pengulanagan ini akan berhenti jika kondisinya memenuhi syarat (bernilai true). Bentuk penulisan dari struktur Do Until – Loop sebagai berikut :

Do Until (kondisi) ..... ekspresi ..... Loop

4. Struktur While – End While

Struktur While – End While digunakan untuk melakukan pengulangan terus menerus selama kondisi memenuhi syarat (bernilai true). Pengulangan ini akan berhenti jika kondisinya tidak memenuhi syarat (bernilai false). Bentuk penulisan dari struktur While – End While sebagai berikut :

While (kondisi) ..... ekspresi .... End While

Read More

Aplikasi Penjumlahan dengan Visual Basic 2008

Aplikasi Penjumlahan dengan Visual Basic 2008 - Pada tutorial ini saya akan membuat aplikasi penjumlahan 2 bilangan. Berikut langkah - langkah membuat aplikasi penjumlahan 2 bilangan :
1. Buatlah project

2. Desain project sesuai dengan gambar berikut :

3. Masukkan control – control berikut

No	Object	Property	Nilai
1	Form1	Text	Aplikasi Penjumlahan
2	Label1	Text	Bil 1 :
3	Label2	Text	Bil 2 :
4	Label3	Text	Hasil :
5	TextBox1	Name Text	TxtBil1 -
6	TextBox2	Name Text	TxtBil2 -
7	TextBox3	Name Enable Text	TxtHasil False -

4. Masukkan kode program berikut untuk Button Tambah 

Private Sub BtnTambah_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnTambah.Click

        Dim bil1 As Integer = TxtBil1.Text

        Dim bil2 As Integer = TxtBil2.Text

        Dim hasil As Integer

        hasil = bil1 + bil2

        TxtHasil.Text = hasil

End Sub

5. Jalankan program, masukkan bilangan 1 dan bilangan 2 kemudian klik tombol Tambah, hasil nya akan muncul pada TextBox hasil.

Read More