Tugas
Belajar Bahasa Pemograman
1. Desainlah Formnya seperti gambar di bawah ini :
2. ketiklah listing berikut ini :
Public Class Form_Nilai
Private Sub Form_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KodeDosen.Items.Add("001312")
KodeDosen.Items.Add("001654")
KodeMataKuliah.Items.Add("001")
KodeMataKuliah.Items.Add("002")
NPM.Items.Add("12110639")
NPM.Items.Add("12116780")
NPM.Items.Add("12113412")
Dim i As Integer
For i = 1 To 100
NilaiKehadiran.Items.Add(i)
Next i
i = 100
For i = 1 To 100
NilaiTugas.Items.Add(i)
Next i
i = 100
For i = 1 To 100
NilaiUTS.Items.Add(i)
Next i
For i = 1 To 100
NilaiUAS.Items.Add(i)
Next i
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
NPM.Text = ""
Nama.Text = " "
Jenjang.Text = ""
Jurusan.Text = ""
NamaDosen.Text = ""
MataKuliah.Text = " "
KodeMataKuliah.Text = ""
KodeDosen.Text = ""
Keterangan.Text = ""
NilaiKehadiran.Text = " "
NilaiTugas.Text = " "
NilaiUTS.Text = " "
NilaiAkhir.Text = " "
NilaiUAS.Text = " "
NilaiHuruf.Text = ""
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
If NilaiAkhir.Text >= 50 Then
Keterangan.Text = "Anda Lulus"
Else
Keterangan.Text = "Anda Gagal"
End If
If NilaiAkhir.Text >= 80 Then
NilaiHuruf.Text = "A"
ElseIf NilaiAkhir.Text >= 70 Then
NilaiHuruf.Text = "B"
ElseIf NilaiAkhir.Text >= 60 Then
NilaiHuruf.Text = "C"
ElseIf NilaiAkhir.Text >= 50 Then
NilaiHuruf.Text = "D"
Else
NilaiHuruf.Text = "E"
End If
End Sub
Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
Dim z As String
z = KodeDosen.Text
If z = "001312" Then
NamaDosen.Text = "Mesran S.Kom,M.Kom"
ElseIf z = "001654" Then
NamaDosen.Text = "Sinar Sinurat, ST, M.Kom"
End If
End Sub
Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
Dim p As String
p = KodeMataKuliah.Text
If p = "001" Then
MataKuliah.Text = "Pemograman Visual Basic"
ElseIf p = "002" Then
MataKuliah.Text = "Matematika Diskrit"
End If
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Dim a As String
a = NPM.Text
If NPM.Text = "12110639" Then
Nama.Text = "Sondang R. Sitohang"
ElseIf NPM.Text = "12116780" Then
Nama.Text = "Yanti"
ElseIf NPM.Text = "12113412" Then
Nama.Text = "Murni"
End If
End Sub
End Class
3. Tekan F5, dan hasilnya seperti gambar dibawah ini :
Sekian postingan tugas saya ini....