Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110213"
nama.Text = "Adriani"
jenjang.Text = "S1"
jurusan.Text = "Teknik informatika"
Case "12110345"
nama.Text = "Dini nugraha"
jenjang.Text = "D3"
jurusan.Text = "Manajemen informatika"
Case "12110934"
nama.Text = "Budi hasiolan"
jenjang.Text = "S1"
jurusan.Text = "Sistem informatika"
Case "12110789"
nama.Text = "Tini santiana"
jenjang.Text = "S1"
jurusan.Text = "Sistem 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 "001"
nd.Text = "Tonni Limbong S.Kom,M.Kom"
Case "002"
nd.Text = "Garuda Ginting,ST,M.Kom"
Case "003"
nd.Text = "Mesran,S.Kom,M.Kom"
Case "004"
nd.Text = "Sinar sinurat,ST,M.Kom"
End Select
End Sub
Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakul.SelectedIndexChanged
Select Case kdmatakul.Text
Case "01"
matakul.Text = "Sistem basis data"
Case "02"
matakul.Text = "Visual basic"
Case "03"
matakul.Text = "Struktur data"
Case "04"
matakul.Text = "Interaksi Manusia dan Komputer"
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110213")
npm.Items.Add("12110345")
npm.Items.Add("12110934")
npm.Items.Add("12110789")
kodedosen.Items.Add("001")
kodedosen.Items.Add("002")
kodedosen.Items.Add("003")
kodedosen.Items.Add("004")
kdmatakul.Items.Add("01")
kdmatakul.Items.Add("02")
kdmatakul.Items.Add("03")
kdmatakul.Items.Add("04")
Dim i As Integer
For i = 0 To 100
nilaikehadiran.Items.Add("" & i)
nilaitugas.Items.Add("" & i)
nilaiuts.Items.Add("" & i)
nilaiuas.Items.Add("" & i)
Next
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
na.Text = 0.1 * nilaikehadiran.Text + 0.2 * nilaitugas.Text + 0.4 * nilaiuts.Text + 0.6 * nilaiuas.Text
If na.Text >= 80 Then
nh.Text = "A"
ElseIf na.Text > 70 Then
nh.Text = "B"
ElseIf na.Text >= 60 Then
nh.Text = "C"
ElseIf na.Text >= 50 Then
nh.Text = "D"
Else
nh.Text = "E"
End If
If na.Text >= 50 Then
keterangan.Text = "Lulus"
Else
keterangan.Text = "Gagal"
End If
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 = ""
kodedosen.Text = ""
nd.Text = ""
kdmatakul.Text = ""
matakul.Text = ""
nilaikehadiran.Text = ""
nilaitugas.Text = ""
nilaiuts.Text = ""
nilaiuas.Text = ""
na.Text = ""
nh.Text = ""
keterangan.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
berikut ini adalah hasil dari desain diatas:
Terimakasih... ^^
Tidak ada komentar:
Posting Komentar