Membuat ListView pada Visual Studio 2008

Membuat ListView pada Visual Studio 2008

Alhamdulillah bisa posting lagi setelah lama “vakum” dan belajar dari kesalahan serta kekurangan yang terjadi kemarin saya akan mencoba memberikan cara untuk menampilkan data entry pada ListView, mari kita ikuti langkah-langkah dibawah ini :

Pertama-tama buatlah Form terlebih dahulu dan saya beri nama Form tersebut Input Data Mahasiswa yang mana data yang telah kita input akan muncul di List View dan sebagai langkah awal mari kita buat terlebih dahulu Form seperti dibawah ini :

Setelah Form terbentuk seperti diatas lalu mari kita buat Code pertama yaitu dengan Double click Form di atas lalu kemudian ubah Method menjadi Declaration dan kemudian masukkan jumlah Array yang di inginkan seperti Code dibawah ini :

Public Class Form1

'Membuat Variabel Array

Dim listtxt(5) As String
Dim listitem As ListViewItem

Setelah selesai membuat Code diatas mari kita lanjutkan dengan membuat Code kedua untuk Button “Simpan” dengan Method Click seperti dibawah ini :

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

'Masukkan Nilai ke Variabel Array

listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

listtxt(3) = Trim(TextBox4.Text)

listtxt(4) = Trim(TextBox5.Text)

'Untuk Memasukkan ke List View dari Variabel

listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)

End Sub

'Setting Kolom List View

Sub setlistview()

ListView1.View = View.Details


'Untuk Menentukan Kolom

ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 200, HorizontalAlignment.Left)

ListView1.Columns.Add("No. Telp.", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("Email", 100, HorizontalAlignment.Left)

End Sub

Setelah selesai memasukkan Code diatas mari kita lanjutkan ke langkah berikutnya yaitu dengan memasukkan Code untuk mengambil data List View akan tetapi jangan lupa untuk terlebih dulu mengubah Method dengan ItemSelectionChange seperti dibawah ini :

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System. Windows.Forms.ListViewItemSelectionChangedEventArgs)Handles ListView1.ItemSelection Changed

'Mengambil nilai dari Listview

TextBox4.Text = e.Item.Text

End Sub

Setelah kita masukkan Code seperti diatas mari kita lanjutkan ke langkah terakhir yaitu dengan memasukkan Code untuk memanggil data yang sudah di input di TextBox seperti dibawah ini :

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

Call setlistview()

End Sub

Setelah kita masukkan Code yang tercantum diatas, marilah kita Running program untuk melihat hasilnya yang mana tampilannya akan seperti dibawah ini :

Lalu selanjutnya mari kita masukkan data mahasiswa dan setelah itu tekan tombol Simpan yang mana tampilannya akan seperti dibawah ini :

Bahkan kita bisa menginput lebih dari satu data mahasiswa seperti dibawah ini :

Selamat Mencoba dan semoga sukses dan juga jangan lupa kasih commentnya ya, Mathur Thank U.

Selengkapnya...

Project VB Akademik

Assalamu’alaikum.. wr.. wb,

Alhamdulillah kali ini dalam Project VB sudah setahap lebih mantap meskipun masih dalam format yang sederhana dan semoga bermanfaat.

1.Sebagai Langkah awal mari kita buat sebuah Form Design dengan nama “Form Biodata” seperti dibawah ini :

2.Setelah Form Design selesai mari kita buatkan Source Code seperti dibawah ini :

Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call isi_combo()

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        ComboBox1.Text = " 06 Tekhnik Informatika "

    End Sub

    Sub isi_combo()

        ComboBox1.Items.Add(" 06 Tekhnik Informatika ")

        ComboBox1.Items.Add(" 07 Sistem Informasi ")

        ComboBox1.Items.Add(" 05 Komputer Akuntansi ")

        ComboBox1.Items.Add(" 67 Tekhnik Komputer ")

        ComboBox1.Items.Add(" 26 Management Informatika ")

    End Sub

3. Lalu setelah itu mari kita Running program dengan click F5 dan inilah hasilnya :

4. Langkah berikutnya ialah mengubah Button1 dan Button4 dengan mengetikkan Source Code seperti dibawah ini :

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

        If Button4.Text = "KELUAR" Then

            Me.Close()

        Else

            Call normal()

            Call bersih()

        End If

    End Sub

    Sub normal()

        Button1.Text = "TAMBAH"

        Button1.Enabled = True

        Button2.Text = "UBAH"

        Button2.Enabled = True

        Button3.Text = "HAPUS"

        Button3.Enabled = True

        Button4.Text = "KELUAR"

    End Sub

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

        If Button1.Text = "TAMBAH" Then

            Button1.Text = "SIMPAN"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "BATAL"

            TextBox1.Focus()

        Else

        End If

    End Sub

End Class

5. Lalu mari kita lihat hasilnya >>

To Be Continued alias Bersambung >>>

Selengkapnya...

Belajar Module dalam VB

Assalamu’alaikum.. wr.. wb,

Syukur Alhamdulillah ada satu project belajar dari VB.Net yang bisa diselesaikan, semoga bermanfaat.

