Minggu, 08 Desember 2013

quiz no 2

Public Class Form1

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        k_barang.Items.Add("SNY-TV-021")
        k_barang.Items.Add("SMS-TV-032")
        k_barang.Items.Add("TSH-TV-040")
        k_barang.Items.Add("SHR-TV-024")
        k_barang.Items.Add("PLY-TV-029")
Private Sub k_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_barang.SelectedIndexChanged
        Dim x As String

 x = Microsoft.VisualBasic.Left(k_barang.Text, 3)

        If x = "SNY" Then
            n_barang.Text = "SONNY"
            harga.Text = "2000000"

        ElseIf x = "SMS" Then
            n_barang.Text = "SAMSUNG"
            harga.Text = "3850000"
        ElseIf x = "TSH" Then
            n_barang.Text = "TOSHIBA"
            harga.Text = "4750000"
        ElseIf x = "SHR" Then
           n_barang.Text = "SHARP"
            harga.Text = "2650000"
        ElseIf x = "PLY" Then
            n_barang.Text = "POLYTRON"
            harga.Text = "2990000"
        End If

 Private Sub jlh_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh_beli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            t_harga.Text = harga.Text * jlh_jual.Text
                 Bayar.Text = t_harga.Text - discount
        End If
If t_harga.Text>2500000 than
discount.Text=0.1*t_harga
Else
discount.Text=""
Diposting oleh di Tidak ada komentar:

Quiz listview perhitungan penjualan barang

quiz online





listing program nya

