Soal 2 - Form Total Pembayan TV

Quiz Online, 8 Desember 2013

Soal 2

Berikut ini  design form untuk mencari total pembayaran atas penjualan TV SONY dengan menggunakan program VB net :

Listing Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        namabarang.Items.Add("SONY001")
        namabarang.Items.Add("SONY002")
        namabarang.Items.Add("SONY003")
        namabarang.Items.Add("SONY004")
        namabarang.Items.Add("SONY005")

        Dim x As Byte
        For x = 1 To 10
            jumlahjual.Items.Add(x)
        Next
    End Sub

    Private Sub namabarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namabarang.SelectedIndexChanged
        Select Case namabarang.Text
            Case "SONY001"
                harga.Text = "1000000"
            Case "SONY002"
                harga.Text = "2000000"
            Case "SONY003"
                harga.Text = "3000000"
            Case "SONY004"
                harga.Text = "4000000"
            Case "SONY005"
                harga.Text = "5000000"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        totalharga.Text = harga.Text * jumlahjual.Text

        If totalharga.Text > 2500000 Then
            diskon.Text = 0.1 * totalharga.Text
        Else
            diskon.Text = 0
        End If

        totpembayaran.Text = totalharga.Text - diskon.Text
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        namabarang.Text = ""
        harga.Text = ""
        jumlahjual.Text = ""
        totalharga.Text = ""
        diskon.Text = ""
        totpembayaran.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
End Class

Demikian disampaikan, terimakasih... :)

Soal 1 - Form Nilai Mahasiswa menggunakan ListView

Quiz Online, 8 Desember 2013

Soal 1

Berikut ini design form untuk mencari nilai mahasiswa menggunakan ListView :

Listing Program :

Public Class Form1
    Sub BuatTabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Dosen", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Kode Mata Kuliah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Mata Kuliah", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai Kehadiran", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai Tugas", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai UTS", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai UAS", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Keterangan", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = npm.Text
        Lst.SubItems.Add(namamhs.Text)
        Lst.SubItems.Add(jenjang.Text)
        Lst.SubItems.Add(jurusan.Text)
        Lst.SubItems.Add(kodedosen.Text)
        Lst.SubItems.Add(namadosen.Text)
        Lst.SubItems.Add(kodematakuliah.Text)
        Lst.SubItems.Add(matakuliah.Text)
        Lst.SubItems.Add(nkehadiran.Text)
        Lst.SubItems.Add(ntugas.Text)
        Lst.SubItems.Add(nuts.Text)
        Lst.SubItems.Add(nuas.Text)
        Lst.SubItems.Add(nakhir.Text)
        Lst.SubItems.Add(nhuruf.Text)
        Lst.SubItems.Add(keterangan.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        namamhs.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        namadosen.Text = ""
        kodematakuliah.Text = ""
        matakuliah.Text = ""
        nkehadiran.Text = ""
        ntugas.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        nakhir.Text = 0.1 * nkehadiran.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text

        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
        Else
            nhuruf.Text = "E"
        End If

        If nakhir.Text >= 60 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAL"
        End If
    End Sub

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

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select npm.Text
            Case "12110010"
                namamhs.Text = "apry anita"
                jenjang.Text = "Diploma I"
                jurusan.Text = "Sistem Informasi"
            Case "12110020"
                namamhs.Text = "katarina"
                jenjang.Text = "Diploma III"
                jurusan.Text = "Manejemen Informasi"
            Case "12110030"
                namamhs.Text = "batara putra"
                jenjang.Text = "Strata I"
                jurusan.Text = "Teknik Informasi"
        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 "00111"
                namadosen.Text = "Mesran M.Kom"
            Case "00222"
                namadosen.Text = "Aulia S.Kom"
            Case "00333"
                namadosen.Text = "Alex M.Kom"
        End Select
    End Sub

    Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged
        Select Case kodematakuliah.Text
            Case "01"
                matakuliah.Text = "Pemograman Visual"
            Case "02"
                matakuliah.Text = "Sistem Operasi"
            Case "03"
                matakuliah.Text = "Struktur Data"
        End Select
    End Sub

    Private Sub nkehadiran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nkehadiran.SelectedIndexChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110010")
        npm.Items.Add("12110020")
        npm.Items.Add("12110030")
        kodedosen.Items.Add("00111")
        kodedosen.Items.Add("00222")
        kodedosen.Items.Add("00333")
        kodematakuliah.Items.Add("01")
        kodematakuliah.Items.Add("02")
        kodematakuliah.Items.Add("03")

        Dim x As Byte
        For x = 10 To 100
            nkehadiran.Items.Add(x)
            ntugas.Items.Add(x)
            nuts.Items.Add(x)
            nuas.Items.Add(x)
        Next

        BuatTabel()
    End Sub

    Private Sub simpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpankelistview.Click
        IsiTabel()
        npm.Text = ""
        namamhs.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        namadosen.Text = ""
        kodematakuliah.Text = ""
        matakuliah.Text = ""
        nkehadiran.Text = ""
        ntugas.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub hapusdataygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdataygdipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub hapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemuadata.Click
        LV.Items.Clear()
    End Sub
End Class


Demikian disampaikan,, terimakasih......

Contoh Project dalam Visual Studio

Hii sahabat ku yg baik hatinya ... :)

