Copyright @ 2014 Pengetahuan. Diberdayakan oleh Blogger.

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikan Kasus Berikut:
KasusPemrograman : latihan listview perhitungan penjualan barang



Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode_Barang.Items.Add("TS001")
        Kode_Barang.Items.Add("TS002")
        Kode_Barang.Items.Add("VG001")
        Kode_Barang.Items.Add("VG002")
        Call buattabel()
    End Sub

    Private Sub Kode_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Barang.SelectedIndexChanged
        Jumlah_Beli.Focus()
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode_Barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(Kode_Barang.Text, 3)
        If x = "001" Then
            Nama_Barang.Text = "Flashdisk 4Gb"
            Harga.Text = 105000
        ElseIf x = "002" Then
            Nama_Barang.Text = "Flashdisk 2Gb"
            Harga.Text = 75000
        ElseIf x = "001" Then
            Nama_Barang.Text = "Flashdisk 4Gb"
            Harga.Text = 90000
        ElseIf x = "002" Then
            Nama_Barang.Text = "Flashdisk 2GB"
            Harga.Text = 60000
        End If

      
    End Sub

    Private Sub Jumlah_Beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_Beli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Total_Harga.Text = Jumlah_Beli.Text * Harga.Text
        End If
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Left)
        Lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Merk", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = No_Pembelian.Text
        lst.SubItems.Add(Kode_Barang.Text)
        lst.SubItems.Add(Nama_Barang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah_Beli.Text)
        lst.SubItems.Add(Total_Harga.Text)
        Lv.Items.Add(lst)
        No_Pembelian.Text = ""
        Kode_Barang.Text = ""
        Nama_Barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah_Beli.Text = ""
        Total_Harga.Text = ""
    End Sub

    Private Sub Simpan_keListview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_keListview.Click
        Call isitabel()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        No_Pembelian.Text = ""
        Kode_Barang.Text = ""
        Nama_Barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah_Beli.Text = ""
        Total_Harga.Text = ""
    End Sub

    Private Sub Hapus_semua_Data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_semua_Data.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Hapus_Data_yg_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_Data_yg_dipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    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


Hasil Program:

Demikianlah Postingan Saya:
Nama :Ari Ramadani
Npm  : 13110975

Selamat Belajar Pemrograman VB NET

Belajar Bahasa Pemoggraman

Haaii Temen-Temen….

Postingan yang ini beda dari yang lain nya loh. Kali ini saya akan memostingkan tentang belajar bahasa pemoggraman.Saya akan memberikan info pada para temen-temen di mana kita bisa belajar bahasa pemrograman melaui situs Mesran.Blogspot.Com.
Mesran.Blogspot.Com merupakan situs web yang mengulas tentang bahasa pemrograman .


Di Mesran.Blogspot.Com terdiri beberapa artikel diantaranya artikel mengenai tips tips belajar bahasa pemrograman serta beberapa bahasa pemrograman salah satunya Visual Basic dot Net , PHP, C/C++, Java , Pascal dan masih banyak lain nya.Jika temen-temen belom ahli pemoggraman,kunjungi segera ,,,,

Kamera Mirroress Terbaru dari Canon bakal Mempunyai Sensor 50MP

Canon diharapkan bakal segera merilis produk kamera terbarunya, utamanya kamera mirrorless yang masuk dalam seri EOS M. Menurut rumor yang tengah beredar di internet, Canon siap merilis EOS M3 dalam waktu dekat, paling cepat sebelum pergantian tahun.
Kamera tersebut pun bakal hadir dengan sensor 50MP. Dan setelah diperkenalkan pada tahun ini, Canon akan mulai memasarkannya pada tahun 2015 mendatang. Selain itu, kabar dari sumber lain mengungkapkan kalau kamera mirrorless ini akan dilengkapi dengan sensor APS-C.
Sebelumnya, salah satu petinggi Canon pernah memberikan petunjuk kalau mereka akan menghadirkan kamera yang benar-benar fresh. Bahkan ada yang berspekulasi kalau kamera terbaru dari Canon tersebut akan menggunakan sensor 50MP full frame.

Menggunakan Teknologi Magnetik, Multi Elevator Bisa Bergerak ke Berbagai Arah

