Skip to main content

Contoh vb6 Penilaian Mahasiswa Sederhana


Berikut ini desain program yang akan ingin kita buat besesrta codingnya :

Keterangan form Gambar Desain 




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Jurusan.Items.Add("MANAJEMEN INFORMATIKA")
        Jurusan.Items.Add("TEKNOLOGI INFORMATIKA")
        Jurusan.Items.Add("SISTEM INFORMATIKA")
        Jkelamin.Items.Add("LAKI-LAKI")
        Jkelamin.Items.Add("PEREMPUAN")



        For i = 1 To 12
            Sem.Items.Add(i)
        Next i

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim Rata As Single
        Dim Mutu As String
        Rata = Val(UTS.Text * 0.3 + UAS.Text * 0.4 + Tugas.Text * 0.2 + Absen.Text * 0.1)
        If Rata >= 80 Then
            Mutu = "A"
        ElseIf Rata >= 70 Then
            Mutu = "B"
        ElseIf Rata >= 60 Then
            Mutu = "C"
        ElseIf Rata >= 40 Then
            Mutu = "D"
        Else
            Mutu = "E"
        End If
        ListTampil.Items.Add(" NIM = " + NIM.Text)
        ListTampil.Items.Add(" Nama = " + Nama.Text)

        ListTampil.Items.Add("Jkelamin= " + Jkelamin.Text)

        ListTampil.Items.Add(" ")
        ListTampil.Items.Add(" Jurusan = " + Jurusan.Text)
        ListTampil.Items.Add(" Kelas = " + Kelas.Text)
        ListTampil.Items.Add(" Semester = " + Sem.Text)
        ListTampil.Items.Add(" ")
        ListTampil.Items.Add(" Mata Kuliah = " + Mkuliah.Text)
        ListTampil.Items.Add(" Nilai UTS = " + UTS.Text)
        ListTampil.Items.Add(" Nilai UAS = " + UAS.Text)
        ListTampil.Items.Add(" Nilai Tugas = " + Tugas.Text)
        ListTampil.Items.Add(" Nilai Absen = " + Absen.Text)
        ListTampil.Items.Add(" ")
        ListTampil.Items.Add(" Total Nilai = " + Str(Rata))
        ListTampil.Items.Add(" Mutu = " + Mutu)
        ListTampil.Items.Add(" ")
        If Mutu = "A" Then
            ListTampil.Items.Add(" Sukses ! Terus Semangat Belajar !!")
        ElseIf Mutu = "B" Then
            ListTampil.Items.Add(" Cukup Baik, Rajin & Tekun Belajar !")
        ElseIf Mutu = "C" Then
            ListTampil.Items.Add("Kurang Baik, Disarankan Untuk Mengikuti Her !")
        ElseIf Mutu = "D" Then
            ListTampil.Items.Add("Buruk, Fokus dan Serius Lagi Belajar !")
        Else
            ListTampil.Items.Add("Teramat Buruk, Anda Harus Lebih Serius Belajar !")
        End If
        MsgBox("Nilai kamu untuk mata kuliah ini adalah " + Mutu)

    End Sub

    Private Sub UTS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UTS.TextChanged

    End Sub

    Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
        NIM.Text = ""
        Nama.Text = ""
        Jkelamin.Text = ""
        Jurusan.Text = " "
        Kelas.Text = ""
        Sem.Text = " "
        Mkuliah.Text = ""
        UTS.Text = ""
        UAS.Text = ""
        Tugas.Text = ""
        Absen.Text = ""

       ListTampil.Items.Clear()



    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()

    End Sub
End Class


Labels:

Popular posts from this blog

Cntoh lamaran kerja Biasa

Cntoh lamaran kerja Biasa 09 Januari 2018 Perihal : Lamaran Pekerjaan Kepada Yth. HRD Manager PT.  ALAM SEJAHTERA Di Tempat------ Dengan hormat, Saya yang bertanda tangan dibawah ini : Nama                                  : Sabam Tumanggor Alamat                                : T. Morawa Psr 7 Tempat/Tanggal Lahir        : Sinar Kemenangan, 23 Desember ---- Jenis Kelamin                     : Laki-laki Kebangsaan                 ...
Post a Comment
Read more

Cara meninggalkan/menghapus group BBM

Kali ini akan saya bahas bagaimana meninggalkan/ menghapus grup di BBM (blackberry masanger) Langsung saja : Disi saya mau meninggalkan group bbm, sperti gambar dibawah ini : Dan terus saya cari bagaimana meninggalkan group BBM pada Gambar Screnshots dibawah : Diatas adalah gambar bagaimana saya maw meninggalkan Group BBM pada android, paada awalnya saya ganti hp dan menginstal ulang BBM pada android saya dan login dengan akun yang lama, pasti kontak-kontak Bbm dan group masih ada dan disitu saya mw meninggal kan Group BBM tidak bisa dengan berbagai cara saya seting tidak dapat juga, dan pada saat ada pemberitahuan ada teman saya baru saja meninggalkan Gruop Bbm tersebut, Nah disitu baru bisa saya meninggalkan/menghapus Gruop BBM dari kontak saya. Sekian Trims....
Post a Comment
Read more

Program Vb2008 Penjualan Barang

Desain Form Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Kode.Items.Add("G001") Kode.Items.Add("G002") Kode.Items.Add("G003") Kode.Items.Add("G004") Kode.Items.Add("G005") Kode.Items.Add("G006") For i = 1 To 1000 Jumlah.Items.Add(i) Next LV.Columns.Add("No.Pembeli", 80, HorizontalAlignment.Center) LV.Columns.Add("Kode Barang", 50, HorizontalAlignment.Center) LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center) LV.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center) LV.Columns.Add("merk", 100, HorizontalAlignment.Center) LV.Columns.Add("Jumlah", 50, HorizontalAlignment.Center) LV.Columns.Add("tHarga", 100, HorizontalAlignment.Center) LV.Columns.Add("tanggal", 150, HorizontalAlignment.Center) LV.GridLines = True LV.FullRowSelect...
Read more