Program Visual Basic Net Menghitung Total Nilai Penjualan Pada Isi Listview

Rancanglah form Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview berikut ini:



 Berikut ini merupakan listing Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 5
            Kode.Items.Add("P-00" & i)
            Jumlah.Items.Add(i)
        Next

        With LV
            .Columns.Add("Kode", 50, HorizontalAlignment.Center)
            .Columns.Add("Nama", 250, HorizontalAlignment.Left)
            .Columns.Add("Harga", 50, HorizontalAlignment.Right)
            .Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
            .Columns.Add("Total Harga", 100, HorizontalAlignment.Right)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Select Case Kode.Text
            Case "P-001"
                Nama.Text = "Televisi Sony 21 Inchi"
                Harga.Text = 2100000
            Case "P-002"
                Nama.Text = "Televisi Sony 14 Inchi"
                Harga.Text = 1900000
            Case "P-003"
                Nama.Text = "Televisi Sony 29 Inchi"
                Harga.Text = 2900000
            Case "P-004"
                Nama.Text = "Televisi Sony 32 Inchi"
                Harga.Text = 3500000
            Case "P-005"
                Nama.Text = "Televisi Sony 40 Inchi"
                Harga.Text = 4500000
            Case Else
                Nama.Text = ""
                Harga.Text = 0
        End Select
    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
        Total.Text = Harga.Text * Jumlah.Text
    End Sub

  
    Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
        Dim xTP As Double = 0
        Dim lst As New ListViewItem
        lst.Text = Kode.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)

        For i = 0 To LV.Items.Count - 1
            xTP = xTP + LV.Items(i).SubItems(4).Text
        Next
        TotalPenjualan.Text = xTP
    End Sub

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

Hasil Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview.
 

Contoh Algoritma,Flowchart dan Pseudocode

A.Buatlah algoritma menggunakan flowchart dan pseudocode  untuk menghitung luas persegi panjang

Algoritma : 1. Masukkan panjang  

                               2. Masukkan lebar    

                               3. Luas Persegi panjang adalah panjang dikalikan lebar                             

                               4. Tampilkan luas persegi panjang
Pseudocode :1. Input panjang
                  2. Input lebar
                  3. Luas = panjang x lebar
                  4. Print luas lingkaran

B. Buatlah algoritma menggunakan flowchart dan pseudocode untuk menghitung luas  

lingkaran Algoritma :1. Masukkan phi (π)
                     2. Masukkan jari-jari (r)
                     3. Luas Lingkaran adalah phi dikalikan jari-jari
                     4. Tampilkan luas lingkaran
Pseudocode :1. Input phi (π)
                           2. Input jari-jari (r)
                           3. Luas = π x r x r
                           4. Print luas lingkaran 

C.Buatlah algoritma menggunakan flowchart dan pseudocode untuk menentukan apakah bilangan yang di input adalah bilangan ganjil atau bilangan genap. 
Algoritma :1. Masukkan sebuah bilangan
         2. Bagi bilangan tersebut dengan bilangan atau angka 2
         3. Jika bilangan menghasilkan sisa pembagian 0 maka genap
         4. Jika bilangan tidak menghasilkan sisa pembagian 0 maka
                         ganjil

Pseudocode : Read Bilangan           If bil mod 2 = 0  then,                                     “Output Genap”                           Else                                     “Output Ganjil”                           End if

                 Catatan : Mod adalah sisa hasil bagi 

D. Buatlah algoritma menggunakan flowchart danpseudocode untuk menginput 3 buah bilangan, kemudian tentukan bilangan terbesar, terkecil, dan rata-ratanya.
Algoritma :*  1. Masukkan bilangan A,B,C                          2. Jika A>B dan A>C maka A paling besar
                       3. Jika B>A dan B>C maka B paling besa      4. Maka C paling kecil/terkecil                
                      
                 *  Jumlah = A+B+C                                   Rerata = Jumlah                                                       3

Pseudocode :* If (A>B ; A>C) then
                                      Print “A paling besar”
                          If (B>A ; B>C) then
                                      Print “B paling besar”
                              Else
                                      Print “C terkecil”
                              End if
                           
                          * Jumlah = A+B+C
                             Rerata = Jumlah                            
                             Output rerata 

 

E.Buatlah algoritma menggunakan flowchart danpseudocode untuk mengubah satuan waktu yang diinputkan dari detik ke satuan jam dan menit  
 
Algoritma :        Masukkan detik
                         Menit = 60 detik
                         Jam = 3600 detik
                         Tampilkan menit
                         Tampilkan jam
                        
Pseudocode :    Read detik
                            M = 60 s
                            H = 3600 s
                            Output M
                            Output H