Muhammad Suhairi Arafat

Minggu, 02 Juni 2013

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

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


 

Selesaikanlah Kasus Berikut :
JUDUL SOAL


Berikut Jawaban Program :

Soal No.1

Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang







Listing Program


PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
        BuatTabel()
        Kodbar.Items.Add("TS001")
        Kodbar.Items.Add("TS002")
        Kodbar.Items.Add("VG001")
        Kodbar.Items.Add("VG002")
EndSub
Sub BuatTabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Junmlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
EndSub
Sub IsiTabel()
Dim Lst AsNew ListViewItem
        Lst.Text = Nopem.Text
        Lst.SubItems.Add(Kodbar.Text)
        Lst.SubItems.Add(Nabar.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Jubel.Text)
        Lst.SubItems.Add(totharga.Text)
        LV.Items.Add(Lst)
EndSub

PrivateSub Kodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodbar.SelectedIndexChanged
Dim x AsString
        x = Microsoft.VisualBasic.Left(Kodbar.Text, 2)
SelectCase x
Case"TS" : Merk.Text = "TOSHIBA"
Case"VG" : Merk.Text = "V-GEN"
EndSelect

Dim I AsString
        I = Microsoft.VisualBasic.Right(Kodbar.Text, 3)
SelectCase I
Case"001" : Nabar.Text = "FLASHDISK 4GB"
Case"002" : Nabar.Text = "FLASHDISK 2GB"
EndSelect

If x = "TS"And I = "001"Then
            Harga.Text = 105000
ElseIf x = "TS"And I = "002"Then
            Harga.Text = 75000
ElseIf x = "VG"And I = "001"Then
            Harga.Text = 90000
ElseIf x = "VG"And I = "002"Then
            Harga.Text = 60000

EndIf
EndSub
Sub bersih()

EndSub

PrivateSub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
Me.Close()
EndSub

PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        Nopem.Text = ""
        Kodbar.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        totharga.Text = ""
        Jubel.Text = ""
        Nabar.Text = ""
EndSub

PrivateSub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        IsiTabel()
        Nopem.Text = ""
        Kodbar.Text = ""
        Nabar.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jubel.Text = ""
        totharga.Text = ""

EndSub

PrivateSub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
EndSub

PrivateSub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        LV.Items.Clear()
EndSub

PrivateSub Jubel_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jubel.KeyPress
Dim tombol AsInteger = Asc(e.KeyChar)
If tombol = 13 Then
            totharga.Text = Harga.Text * Jubel.Text
EndIf
EndSub
PrivateSub Nopem_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Nopem.KeyPress
Dim angka AsString = "0123456789"
Dim x AsLong = InStr(angka, e.KeyChar)
If x = 0 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 10 Then
            e.KeyChar = ""
EndIf
EndSub
EndClass

JAWABAN no 2

PublicClass Form1
PrivateSub Julem_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Julem.KeyPress
Dim angka AsString = "0123456789"
Dim x AsLong = InStr(angka, e.KeyChar)
If x = 0 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 10 Then
            e.KeyChar = ""
EndIf
EndSub

PrivateSub HPL_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles HPL.KeyPress
Dim angka AsString = "0123456789"
Dim x AsLong = InStr(angka, e.KeyChar)
If x = 0 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 10 Then
            e.KeyChar = ""
EndIf
EndSub
PrivateSub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
If Julem.Text >= 200 And HPL.Text = 100 Then
Else
EndIf
        Totharga.Text = Julem.Text * HPL.Text
If Totharga.Text > 500000 Then
            Sale.Text = 0.15 * Totharga.Text
Else
            Sale.Text = 0
EndIf
        Pembayaran.Text = Val(Totharga.Text) - Val(Sale.Text)
EndSub

PrivateSub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Julem.Text = ""
        HPL.Text = ""
        Totharga.Text = ""
        Sale.Text = ""
        Pembayaran.Text = ""
EndSub

PrivateSub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
EndSub
EndClass




Demikilahlah postingan saya  
Nama : (Muhammad Suhairi Arafat)  
NPM : (1111534)
 Selamat Belajar Bahasa Pemrograman VB NET

0 komentar:

Posting Komentar

 
n
o
i
t
a
r
e
n
e
G
e
L
p
M
i
S
t
a
f
a
r
A