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

Selesaikanlah Kasus Berikut :

Tugas PraktikuM  Programan Penjualan Barang

Design form seperti dibawah ini:  

 

Public Class Form1
    Sub buattabel()
        lv.Columns.Add("no pembelian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("kode barang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("nama pembeli", 100, HorizontalAlignment.Center)
        lv.Columns.Add("merk", 100, HorizontalAlignment.Center)
        lv.Columns.Add("julah beli", 100, HorizontalAlignment.Center)
        lv.Columns.Add("harga", 100, HorizontalAlignment.Center)
        lv.Columns.Add("total harga", 100, HorizontalAlignment.Center)
        lv.GridLines = True
        lv.View = View.Details
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim ist As New ListViewItem
        ist.Text = nopembelian.Text
        ist.SubItems.Add(kodebarang.Text)
        ist.SubItems.Add(namabarang.Text)
        ist.SubItems.Add(merk.Text)
        ist.SubItems.Add(jumlah.Text)
        ist.SubItems.Add(harga.Text)
        ist.SubItems.Add(harga.Text * jumlah.Text)
        lv.Items.Add(ist)
    End Sub
    Private Sub Form1_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 x As String
        Dim y As String
        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kodebarang.Text, 3)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case ("VG") : merk.Text = "V-Gen"
        End Select
        Select Case y
            Case "001" : namabarang.Text = "Flashdisk 4Gb"
            Case "002" : namabarang.Text = "flashdisk 2GB"
        End Select
        If x = "TS" And y = "001" Then
            harga.Text = 105000
            nopembelian.Text = 1
            jumlah.Text = 3
        ElseIf x = "TS" And y = "002" Then
            harga.Text = 75000
            nopembelian.Text = 2
            jumlah.Text = 2
        ElseIf x = "VG" And y = "001" Then
            harga.Text = 50000
            nopembelian.Text = 3
            jumlah.Text = 4
        ElseIf x = "VG" And y = "002" Then
            harga.Text = 80000
            nopembelian.Text = 4
            jumlah.Text = 5
        End If
    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 = ""
        total.Text = ""
        jumlah.Text = ""

    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        total.Text = ""
        jumlah.Text = ""
        lv.Text = ""

    End Sub

    Private Sub Btnhapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussatu.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        total.Text = ""
        jumlah.Text = ""
    End Sub

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

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        total.Text = harga.Text * jumlah.Text
    End Sub

    Private Sub btntotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntotal.Click
        total.Text = harga.Text * jumlah.Text
    End Sub
End Class


hasil programan penjualan barang :)




ternyata selalu mencoba dan mencoba akhirnya yang kita coba akan berhasil :)

menyerah walau itu gagal dan gagal . yang kita akan coba pasti berhasil :) :)

seperti yang saya buat sekarang ini "program penjualan barang"

inilah hasil posting saya :)

Penjelasan tentang blog Mesran[dot]Net

Mesran.Net  merupakan salah website yang sangat  berguna bagi Kalangan Mahasiswa di "STMIK BUDIDARMA MEDAN" Dan berguna juga bagi mahasiswa-mahasiswa lainnya.Karna pada Mesran.Net memuat artikel-artikel yang sangat berguna bagi mahasiswa. Misalnya: memuat artikel tentang Tips-tips Belajar Bahasa Pemrograman seperti, belajar Pemrograman Pascal, Pemrograman VB Net,Pemrograman C++ dan Lain-lain.Contoh sekilas : Pada Pemrograman VB Net,  Kita bisa belajar tentang Materi tentang VB Net secara terperinci.

Dengan tema yang sederhana yakni “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” namun sangat bermanfaat untuk kita semua.Mesran.net adalah sebuah web yang membantu kita dalam pembelajaran pemogramman,pengalaman ,cerita lucu,dan masih banyak lagi hal yang terdapat didalam mesran.net.

Jika kita rajin untuk membuka,membaca,dan mengulas postingan web ini, maka kita akan mampu sedikit demi sedikit memahami program yang kita kurang mengerti. Mau belajar VB.Net ,java,pascal,C,C++ Mesran.net tempatnya.

Terima kasih mesran.net karena telah membantu saya dalam pengerjakan beberapa pemogramman yang saya tidak mengerti.Dan Terima kasih untuk Bapak Mesran,M.Kom yang telah melakukan gebrakan untuk kami yakni membuat blog,posting artikel,quiz online yang mana ini merupakan hal sangat luar biasa untuk kami sebagai mahasiswa Informatika yang mungkin lalai dan sepele dengan blog.

