Assalamualaikum Wr.Wb.
Hari ini saya mempostingkan sedikit Program Tentang VB.Net...Dengan Judul "Perhitungan Nilai Mahasiswa"
BELAJAR BAHASA PEMOGRAMAN
Untuk Lebih Lanjut Design Form Berikuttt
Public Class Form1
Sub jenjur()
Dim jen = Microsoft.VisualBasic.Right(NPM.Text, 2)
Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If jen = "07" Then
jenjang.Text = "S1"
ElseIf jen = "02" Then
jenjang.Text = "S1"
ElseIf jen = "50" Then
jenjang.Text = "D3"
ElseIf jen = "44" Then
jenjang.Text = "D3"
End If
If jur = "02" Then
jurusan.Text = "T I"
ElseIf jur = "01" Then
jurusan.Text = "S I"
ElseIf jur = "00" Then
jurusan.Text = "M I"
End If
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = "12110207" Then
Nama.Text = "Yurna"
Call jenjur()
ElseIf NPM.Text = "12110102" Then
Nama.Text = "ilam"
Call jenjur()
ElseIf NPM.Text = "12110150" Then
Nama.Text = "Rinni"
Call jenjur()
ElseIf NPM.Text = "12110044" Then
Nama.Text = "Chanif"
Call jenjur()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110207")
NPM.Items.Add("12110102")
NPM.Items.Add("12110150")
NPM.Items.Add("12110044")
kodedosen.Items.Add("A001")
kodedosen.Items.Add("A002")
kodedosen.Items.Add("A003")
kodematkul.Items.Add("MK01")
kodematkul.Items.Add("MK02")
kodematkul.Items.Add("MK03")
Dim A As Integer
For A = 100 To 1 Step -3
nhadir.Items.Add(A)
ntugas.Items.Add(A)
nuts.Items.Add(A)
nuas.Items.Add(A)
Next A
End Sub
Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
If kodedosen.Text = "A001" Then
namadosen.Text = "Putri"
ElseIf kodedosen.Text = "A002" Then
namadosen.Text = "Yanni"
ElseIf kodedosen.Text = "A003" Then
namadosen.Text = "Ronny"
End If
End Sub
Private Sub namadosen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namadosen.TextChanged
End Sub
Private Sub namamatkul_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namamatkul.TextChanged
End Sub
Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged
If kodematkul.Text = "MK01" Then
namamatkul.Text = "Agama Islam"
ElseIf kodematkul.Text = "MK02" Then
namamatkul.Text = "Kalkulus"
ElseIf kodematkul.Text = "MK03" Then
namamatkul.Text = "Pemograman"
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
nakhir.Text = 0.1 * nhadir.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text
If nakhir.Text >= 85 Then
nhuruf.Text = "A"
ElseIf nakhir.Text >= 70 Then
nhuruf.Text = "B"
ElseIf nakhir.Text >= "65" Then
nhuruf.Text = "C"
ElseIf nakhir.Text >= "50" Then
nhuruf.Text = "D"
ElseIf nakhir.Text >= "40" Then
nhuruf.Text = "E"
End If
If nakhir.Text >= 50 Then
keterangan.Text = "Lulus"
Else
keterangan.Text = "GAGAL"
End If
End Sub
End Class