Selamat sore sahabat,
kali ini akan posting Tugas UTS saya, Program Input Data Mahasiswa Menggunakan Visual Studio 2012.
Ketentuan :
1. Memasukan NIM Nama Mahasiswa otomatis muncul pada Tex Box nama juga Jenjang dan Prodi dari NIM tersebut. 2 Digit pertama tahun masuk, 2 Digit selanjutnya Jenjang dan Prodi.
2. Memilih Kode Dosen maka muncul Nama Dosen pada Text Box Nama Dosen
3. Memilih Kode Mata Kuliah maka muncul Nama Mata Kuliah yang diambil.
4. Nilai Akhir = 10% Nilai Kehadiran + 15% Nilai Tugas + 30% Nilai UTS + 45% Nilai UAS
5. Jika Nilai Akhir
> 84 Nilai Huruf A Keterangan Lulus
> 74 Nilai Huruf B Keterangan Lulus
> 64 Nilai Huruf C Keterangan Lulus
> 54 Nilai Huruf D Keterangan Lulus
> 44 Nilai Huruf E Keterangan Tidak Lulus
Buat tampilan seperti berikut
kali ini akan posting Tugas UTS saya, Program Input Data Mahasiswa Menggunakan Visual Studio 2012.
Ketentuan :
1. Memasukan NIM Nama Mahasiswa otomatis muncul pada Tex Box nama juga Jenjang dan Prodi dari NIM tersebut. 2 Digit pertama tahun masuk, 2 Digit selanjutnya Jenjang dan Prodi.
2. Memilih Kode Dosen maka muncul Nama Dosen pada Text Box Nama Dosen
3. Memilih Kode Mata Kuliah maka muncul Nama Mata Kuliah yang diambil.
4. Nilai Akhir = 10% Nilai Kehadiran + 15% Nilai Tugas + 30% Nilai UTS + 45% Nilai UAS
5. Jika Nilai Akhir
> 84 Nilai Huruf A Keterangan Lulus
> 74 Nilai Huruf B Keterangan Lulus
> 64 Nilai Huruf C Keterangan Lulus
> 54 Nilai Huruf D Keterangan Lulus
> 44 Nilai Huruf E Keterangan Tidak Lulus
Buat tampilan seperti berikut
Masukan Codding dibawah ini.
Untuk nama properti di sesuaikan.
Public Class Form1
Private Sub proses_Click(sender As Object, e As EventArgs) Handles proses.Click
nilaiakhir.Text = 0.1 * Val(nilaikehadiran.Text) + 0.15 * Val(nilaitugas.Text) + 0.3 * Val(nilaiuts.Text) + 0.45 * Val(nilaiuas.Text)
If nilaiakhir.Text > 84 Then
nilaihuruf.Text = "A"
keterangan.Text = "LULUS"
ElseIf nilaiakhir.Text > 74 Then
nilaihuruf.Text = "B"
keterangan.Text = "LULUS"
ElseIf nilaiakhir.Text > 64 Then
nilaihuruf.Text = "C"
keterangan.Text = "LULUS"
ElseIf nilaiakhir.Text > 54 Then
nilaihuruf.Text = "D"
keterangan.Text = "LULUS"
ElseIf nilaiakhir.Text > 44 Then
nilaihuruf.Text = "E"
keterangan.Text = "TIDAK LULUS"
End If
Dim i As Integer
For i = 100 To 1
Next i
i = 1
Do While i <= 100
i = i + 1
Loop
i = 100
Do Until i = 0
i = i - 1
Loop
i = 100
While i >= 1
i = i - 1
End While
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
kodedosen.Items.Add("D-001")
kodedosen.Items.Add("D-002")
kodedosen.Items.Add("D-003")
kodedosen.Items.Add("D-004")
kodedosen.Items.Add("D-005")
kodematkul.Items.Add("MK-001")
kodematkul.Items.Add("MK-002")
kodematkul.Items.Add("MK-003")
kodematkul.Items.Add("MK-004")
kodematkul.Items.Add("M-K005")
End Sub
Private Sub kodedosen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kodedosen.SelectedIndexChanged
Select Case kodedosen.Text
Case "D-001"
namadosen.Text = "Wulan Nurlanty S.Pd"
Case "D-002"
namadosen.Text = "Erik Pratama S.Pd"
Case "D-003"
namadosen.Text = "Dadan Juansah S.Pd"
Case "D-004"
namadosen.Text = "Yaya Suharya S.Pd"
Case "D-005"
namadosen.Text = "Kuswanda"
End Select
End Sub
Private Sub kodematkul_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kodematkul.SelectedIndexChanged
Select Case kodematkul.Text
Case "MK-001"
matkul.Text = "Perpajakan"
Case "MK-002"
matkul.Text = "Matematika Diskrit"
Case "MK-003"
matkul.Text = "Bahasa Inggris 2"
Case "MK-004"
matkul.Text = "Pendidikan Agama Islam"
Case "MK-005"
matkul.Text = "Pemrograman Web 1"
End Select
End Sub
Private Sub nim_TextChanged(sender As Object, e As EventArgs) Handles nim.TextChanged
Select Case nim.Text
Case "15110001"
nama.Text = "Siti Nurjanah Ruchiyat"
Case "15120002"
nama.Text = "Shinta Novianty"
Case "15130003"
nama.Text = "Mega Cahyani"
Case "15140001"
nama.Text = "Sani Saraswati"
Case "15150002"
nama.Text = "Dea Ardian Nur Endah"
End Select
Dim x As String
x = Microsoft.VisualBasic.Mid(nim.Text, 3, 2)
Select Case x
Case "11"
jenjang.Text = "S1"
prodi.Text = "Sistem Informatika"
Case "12"
jenjang.Text = "S1"
prodi.Text = "Ekonomi"
Case "13"
jenjang.Text = "S1"
prodi.Text = "Manajemen Bisnis"
Case "14"
jenjang.Text = "D3"
prodi.Text = "Ekonomi"
Case "15"
jenjang.Text = "D1"
prodi.Text = "Manajemen Keuangan"
End Select
End Sub
Private Sub kaluar_Click(sender As Object, e As EventArgs) Handles kaluar.Click
End
End Sub
Private Sub hapus_Click(sender As Object, e As EventArgs) Handles hapus.Click
nim.Text = " "
nama.Text = " "
jenjang.Text = " "
prodi.Text = " "
kodedosen.Text = " "
namadosen.Text = " "
kodematkul.Text = " "
matkul.Text = " "
nilaikehadiran.Text = " "
nilaitugas.Text = " "
nilaiuts.Text = " "
nilaiuas.Text = " "
nilaiakhir.Text = " "
nilaihuruf.Text = " "
keterangan.Text = " "
End Sub
End Class
Setelah itu Jalankan dan Lihat Hasilnya
1. 2 Digit pertama tahun masuk, 2 Digit Selanjutnya Jenjang dan Prodi yang diambil.
1. 2 Digit pertama tahun masuk, 2 Digit Selanjutnya Jenjang dan Prodi yang diambil.
Masukan NIM lalu Nama Mahasiswa muncul pada Text Box Nama
2. Memilih Kode Dosen maka muncul Nama Dosen pada Text Box Nama Dosen
3. Memilih Kode Mata Kuliah maka muncul Nama Mata Kuliah yang diambil.
Komentar
Posting Komentar