Quiz Online Tugas 1

Posted on 12:57 AM, under

0



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("TS001")
        Kode.Items.Add("TS002")
        Kode.Items.Add("VG001")
        Kode.Items.Add("VG002")
        rancangan_table()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
            x = Microsoft.VisualBasic.Right(Kode.Text, 3)
            If x = "001" Then
                Nama.Text = "Flashdisk 4GB"
                Harga.Text = 105000
            ElseIf x = "002" Then
                Nama.Text = "Flashdisk 2GB"
                Harga.Text = 750000
            End If
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
            x = Microsoft.VisualBasic.Right(Kode.Text, 3)
            If x = "001" Then
                Nama.Text = "Flashdisk 4GB"
                Harga.Text = 900000
            ElseIf x = "002" Then
                Nama.Text = "Flashdisk 2GB"
                Harga.Text = 60000

            End If
        End If
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Total.Text = Harga.Text * Jumlah.Text
        End If
    End Sub
    Sub rancangan_table()
        With lv
            .Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
            .Columns.Add("Kode barang", 100, HorizontalAlignment.Left)
            .Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
            .Columns.Add("Merk", 100, HorizontalAlignment.Left)
            .Columns.Add("harga", 100, HorizontalAlignment.Left)
            .Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
            .Columns.Add("Total harga", 100, HorizontalAlignment.Left)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True

        End With
    End Sub
    Sub isi_table()
        Dim lst As New ListViewItem
        With lst
            .Text = No.Text
            .SubItems.Add(Kode.Text)
            .SubItems.Add(Nama.Text)
            .SubItems.Add(Merk.Text)
            .SubItems.Add(Harga.Text)
            .SubItems.Add(Jumlah.Text)
            .SubItems.Add(Total.Text)
            lv.Items.Add(lst)
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        isi_table()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        lv.Items.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub
   
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Close()
    End Sub
End Class

edit post

Program Sederhana Penilaian

Posted on 2:38 AM, under

1
ini merupakan tugas program sederhana penilaian mahasiswa yang di beri pada kelas TI-M1222 smester ganjil.



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110662")
        NPM.Items.Add("12110663")
        NPM.Items.Add("12110664")
        NPM.Items.Add("12110665")

        kodedosen.Items.Add("1110")
        kodedosen.Items.Add("1111")
        kodedosen.Items.Add("1112")

        kodemakul.Items.Add("A011")
        kodemakul.Items.Add("A012")
        kodemakul.Items.Add("A013")


        For i = 100 To 1 Step -1
            NK.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            N_Tugas.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            N_UTS.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            N_UAS.Items.Add(i)
        Next i

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110662"
                Nama.Text = "Fajar"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110663"
                Nama.Text = "Ridho"
                Jenjang.Text = "D3"
                Jurusan.Text = "Managemen Informatika"
            Case "12110664"
                Nama.Text = "Rahmad"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110665"
                Nama.Text = "Arifin"
                Jenjang.Text = "S1"
                Jurusan.Text = "sitem imformasi"

        End Select
    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "1110"
                Nama_dosen.Text = "Mesran,M.Kom"
            Case "1111"
                Nama_dosen.Text = "megaria purba,M.Kom"
            Case "1112"
                Nama_dosen.Text = "Rival,S.Kom"
            Case Else
                Nama.Text = "Kennedi Tampubolon"
        End Select
    End Sub

    Private Sub kodemakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodemakul.SelectedIndexChanged
        Select Case kodemakul.Text
            Case "A011"
                Makul.Text = "Pemrograman Visual"
            Case "A012"
                Makul.Text = "Arsitektur dan Organisasi"
            Case "A013"
                Makul.Text = "Sistem Basis Data"
            Case Else
                Makul.Text = "Matriks dan Transformasi Linear"
        End Select
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        NA.Text = 0.1 * NK.Text + 0.15 * N_Tugas.Text + 0.3 * N_UTS.Text + 0.45 * N_UAS.Text

        If NA.Text >= 80 Then
            ket.Text = "Dengan Pujian"
        ElseIf NA.Text >= 75 Then
            ket.Text = "Sangat Memuaskan"
        ElseIf NA.Text >= 70 Then
            ket.Text = "Memuaskan"
        ElseIf NA.Text >= 65 Then
            ket.Text = "Cukup Memuaskan"
        ElseIf NA.Text >= 60 Then
            ket.Text = "Cukup"
        ElseIf NA.Text >= 50 Then
            ket.Text = "Tidak Memuaskan"
        Else
            ket.Text = "Gagal"
        End If
    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        End

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        kodedosen.Text = ""
        Nama_dosen.Text = ""
        kodemakul.Text = ""
        Makul.Text = ""
        NK.Text = ""
        N_Tugas.Text = ""
        N_UTS.Text = ""
        N_UAS.Text = ""
        NA.Text = ""
        ket.Text = ""
    End Sub
End Class



edit post