sore ini kita akan membuat postingan tentang pencarian nilai mahasiswa dalam sebuah programan vb.net
untuk melanjutkan langkah selanjutnya, desain lah form seperti berikut :
untuk membuat sintak program silah kan ketik seperti biasa :
Public Class Anton
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KDosen.Items.Add("GL001")
KDosen.Items.Add("YY002")
KDosen.Items.Add("TL003")
npm.Items.Add("12110581")
npm.Items.Add("12110841")
npm.Items.Add("12110874")
KMKuliah.Items.Add("GL001")
KMKuliah.Items.Add("YY002")
KMKuliah.Items.Add("TL003")
Dim x As Integer
For x = 100 To 1 Step -1
nilaihadir.Items.Add(x)
NTugas.Items.Add(x)
NUts.Items.Add(x)
NUas.Items.Add(x)
Next x
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110581"
Nama.Text = "Anton P. Sitinjak"
Jurusan.Text = "Teknik Informatika"
Case "12110841"
Nama.Text = "POLINUS LAIA"
Jurusan.Text = "Teknik Informatika"
Case "12110874"
Nama.Text = "Fentris Yarif Laoly"
Jurusan.Text = "Sistem Informasi"
End Select
Dim x As String
x = Microsoft.VisualBasic.Right(npm.Text, 2)
If npm.Text = "12110581" Then
Jenjang.Text = "TI"
ElseIf npm.Text = "12110841" Then
Jenjang.Text = "TI"
ElseIf npm.Text = "12110874" Then
Jenjang.Text = "TI"
End If
End Sub
Private Sub kodedo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
Select Case KDosen.Text
Case "GL001"
NDosen.Text = "MESRAN S.Kom, M.Kom"
Case "YY002"
NDosen.Text = "RIVARY KRISTIANTO HONDRO, S.Kom"
Case "TL003"
NDosen.Text = "Toni LImbong S.kom,M.Kom"
End Select
End Sub
Private Sub komaku_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KMKuliah.SelectedIndexChanged
Select Case KMKuliah.Text
Case "GL001"
MKUliah.Text = "VISUAL BASIC"
Case "YY002"
MKUliah.Text = "Konsep Pemogrmana Visual Basic"
Case "TL003"
MKUliah.Text = "Sistem Basis Data"
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Nakhir.Text = 0.1 * nilaihadir.Text + 0.15 * NTugas.Text + 0.35 * NUts.Text + 0.45 * NUas.Text
If Nakhir.Text >= 50 Then
Ket.Text = "LULUS"
Else
Ket.Text = "GAGAL"
End If
If Nakhir.Text >= "80" Then
NHuruf.Text = "A"
ElseIf Nakhir.Text >= "70" Then
NHuruf.Text = "B"
ElseIf Nakhir.Text >= "60" Then
NHuruf.Text = "C"
ElseIf Nakhir.Text >= "50" Then
NHuruf.Text = "D"
Else
NHuruf.Text = "E"
End If
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Nakhir.Text = ""
npm.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KDosen.Text = ""
NDosen.Text = ""
KMKuliah.Text = ""
MKUliah.Text = ""
nilaihadir.Text = ""
NTugas.Text = ""
NUts.Text = ""
NUas.Text = ""
NHuruf.Text = ""
Ket.Text = ""
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
End
End Sub
End Class
sampai disini untuk membuat program pencarian nilai...
sampai jumpa :)
