Korban kecelakaan Bintaro bertambah
Gerbong kereta komuter yang terbakar
Upaya evakuasi korban kecelakaan kereta di Bintaro telah selesai pada Senin (09/12) sore namun bangkai truk dan kereta masih teronggok di lokasi.
Tabrakan antara kereta komuter Serpong-Jakarta di Pondok Betung, Bintaro dengang sebuah truk pengangkut BBM milik PT Pertamina merenggut Klikkorban tewas dan puluhan korban luka.
Program Aplikasi Listview penjualan Barang
Ini adalah Cara membuat "Program Aplikasi Listview penjualan Barang". artikel ini saya buat untuk memenuhi tugas mataKuliah pemograman visual.
Berikut adalah hasuilnya:
Berikut adalah Listing Programnya:
Public Class Form1
Sub bersih()
nopembli.Text = ""
kodebarang.Text = ""
namabarang.Text = ""
merk.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
totalharga.Text = ""
End Sub
Sub isitabel()
Dim x As New ListViewItem
x.Text = nopembli.Text
x.SubItems.Add(kodebarang.Text)
x.SubItems.Add(namabarang.Text)
x.SubItems.Add(merk.Text)
x.SubItems.Add(harga.Text)
x.SubItems.Add(jumlahbeli.Text)
x.SubItems.Add(totalharga.Text)
lv.Items.Add(x)
End Sub
Sub rancang()
lv.View = View.Details
lv.FullRowSelect = True
lv.GridLines = True
lv.Columns.Add("Kode Pel", 100)
lv.Columns.Add("Nama ", 140)
lv.Columns.Add("Type", 160)
lv.Columns.Add("Harga /kwh", 110)
lv.Columns.Add("Daerah", 100)
lv.Columns.Add("Biaya Beban", 100)
lv.Columns.Add("Besar Pemakaian", 100)
lv.Columns.Add("Total Tagihan", 100)
lv.Columns.Add("Pajak", 100)
lv.Columns.Add("Pembayaran", 100)
End Sub
Sub addbersih()
nopembli.Text = ""
kodebarang.Text = ""
namabarang.Text = ""
merk.Text = ""
harga.Text = ""
jumlahbeli.Text = ""
totalharga.Text = ""
nopembli.Focus()
End Sub
Sub addkodebarang()
kodebarang.Items.Add("TV001")
kodebarang.Items.Add("FD002")
kodebarang.Items.Add("VD001")
kodebarang.Items.Add("RD002")
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
addkodebarang()
rancang()
End Sub
Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
Dim x As String
x = Strings.Left(kodebarang.Text, 2)
If x = "TV" Then
namabarang.Text = "Televisi"
ElseIf x = "FD" Then
namabarang.Text = "Flasdisk"
ElseIf x = "VD" Then
namabarang.Text = "VCD"
Else
namabarang.Text = "Radio"
End If
x = Strings.Right(kodebarang.Text, 3)
Select Case kodebarang.Text
Case "TV001"
merk.Text = "Toshiba"
harga.Text = "11200000"
Case "FD002"
merk.Text = "Kingstoon"
harga.Text = "75000"
Case "VD001"
merk.Text = "Kawachi"
harga.Text = "300000"
Case "RD002"
merk.Text = "Polytron"
harga.Text = "60000"
End Select
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
addbersih()
End Sub
Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
If Asc(e.KeyChar) = 13 Then
totalharga.Text = harga.Text * jumlahbeli.Text
End If
End Sub
Private Sub btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
bersih()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
bersih()
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
bersih()
End Sub
End Class
Sekian artikel tentang "Program Aplikasi Listview Penjualan Barang". Semoga artikel ini bisa
rmanfaat bagi anda. Terima kasih....
Organisasi Komputer
Pertemuan kali ini akan menjelaskan:
- Pengertian Organisasi Komputer
- Evolusi Mesin Komputer
- Komputer Sebagai Mesin Multilevel
- Perkembangan Mesin Multilevel
- Definisi Organisasi Komputer
Cara membuat stuktur komputer sebagai suatu rangkaian abstraksi dibuat berdasarkan abstraksi sebelumnya sehingga kompleksitasnya dapat diatasi dan sistem komputer dirancang secara sistematis dan terorganisasi.(Andrew S. Tanembaum)
Organisasi Komputer adalah bagian yang terkait erat dengan unit-unit operasional dan interkoneksi antar komponen penyusun sistem komputer dalam merealisasikan aspek arsitekturnya. Contoh aspek organisasional adalah teknologi hardware, perangkat antarmuka, teknologi memori, sistem memori, dan sinyal-sinyal kontrol.
—Organisasi Komputer mempelajari bagian yang terkait dengan unit‑unit operasional komputer dan hubungan antara komponen sistem komputer.
contoh: sinyal kontrol, interface / antar muka, teknologi memori peripheral ( Perangkat keras / Hasdware adalah semua bagian fisik komputer dan dibedakan dengan data yang berada di dalamnya atau yang beroperasi di dalamnya, dan dibedakan dengan perangkat lunak (software) yang menyediakan instruksi untuk perangkat keras dalam menyelesaikan tugasnya.
Organisasi Komputer adalah bagian yang terkait erat dengan unit-unit operasional dan interkoneksi antar komponen penyusun sistem komputer dalam merealisasikan aspek arsitekturnya. Contoh aspek organisasional adalah teknologi hardware, perangkat antarmuka, teknologi memori, sistem memori, dan sinyal-sinyal kontrol.
—Organisasi Komputer mempelajari bagian yang terkait dengan unit‑unit operasional komputer dan hubungan antara komponen sistem komputer.
contoh: sinyal kontrol, interface / antar muka, teknologi memori peripheral ( Perangkat keras / Hasdware adalah semua bagian fisik komputer dan dibedakan dengan data yang berada di dalamnya atau yang beroperasi di dalamnya, dan dibedakan dengan perangkat lunak (software) yang menyediakan instruksi untuk perangkat keras dalam menyelesaikan tugasnya.
Type data dan Tipe struktur data
Macam-macam dari Tipe Data adalah:
a. Integer ( Bilangan Bulat )
Integer merupakan nilai bilangan bulat baik dalam bentuk desimal maupun hexadecimal. Tipe data numerik yang termasuk integer adalah sebagai berikut :
- Byte : Memiliki nilai integer dari -128 sampai +127 dan menempati 1 byte ( 8 bits ) di memori
- Short : Memiliki nilai integer dari -32768 sampai 32767 dan menempati 2 bytes ( 16 bits ) di memori
- Int : Memiliki nilai integer dari -2147483648 sampai 2147483647 dan menempati 4 bytes ( 32 bits ) di memori
-Long : Memiliki nilai dari -9223372036854775808 sampai 9223372036854775807 dan menempati 8 bytes ( 64 bits ) di memori.
Integer merupakan nilai bilangan bulat baik dalam bentuk desimal maupun hexadecimal. Tipe data numerik yang termasuk integer adalah sebagai berikut :
- Byte : Memiliki nilai integer dari -128 sampai +127 dan menempati 1 byte ( 8 bits ) di memori
- Short : Memiliki nilai integer dari -32768 sampai 32767 dan menempati 2 bytes ( 16 bits ) di memori
- Int : Memiliki nilai integer dari -2147483648 sampai 2147483647 dan menempati 4 bytes ( 32 bits ) di memori
-Long : Memiliki nilai dari -9223372036854775808 sampai 9223372036854775807 dan menempati 8 bytes ( 64 bits ) di memori.
MANAJEMEN FILE
Pengertian manajemen file
File system atau manajemen file adalah metode dan struktur data yang digunakan sistem operasi untuk mengatur dan mengorganisir file pada disk atau partisi. File system juga dapat diartikan sebagai partisi atau disk yang digunakan untuk menyimpan file-file dalam cara tertentu. Cara memberi suatu file system ke dalam disk atau partisi dengan cara melakukan Format
Manfaat Manajemen File
Dapat mengurangi resiko kehilangan file yang dikarenakan: terhapus secara tidak disengaja, tertimpa file baru, tersimpan dimana saja, dan hal lain yang tidak kita inginkan
Sistem Basis Data – Normalisasi
Definisi/Pengertian Normalisasi
Istilah Normalisasi berasal dari E. F.Codd, salah seorang perintis teknologi basis data. selain dipakai sebagai metodologi tersendiri untuk menciptakan struktur tabel 9relasi) dalam basis data (dengan tujuan utnuk mengurangi kemubaziran data) , normalisasi terkadang hanya diipakai sebagai perangkat verifikasi terhadap tabel-tabel yang dihasilkan oleh metodologi lain ( misalnya E-R). Normalisasi memberikan panduan yang sangat membantu bagi pengembang untuk mencegah penciptaan struktur tabel yang kurang fleksibel atau mengurangi keflekxibelan.
~PENGORBANAN SEORANG IBU~
Ini kisah sedih seorang ibu yang sanggup korbankan mata untuk kebahagiaan anaknya. Takkan ada orang lain yang akan dapat menggantikan tempat seseorang ibu di dunia ini.
Mungkin ramai yang sudah tahu cerita ini...
Semoga cerita ini beri pengajaran buat kita...
Cerita ni
dalam bentuk luahan hati seorang anak yang kesedihan akibat kelalaian
atau dengan kata lain kederhakaannya kepada seorang ibu!
Cerita si anak.....
