yuk belajar membuat pemrograman visual basic di mesran.blogspot.com

-->

Selesaikanlah Kasus Berikut:

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

Berikut Jawaban Program: 

-->

Setelah Design programnya,lalu  akan membuat Listing Programnya Seperti berikut:

Public Class Form1

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x, x1 As String

        x = Microsoft.VisualBasic.Left(Kode.Text, 2)

        x1 = Microsoft.VisualBasic.Right(Kode.Text, 3)

        Select Case x

            Case "TS" : merk.Text = "Toshiba"

            Case "VG" : merk.Text = "V-Gen"

        End Select

        Select Case x1

            Case "001" : Nama.Text = "Flashdisk 4 Gbyte"

            Case "002" : Nama.Text = "Flashdisk 2 Gbyte"

        End Select

        If x = "TS" And x1 = "001" Then

            Harga.Text = 105000

        ElseIf x = "TS" And x1 = "002" Then

            Harga.Text = 75000

        ElseIf x = "VG" And x1 = "001" Then

            Harga.Text = 90000

        ElseIf x = "VG" And x1 = "002" Then

            Harga.Text = 60000

        Else

            Harga.Text = 0

        End If

    End Sub

Private Sub Tot_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tot.TextChanged

        Tot.Text = Val(Harga.Text) * Val(jlh.Text)

    End Sub

    Private Sub jlh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh.KeyPress

        Dim x2 As Integer = Asc(e.KeyChar)

        If x2 = 13 Then

            Tot.Text = Val(Harga.Text) * Val(jlh.Text)

        End If

    End Sub

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

        BuatTabel()

    End Sub

    Sub BuatTabel()

        List.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)

        List.Columns.Add("Kode Barang", 180, HorizontalAlignment.Center)

        List.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)

        List.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        List.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        List.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        List.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        List.View = View.Details

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        IsiTabel()

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Nmr.Text)

        lst.SubItems.Add(Nama.Text)

        lst.SubItems.Add(merk.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(jlh.Text)

        lst.SubItems.Add(Tot.Text)

        List.Items.Add(lst)

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

        Kode.Text = ""

        Nama.Text = ""

        Nmr.Text = ""

        Harga.Text = ""

        merk.Text = ""

        jlh.Text = ""

        Tot.Text = ""

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        List.Items.Clear()

    End Sub

    Private Sub Pil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pil.Click

        List.Items.Remove(List.SelectedItems(0))

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

Berikut ini hasil dari program tersebut:

 

-->

NB: Untuk Mengetahui Total Harga,Setelah Pengisian Jumlah Beli harus ditekan enter       terlebih dahulu,

jika tidak maka hasilnya tidak akan keluar,seperti gambar dibawah ini:

Subhanallah, Sejumlah Serdadu AS di Irak Menyatakan Diri Masuk Islam

Subhanallah, Sejumlah Serdadu AS di Irak Menyatakan Diri Masuk Islam


Ternyata gambaran Islam yang dipublikasikan oleh media-media Barat, jauh berbeda sama sekali dari realitas Islam sebenarnya. Setidaknya hal itu diperlihat kan oleh sejumlah prajurit laki-laki dan wanita AS yang bertugas di Irak, ketika mereka menyatakan diri masuk Islam. Lalu mereka menikah dengan orang-orang Islam Irak. Walaupun pernikahan itu ditentang oleh sejumlah warga setempat.

“Para tentara AS itu telah menyadari bahwa ajaran Islam sama sekali berbeda dengan informasi-informasi yang diprogandakan oleh media-media Barat,” lanjut Sheikh Mahmoud.

“Setelah bergaul setiap hari dengan warga Irak serta pengalaman berinteraksi dengan kalangan Muslim dari dekat di negeri yang terkoyak perang ini, banyak serdadu AS yang menyatakan keinginannya masuk Islam,” ujar Sheikh Mahmoud el-Samydaei, anggota Majelis Ulama Islam Irak, pada IslamOnline Rabu (13/8/2003).

Ulama Islam itu mengingatkan kembali para perwira AS yang telah masuk Islam agar memelihara agama itu sampai akhir hayat. Sebab orang yang mati tanpa membawa Islam, ujar Sheikh Mahmoud, matinya akan sia-sia. Para muallaf AS itu mendengarkan wejangan tersebut dengan terisak-isak, mengingat banyak masyarakatnya mati tanpa mengetahui sedikitpun tentang Islam.

Seorang perwira AS yang mendatangi Pengadilan Urusan Sipil di distrik el-Karkh, Baghdad pekan ini menyatakan; “Saya bersaksi bahwa tiada Tuhan selain Allah dan bahwa Muhammad adalah utusanNya.”

Perwira AS itu kemudian menikah dengan wanita Irak, dr. Samar Ahmed yang pernah dijumpainya ketika dia bertugas menjaga Medicine City Hospital. Dia memilih Islam, kata perwira AS itu, lantaran keyakinannya yang penuh terhadap kebenaran Islam. “Saya masuk Islam bukan hanya lantaran untuk menikahi wanita Irak,” tukasnya.
Berdasarkan ajaran Islam, seorang pria non-Muslim dilarang menikahi seorang wanita Islam.

Hakim Agama Abd el-Azeim Mohammad Gawad el-Rasafi merestui pernikahan itu. Abd el-Azeim menegaskan bahwa pernikahan itu merupakan peristiwa pertama, seorang wanita Irak menikah dengan serdadu AS yang masuk Islam. Kepada IslamOnline Abd el-Azeim mengatakan, tak satupun agama di dunia, menghalangi pernikahan tersebut. Walaupun begitu sejumlah warga Irak menentang pernikahan antar etnis itu