Mengisi Data Dengan Menggunakan Listview

Rangkuman 6

Kita akan membuat data mahasiswa dengan menggunakan ListView, berikut langsung 
kita membuatnya...
Seperti biasa kita buat disainnya dulu :

 kita buat disainnya dulu :

Kemudian isi perintahnya :

Public Class Form1

    Dim isitext(4) As String

    Dim item As ListViewItem

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

        Call bersih()

        Call isikombo()

        Call tampilan()

    End Sub

   

    Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = " 06 Teknik Informatika "

    End Sub

    Sub isikombo()

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

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

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

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

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

    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

            isitext(0) = Trim(TextBox1.Text)

            isitext(1) = Trim(TextBox2.Text)

            isitext(2) = Trim(TextBox3.Text)

            isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2)

            item = New ListViewItem(isitext)

            ListView1.Items.Add(item)

            Call bersih()

            TextBox1.Focus()

        End If

    End Sub

    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 bersih()

            Call normal()

        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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Text = "ubah" Then

            Button2.Text = "simpan"

            Button1.Enabled = False

            Button3.Enabled = False

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

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

        If Button3.Text = "hapus" Then

            Button3.Text = "simpan"

            Button1.Enabled = False

            Button2.Enabled = False

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

    Sub tampilan()

        ListView1.View = View.Details

        ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

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

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

        ListView1.Columns.Add("JURUSAN", 100, HorizontalAlignment.Center)

    End Sub

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

        TextBox1.Text = e.Item.Text

    End Sub

End Class

Perkalian Dan Menampilkan Bilangan Ganjil&Genap Menggunakan Module

Rangkuman 5

Pertama kita buat perkalian dan berikut disannya :

Setelah itu isi perintahnya :

Setelah itu i

Public Class Form1

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

        Call tampilnama()

        TextBox1.Text = nama

    End Sub

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

        h = TextBox2.Text

        b = TextBox3.Text

        Call hitung()

        TextBox4.Text = hasil

    End Sub

End Class

Jangan lupa tambahkan module,berikut isinya :

 

Modulely

    'variablepublic

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

    Sub tampilnama()

        nama = "lya"

    End Sub

    Sub hitung()

        hasil = Val(h)* Val(b)

    End Sub

   

Dan berikutnya Bilangan Ganjil dan Genap

Kita buat dulu desainnya :

Kita

Dan isi perintahnya :

Public Class Form1

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

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        c = TextBox1.Text

        Call pilih(ListBox1, ListBox2)

    End Sub

End Class

Tambahkan juga modulenya :

Module lia

    Public nama As String, hasil, c, ganjil, genap As Integer

    Sub pilih(ByVal lb1 As ListBox, ByVal lb2 As ListBox)

        For i = 1 To Val(c)

            If i Mod 2 = 0 Then

                lb2.Items.Add(i)

            ElseIf i Mod 2 = 1 Then

                lb1.Items.Add(i)

            End If

        Next

    End Sub

End Module

Pengulangan Atau Looping

Rangkuman 4

Membuat Bilangan dengan 3 jenis,
Langsung saja kita buat disainnya :

Membuat Bilangan dengan 3 jenis,

Langsung saja kita buat disainnya :

Kemudian kita isi perintah dalam program :

Kemudian kita isi perintah dalam program :kita isi perintah dalam program :

Public Class Form1

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

        Dim i As Integer

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        ListBox3.Items.Clear()

        For i = 2 To Val(TextBox1.Text)

            ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)

        Next

        For i = 1 To Val(TextBox1.Text)

            If i Mod 4 Then

                ListBox2.Items.Add(i)

            End If

        Next

        For i = 1 To Val(TextBox1.Text)

            If i Mod 3 = 2 Then

                ListBox3.Items.Add(i)

            End If

        Next

    End Sub

End Class

Perbedaan Dalam Pengunaan Objek

Rangkuman 3

Object yang saya bandingkan yaitu ListBox dan ComboBox,jangan lupa buat 
disainnya seperti ini :

Dan berikut contoh programnya :

Dan berikut

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

Dari program tersebut maka kita dapat melihat perbedaannya,ComboBox hanya 

dapat atau hanya untuk menampilkan satu persatu kata yang telah di input 

sebelumnya . namun ListBox dapat menampilkan semua kata yang di input 
sebelumnya.

Untuk Pengulangan Looping ,berikut programnya :

Untuk Pengula

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

        Dim i As Integer

        ListBox1.Items.Clear()

        For i = 1 To Val(TextBox2.Text)

            ListBox1.Items.Add(i)

        Next

    End Sub

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

        Dim j, u As Integer

        u = 5

        For j = 0 To Val(TextBox2.Text)

        Next

        If j Mod u = 0 Then

            ListBox1.Items.Add(j)

            u = j

        End If

    End Sub

End Class

Memanggil Dan Membersihkan Method

Rangkuman “Part 2”

Method memanggil dan Method membersihkan

 

Penjelasan isi program :

e.keychar = chr (13) =====> angka 13 merupakan kode ascii untuk enter
|___>terdapat pada tulisan Sub Text7_keypress
jadi, itu adalah sebuah ketentuan
TextBox3.Focus()====> maksudnya adalah ketika semua kata telah masuk di 
Pertama kita buat disainnya :

___>terdapat pada tulisan

jadi, itu

Berikutnya kita isi printahnya:

Public Class lat1

    Dim jurusan As String

    Dim kelas, jenjang As String, waktu As Integer

    Dim d As Integer = 5

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

        Call perintah()

    End Sub

    Sub perintah()

        Dim lo As String

        If TextBox1.Text = "TI" Then

            lo = "60"

            TextBox2.Text = "Teknik Informatika"

        Else

            If TextBox1.Text = "SI" Then

                TextBox2.Text = "Sistem Informasi"

            End If

        End If

    End Sub

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

        Call perintah()

    End Sub

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

        pros3()

    End Sub

    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 bersihpros3()

            TextBox3.Focus()

        End If

    End Sub

    Sub bersihpros3()

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class