Semoga dengan “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” dapat memberikan kita banyak ilmu yang  bermanfaat untuk kita semua
Aamiin….

Kami dukung terus Website Mesran.Net

Cara Membuat Jaringan Wifi dengan Modem

Modem tunggal yang selama ini banyak digunakan untuk terkoneksi dengan internet ternyata dapat dimanfaatkan sebagai jaringan wifi. Jadinya tidak hanya laptop yang terhubung dengan modem saja yang bisa internetan, tetapi perangkat-perangkat lain yang berada di sekitar laptop juga bisa menangkap sinyal jaringan wifi tersebut.

Membuat jaringan wifi dari laptop dengan bantuan modem tunggal tentu mempunyai kelemahan, berikut kelemahannya :

• Kecepatan koneksi internet jadi melambat
  
  Ini karena kecepatan koneksi harus terbagi dengan perangkat lainnya (laptop, handphone) yang menggunakan jaringan wifi anda. Misalnya semula kecepatan pada modem 3,6 mbps, setelah anda aktifkan jaringan wifi di laptop anda, maka ketika anda menggunakan internet mungkin porsi kecepatan koneksi anda menjadi 500 kbps atau di bawah dari itu, tergantung dari seberapa banyak perangkat lain yang terhubung.


• Menghabiskan banyak kuota internet
  
  Jelas, kita tidak dapat membatasi berapa kuota maksimal yang harus digunakan. Selama paket kuota di modem anda masih ada maka koneksi internet bisa digunakan. Banyaknya perangkat yang terhubung juga sangat memengaruhinya, ini tentu akan menghabiskan banyak kuota internet yang notabene berbayar.
  
  Untuk membuat jaringan wifi pada laptop, anda bisa mengikuti langkah-langkah berikut, di sini penulis menggunakan operasi Windows 7 :
  
  
  1. Colokkan modem (memiliki kuota internet) pada laptop anda, jika belum ter-install anda bisa menginstallnya terlebih dahulu.
  
  
  2. Setelah itu klik menu start kemudian klik control panel
     
     
  
  
  3. Apabila sudah muncul tampilannya, klik pengaturan bertuliskan Network and Internet
     
     
  
  
  4. Selanjutnya, cari ikon yang bertuliskan Network and Sharing Center, klik tepat pada tulisan tersebut, bukan pada anak judul tulisannya.
     
     
  
  
  5. Langkah berikutnya, cari tulisan manage wireless network, berada pada pojok sisi kiri atas desktop, setelah ditemukan, klik pada tulisannya
     
     
  
  
  6. Akan muncul tampilan dari manage wireless network, kemudian klik tulisan add,seperti pada arahan busur panah gambar di bawah ini
     
     
  
  
  7. Mengklik add akan memunculkan tampilan jendela baru pada desktop, pada tampilan jendela tersebut klik menu yang bertuliskan Create an ad hoc network
     
     
  
  
  8. Akan ada tampilan jendela baru lagi seperti sebelumnya, dengan tampilan seperti gambar di bawah ini, yang harus kamu lakukan adalah melanjutkannya dengan mengklik tulisan next
     
     
  
  
  9. Di tahap ini sudah memasuki tahap akhir, dengan munculnya tampilan beberapa kotak dialog yang harus anda isi sebagai tanda pengenal terhadap jaringan wifi anda.
     
     
     
     Keterangan pada kotak dialog :
     Network name (nama jaringan) : isi nama jaringan wifi perangkat anda
     Security type (tipe pengamanan) : ada 3 kategori tipe pengamanan yang dapat anda pilih : 1. No authentication (open) = jika anda ingin agar jaringan wifi dapat terhubung secara umum ke semua perangkat tanpa terkecuali. Kategori kedua dan ketiga adalah WEP dan WPA2-Personal yang mana pengguna lain harus mengetahui password jaringan wifi anda untuk bisa terhubung.
     Security key (kode keamanan) : isi dengan password/kata kunci anda
     
     Apabila pengisian kotak dialog sudah selesai, centang pada kotak dialog bertuliskan Save this network, lanjut dengan mengklik next, akan muncul jendela pemberitahuan bahwasanya jaringan wifi anda siap digunakan, setelah klik close pada jendela tersebut.
  
  
  10. Jaringan wifi anda telah selesai dibuat. Untuk mengoneksikannya, klik ikon wifi (berada pojok kanan bawah, maka akan timbul pilihan jaringan wifi yang dapat anda gunakan termasuk jaringan wifi anda sendiri, dan sudah bisa digunakan pada perangkat lainnya.
      
      

Selamat menikmati.

Materi Matriks Lengkap Dan Contohnya

Matriks dalam matematika merupakan kumpulan bilangan, simbol atau ekspresi berbentuk persegi panjang yang disusun menurut baris dan kolom. Bilangan-bilangan yang terdapat pada suatu matriks disebut dengan elemen atau disebut juga anggota dari suatu matriks. Contoh matriks dengan 2 baris dan 3 kolom yaitu sebagai berikut

Matriks banyak dimanfaatkan untuk menyelesaikan berbagai permasalahan matematika misalnya dalam menemukan solusi masalah persamaan linear, transformasi linear yakni bentuk umum dari fungsi linear contohnya rotasi dalam 3 dimensi. Matriks juga seperti variabel biasa, sehingga matrikspun dapat dimanipulasi misalnya dikalikan, dijumlah, dikurangkan, serta didekomposisikan. Menggunakan representasi matriks, perhitungan dapat dilakukan dengan lebih terstruktur.

Operasi Dasar Matriks :
1. Penjumlahan dan Pengurangan Matriks
Penjumlahan serta pengurangan dalam matriks hanya dapat dilakukan apabila kedua matriks mempunyai ukuran atau tipe yang sama. Elemen-elemen dalam suatu matriks yang dijumlahkan atau dikurangan yaitu elemen yang memilki posisi/letak  yang sama.

representasi dekoratifnya sebagai berikut

2. Perkalian Skalar
Perkalian matriks dilakukan dengan cara tiap baris dikalikan dengan tiap kolom, selanjutnya dijumlahkan pada kolom yang sama

 dan 
maka 
contoh perhitungan :


Ordo suatu matriks merupakan bilangan yang menunjukan banyaknya baris (m) dan banyaknya kolom (n). Sebagai contoh :  merupakan matriks berordo 3×2

Matriks Identitas
Matriks Identitas adalah matriks yang anggota pada diagonal utamanya selalu 1

Matriks Transpose (A^t)

Matriks transpose merupakan matriks yang mengalami pertukaran elemen dari kolom menjadi baris atau sebaliknya. Contoh :

maka matriks transposenya (A^t) adalah 
Contoh – contoh :
1. Kesamaan Dua Matriks

Tentukan nilai 2x-y+5z!
Jawab:

 maka 

 maka 

 maka 

2. 
3. Contoh Perkalian matriks dengan variabel
4. 

Determinan Suatu Matriks
Untuk menentukan determinan dari suatu matriks dapat digunakan beberapa cara :
1. Misalnya terdapat matriks  yang berordo 2×2 dalam menentukan determinan dari matrikas A yang biasa ditulis |A| adalah


2. Metode Sarrus
Misalnya terdapat  maka untuk menentukan nilai determinan dari matriks A tersebut

Ubah matriks dalam bentuk seperti diatas selanjutnya perhitungannya dengan cara menambahkan elemen dari kiri atas kekanan bawah (mulai dari a → e → i, b → f → g, dan c → d → h) kemudian dikurangi dengan elemen dari kanan atas kekiri bawah (mulai dari c → e → g, a → f → h, dan b → d → i) maka akan menjadi

Sebagai contohnya
maka tentukan 

3. Metode Ekspansi Baris dan Kolom
Jika diketahui  maka untuk menentukan determian dari matriks P



Matriks Singular
Matriks Singular yaitu matriks yang nilai determinannya 0.
Sebagai contoh

Jika A matriks singular, tentukan nilai x!
Jawab:

 vs 

Invers Matriks
Misalnya diketahui   maka invers dari matriks A

Sifat-sifat dari invers suatu matriks :

Persamaan Matriks
Tentukan X matriks dari persamaan:

• Jika diketahui matriks A.X=B

• Jika diketahui matriks X.A=B

Sekian penjelasan singkat mengenai Matriks Semoga dapat bermanfaat sebagai referensi matematika yang dapat digunakan setiap saat ketika anda membutuhkan. Untuk referensi lain baca juga Integral Lipat Dua atau Metode Penyelesaian Persamaan Kuadrat yang telah saya berikan sebelumnya.