Public Class latihanForm1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

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

Sub isicombo()
ComboBox1.Items.Add("06 Teknik Informatika")
ComboBox1.Items.Add("07 Sistem Informasi")
ComboBox1.Items.Add("26 Manajemen Informatika")
ComboBox1.Items.Add("67 Komputer Akuntansi")
ComboBox1.Items.Add("05 Teknik Komputer")

End Sub
Sub isibersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

 

  Public Class Form1
'membuat variabel array
Dim listtxt(3) As String
Dim listitem As ListViewItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'memasukan nilai ke variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

'untuk memasukan ke listview dari variabel array
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub
'Setting kolom listview
Sub setlistview()

ListView1.View = View.Details

'untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'mengambil nilai dari listview
TextBox4.Text = e.Item.Text
End Sub

End Class

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub

setelah itu kita lanjutkan ke button2 sampai button 9, sintak'a seperti ini...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub

Sejarah Visual Basic

Microsoft Visual Basic atau yang lebih akrab disebut VB merupakan bahasa pemrograman yang sangat mudah untuk dipelajari. Syntax yang digunakan berbahasa inggris, jadi sangat mudah sekali bagi kita para pemula mengerti bahasa pemrograman ini. VB adalah bahasa pemrograman yang event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Windows. Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat serta akses ke database dengna Data Access Objects (DAO), Application (VBA), dan Visual Basic Scripting Edition (VBScript).

Bill Gates, penemu Microsoft, memulai bisnis softwarenya dengan mengembangkan interpreter bahasa BASIC untuk Altair 8800, untuk kemudian diubah agar dapat dijalankan diatas IBM-PC dengan sistem operasi DOS. Pengembangan selanjutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft Quick Basic dan Microsoft Basic. Sejarah BASIC di Micorosoft yang diinterpretasi dan juga bahasa yang dikompilasi membuat visual basic diimplementasikan sebagai gabungkan dari keduanya.

sumber: wikipedia