Tugas Belajar Bahasa Pemograman
Pada tutorial kali ini, kita bahas bersama contoh program visual basic. Langkah-langkah nya sbb:
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 Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110649")
npm.Items.Add("12110504")
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 = "12110649"
nama.Text = "M.Triadi Syahputra"
Jenjang.Text = "S1"
jurusan.Text = "Teknik Informatika"
Case Is = "12110504"
nama.Text = "Shandora Siregar"
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 = "Kenedi Tampubolon S.Si"
Case Is = "002"
nd.Text = " Sinar Sinurat S.T, M.kom"
End Select
End Sub
Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged
Select Case kmatakuliah.Text
Case Is = "111"
matakuliah.Text = " Matriks Dan LInier"
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
Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged
End Sub
End Class
Selamat mencoba yaa Teman-teman.....
