Latihan 1 menggunakan Satu Dimensi
Berikut Source Codenya :
Public Class latihan1
'nadiahtami 2017230007'
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim makanan(3) As String
makanan(0) = "Nasi Goreng"
makanan(1) = "Ayam Goreng"
makanan(2) = "Nasi Rames"
makanan(3) = "Gado-Gado"
For Each element As String In makanan
ComboBox1.Items.Add(element)
Next
ComboBox1.Text = "Menu Makanan"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
End Sub
End Class
Latihan 2 menggunakan Satu Dimensi
Berikut Source Codenya :
Public Class latihan2
'nadiahtami 2017230007'
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nama(0) As String
nama(0) = TextBox1.Text
Dim list As New ListViewItem
list = ListView1.Items.Add(nama(0))
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub latihan2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.Columns.Add("Nama", 155)
End Sub
End Class
Latihan 3 menggunakan Satu Dimensi
Berikut Source Codenya :
Public Class latihan3
'nadiahtami 2017230007'
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
End Sub
Private Sub latihan3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'MENAMPILKAN GRID/GARIS TABEL UNTUK LISTVIEW'
ListView1.GridLines = True
ListView1.View = View.Details
'MENAMBAHKAN HEADER UNTUK KOLOM LISTVIEW'
ListView1.Columns.Add("NIM")
ListView1.Columns.Add("Nama")
ListView1.Columns.Add("Alamat")
TextBox1.Text = 1
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arr(3) As String
arr(1) = TextBox1.Text
arr(2) = TextBox2.Text
arr(3) = TextBox3.Text
'MEMBUAT LISTVIEW ITEM'
Dim list_view As ListViewItem
list_view = ListView1.Items.Add(arr(1))
list_view.SubItems.Add(arr(2))
list_view.SubItems.Add(arr(3))
TextBox1.Text = TextBox1.Text + 1
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
End Class
Kasus 1 menggunakan Satu Dimensi
Berikut Source Codenya :
Public Class kasus1
'nadiahtami 2017230007'
Private Sub kasus1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'JENIS KELAMIN'
Dim jk(1) As String
jk(0) = "Laki-Laki"
jk(1) = "Perempuan"
For Each element As String In jk
ComboBox1.Items.Add(element)
Next
ComboBox1.Text = "Jenis Kelamin"
'PRODI'
Dim prodi(3) As String
prodi(0) = "Teknik Informatika"
prodi(1) = "Sastra Jepang"
prodi(2) = "Akuntansi"
prodi(3) = "Kelautan"
For Each element As String In prodi
ComboBox2.Items.Add(element)
Next
ComboBox2.Text = "Prodi"
'MENAMPILKAN GRID/GARIS TABEL UNTUK LISTVIEW'
ListView1.GridLines = True
ListView1.View = View.Details
'MENAMBAHKAN HEADER UNTUK KOLOM LISTVIEW'
ListView1.Columns.Add("No")
ListView1.Columns.Add("NIM")
ListView1.Columns.Add("Nama")
ListView1.Columns.Add("Jenis Kelamin")
ListView1.Columns.Add("Prodi")
TextBox1.Text = 1
TextBox2.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim arr(5) As String
arr(1) = TextBox1.Text
arr(2) = TextBox2.Text
arr(3) = TextBox3.Text
arr(4) = ComboBox1.Text
arr(5) = ComboBox2.Text
'MEMBUAT LISTVIEW ITEM'
Dim listItem As ListViewItem
listItem = ListView1.Items.Add(arr(1))
listItem.SubItems.Add(arr(2))
listItem.SubItems.Add(arr(3))
listItem.SubItems.Add(arr(4))
listItem.SubItems.Add(arr(5))
TextBox1.Text = TextBox1.Text + 1
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim pesan As String
pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
End Sub
End Class
Komentar
Posting Komentar