Desain elevator dalam beberapa tahun mendatang bakal mempunyai bentuk yang menarik. Elevator tak hanya akan bisa bergerak secara vertikal, tapi juga sekaligus secara horizontal. Hal ini pun diungkapkan oleh sebuah perusahaan asal Jerman bernama TyssenKrupp yang memperkenalkan desain elevator bernama Multi.
Elevator tersebut didesain dengan menggunakan tanpa kabel. Sebagai gantinya, elevator ini hadir dengan teknologi motor linear magnetik yang memungkinkannya bisa bergerak ke arah horizontal ataupun vertikal. Dengan begitu, keberadaan elevator ini pun bisa memberikan ruang lebih banyak kepada para pemilik gedung.

Elevator tanpa kabel seperti ini bukanlah yang pertama kalinya. Elevator MagneMotion telah menggunakan sistem serupa yang digunakan untuk mengirimkan senjata pada pesawat pengangkut. Namun, Multi Elevator ini akan menjadi elevator pertama yang bakal digunakan secara komersial. Bahkan TyssenKrupp berencana untuk melakukan uji coba secara langsung pada tahun 2016.

Rokok Elektrik 10 Kali lebih Berbahaya Dibandingkan Rokok Biasa

Merokok bukanlah sebuah aktivitas yang sehat dan bahkan lebih banyak merugikan baik bagi diri sendiri ataupun orang di sekitar. Terlebih lagi kalau Anda menggunakan rokok elektrik. Menurut sebuah penelitian di Jepang, rokok elektrik ternyata mempunyai risiko penyakit kanker 10 kali lebih tinggi dibandingkan rokok biasa.
Para peneliti yang berada di bawah arahan Kementerian Kesehatan Jepang tersebut menemukan kandungan senyawa kimia berbahaya seperti formaldehid serta asetaldehid dalam uap yang dikeluarkan oleh rokok elektrik. Formaldehide sendiri merupakan senyawa yang biasa dijumpai pada material bangunan serta cairan pembalseman. Sementara Asetaldehide tercipta dalam jumlah kecil secara alami. Namun senyawa ini biasanya digunakan oleh industri untuk membuat asam dan bahan kimia lainnya.

Dr Naoki Kunugita dari National Institue of Public Health Jepang mengatakan, rokok elektrik sama sekali jauh berbeda dengan rokok biasa. “Anda mungkins saja menyebutnya rokok elektronik, namun produk tersebut sangat jauh berbeda dengan rokok biasa,” ujarnya. Lebih lanjut, Dr Naoki pun mengatakan kalau pemerintah Jepang akan mendalami lebih lanjut mengenai risiko yang disebabkan oleh rokok elektronik.
Rokok elektronik sendiri merupakan produk yang dilarang di Jepang. Dan nampaknya, dengan adanya penelitian ini, sangat kecil kemungkinannya kalau pemerintah Jepang memperbolehkan penggunaan rokok elektronik di wilayahnya.

Samsung akan Luncurkan Smartphone Tizen Murah Samsung Z1 pada 10 Desember Mendatang

Sistem operasi Tizen telah dikembangkan oleh Samsung bersama Intel dengan harapan bisa menyaingi platformAndroid. Sayangnya, handphone Tizen pertama dunia, yakni Samsung Z yang telah secara resmi diperkenalkan oleh Samsung hingga kini belum mulai dijual ke pasaran. Kabar menyebutkan kalau perusahaan asal Korea Selatan itu memilih untuk tak menjual Samsung Z dan lebih fokus pada pengembangan smartphone Tizen low end.
Dan kini, menurut kabar dari media Korea Maeil Business, Samsung tengah menyiapkan ponsel Tizen terbaru yang ditujukan untuk segmen bawah. Handphone itu kabarnya mempunyai nama Samsung Z1 dan akan diperkenalkan kepada publik pada tanggal 10 Desember mendatang. Pihak Samsung pun kabarnya memilih India sebagai lokasi peluncuran resmi smartphone itu.


Tak hanya kabar mengenai peluncurannya, spesifikasi handphone ini pun bahkan sudah ada bocorannya. Handphone tersebut bakal dijual dengan harga berkisar di angka 1 jutaan. Untuk spesifikasinya, ponsel ini bakal mempunyai layar 4 inci dengan resolusi 480 x 800 piksel, prosesor dual core Spreadtrum 1,2GHz, RAM 512MB kamera utama 3,2MP, kamera VGA di bagian depan serta menggunakan UI yang mirip dengan TouchWiz.