UAS_LAB VB1_M.FARUQ.S_1306391384

NAMA                : MUHAMMAD FARUQ SYAUQI

NPM                    : 1306391384

MATA KULIAH : LAB PEMOGRAMAN BISNIS 1

FORM MENGHITUNG NILAI MAHASISWA

-Apabila saat di jalankan kita mengisi absen missal 1 maka akan keluar nama dan NPM secara otomatis

-Kemudian mengisi absensi seperti perkuliahan biasa dengan kehadiran 1-14 kehadiran.

-Masukan pula nilai tugas,kuis,uts,dan uas.

-Ketika kita menghitung maka akan keluar hasil rata2 nilai mahasiswa tersebut di NILAI,kemudian muncul keterangannya apakah mahasiswa itu lulus atau tidak,dan GRADE dari A-E.

Apabila kita meng klik MULAI maka secara otomatis semua akan kembali ke awal alias kosong.

Dan apabila mengklik selesai maka aka nada pesan “apakah anda yakin selesai?” apa bilas “YES” maka program kembali tidak jalan. Apabila no maka program akan tetap kembali berjalan.

 -Ketika mengklik save file maka file yang ada akan tersimpan.

Dan bila open file maka file yang telh di simpan dapat kembali di buka.

coding

Public Class Form1
    Sub bersih()
        TxtNPM.Text = ""
        TxtNAMAMAHASISWA.Text = ""
        TxtKETERANGAN.Text = ""
        TxtNILAI.Text = ""
        ComboBox1.Text = ""
        TxtGRADE.Text = ""
        ComboBox2.Text = ""
        TxtABSENSI.Text = ""
        TxtTUGAS.Text = ""
        TxtKUIS.Text = ""
        TxtUTS.Text = ""
        TxtUAS.Text = ""
        RichTextBox1.Text = ""
        TxtNPM.Focus()
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TxtNPM.TextChanged

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Laki-laki")
        ComboBox1.Items.Add("Perempuan")

        ComboBox2.Items.Add("1")
        ComboBox2.Items.Add("2")
        ComboBox2.Items.Add("3")
        ComboBox2.Items.Add("4")
        ComboBox2.Items.Add("5")
        ComboBox2.Items.Add("6")
        ComboBox2.Items.Add("7")
        ComboBox2.Items.Add("8")
        ComboBox2.Items.Add("9")
        ComboBox2.Items.Add("10")
        ComboBox2.Items.Add("11")
        ComboBox2.Items.Add("12")
        ComboBox2.Items.Add("13")
        ComboBox2.Items.Add("14")
        ComboBox2.Items.Add("15")



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call bersih()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim selesai = MsgBox("yakin anda sudah selesai?", MsgBoxStyle.YesNo + MsgBoxStyle.Question)
        If selesai = vbYes Then
            Me.Close()
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       
        Dim ABSENSIKEHADIRAN, TUGAS, KUIS, UTS, UAS As Single
        ABSENSIKEHADIRAN = Val(TxtABSENSI.Text)
        TUGAS = Val(TxtTUGAS.Text)
        KUIS = Val(TxtKUIS.Text)
        UTS = Val(TxtUTS.Text)
        UAS = Val(TxtUAS.Text)
        If TxtABSENSI.Text = "" Or TxtTUGAS.Text = "" Or TxtKUIS.Text = "" Or TxtUTS.Text = "" Or TxtUAS.Text = "" Then
            MsgBox("Tolong Lengkapi Nilai Absensi Kehadiran,Tugas,Kuis,UTS,dan UAS Terlebih Dahulu.")
        Else
            ABSENSIKEHADIRAN = 10 * TxtABSENSI.Text / 14
            TxtABSENSI.Text = ABSENSIKEHADIRAN

            TUGAS = 0.2 * TxtTUGAS.Text
            TxtTUGAS.Text = TUGAS

            KUIS = 0.2 * TxtKUIS.Text
            TxtKUIS.Text = KUIS

            UTS = 0.25 * TxtUTS.Text
            TxtUTS.Text = UTS

            UAS = 0.25 * TxtUAS.Text
            TxtUAS.Text = UAS

            TxtNILAI.Text = ABSENSIKEHADIRAN + TUGAS + KUIS + UTS + UAS

        End If

        Dim NILAI As Integer
        If TxtNILAI.Text >= 85 Then
            TxtKETERANGAN.Text = "LULUS"
            TxtGRADE.Text = "A"
        ElseIf TxtNILAI.Text >= 80 Then
            TxtKETERANGAN.Text = "LULUS"
            TxtGRADE.Text = "A-"
        ElseIf TxtNILAI.Text >= 75 Then
            TxtKETERANGAN.Text = "LULUS"
            TxtGRADE.Text = "B+"
        ElseIf TxtNILAI.Text >= 70 Then
            TxtKETERANGAN.Text = "LULUS"
            TxtGRADE.Text = "B"
        ElseIf TxtNILAI.Text >= 65 Then
            TxtKETERANGAN.Text = "LULUS"
            TxtGRADE.Text = "B-"
        ElseIf TxtNILAI.Text >= 60 Then
            TxtKETERANGAN.Text = "LULUS"
            TxtGRADE.Text = "C+"
        ElseIf TxtNILAI.Text >= 55 Then
            TxtKETERANGAN.Text = "LULUS"
            TxtGRADE.Text = "C"
        ElseIf TxtNILAI.Text >= 40 Then
            TxtKETERANGAN.Text = "TIDAK LULUS"
            TxtGRADE.Text = "D"

        Else
            TxtKETERANGAN.Text = "TIDAK LULUS"
            TxtGRADE.Text = "E"
        End If


    End Sub

    Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles TxtGRADE.TextChanged

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select ComboBox2.Text
            Case 1
                TxtNPM.Text = "1001"
                TxtNAMAMAHASISWA.Text = "ABDULLAH"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC07794.JPG")
            Case 2
                TxtNPM.Text = "1002"
                TxtNAMAMAHASISWA.Text = "BUNGA"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC07546.JPG")
            Case 3
                TxtNPM.Text = "1003"
                TxtNAMAMAHASISWA.Text = "CHRIS"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC07808.JPG")
            Case 4
                TxtNPM.Text = "1004"
                TxtNAMAMAHASISWA.Text = "ERWIN"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC08235.JPG")
            Case 5
                TxtNPM.Text = "1005"
                TxtNAMAMAHASISWA.Text = "FILZA"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC07558.JPG")
            Case 6
                TxtNPM.Text = "1006"
                TxtNAMAMAHASISWA.Text = "GILANG"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC08237.JPG")
            Case 7
                TxtNPM.Text = "1007"
                TxtNAMAMAHASISWA.Text = "HERZI"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/IMG_4178.JPG")
            Case 8
                TxtNPM.Text = "1008"
                TxtNAMAMAHASISWA.Text = "INTAN"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/IMG_4837.JPG")
            Case 9
                TxtNPM.Text = "1009"
                TxtNAMAMAHASISWA.Text = "KEMAL"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC08240.JPG")
            Case 10
                TxtNPM.Text = "1010"
                TxtNAMAMAHASISWA.Text = "RIZKA"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/P1230291.JPG")
            Case 11
                TxtNPM.Text = "1011"
                TxtNAMAMAHASISWA.Text = "SARAH"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/P1230300.JPG")
            Case 12
                TxtNPM.Text = "1012"
                TxtNAMAMAHASISWA.Text = "TINTIN"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC08241.JPG")
            Case 13
                TxtNPM.Text = "1013"
                TxtNAMAMAHASISWA.Text = "TONO"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/DSC08264.JPG")
            Case 14
                TxtNPM.Text = "1014"
                TxtNAMAMAHASISWA.Text = "URFA"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/P1230307.JPG")
            Case 15
                TxtNPM.Text = "1015"
                TxtNAMAMAHASISWA.Text = "ZIDANE"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                PictureBox1.Image = System.Drawing.Image.FromFile("C:\foto2 uts/P1240051.JPG")


        End Select

    End Sub

SEKIAN TERIMA KASIH

materi ppt

materi_ppt
materi2
materi 3
materi 4
materi 5
materi 6