Quis OnLine ListView Perhitungan Penjualan Barang

Ini adalah jawaban 1 Quis OnLine ListView Perhitungan Penjualan Barang  Pemograman Visual Basic.Net.

1. Desain Form

2. Listing Programnya:
Public Class Latihan2

    Private Sub Latihan2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buatTabel()

        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Dim i As String
        i = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        If KodeBarang.Text = "TS001" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 4 GB"
            Harga.Text = "105000"
        ElseIf KodeBarang.Text = "TS002" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 2 GB"
            Harga.Text = "75000"
        ElseIf KodeBarang.Text = "VG001" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 4GB"
            Harga.Text = "90000"
        ElseIf KodeBarang.Text = "VG002" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 2GB"
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TotalHarga.Text = JumlahBeli.Text * Harga.Text
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NoPembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub

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

    Private Sub JumlahBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TotalHarga.Text = Harga.Text * JumlahBeli.Text
        End If
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub
    Sub buatTabel()
        ListView1.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = (NoPembelian.Text)
        Lst.SubItems.Add(KodeBarang.Text)
        Lst.SubItems.Add(NamaBarang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(JumlahBeli.Text)
        Lst.SubItems.Add(TotalHarga.Text)
        ListView1.Items.Add(Lst)
    End Sub

    Private Sub BtnSimpanKeListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListView.Click
        IsiTabel()
    End Sub

    Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub BtnHapusDataYangDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataYangDiPilih.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub
End Class

3. Hasil Programnya :

Sekian dan Terimakasih...!!!!!

TUGAS BPC PERTEMUAN KE-7

Ini dia nih tugas Budidarma Programming Club (BPC) pertemuan ke-7.
Gak terlalu payah, asal ada kemauan aja.
:p
1. Desain Form

2. Listing programnya:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TipeKamar.Items.Add("EKONOMI")
        TipeKamar.Items.Add("VIP")
    End Sub

MEMBUAT SEGITIGA ANGKA DENGAN LOOPING

Misi ya gan, mau iseng2 posting tugas dulu neh..
Skalian nambahin postingan gitu. Mudahan bermanfaat.
Langsung aja neh gan.

1. Desainlah Formnya seperti gambar dibawah ini dan atur juga propertinya.

Ketikkan aja nih listinya gan yah:
Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(Nilai.Text)
        Hasil.Clear()

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Tugas Belajar Bahasa Pemograman

1.Desainlah Form dan atur propertinya seperti gambar di bawah ini:

2. Kemudian ketiklah listing program seperti dibawah ini :

Public Class Form_Nilai

    Private Sub Form_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeDosen.Items.Add("113421")
        KodeDosen.Items.Add("222342")
        KodeMataKuliah.Items.Add("0051")
        KodeMataKuliah.Items.Add("0072")
        NPM.Items.Add("12110728")
        NPM.Items.Add("12119008")
        NPM.Items.Add("12118879")
        Dim i As Integer
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiTugas.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiUTS.Items.Add(i)
        Next i
        For i = 1 To 100
            NilaiUAS.Items.Add(i)
        Next i
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        MataKuliah.Text = " "
        Nama.Text = " "
        NamaDosen.Text = ""
        NilaiKehadiran.Text = " "
        NilaiTugas.Text = " "
        NilaiUTS.Text = " "
        NilaiAkhir.Text = " "
        NilaiUAS.Text = " "
        Jenjang.Text = ""
        NPM.Text = ""
        KodeMataKuliah.Text = ""
        KodeDosen.Text = ""
        Keterangan.Text = ""
        NilaiHuruf.Text = ""
        Jurusan.Text = ""
    End Sub

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

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Dim z As String
        z = KodeDosen.Text
        If z = "113421" Then
            NamaDosen.Text = "Tonni Limbong S.Kom,M.Kom"
        ElseIf z = "222342" Then
            NamaDosen.Text = "Sinar Sinurat, ST, M.Kom"
        End If
    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
        Dim p As String
        p = KodeMataKuliah.Text
        If p = "0051" Then
            MataKuliah.Text = "Pemograman Visual Basic"
        ElseIf p = "0072" Then
            MataKuliah.Text = "Matematika Diskrit"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim a As String
        a = NPM.Text
        If NPM.Text = "12110728" Then
            Nama.Text = "Bister Purba"
        ElseIf NPM.Text = "12119008" Then
            Nama.Text = "Anto"
        ElseIf NPM.Text = "12118879" Then
            Nama.Text = "Ani"
        End If
    End Sub
End Class

3. Setelah itu, jalankan program Visual Basic.Net dengan menekan F5 atau (Shortcut Run) dan akan muncul hasilnya seperti pada gambar di bawah ini :

Sekian Dan Terimakasih.

Hanya Sekedar Humor

Sepasang suami istri sedang berebut remot TV.
Si suami senangnya menonton acara sepak bola sedangkan si istri senang menonton acara masak.
Beginilah bunyi televisi karena mereka saling ganti-ganti siaran hingga kedengarannya gak karuan ! !

1 kg daging ayam di tendang ronaldo.
5 siung bawang berdiri off side.
Daging direbus oleh wasit.
Bumbu yg sudah di haluskan di kenai kartu kuning.
Bola di bawa lantas dikukus 1/2 masak.
Kiper dipotong2 ditusuk lantas sate.
Hakim garis angkat bendera sinyal ayam sudah matang.

Smoga sobat terhibur kalaupun sudah pernah mendengar atau membacanya.
Sekian dulu postingan iseng-iseng ane....

Membuat Tulisan Seperti Mengetik Pada VB.NET

1. Desainlah formnya seperti gambar berikut dengan menambahkan satu buah Label dan satu buah Timer.

2. Kemudian ketikkan saja koding di bawan ini:
Public Class Form1
    Dim tulisan(3) As String
    Dim i, j As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tulisan(0) = " Welcome to www.bisterpurba.blogspot.com "
        tulisan(1) = " Thank's for coming and please come back any time "
        tulisan(2) = " Good Luck !!! ... "
        tulisan(3) = " Waktu menunjukkan pukul : " & TimeValue(Date.Now) & " "

CARA INSTAL WINDOWS 8

Setelah sukses dengan Windows 7, perusahaan sistem operasi windows kembali meluncurkan sistem operasi berbasis windows terbarunya, yaitu Windows 8. OS terbaru ini dipersiapkan sematang mungkin agar bisa tampil dengan elegan dan performa yang ciamik.

Jika anda mempunyai DVD installer Windows 8 pro dan mengalami kesulitan bagaimana cara menginstalnya, maka saya berikan tutorial bagaimana cara install windows 8 pro lengkap dengan gambar sehingga anda lebih mudah dalam melakukan instalasi windows 8 pro.

Berikut ini Langkah langkah Cara menginstall windows 8 Pro :

1. Nyalakan komputer, masuk ke menu bios dengan menekan tombol DEL atau F2. Pada beberapa PC/Laptop pengaturannya bisa berbeda, pastikan untuk memperhatikan pesan awal yang ditampilkan, atur supaya boot awal dari CD/DVD, masukkan DVD installer Windows 8.

2. Setelah booting dari CD/DVD tekan pada sembarang tombol.

3. Berbeda dengan pendahulunya saat pertama Windows 8 memuat file setup, kita akan disuguhi layar hitam dengan jendela ditengah, seperti gambar yang di bawah ini.

4. Setelah proses diatas tersebut selanjutnya akan ditampilkan pengaturan bahasa, waktu, mata uang dan pengaturan input keyboard, klik Next apabila telah selesai melakukan pengaturan.

STACK DALAM STRUKTUR DATA

           Stack adalah suatu urutan elemen yang elemennya dapat diambil dan ditambah hanya pada posisi akhir (top) saja. Contoh dalam kehidupan sehari-hari adalah tumpukan piring di sebuah restoran yang tumpukannya dapat ditambah pada bagian paling atas dan jika mengambilnya pun dari bagian paling atas pula. Lihat gambar 1.

             Ada 2 operasi paling dasar dari stack yang dapat dilakukan, yaitu :
1. Operasi push yaitu operasi menambahkan elemen pada urutan terakhir (paling atas).
2. Operasi pop yaitu operasi mengambil sebuah elemen data pada urutan terakhir dan menghapus elemen tersebut dari stack.
         Sebagai contoh, misalkah ada data sebagai berikut : 1 3 5 6, maka data tersebut dapat tersimpan dalam bentuk sebagai berikut :

SISTEM BASIS DATA

Bahasa Query Komersial

Pemrograman Database dengan SQL
Structured Query Language (SQL) adalah bahasa standard untuk melakukan berbagai
operasi data pada database, diantaranya mendefinisikan tabel, menampilkan data
dengan kriteria tertentu, menambahkan data hingga menghapus data tertentu.
Penggunaan SQL pada beberapa bahasa pemrograman secara umum relatif sama.

Berikut akan dijelaskan beberapa perintah SQL yang sering digunakan dalam operasi
pemrograman database.
1. Mengubah struktur sebuah database.
2. Mengubah pengaturan keamanan sistem.
3. Memberikan hak akses kepada pengguna untuk mengakses database atau table.
4. Memperoleh informasi dari database.
5. Memutakhirkan isi database.
Berikut saya akan memberikan contoh pembuatan database tentang LPK (Lembaga Pendidikan Kursus)dengan menggunakan SQL.Database tersebut terdiri dari 3 tabel yaitu:
1.Tabel Siswa
Tabel tersebut mempunyai 3 field yang terdiri dari:
a.NIS dengan tipe Char(8)
b.Nama dengan tipe Char(25)
c.Alamat dengan tipe Char(30)
2.Tabel Kursus
Tabel tersebut mempunyai 3 field yang terdiri dari:
a.ID_kursus dengan tipe Char(5)
b.Nm_kursus dengan tipe Char(25)
c.Satuan dengan tipe Char(25)
3.Tabel Instruktur
Tabel tersebut mempunyai 3 field yang terdiri dari:
a.id_instruktur dengan tipe Char(8)
b.nm_instruktur dengan tipe Char(25)
c.Alamat dengan tipe Char(25)

LANGKAH-LANGKAH PEMBUATAN DATABASE

INSTALASI SISTEM OPERASI BERBASIS GUI (WINDOWS XP)

Cara Instalasi Sistem Operasi Berbasis GUI (Windows XP)

Windows XP adalah suatu sistem pengoperasian (operating system) yang paling banyak dipakai sampai saat ini karena selain kemudahan dalam pemakaiannya Windows XP digunakan sebagai standarisasi pembelajaran yang di pakai oleh sekolahan-sekolahan dan perguruan tinggi pada umumnya.
Untuk melakukan penginstalan windows xp diperlukan ketelitian dan kesabaran dalam prosesnya karena memerlukan waktu yang lumayan lama.
Ada beberapa jenis windows xp diantaranya windows xp professional, Home Edition, Media Center Edition, Tablet PC Edition, Starter Edition, Professional x64 Edition, Professional 64-bit Edition For Itanium.
berikut langkah-langkah yang mudah dan lengkap cara menginstal windows xp :

1. Siapkan CD WINDOWS XP

2. Siapkan CD DRIVER MOTHERBOARD

3. Atur bios terlebih dahulu agar prioritas bootingnya dimulai dari CD(DVD)-ROM, caranya:

a. Masuk ke BIOS dengan menekan tombol Del, atau F1, atau juga F2.
Pilih menu Advanced Settings, kemudian carilah ‘Boot Priority’ atau yang sejenis.

b. ubah pengaturanya, agar CDROM jadi urutan yang pertama kemungkinan pilihan ini ada 2 jenis
* menu ‘First boot priority’, ‘Second boot priority’ dll: Aturlah ‘First boot priority’ ke ‘CDROM’ dengan menekan tombol PgDn/Pgup (Page Down/Up) atau +/-.
Atur juga ‘Second boot priority’nya ke HDD0/HDD1.
* Jika menunya ‘Boot priority’: atur ke ‘CDROM, C, A’ atau ‘CDROM, A,

C. dengan menekan tombol PgDn/Up.

Cara paling mudah instal windows xp
(lengkap dengan gambar):

gak usah di utak-atik biosnya. biarin aja bios diload masukin CD WINDOWSnya, lalu Restart komputer, trus tekan-tekan F8 atau F10 atau F11 (boleh dicoba satu-satu) nanti bakal muncul opsi boot selection. pilih aja yg ada ‘bau’ cd-nya. trus enter. selesai deh…ga pake repot-repot…

4. Tunggu beberapa saat sampai muncul tulisan “press any key to boot from CD” seperti tampilan Seperti gambar di bawah ini

5. Tekan ENTER atau sembarang tombol, lalu proses instalasi akan mengecek hardware komputer anda, kemudian akan muncul tulisan “windows setup” seperti gambar dibawah ini

6. lalu file-file di dalam cd akan di load ke dalam komputer, kemudian akan muncul tampilan “welcome to setup” seperti gambar dibawah ini

LOOPING PADA VB.NET

Struktur Pengulangan di VB.NET

Ada 4macam struktur pengulangan :
1.For-Next
2.Do While - Loop
3.Do Until - Loop
4.While - End While

untuk mencobanya mari kita buka VB.NET

Pilih New Project->Windows Form Application->beri nama Struktur Pengulangan VB.NET->OK

Operasi String VB.Net

Berikut adalah beberapa contoh dasar operasi string tersebut :

Fungsi : Len

Deskripsi : Menghasilkan panjang string

Syntax: Len(string)

Contoh :

1. lngLen = Len("Visual Basic")

Hasil: lngLen = 12

Fungsi : Mid$ (or Mid)

Rahasia Seorang Ayah

1. Ayah ingin anak-anaknya punya lebih banyak kesempatan daripada dirinya, menghadapi lebih sedikit kesulitan, lebih tidak tergantung pada siapapun, dan selalu membutuhkan kehadirannya.

2. Ayah membiarkan kamu menang dalam permainan ketika kamu masih kecil, tapi dia tidak ingin kamu membiarkannya menang ketika kamu sudah besar.

3. Ayah tidak ada di album foto keluarga, karena dia yang selalu memotret.

Makalah Tentang Intel Celeron

EVOLUSI DAN KINERJA KOMPUTER INTEL CELERON

D

I

S

U

S

U

N

OLEH KELOMPOK I KELAS TI-P 1207

1.     Alwin Fau

2.     Bister Purba

3.     Hotman Siagian

4.  Sulian Arief

Tentang Mesran[dot]Net

Mesran.Net merupakan salah website yang berguna untuk belajar bahasa pemrograman. Pada mesran.net terdiri beberapa artikel diantaranya artikel mengenai tips tips belajar bahasa pemrograman serta beberapa bahasa pemrograman salah satunya Visual Basic dot Net serta program berorientasi Database sebagai contoh : Program Visual Basic Net Simpan Edit Hapus Record Pada Database Access.
Menurut saya, website ini merupakan tempat belajar yang sangat menarik. Selain praktek di Lab, kita dapat mendownload contoh-contoh aplikasi program yang telah disediakan guna pembelajaran lebih mendalam, serta berbagai software-software.

Selain itu  pada mesran.net kita bisa melihat informasi-informasi penting khususnya melihat IP, daftar jadwal mata kuliah dan lain sebagainya. Tetapi kita harus terlebih dahulu menjadi member di mesran.net.
Selamat berkunjung kawan dan temukan artikel-artikel menarik dan bermanfaat tentunya.

Mesran.net memang tempatnya " Hanya ingin berbagi kebaikan dan mendapatkan kebaikan lain".

Strings Pada VB.Net

Pemakaian fungsi string pada program vb net digunakan untuk mengambil beberapa deretan string dari string yang ada.

A. Fungsi String Left, digunakan untuk mengambil nilai string dari posisi sebelah kiri.

Contoh penggunaan :

xkata = left(kata, jumlah)

Sejarah Komputer

PERKEMBANGAN EVOLUSI KOMPUTER DARI ENIAC SAMPAI MIKROPROSESOR

Berdasarkan perkembangan teknologi komputer, perkembangannya dapat dibagi menjadi 5 Generasi :

1. Generasi Pertama (1940 – 1959)
2. Generasi Kedua (1959 – 1964)
3. Generasi Ketiga (1964 – 1970)
4. Generasi Keempat (Sejak 1970)
5. Generasi Kelima (Sekarang)

Pada saat kita membeli HP second tentunya kita tidak tahu secara persis dari mana barang tersebut, nah dengan cara khusus kita bisa mengetahui dimana HP tersebut dibuat. Caranya yaitu : HP harus yang GSM Perhatikan nomer IMEI nya jika tidak ada coba ketik *#06# di layar standby setelah itu nomer IMEI akan keluar. Misal 351863014873265 Perhatikan 2 angka urutan 7 dan 8 dari kiri. Jika angka 7 & 8 adalah 02 atau 20 maka artinya HP tersebut dibuat di Asia yang berkualitas jelek. Jika angka 7 & 8 adalah 08 atau 80 maka artinya HP tersebut dibuat di Jerman yang berkualitas tidak terlalu jelek. Jika angka 7 & 8 adalah 01 atau 10 maka artinya HP tersebut dibuat di Finlandia yang berkualitas bagus. Jika angka 7 & 8 adalah 00 maka artinya HP tersebut dibuat di Perancis yang berkualitas terbaik.

Pertama kali ngebuat blog.. Rasanya lumayan membingungkan..