Dalam info kali ini ,,,
kita akan membahas tentang pemograman visual dengan menggunakan aplikasi visual studio.
aku akan share sedikit pengetahuan mengenai cara membuat project baru.
contohnya membuat FORM GAJI PEGAWAI..

Design form seperti gambar berikut : 

 Listing program :


Public Class Form1

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

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nik.Text = ""
        nama.Text = ""
        bag.Text = ""
        jab.Text = ""
        gpokok.Text = ""
        pajak.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        tkeluarga.Text = ""
        tanak.Text = ""
        totalgaji.Text = ""
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM011")
        jab.Items.Add("kepala divisi")
        jab.Items.Add("staff")
        jab.Items.Add("wakil kepala")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")

        Dim x As Byte
        For x = 1 To 5
            jlhanak.Items.Add(x)
        Next

    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 = "apryanita"
            Case "PS111"
                nama.Text = "katarina"
            Case "KU101"
                nama.Text = "christina"
            Case "GD100"
                nama.Text = "putra"
            Case "PM011"
                nama.Text = "shido"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Left(nik.Text, 2)
        If x = "PM" Then
            bag.Text = "Pemasaran"
        ElseIf x = "PS" Then
            bag.Text = "Personalia"
        ElseIf x = "KU" Then
            bag.Text = "Keuangan"
        ElseIf x = "GD" Then
            bag.Text = "Gudang"
        End If


    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jab.SelectedIndexChanged
        Select Case jab.Text
            Case "kepala divisi"
                gpokok.Text = 5000000
            Case "staff"
                gpokok.Text = 2000000
            Case "wakil kepala"
                gpokok.Text = 3500000
        End Select
        pajak.Text = 0.1 * gpokok.Text
    End Sub


    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "menikah" Then
            tkeluarga.Text = 0.15 * gpokok.Text
        Else
            tkeluarga.Text = 0
        End If
    End Sub

    Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.SelectedIndexChanged
        If jlhanak.Text = 1 Then
            tanak.Text = 0.05 * gpokok.Text
        Else
            tanak.Text = 0.1 * gpokok.Text
        End If

        totalgaji.Text = Val(gpokok.Text) + Val(tkeluarga.Text) + Val(tanak.Text) - Val(pajak.Text)
    End Sub
End Class








Sekian guyss,, semoga membantu .. :)

Peduli Sinabung...

Tanggal 3 desember 2013, aku bersama crew dari kantor beramai-ramai mengunjungi para korban erupsi gunung sinabung,,,

dengan membawa beberapa sumbangan,, yaa lumayan lahh untuk membantu meringankan kehidupan sehari-hari mereka di posko.

posko yg pertama kali dikunjungi ada lah..

Posko UK

 

Tips Mengatasi Masalah Keyboard Error pada Blackberry

Karena faktor cuaca (misal suhu yang dingin) ada kemungkinan Blackberry kamu juga kena inpasnya, misalnya Keyboard di BB kamu jadi ngaco, saat kamu menekan tombol del, yang keluar malah huruf “ws” di layar BB kamu. Cara sederhana mengatasi masalah Keyboard yang ngaco di Blackberry karena faktor cuaca dingin adalah seperti di bawah ini

    * Sambungkan BB kamu ke komputer atau laptop kamu.

    * Jalankan “Desktop Manager”.

    * Kemudian klik “Backup and Restore”.

    * Pada Backup Option klik Back Up.

    * Setelah proses Back Up selesai, biarkan BB kamu tersambung ke komputer untuk beberapa saat.