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 dibawah ini:
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
npm.Items.Add("12110647")
npm.Items.Add("12110989")
kodedosen.Items.Add("001")
kodedosen.Items.Add("002")
kmatakuliah.Items.Add("111")
kmatakuliah.Items.Add("222")
Dim i As
Integer
For i = 100 To
1 Step -1
nk.Items.Add(i)
nt.Items.Add(i)
nuts.Items.Add(i)
nuas.Items.Add(i)
Next
End Sub
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
npm.SelectedIndexChanged
Select Case
npm.text
Case
Is = "12110647"
nama.Text = "florida situmorang"
jenjang.text = "S1"
jurusan.Text = "Teknik Informatika"
Case
Is = "12110989"
nama.Text = "Yulia Hannelore"
Jenjang.text = "s1"
jurusan.Text = "Teknik Informatika"
End Select
End Sub
Private Sub
ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
kodedosen.SelectedIndexChanged
Select Case
kodedosen.Text
Case
Is = "001"
nd.Text = "Tonni Limbong S.kom, M.kom"
Case
Is = "002"
nd.Text = " Sinar Sinurat S.T, M.kom"
End Select
End Sub
Select Case
kmatakuliah.Text
Case
Is = "111"
matakuliah.Text = " Sistem basis data"
Case
Is = "222"
matakuliah.Text = "Matematika diskrit"
End Select
End Sub
Private Sub
btnproses_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnproses.Click
nak.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nuts.Text + 0.45 *
nuas.Text
If nak.Text >= 80 Then
nhu.Text = "A"
ket.Text = "Lulus"
ElseIf nak.Text >= 70 Then
nhu.Text = "B"
ket.Text = "
Lulus"
ElseIf nak.Text >= 60 Then
nhu.Text = "C"
ket.Text = "Lulus"
ElseIf nak.Text >= 50 Then
nhu.Text = "D"
ket.Text = "Tidak
Lulus"
Else
nhu.Text = "E"
ket.Text = "Tidak
Lulus"
End If
End Sub
End Class
