" Assalammu'alaikum warahmatullahi wabarakatuh "
Ya elah jumpa lagi kita (hahaha) ,saat ini saya/aku/eke capcus deh bok,ya Ampyuun !!! akan membahas tentang "Aplikasi Nilai Mahasiswa" tanpa bacot lagi langsung aja ke TKP nya gan :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("121108")
npm.Items.Add("1111111")
Kodedosen.Items.Add("SAO1")
Kodedosen.Items.Add("SAO2")
kodematakuliah.Items.Add("SAO4")
kodematakuliah.Items.Add("SAO5")
Keterangan.Enabled = False
status.Enabled = False
akhir.Enabled = False
ayam()
hitung()
iyaiya()
zxcmz()
End Sub
Sub ayam()
Dim a As Integer
a = 100
While a >= 1
tugas.Items.Add(a)
a = a - 1
End While
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case ("121108")
Nama.Text = "Sulian"
Jenjang.Text = "S1"
Jurusan.Text = "TI"
Case ("1111111")
Nama.Text = "Arief"
Jenjang.Text = "D3"
Jurusan.Text = "MI"
End Select
End Sub
Private Sub Kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodedosen.SelectedIndexChanged
Select Case Kodedosen.Text
Case ("SAO1")
dosen.Text = "Sulian"
Case ("SAO2")
dosen.Text = "Arief"
End Select
End Sub
Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged
Select Case kodematakuliah.Text
Case ("SAO4")
matakuliah.Text = "Kalkulus"
Case ("SAO5")
matakuliah.Text = "Agama"
End Select
End Sub
Sub hitung()
Dim a As Integer
a = 100
While a >= 1
kehadiran.Items.Add(a)
a = a - 1
End While
End Sub
Sub iyaiya()
Dim a As Integer
a = 100
While a >= 1
uas.Items.Add(a)
a = a - 1
End While
End Sub
Sub zxcmz()
Dim a As Integer
a = 100
While a >= 1
uts.Items.Add(a)
a = a - 1
End While
End Sub
Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
akhir.Text = Val(0.1 * kehadiran.Text) + Val(0.15 * tugas.Text) + Val(0.3 * uts.Text) + Val(0.45 * uas.Text)
stat()
End Sub
Sub stat()
Dim a As String
a = "GAGAL"
If akhir.Text >= 50 Then a = "LULUS"
Keterangan.Text = a
If akhir.Text >= 80 Then
status.Text = "A"
ElseIf akhir.Text >= 70 Then
status.Text = "B"
ElseIf akhir.Text >= 60 Then
status.Text = "c"
ElseIf akhir.Text >= 50 Then
status.Text = "D"
Else
akhir.Text = "E"
End If
End Sub
End Class
Yah hanya ini saja yang bisa di sampaikan apa bila ada kekurangan ataukesalahan mohon maaf yeee karena aku manusia biasa (hahahahaha).Terima kasih atas kunjungannya ke blog ini,maka langsung saja kita akhiri dengan mengucapkan
" Walaikumsalamwarah matulahi wabarakatuh "
