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.
Minggu, 08 Januari 2017
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
Langganan:
Postingan (Atom)