Public Class Form1
    Sub BuatTabel1()
        lv.Columns.Add("No Pembelian", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Kode_Barang", 180, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Barang", 40, HorizontalAlignment.Center)
        lv.Columns.Add("Merk", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Ukuran", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.MultiSelect = True
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = n_beli.Text
        lst.SubItems.Add(k_barang.Text)
        lst.SubItems.Add(n_barang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(ukuran.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jlh_beli.Text)
        lst.SubItems.Add(t_harga.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(bayar.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        k_barang.Items.Add("SNY-TV-021")
        k_barang.Items.Add("SMS-TV-032")
        k_barang.Items.Add("TSH-TV-040")
        k_barang.Items.Add("SHR-TV-024")
        k_barang.Items.Add("PLY-TV-029")


        BuatTabel1()

    End Sub

    Private Sub k_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_barang.SelectedIndexChanged
        Dim x As String

        x = Microsoft.VisualBasic.Right(k_barang.Text, 3)
        If x = "021" Then
            ukuran.Text = "21"


        ElseIf x = "024" Then
            ukuran.Text = "24"

        ElseIf x = "032" Then
            ukuran.Text = "32"

        ElseIf x = "040" Then
            ukuran.Text = "40"

        ElseIf x = "029" Then
            ukuran.Text = "29"

        End If


        x = Microsoft.VisualBasic.Left(k_barang.Text, 3)

        If x = "SNY" Then
            merk.Text = "SONNY"
            harga.Text = "2000000"

        ElseIf x = "SMS" Then
            merk.Text = "SAMSUNG"
            harga.Text = "3850000"
        ElseIf x = "TSH" Then
            merk.Text = "TOSHIBA"
            harga.Text = "4750000"
        ElseIf x = "SHR" Then
            merk.Text = "SHARP"
            harga.Text = "2650000"
        ElseIf x = "PLY" Then
            merk.Text = "POLYTRON"
            harga.Text = "2990000"
        End If

        x = Microsoft.VisualBasic.Mid(k_barang.Text, 5, 2)

        If x = "TV" Then
            n_barang.Text = "Televisi"


        Else
            n_barang.Text = "Barang_Salah"

        End If


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub jlh_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh_beli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            t_harga.Text = harga.Text * jlh_beli.Text + Val(harga.Text)

            pajak.Text = 0.01 * t_harga.Text

            Bayar.Text = Val(pajak.Text) + Val(t_harga.Text)
        End If
    End Sub

    Private Sub jlh_beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_beli.TextChanged

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        n_beli.Text = ""
        k_barang.Text = ""
        n_barang.Text = ""
        merk.Text = ""
        ukuran.Text = ""
        harga.Text = ""
        jlh_beli.Text = ""
        t_harga.Text = ""
        pajak.Text = ""
        Bayar.Text = ""
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        IsiTabel()
        n_beli.Text = ""
        k_barang.Text = ""
        n_barang.Text = ""
        merk.Text = ""
        ukuran.Text = ""
        harga.Text = ""
        jlh_beli.Text = ""
        t_harga.Text = ""
        pajak.Text = ""
        Bayar.Text = ""
    End Sub
End Class


tampilan akhir


quiz onlinelistview perhitungan penjualan barang
Diposting oleh di Tidak ada komentar:

Review Mesran.blogspot.com

Selamat siang smua nya nah kali ini saya akan me Review salah satu blog yang ajib bener buat teman2 yang suka sama yang nama nya bahasa pemograman
nah nie dia bog nya mesran.blogspot.com nah blog ini punya banyak artikel plus tentang berbagai bahasa pemograman seperti visual basic, visual basic.net, java, c++, pokok nya bnyak dah,
suka ama program n so pasti nya hantu program klu berkunjunk ke mesran.blogspot.com gk rugi dah di jamin

 nah di blog ini juga kita bisa download ebook, program,plus software yg pasti nya bgus n bermanfaat buat temen-temen skalian


Terima kasih mesran.Net karena telah menyediakan berbagai jenis program dan membantu saya memahami sertiap bahasa pemrograman dan jenis-jenisnya.

Dan Terima kasih untuk Bapak Mesran,S.Kom,M.Kom yang telah meluangkan waktunya untuk kami yakni membuat blog,posting artikel,quiz online yang mana ini merupakan hal sangat luar biasa untuk kami memahami semua bahasa pemrograman yang awalnya sulit untuk dipahami menjadi sedikit mudah memahaminya.
semoga dengan slogan “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” dan juga “selalu berusaha untuk memberikan yang terbaik” itulah tagline yang di usung oleh blog yang di buat bapak Mesran, S.Kom., M.Kom.Semoga dengan ada nya blog tersebut dapat memberikan banyak ilmu yang  bermanfaat untuk kita semua

 amieeeennnnnn 
Diposting oleh di Tidak ada komentar:

Jumat, 06 Desember 2013

tugas belajar bahasa pemograman

tampilan desain form gaji karyawan

tugas gaji karyawan


list codink vb nya

Public Class Form1
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.No Then
            e.Cancel = True
        End If
    End Sub

    Sub BuatTabel1()
        lv.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        lv.Columns.Add("BAGIAN", 80, HorizontalAlignment.Center)
        lv.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        lv.Columns.Add("GAJI POKOK", 180, HorizontalAlignment.Center)
        lv.Columns.Add("PAJAK", 60, HorizontalAlignment.Center)
        lv.Columns.Add("STATUS", 60, HorizontalAlignment.Center)
        lv.Columns.Add("JUMLAH ANAK", 180, HorizontalAlignment.Center)
        lv.Columns.Add("TUNJANGAN KELUARGA", 180, HorizontalAlignment.Center)
        lv.Columns.Add("TUNJANGAN ANAK", 180, HorizontalAlignment.Center)
        lv.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.MultiSelect = True


    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = nik.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(bagian.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji_pokok.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(jlh_anak.Text)
        lst.SubItems.Add(t_keluarga.Text)
        lst.SubItems.Add(t_anak.Text)
        lst.SubItems.Add(t_gaji.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM011")



        jabatan.Items.Add("Kepala Divisi")
        jabatan.Items.Add("Wakil Kepala")
        jabatan.Items.Add("Staff")


        status.Items.Add("Menikah")
        status.Items.Add("Belum_Menikah")

        For i = 20 To 1 Step -1
            jlh_anak.Items.Add(i)

        Next i

        BuatTabel1()
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        IsiTabel()
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gaji_pokok.Text = ""
        jlh_anak.Text = ""
        pajak.Text = ""
        status.Text = ""
        t_keluarga.Text = ""
        t_anak.Text = ""
        t_gaji.Text = ""
    End Sub

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

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

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text

            Case "PM010"
                nama.Text = "Hattory Hanzo"


            Case "PS111"
                nama.Text = "Keji Maeda"


            Case "KU101"
                nama.Text = "Tsubasa Ozora"


            Case "GD100"
                nama.Text = "Taro Misaki"


            Case "PM011"
                nama.Text = "Nobunaga Oda"

        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Left(nik.Text, 2)

        Select Case x

            Case "PM"
                bagian.Text = "Pemasaran"

            Case "PS"
                bagian.Text = "Personalia"
            Case "KU"
                bagian.Text = "Keuangan"
            Case Else

                bagian.Text = "Gudang"


        End Select
    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text

            Case "Kepala Divisi"
                gaji_pokok.Text = "5000000"

            Case "Wakil Kepala"
                gaji_pokok.Text = "3500000"

            Case "Staff"
                gaji_pokok.Text = "2000000"




        End Select

        pajak.Text = 0.1 * Val(gaji_pokok.Text)

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        t_keluarga.Text = 0.15 * gaji_pokok.Text
    End Sub

    Private Sub jlh_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_anak.SelectedIndexChanged
        Select Case jlh_anak.Text

            Case "1"
                t_anak.Text = 0.05 * gaji_pokok.Text

            Case Else

                t_anak.Text = 0.1 * gaji_pokok.Text

        End Select

        t_gaji.Text = Val(gaji_pokok.Text) + Val(t_keluarga.Text) + Val(t_anak.Text) - Val(pajak.Text)
    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gaji_pokok.Text = ""
        jlh_anak.Text = ""
        pajak.Text = ""
        status.Text = ""
        t_keluarga.Text = ""
        t_anak.Text = ""
        t_gaji.Text = ""
    End Sub

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


tampilan hasil setelah di compile




Diposting oleh di Tidak ada komentar:

Sabtu, 02 November 2013

Tugas Belajar Bahasa Pemograman







Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If MsgBox("Yakin Ingin Keluar", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.No Then
            e.Cancel = True
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13110328")
        npm.Items.Add("13020111")
        npm.Items.Add("13031200")
        npm.Items.Add("13110234")
        kode_dosen.Items.Add("D02")
        kode_dosen.Items.Add("D01")
        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
            kehadiran.Items.Add(i)
        Next i
        For i = 1 To 100
            tugas.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            uts.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            uas.Items.Add(i)
        Next i
    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 = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        nama_matakuliah.Text = ""
        kehadiran.Text = ""
        tugas.Text = ""
        uts.Text = ""
        uas.Text = ""
        akhir.Text = ""
        huruf.Text = ""
        keterangan.Text = ""
        npm.Focus()
    End Sub

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

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "13110328"
                nama.Text = "khaled zein fadhilah"
            Case "13020111"
                nama.Text = "Enoza stefanny"
            Case "13031200"
                nama.Text = "Fachrul rozi"
            Case "13110234"
                nama.Text = "Kenzano biofa"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jenjang.Text = "S1"
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "02" Then
            jenjang.Text = "D3"
            jurusan.Text = "Teknik Informatika"
        Else
            jenjang.Text = "D1"
            jurusan.Text = "Design Grafis"
        End If
    End Sub
    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "D01"
                nama_dosen.Text = "Mesran, S.Kom, M.Kom"
            Case "D02"
                nama_dosen.Text = "Tonni Limbong, S.Kom, M.Kom"
            Case "D03"
                nama_dosen.Text = "Yasir Hasan, S.Kom"
        End Select
    End Sub
    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "M01"
                nama_matakuliah.Text = "Pemograman Visual"
            Case "M02"
                nama_matakuliah.Text = "Sistem Basis Data"
            Case "M03"
                nama_matakuliah.Text = "Sistem Operasi"
        End Select
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        akhir.Text = 0.1 * Val(kehadiran.Text) + 0.15 * Val(tugas.Text) + 0.35 * Val(uts.Text) + 0.4 * Val(uas.Text)
        Select Case akhir.Text
            Case Is >= 80
                huruf.Text = "A"
            Case 70 To 79
                huruf.Text = "B"
            Case 60 To 69
                huruf.Text = "C"
            Case 50 To 59
                huruf.Text = "D"
            Case Is <= 49
                huruf.Text = "E"
        End Select
        Select Case huruf.Text
            Case "A"
                keterangan.Text = "Lulus"
            Case "B"
                keterangan.Text = "Lulus"
            Case "C"
                keterangan.Text = "Lulus"
            Case Else
                keterangan.Text = "Gagal"
        End Select
    End Sub
End Class



Tugas Belajar Bahasa Pemograman
Diposting oleh di Tidak ada komentar:
Langganan: Komentar (Atom)