Tuesday, 26 November 2013
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
