Belajar Bahasa Pemrograman

Tugas Latihan dari Belajar Bahasa Pemrograman VB yang mana ada kasus seperti dibawah ini :

Soal dari kasus ini sebagai berikut :

Kasus Pertama
Pada form diatas Jika dipilih NPM
12110328 maka nama Hendika Yupramana Putra
12020328 maka nama Rozak Al-Fatan
12030328 maka nama Yakub Ab-Dillah

Kasus ke 2
baris ke 3 sebanyak 2 digit
11   jenjang S1 dan jurusan Sistem Informasi
02   jenjang D3 dan jurusan Teknik Informasi
03   jenjang D1 dan jurusan Desai Grafis


Kasus ke 3
Jika Kode Dosen  dipilih
D01 nama dosen Yasir Hasan, S.Kom
D02 nama dosen Mesran, M.Kom
D03 nama dosen Tonny Limbong, S.Kom, M.Kom

Kasus ke 4
Jika Kode Mata Kuliah dipilih
M01 nama matakuliah Sistem Operasi
M02 nama matakuliah Pemrogaman Visual
M03 nama matakuliah Sistem Basis Data

Kasus ke 5
pada tombol proses di klik muncul


Nilai Akhir = 10% nilai kehadiran + 15 % nilai tugas + 35 % nilai uts + 40 % nilai UAS
Jika nilai Akhir :
lebih dari sama dengan 80 nilai huruf A keterangan Lulus
70 - 79 nilai huruf B keterangan Lulus
60 - 69 nilai huruf C keterangan Lulus
50 - 59 nilai huruf D keterangan Gagal
lebih kecil sama dengan 49  nilai huruf E keterangan Gagal

tombol hapus untuk menghapus dan tombol keluar untuk keluar 


dan inilah kode program :


Pertama Double Klik di Form dan Kopy Paste kode dibawah ini :

  npm.Items.Add("12110328")
        npm.Items.Add("12020328")
        npm.Items.Add("12030328")
        kode_dosen.Items.Add("D01")
        kode_dosen.Items.Add("D02")
        kode_dosen.Items.Add("D03")
        kode_matakuliah.Items.Add("M01")
        kode_matakuliah.Items.Add("M02")
        kode_matakuliah.Items.Add("M03")
        Dim i As Integer
        For i = 1 To 100
            nilai_kehadiran.Items.Add(i)
        Next i
        i = 1
        Do While i <= 100
            Nilai_tugas.Items.Add(i)
            i = i + 1
        Loop
        i = 100
        Do Until i = 0
            Nilai_UTS.Items.Add(i)
            i = i - 1
        Loop
        i = 100
        While i >= 1
            Nilai_Uas.Items.Add(i)
            i = i - 1
        End While

Lalu Double Klik pada tombol Keluar dan kopi paste kode tersebut :

 Me.Close()

Lalu Double Klik pada tombol Hapus dan kopi paste kode tersebut :

 npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        Nama_matakuliah.Text = ""
        nilai_kehadiran.Text = ""
        Nilai_tugas.Text = ""
        Nilai_Akhir.Text = ""
        Nilai_Uas.Text = ""
        Nilai_UTS.Text = ""
        Nilai_huruf.Text = ""
        Keterangan.Text = ""
        npm.Focus()

Lalu Double Klik pada combobox  npm dan kopi paste kode tersebut :

  Select Case npm.Text
            Case "12110328"
                nama.Text = "Hendika Yupramana Putra"
            Case "12020328"
                nama.Text = "Rozak Al-Fatan"
            Case "12030328"
                nama.Text = "Yakub Ab-Dillah"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        Select x
            Case "11"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "02"
                jenjang.Text = "D3"
                jurusan.Text = "Teknik Informatika"
            Case Else
                jenjang.Text = "D1"
                jurusan.Text = "Desain Grafis"
        End Select

Lalu Double Klik pada combobox  kode_dosen dan kopi paste kode tersebut :

   Select Case kode_dosen.Text
            Case "D01"
                nama_dosen.Text = "Yasir Hasan, S.Kom"
            Case "D02"
                nama_dosen.Text = "Mesran, M.Kom"
            Case "D03"
                nama_dosen.Text = "Tonny Limbong, S.Kom, M.Kom"
        End Select

Lalu Double Klik pada combobox  kode_matakuliah dan kopi paste kode tersebut :

  Select Case kode_matakuliah.Text
            Case "M01"
                Nama_matakuliah.Text = "Sistem Operasi"
            Case "M02"
                Nama_matakuliah.Text = "Pemograman Visual"
            Case "M03"
                Nama_matakuliah.Text = "Sistem Basis Data"
        End Select

Lalu Double Klik pada tombol Proses dan kopi paste kode tersebut :

    Nilai_Akhir.Text = 0.1 * Val(nilai_kehadiran.Text) + 0.15 * Val(Nilai_tugas.Text) + 0.35 * Val(Nilai_UTS.Text) + 0.4 * Val(Nilai_Uas.Text)
        Select Case Nilai_Akhir.Text
            Case Is >= 80
                Nilai_huruf.Text = "A"
                Keterangan.Text = "Lulus"
            Case 70 To 79
                Nilai_huruf.Text = "B"
                Keterangan.Text = "Lulus"
            Case 60 To 69
                Nilai_huruf.Text = "C"
                Keterangan.Text = "Lulus"
            Case 50 To 59
                Nilai_huruf.Text = "D"
                Keterangan.Text = "Gagal"
            Case Is <= 49
                Nilai_huruf.Text = "E"
                Keterangan.Text = "Gagal"
        End Select

 

Dan inilah Screenshoot hasil dari Kasusnya

Selamat Mencoba :)