Pada Project VB kali ini saya akan membuat suatu fungsi dengan sebuah Modul dan sebagai langkah awal buatlah form seperti gambar di bawah ini : 

Setelah selesai membuat  Form diatas, lalu kemudian pada Button 1 masukkan Source Code seperti di bawah ini :

Public Class agil_one

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

        h = TextBox1.Text

        b = TextBox2.Text

        Call hitung_angka()

        TextBox3.Text = hasil

    End Sub

dan pada Button2 masukkan Source Code seperti dibawah ini:

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

        Call tampilkan_nama()

        TextBox4.Text = nama

    End Sub

Setelah selesai memasukkan Source Code diatas, langkah selanjutnya  ialah kita membuat Modul yang di dalamnya terdapat Variabel Public yang bisa digunakan untuk semua Form  berikut langkah -  langkahnya : Klik Kanan  pada Project kemudian Add pilih Module kemudian Pilih Add kembali.

 

 

Setelah selesai Memasukkan Modul kemudian masukkan Source Code pada Modul yang sudah di buat yang nantinya akan di panggil di Menu Utama. Untuk proses hitung yang digunakan adalah Proses perkalian seperti dibawah ini :

Module Module1

    'variabel public

    Public nama As String, hasil, h, b As Integer

    Sub tampilkan_nama()

        nama = "Nanang Maulana"

    End Sub

    Sub hitung_angka()

        hasil = Val(h) * Val(b)

    End Sub

End Module

Setelah selesai semua Source Codenya di masukan  berikut inilah hasil outputnya :

Jika ada yang ingin comment... sok atuh !
Mathur Thank U ^^

Selengkapnya...

Pekerjaan Rumah VB

Assalamua'alaikum.. wr.. wb,
Alhamdulillah setelah dikutak katik akhirnya muncul juga >>
* yang pertama :

Source codenya begini nih :

* yang kedua :

Nah klo yang ini begini nih Source codenya :

klo da yang mo comment sok atuh >>> Selengkapnya...

Latihan VB

Alhamdulillah akhirnya berhasil juga coba Running VB dirumah, begini nih hasilnya See Up :

 

Source Code :

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            ComboBox1.Items.Add(TextBox1.Text)

        End If

    End Sub

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 5 To Val(TextBox2.Text)

            If i Mod 2 = 0 Then

                ListBox1.Items.Add(i * -1)

            Else

                ListBox1.Items.Add(i)

            End If

        Next

    End Sub

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

        Dim j, u, y As Integer

        u = 10

        y = 12

        For j = 10 To Val(TextBox2.Text)

            If j Mod u = 0 Then

                ListBox1.Items.Add(j)

                u = j

            Else

                If j Mod y = 0 Then

                    ListBox1.Items.Add(j * -1)

                    y = j

                End If

            End If

        Next

    End Sub

End Class

Selengkapnya...

How to using Event, Object & Properties

EVENT

Event adalah sebuah pengaturan aksi yang ada pada sebuah objek misalnya saat mengklik sebuah mouse atau menekan tombol keyboard anda dapat menuliskan kode untuk merespon event yang ada.

Cara menuliskan event :

1.    Dari window desain form,klik objek yang akan di atur eventnya.

2.    Klik menu view dan pilih pilihan code ,sehingga window code editor muncul di layar.

3.    Pilih nama event yang di inginkan anda tuliskan prosedurnya.

4.  Ketik kode event di antara pernyataan private…..dan end sub

Selengkapnya...

Asal Muasal atawa SEJARAH VB.NET

"Tak Kenal Maka Tak Sayang" Begitu Pepatah Lama Mengatakan. Maka sebelum lebih jauh lagi saya membahas serta membagikan tips /trik mengenai VB.NET, saya akan menjelaskan sekilas mengenai sejarah dari VB.NET ini.

VB.NET.. mungkin beberapa dari pembaca sekalian ada yang bertanya-tanya mengenai apa itu VB.NET atau mungkin dari pembaca sudah akrab sekali dengan istilah ini. Bagi yang belum tahu, VB.NET bukanlah sebuah binatang.. (hehe) ataupun bukan sebuah makanan atau tempat. VB.NET merupakan salah satu bahasa programming yang dibuat dari microsoft.. (eitt yang uda mulai bosan jangan kabur dulu... hehe.. karena pasti ini akan menarik). lanjut lagi ke topik. Oh iya, saya sebelumnya saya juga ingin menjelaskan kenapa saya menjelaskan mengenai VB.NET, karena sebelum kita melangkah lebih jauh ada baiknya kita saling mengenal dulu dengan VB.NET karena Ada pepatah yang bilang "tak kenal maka tak sayang!", hehe maka menurut saya ada baiknya kita mengenal vb.net ini.

VB.NET merupakan perkembangan bahasa programming dari bahasa Visual Basic, untuk lebih jelasnya mari kita lihat bersama-sama dibawah ini!


Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.



Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :


Perjalanan dari Visual Basic (VB1 to VB 10)

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System


4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :
1. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y
13. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
- True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF
- LINQ Support
- Ekspresi Lambda
- XML Literals
- Nullable types
- Type Inference
15. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1
Selengkapnya...