Pada tutorial
kali ini, kita bahas bersama contoh program visual basic. Langkah-langkah nya
sbb:
1. Buka
Microsoft Visual Studio
2. Buka New>>Project
3. Beri nama
project anda pada name, kemudian klik ok
4. Setelah itu
maka akan keluar From1 di project kita, kemudian desain From tersebut dengan
menggunakan Label, Textbox, Combobox, dan Botton yang dapat kata
pilih pada proporties.
5. Listing Program
Public Class
latihan_di_bpc
Private Sub KB_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
KD.SelectedIndexChanged
Dim p As String
p = Microsoft.VisualBasic.Left(KD.Text,
2)
If
KD.Text = "LPB" Then
Dim
j As Integer
For
j = 1 To 3
TB.Items.Add(p & "00" & j)
Next
ElseIf
KD.Text = "CVB" Then
Dim
I As Integer
For
I = 1 To 3
TB.Items.Add(p & "00" & I)
Next
ElseIf
KD.Text = "STB" Then
Dim
U As Integer
For
U = 1 To 3
TB.Items.Add(p & "00" & U)
Next
End If
End Sub
Private Sub latihan_di_bpc_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
KB.Items.Add("LPB")
KB.Items.Add("CVB")
KB.Items.Add("STB")
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub TB_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
TB.SelectedIndexChanged
Select Case TB.Text
