Program Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net

      Sebelum kita membuat program, anda harus mengenal dulu apa itu Vb.Net. Vb.Net merupakan aplikasi untuk membuat sebuah program, misal untuk membuat Progam Perusaan, Perkantoran, Sekolah, maupun Kepemerintahan. Jadi kali in saya kan berbagi sedikit yang saya ketahui tentang Vb.Net .

Berikut ini adalah tampilan Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net :

Listing Program :

Public Class QuiZ_PdAM
    Dim x As Byte

    Sub buattable()
        LV.Columns.Add("No", 40, HorizontalAlignment.Left)
        LV.Columns.Add("Kode", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jml Pemakaian", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Biaya Beban", 180, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = x
        lst.SubItems.Add(kd_pelanggan.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jml_pemakaian.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(biaya_beban.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        lst.SubItems.Add(total_tagihan.Text)
        LV.Items.Add(lst)

        x = 1 + x
    End Sub
    Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattable()
        x = 1
        kd_pelanggan.Items.Add("PAB-MED-100")
        kd_pelanggan.Items.Add("RUM-MED-101")
        kd_pelanggan.Items.Add("TOK-BEL-102")
        kd_pelanggan.Items.Add("SWA-MED-103")
    End Sub

    Private Sub kd_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles kd_pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kd_pelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "UCOK"
            Case "101" : nama.Text = "JHAN F"
            Case "102" : nama.Text = "ERIN"
            Case "103" : nama.Text = "ERIN"
        End Select
        x = Microsoft.VisualBasic.Left(kd_pelanggan.Text, 3)
        Select Case x
            Case "TOK"
                harga.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "TOKO"
            Case "RUM"
                harga.Text = 150
                biaya_beban.Text = 10000
                tipe.Text = "RUMAN"
            Case "PAB"
                harga.Text = 25000
                biaya_beban.Text = 25000
                tipe.Text = "PABRIK"
            Case "SWA"
                harga.Text = 20000
                biaya_beban.Text = 60000
                tipe.Text = "SWALAYAN"
        End Select
        x = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "Medan"
            Case "BEL" : daerah.Text = "Belawan"
            Case Else : daerah.Text = "-"
        End Select
    End Sub

    Private Sub jml_pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles jml_pemakaian.KeyPress
        If jml_pemakaian.Text = "" Then
            jml_pemakaian.Focus()
        ElseIf Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = Val(biaya_beban.Text) + (harga.Text * jml_pemakaian.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_hapus.Click
        kd_pelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        harga.Text = ""
        jml_pemakaian.Text = ""
        total_tagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biaya_beban.Text = ""
        pajak.Text = ""
    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_keluar.Click
        Dim k As String
        k = MsgBox("Apakah Anda yakin Ingin Keluar", MsgBoxStyle.YesNo)
        If k = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        isitable()
    End Sub
End Class

Demikianlah isi dari Artikel saya yang berjudul Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net  ,, Semoga bermanfaat bagi anda Semua...

Jenis-jenis Desain Majalah paling Unik dan Keren di Dunia

Iklan majalah saat ini banyak yang tersaji dengan biasa saja. Jika ingin lebih dilirik oleh pembacanya maka pihak pengiklan harus lebih kreatif dalam penyajiannya. Ketika masyarakat melihat sekitar 3000 iklan setiap hari maka iklan yang menariklah yang dapat menyita perhatian orang. Bagi sobat yang bergerak dibirang grafis mungkin ini bisa jadi bhan referens

Asal Usul Kuntilanak

Kalian semua pasti dah gak asing lagi dengan hantu kuntilanak. Bahkan hantu kuntilanak ini sering dijadikan film. Hantu kuntilanak merupakan hantu wanita yang memiliki rambut yang sangat panjang dan sering menakuti-nakuti warga.

Kuntilanak adalah hantu yang dipercaya berasal dari perempuan hamil yang meninggal dunia atau wanita yang meninggal karena melahirkan dan anak tersebut belum sempat lahir. Umumnya, kuntilanak digambarkan sebagai wanita cantik berambut panjang dan berbaju panjang warna putih.
Kuntilanak konon menyukai pohon tertentu sebagai tempat “bersemayam”, misalnya waru yang tumbuh condong ke samping (populer disebut “waru doyong”).

Berdasarkan kepercayaan dan tradisi masyarakat Jawa, kuntilanak tidak akan mengganggu wanita hamil bila wanita tersebut selalu membawa paku, pisau, dan gunting bila bepergian ke mana saja. Hal ini menyebabkan seringnya ditemui kebiasaan meletakkan gunting, jarum dan pisau di dekat tempat tidur bayi.

5 Eksperimen Mengerikan yang Menggunakan Manusia sebagai Obyeknya

Zaman dulu banyak eksperimen menggunakan manusia sebagai obyeknya. Mereka diperlakukan seperti binatang, Nyawa menjadi murah demi mendapatkan hasil eksperimen yang memuaskan, sejarah membuktikan lima eksperimen terparah pernah terjadi di dunia. Percobaan mengerikan ini banyak dilakukan saat perang dunia. Seperti apa eksperimen itu? Berikut 5 Percobaan Mengerikan yang pernah diLakukan Manusia di Dunia

1. Percobaan kejam Nazi

Eksperimen manusia oleh Partai Nazi, Jerman, menjadi salah satu percobaan paling keji sepanjang sejarah. Para ilmuwan partai pimpinan Adolf Hitler itu mencoba menciptakan ras baru berideologi fasis dengan memanipulasi genetika.
Inilah cikal bakal kloning. Tahanan Nazi di kamp paling mengerikan yakni Auschwitz diambil sampel darahnya dan mereka mencoba menciptakan kembar benar-benar identik mulai dari sidik jari, warna mata, tanda lahir, bahkan tahi lalat. Eksperimen ini dipimpin oleh Dr. Josef Mangele dan sekitar 1.500 orang telah menjadi korban percobaan itu selama Perang Dunia II.
Selain menciptakan kembar, para ilmuwan Nazi juga menciptakan eksperimen merubah warna mata dengan mencongkel penglihatan para tahanan. Lalu mereka juga membuat percobaan menggabungkan manusia satu dan lainnya dengan cara menjahit kulit keduanya lalu menyambungkan saraf serta otot.

2. Unit 731

Unit 731 merupakan satuan kerja pengembangan biologi dan kimia oleh angkatan darat kekaisaran Jepang. Mereka melakukan eksperimen manusia selama perang Sino pada 1937-1945, dan perang dunia II.
Dipimpin oleh Komandan Shiro Ishii, unit 731 membedah manusia hidup-hidup tanpa obat bius, termasuk perempuan hamil. Banyak tahanan diamputasi lalu bagian terkena potongan itu disambungkan ke bagian yang lain dari tubuh mereka lalu diledakkan dengan granat dan kemana saja bagian tubuh itu terpental.
Selain itu mereka juga mencari tahu penyebab sipilis. Saat itu banyak prajurit Jepang terkena penyakit kelamin ini dan mereka memperkosa tahanan. Para tahanan sengaja dibiarkan menderita dengan sipilis dan ilmuwan 731 berupaya mencari obatnya.

3. Eksperimen sipilis pada kulit hitam

Penelitian di Kota Tuskegee, Negara Bagian Alabama, Amerika Serikat, membuat eksperimen penyakit sipilis pada lelaki kulit hitam. Sejauh mana penyakit itu menggerogoti kesehatan, ampak jangka panjang jika tidak diobati, dan lain-lain. Klinik-klinik juga sengaja tidak memberikan mereka perawatan maksimal, Bahkan ada yang ditolak masuk rumah sakit. Sekitar 74 persen meninggal, ada yang langsung, dan tidak langsung. Selebihnya komplikasi dengan peyakit lain. Puluhan perempuan terinfeksi suaminya dan belasan anak lahir dengan sipilis bawaan.

4. Laboratorium racun

Laboratorium milik Uni Soviet masa Perang Dunia II menjadi tempat untuk ekspterimen mengerikan dari agen rahasia negara itu, disebut juga laboratorium 1, 2, dan kamar gas, Soviet mengembangkan pelbagai jenis racun termasuk risin. Mereka terpilih untuk diracun tidak secara langsung, disajikan bersama makanan atau minuman.

5. Eksperimen Korea Utara

Banyak laporan eksperimen manusia dilakukan Korea Utara. Laporan ini juga menunjukkan adanya pelanggaran hak asasi mirip percobaan dilakukan Partai Nazi, Jerman, Sekitar 50 tahanan perempuan sehat diracuni daun kubis. Jika tidak memakannya seluruh keluarga mereka akan dibunuh. Memakan daun kubis itu bakal mati secara perlahan. Awalnya mereka akan muntah dan pendarahan di dubur.

10 Kehancuran Besar yang akan Terjadi di Planet Bumi

Berikut adalah 10 Kehancuran Besar yang akan Terjadi di Planet Bumi,

1. Impact Events

Impact event adalah jatuhnya batu besar dari luar angkasa. Pada dasarnya batu besar ini mengirimkan debu dan aerosol sampai ke atmosfir, menyebabkan tidak hanya tanaman mati, tetapi juga menurunkan suhu. Batu yang besar dapat menyebabkani mega-tsunami dan kebakaran hutan global.

2. Global Cooling
Seperti digambarkan dalam “The Day after Tomorrow”, untuk beberapa alasan bumi akan menjadi dingin terlalu cepat menyebabkan kematian. Pada gilirannya akan menyebabkan massa migrasi ke khatulistiwa. Beruntung bisa menemukan air karena sebagian besar menjadi es dan salju.

3. Global Warming

Ini pada dasarnya sisi lain Global Cooling. Pencairan salju dan es akan membuat laut lebih dalam dan kemungkinan menyebabkan Anoxic event

4. Clathrate Gun

Ini adalah pembentukan Clathrates di Continental Shelf. Clathrate adalah air yang diselimuti methan. Jika methane ini pecah melepaskan gas ke atmosfir menyebabkan akselerasi Pemanasan Global.

5. Anoxic Events

Peristiwa Anoxic terjadi ketika lautan telah kosong akan oksigen di permukaan. Walaupun anoxic tidak terjadi selama jutaan tahun, catatan geologi menunjukkan bahwa telah terjadi beberapa kali di masa lalu. Anoxic dapat telah menyebabkan kepunahan massa. Garis hitam pada gambar di atas adalah dari aptian anoxic event.

6. Hydrogen Sulfide Emissions

Hal ini dapat terjadi ketika terganggunya keseimbangan antara plankton dan bakteri yang mengurangi sulfate. Bayangkan emisi hidrogen sulfida tiba-tiba bangkit dari laut meracuni segala sesuatu di darat dan laut. Dan jika itu tidak cukup, dapat juga menghancurkan Ozon.

7. Oceanic Overturn

Oceanic Overturn pada dasarnya naiknya air yang lebih dalam ke atas permukaan. Air di bawah mempunyai sedikit oksigen sehingga berarti laut permukaan akan kekurangan oksigen juga.

8. Gamma Ray Bursts

Ketika bintang telah meledak. Sebelum Anda dapat berkata “oh shit!” Anda dan semua orang di dunia telah mati. Itu adalah Gamma Ray burst. Anda lihat bahwa pada dasarnya Gamma membunuh setiap sel dalam tubuh Anda. Tetapi jika ia lemah hanya setengah dari planet yang meninggal seketika. Namun ozon akan hilang dan akhirnya akan mati juga

9. Human Cause

Manusia telah menjadi sangat kuat untuk menghindari bahaya alam. Tapi sayangnya dia sendiri telah mengembangkan metode untuk pemusnahan massal. Yang paling jelas adalah perang nuklir. Kita memiliki cukup nuklir di planet untuk memusnahkan semua kehidupan – sesuatu yang tampaknya dekat di masa lalu (bayangkan krisis misil Kuba). Tetapi kita dapat berharap bahwa suatu hari kita menjadi cukup aman untuk tidak menggunakan senjata pada skala global.

10. Sea-level falls

Pada dasarnya, jika permukaan laut turun secara drastis (baik itu melalui Global Cooling atau tenggelam di tengah-tengah laut ridges), dapat mengurangi daerah sekitar Continental Shelf menyebabkan semua ikan kecil, hiu, ikan paus dan hampir semua kehidupan di laut mati. Jika hal tersebut tidak cukup buruk, cuaca dapat berubah secara drastis yang mengarah ke kepunahan massal di tanah (itu berarti kita).

Dampak Bila Keseringan Mengupil

Bagi beberapa orang mengupil adalah kegiatan yang mengasyikkan atau menyenangkan. Tapi mengupil terlalu sering ternyata bisa berbahaya bagi kesehatan dan tubuh seseorang.
Berdasarkan survei yang dilakukan oleh tim peneliti dari Wisconsin dengan melibatkan 200 partisipan, diketahui bahwa rata-rata seseorang mengupil sebanyak 4 kali sehari yang dilakukan saat sedang senggang atau santai.
Mengupil adalah kegiatan yang positif karena membantu membersihkan hidung dari kotoran atau benda asing yang masuk dengan menggunakan jari. Meskipun kegiatan yang umum, tapi bagi budaya tertentu cenderung tabu karena bisa menimbulkan perasaan jijik dan geli.
Upil yang ada di hidung sebenarnya terbentuk dari lendir yang mengering. Membran mukosa di rongga hidung akan terus menerus menghasilkan lendir basah yang berfungsi menghilangkan debu dan benda-benda asing lainnya yang masuk ke hidung. Lendir yang mengering ini akan menyebabkan sensasi iritasi yang kadang menimbulkan rasa gatal dan memicu orang untuk mengupil.
 ada beberapa alasan yang membuat seseorang harus mengupil, yaitu:

Sedang bengong atau memikirkan sesuatu
Penyebab paling umum orang mengupil terjadi ketika seseorang sedang tidak memikirkan apa-apa, bingung atau bosan. Tindakan ini hampir sama dengan kebiasaan menggigit kuku atau mengisap jempol, karenanya tak jarang orang tanpa sadar melakukannya di depan umum.

Menghilangkan iritasi
Hidung memiliki kecenderungan menjadi kering dan teriritasi oleh hal-hal seperti alergi, bahan kimia dan polusi udara. Saat hidung mengalami iritasi, maka akan timbul rasa gatal dan keinginan untuk menggaruk melalui cara mengupil.

Untuk menghilangkan sekresi hidung
Ketika sedang pilek, infeksi sinus dan alergi bisa menyebabkan sekresi hidung atau lendir meningkat. Sekresi ini seiring waktu akan mengering yang membuat seseorang sulit bernapas. Karenanya seseorang akan mengupil untuk membuat napasnya lega dan menghilangkan penumpukan lendir.

Gangguan obsesif-kompulsif
Salah satu tanda gangguan obsesif kompulsif adalah suka mengupil yang disebut dengan rhinotillexomania. Mengupil dilakukan untuk meringankan perasaan-perasaan negatif yang mengganggu pikirannya, karenanya seringkali ia mengupil di depan umum dan tidak melihat kondisi di sekitarnya. Orang dengan gangguan ini membutuhkan bantuan medis atau psikolog.

Satu hal yang pasti adalah selalu mencuci tangan sebelum dan sesudah mengupil, memotong kuku dan jangan menarik upil terlalu keras agar tidak melukai lapisan di dalam hidung.
Tapi jika seseorang terlalu sering mengupil bisa menyebabkan hidung menjadi kering yang dapat memicu perdarahan. Hal ini karena secara alami hidung tetap membutuhkan pelumas setiap saat untuk mencegahnya dari kekeringan.
Sedangkan jika seseorang jarang mengupil, maka lendir yang bercampur dengan kotoran tersebut akan semakin mengeras yang menghambat pernapasan (sulit bernapas) serta membuat hidung tidak lagi bisa efektif menyaring benda-benda asing dari luar.

Akibat keseringan mengupil adalah:
1. Mudah terkena flu
Virus flu bisa melewati selaput lendir yang salah satunya terdapat di dalam hidung. Memasukkan jari-jari yang terkontaminasi virus ini ke dalam hidung bisa menyebabkan seseorang terkena flu yang disebabkan oleh diri sendiri. Dalam beberapa hari ke depan, seseorang bisa saja mengalami flu, tenggorokan gatal dan serangan bersin-bersin.

2. Mimisan
Jika terlalu sering mengupil atau mengupil dengan keras bisa menyebabkan kerusakan pada lapisan di hidung yang berfungsi melindungi tubuh dari bakteri dan benda-benda asing di udara, sehingga memicu terjadinya mimisan.

3. Infeksi
Selain infeksi virus flu, terlalu sering mengupil menyebabkan kuman dan bakteri lebih mudah masuk ke hidung dan menyebar ke bagian tubuh lain.

4. Merontokkan rambut hidung
Ketika mengupil secara konsisten dna terus menerus akan menyebabkan rambut hidung rontok. Padahal rambut ini memiliki fungsi penting untuk menyaring debu dan polutan di udara. Tanpa rambut hidung akan membuka jalan bagi semua jenis penyakit dan infeksi masuk ke dalam tubuh.

5. Bisa meninggal
Kondisi ini bisa terjadi jika seseorang berusaha mengeluarkan upil yang besar. Karena di dalam hidung ada tulang yang disebut tulang ethmoid, tulang ini memisahkan hidung dari otak. Jika saat mengupil seseorang menusuk tulang ini, maka cair

Siklus Menstruasi

Umumnya siklus menstruasi terjadi secara periodik setiap 28 hari (ada pula setiap 21 hari dan 30 hari) yaitu sebagai berikut : Pada hari 1 sampai hari ke-14 terjadi pertumbuhan dan perkembangan folikel primer yang dirangsang oleh hormon FSH. Pada saat tersebut sel oosit primer akan membelah dan menghasilkan ovum yang haploid. Saat folikel berkembang menjadi folikel de Graaf yang masak, folikel ini juga menghasilkan hormon estrogen yang merangsang keluarnya LH dari hipofisis. Estrogen yang keluar berfungsi merangsang perbaikan dinding uterus yaitu endometrium yang habis terkelupas waktu menstruasi, selain itu estrogen menghambat pembentukan FSH dan memerintahkan hipofisis menghasilkan LH yang berfungsi merangsang folikel de Graaf yang masak untuk mengadakan ovulasi yang terjadi pada hari ke-14, waktu di sekitar terjadinya ovulasi disebut fase estrus.
Selain itu, LH merangsang folikel yang telah kosong untuk berubah menjadi badan kuning (Corpus Luteum). Badan kuning menghasilkan hormon progesteron yang berfungsi mempertebal lapisan endometrium yang kaya dengan pembuluh darah untuk mempersiapkan datangnya embrio. Periode ini disebut fase luteal, selain itu progesteron juga berfungsi menghambat pembentukan FSH dan LH, akibatnya korpus luteum mengecil dan menghilang, pembentukan progesteron berhenti sehingga pemberian nutrisi kepada endometriam terhenti, endometrium menjadi mengering dan selanjutnya akan terkelupas dan terjadilah perdarahan (menstruasi) pada hari ke-28. Fase ini disebut fase perdarahan atau fase menstruasi. Oleh karena tidak ada progesteron, maka FSH mulai terbentuk lagi dan terjadilan proses oogenesis kembali.

Gambar 1. Siklus Menstruasi

Gambar 2. Kompleks Hipotalamus-Hipofisis-Ovarium

Sistem hormonal yang mempengaruhi siklus menstruasi adalah:

1. FSH-RH (follicle stimulating hormone releasing hormone) yang dikeluarkan hipotalamus untuk merangsang hipofisis mengeluarkan FSH

2. LH-RH (luteinizing hormone releasing hormone) yang dikeluarkan hipotalamus untuk merangsang hipofisis mengeluarkan LH

3. PIH (prolactine inhibiting hormone) yang menghambat hipofisis untuk mengeluarkan prolaktin

Gambar 3. Siklus Hormonal

Pada tiap siklus dikenal 3 masa utama yaitu:

1. Masa menstruasi yang berlangsung selama 2-8 hari. Pada saat itu endometrium (selaput rahim) dilepaskan sehingga timbul perdarahan dan hormon-hormon ovarium berada dalam kadar paling rendah

2. Masa proliferasi dari berhenti darah menstruasi sampai hari ke-14. Setelah menstruasi berakhir, dimulailah fase proliferasi dimana terjadi pertumbuhan dari desidua fungsionalis untuk mempersiapkan rahim untuk perlekatan janin. Pada fase ini endometrium tumbuh kembali. Antara hari ke-12 sampai 14 dapat terjadi pelepasan sel telur dari indung telur (disebut ovulasi)

3. Masa sekresi. Masa sekresi adalah masa sesudah terjadinya ovulasi. Hormon progesteron dikeluarkan dan mempengaruhi pertumbuhan endometrium untuk membuat kondisi rahim siap untuk implantasi (perlekatan janin ke rahim)

Daur Menstruasi

Masa Subur

Masa subur adalah masa dimana akan terjadi kehamilan pada saat fertilisasi. Pada masa itulah, sel telur yang dihasilkan berada dalam keadaan siap untuk dibuahi.