PEMBAYARAN TAGIHAN AIR MENGGUNAKAN IF -ELSE

Desain from di bawah ini :

Public Class Form1
    Dim i As Byte
    Sub buattable()
        LV.Columns.Add("No", 50, HorizontalAlignment.Center)
        LV.Columns.Add("tipe", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nama", 180, HorizontalAlignment.Center)
        LV.Columns.Add("hargam3", 180, HorizontalAlignment.Center)
        LV.Columns.Add("biayabeban", 180, HorizontalAlignment.Center)
        LV.Columns.Add("pemakaianair", 180, HorizontalAlignment.Center)
        LV.Columns.Add("totaltagihan", 180, HorizontalAlignment.Center)
        LV.Columns.Add("pajak", 180, HorizontalAlignment.Center)
        LV.Columns.Add("pembayaran", 180, HorizontalAlignment.Center)
        LV.Columns.Add("daerah", 180, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = i
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(hargam3.Text)
        lst.SubItems.Add(biayabeban.Text)
        lst.SubItems.Add(pemakaianair.Text)
        lst.SubItems.Add(totaltagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        lst.SubItems.Add(daerah.Text)
        LV.Items.Add(lst)
        i = i + 1
    End Sub

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

    Private Sub Btnhapusdataygdplih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdataygdplih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemuadata.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btnsimpanke_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpanke.Click
        isitable()
        tipe.Text = ""
        nama.Text = ""
        hargam3.Text = ""
        biayabeban.Text = ""
        pemakaianair.Text = ""
        totaltagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
    End Sub

    Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodepelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(Kodepelanggan.Text, 3)



        If x = "100" Then
            nama.Text = "siska juli yanti"
        ElseIf x = "101" Then
            nama.Text = "Tri dessy novuta l"
        ElseIf x = "102" Then
            nama.Text = "Halima tusa'diah"
        ElseIf x = "103" Then
            nama.Text = "jeffry man"
        End If


        x = Microsoft.VisualBasic.Left(Kodepelanggan.Text, 3)

        If x = "PAB" Then
            hargam3.Text = 500
            biayabeban.Text = 250000
            tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            hargam3.Text = 500
            biayabeban.Text = 25000
            tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            hargam3.Text = 500
            biayabeban.Text = 10000
            tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            hargam3.Text = 200
            biayabeban.Text = 15000
            tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(Kodepelanggan.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub pemakaianair_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaianair.KeyPress
        If e.KeyChar = Chr(13) Then
            If Asc(e.KeyChar) = 13 Then
                totaltagihan.Text = hargam3.Text * pemakaianair.Text + Val(biayabeban.Text)
                pajak.Text = 0.01 * totaltagihan.Text
                pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
            End If
        End If
    End Sub

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

Langkah2 Cara Menginstall windows 7 (Lengkap dengan gambar)

Posted on 8 January 2011.

Bagi yang belum pernah menginstall windows 7 ke komputer atau laptop. berikut cara menginstall windows 7 lengkap dengan gambar gambarnya. Langkah2 ini baik dengan menggunakan media DVD ataupun media lain seperti memakai flashdisk adalah sama, baik itu untuk versi 32bit maupun versi 64bit, bagi yang belum punya instalasi windows7 menggunakan media flashdisk silahkan dilihat cara menginstall windows 7 menggunakan flashdisk disini.
Yuk kita mulai!.
Masukkan DVD windows 7 atau colokkan flashdisk windows 7 kita, dan kemudian booting lah memakai media yang telah kita pilih, lalu proses loading file akan dimulai.


Pilih bahasa Anda, waktu & format mata uang, keyboard atau metode input dan klik Next.

Klik Install now

Conteng I accept the license terms dan klik Next.

Klik Upgrade jika Anda sudah mempunyai versi Windows sebelumnya atau Custom (advanced) jika anda tidak memiliki versi Windows sebelumnya atau ingin menginstal salinan baru Windows 7.

(Lewati langkah ini jika Anda memilih Upgrade dan hanya memiliki satu partisi) Pilih drive mana Anda ingin menginstal Windows 7 dan klik Next. Jika Anda ingin membuat partisi, klik opsi Drive options (advanced), buatlah partisi dan kemudian klik Next.

Sekarang akan dimulai menginstal Windows 7. Langkah pertama, (yaitu Windows mulai menyalin file) sudah dilakukan ketika anda booting DVD/fd Windows 7 sehingga akan selesai seketika.

Setelah menyelesaikan langkah pertama, ia akan memperluas (decompress) file yang telah disalin.


Langkah ketiga dan keempat juga akan diselesaikan langsung seperti langkah pertama.


Setelah itu secara otomatis akan restart setelah 15 detik dan melanjutkan setup. Anda juga dapat klik Restart now untuk restart tanpa perlu menunggu.



Setelah restart untuk pertama kalinya, proses setup akan dilanjutkan. Ini adalah langkah terakhir sehingga akan mengambil waktu yang agak lamadaripada langkah sebelumnya.

Sekarang akan otomatis restart lagi dan melanjutkan setup. Anda dapat klik Restart now untuk restart tanpa perlu menunggu.




Ketik nama pengguna yang Anda inginkan dalam kotak-teks dan klik Next. Nama komputer akan otomatis terisi.

Jika Anda ingin mengatur sandi, ketik di kotak teks dan klik Next.

Ketik kunci produk Anda dalam kotak-teks dan klik Next. Anda juga dapat melewatkan langkah ini dan cukup klik Next jika Anda ingin mengetik kunci produk nanti. Windows akan berjalan hanya selama 30 hari jika Anda melakukan ini.

Pilih opsi yang Anda inginkan untuk Windows Update.

Pilih zona waktu dan klik Next.

Jika anda terhubung ke jaringan apapun, ia akan meminta Anda untuk menetapkan lokasi jaringan.






Nah selesai sudah proses penginstallan windows7 baik dengan menggunakan flashdisk maupun DVD.

Sejarah Indonesia

Selasa, 09 Oktober 2007

Sejarah Indonesia

Di bawah pengaruh agama Hindu dan Buddha, beberapa kerajaan terbentuk di pulau Sumatra dan Jawa sejak abad ke-7 hingga abad ke-14. Kedatangan pelaut-pelaut Tiongkok yang dipimpin oleh Laksamana Cheng Ho/Zheng He, pedagang-pedagang Arab dari Gujarat, India, kemudian membawa agama Islam.
Ketika orang-orang Eropa datang pada awal abad ke-16, mereka menemukan beberapa negara-negara kecil. Negara-negara kecil ini dengan mudah dikuasai oleh orang-orang Eropa tersebut yang ingin mendominasi perdagangan rempah-rempah. Pada abad ke-17, Belanda muncul sebagai yang terkuat di antara negara-negara Eropa lainnya, mengalahkan Britania Raya dan Portugal (kecuali untuk koloni mereka, Timor Timur). Pada masa itulah agama Kristen masuk ke Indonesia sebagai salah satu misi dari Belanda yang dikenal sebagai 3G, yaitu Gold, Glory, and Gospel. Belanda menguasai Indonesia sebagai koloni hingga Perang Dunia II, awalnya melalui VOC, dan kemudian langsung oleh pemerintah Belanda sejak awal abad ke-19.

 

 

Johannes van den Bosch, pencetus Cultuurstelsel

Di bawah sistem Cultuurstelsel (Sistem Penanaman) pada abad ke-19, perkebunan besar dan penanaman paksa dilaksanakan di Jawa, akhirnya menghasilkan keuntungan bagi Belanda yang tidak dapat dihasilkan VOC. Pada masa pemerintahan kolonial yang lebih bebas setelah 1870, sistem ini dihapus. Setelah 1901 pihak Belanda memperkenalkan Kebijakan Beretika, yang termasuk reformasi politik yang terbatas dan investasi yang lebih besar di Hindia-Belanda.
Pada masa Perang Dunia II, sewaktu Belanda dijajah oleh Jerman, Jepang menguasai Indonesia. Setelah mendapatkan Indonesia pada tahun 1942, Jepang melihat bahwa para pejuang Indonesia merupakan rekan perdagangan yang kooperatif dan bersedia mengerahkan prajurit bila diperlukan. Soekarno, Mohammad Hatta, KH. Mas Mansur, dan Ki Hajar Dewantara diberikan penghargaan oleh Kaisar Jepang pada tahun 1943.
Pada Maret 1945 Jepang membentuk sebuah komite untuk kemerdekaan Indonesia; setelah perang Pasifik berakhir pada tahun 1945, di bawah tekanan organisasi pemuda, kelompok pimpinan Soekarno memproklamasikan kemerdekaan Indonesia. Dalam usaha untuk menguasai kembali Indonesia, Belanda mengirimkan pasukan mereka.
Usaha-usaha berdarah untuk meredam pergerakan kemerdekaan ini kemudian dikenal sebagai 'aksi polisi' (Politionele Actie). Belanda akhirnya menerima hak Indonesia untuk merdeka pada 27 Desember 1949 setelah mendapat tekanan yang kuat dari kalangan internasional, terutamanya Amerika Serikat. Soekarno menjadi presiden pertama Indonesia dengan Mohammad Hatta sebagai wakil presiden.
Pada tahun 1950-an dan 1960-an, pemerintahan Soekarno mulai mengikuti gerakan non-blok pada awalnya dan kemudian dengan blok sosialis, misalnya Tiongkok dan Yugoslavia. Tahun 1960-an menjadi saksi terjadinya konfrontasi militer terhadap negara tetangga, Malaysia ("Konfrontasi"), dan ketidakpuasan terhadap kesulitan ekonomi yang semakin besar. Selanjutnya pada tahun 1965 meletus kejadian G30S yang menyebabkan kematian 6 orang jenderal dan sejumlah perwira menengah lainnya. Muncul kekuatan baru yang menyebut dirinya Orde Baru yang segera menuduh Partai Komunis Indonesia sebagai otak di belakang kejadian ini dan bermaksud menggulingkan pemerintahan yang sah serta mengganti ideologi nasional berdasarkan paham sosialis-komunis. Tuduhan ini sekaligus dijadikan alasan untuk menggantikan pemerintahan lama di bawah Presiden Soekarno.

Sukarno, presiden pertama Indonesia

Jenderal Soeharto menjadi presiden pada tahun 1967 dengan alasan untuk mengamankan negara dari ancaman komunisme. Sementara itu kondisi fisik Soekarno kini sendiri makin melemah. Setelah Soeharto berkuasa, ratusan ribu warga Indonesia yang dicurigai terlibat pihak komunis dibunuh, sementara masih banyak lagi warga Indonesia yang sedang berada di luar negeri, tidak berani kembali ke tanah air, dan akhirnya dicabut kewarganegaraannya. 32 tahun masa kekuasaan Soeharto dinamakan Orde Baru, sementara masa pemerintahan Soekarno disebut Orde Lama.
Soeharto menerapkan ekonomi neoliberal dan berhasil mendatangkan investasi luar negeri yang besar untuk masuk ke Indonesia dan menghasilkan pertumbuhan ekonomi yang besar, meski tidak merata, di Indonesia. Pada awal rezim Orde Baru kebijakan ekomomi Indonesia disusun oleh sekelompok ekonom-ekonom lulusan departemen ekonomi Universitas California, Berkeley, yang dipanggil "Mafia Berkeley". Namun, Soeharto menambah kekayaannya dan keluarganya melalui praktik korupsi, kolusi dan nepotisme yang meluas dan dia akhirnya dipaksa turun dari jabatannya setelah aksi demonstrasi besar-besaran dan kondisi ekonomi negara yang memburuk pada tahun 1998.
Dari 1998 hingga 2001, Indonesia mempunyai tiga presiden: Bacharuddin Jusuf (BJ) Habibie, Abdurrahman Wahid dan Megawati Sukarnoputri. Pada tahun 2004 pemilu satu hari terbesar di dunia diadakan dan dimenangkan oleh Susilo Bambang Yudhoyono.
Indonesia kini sedang mengalami masalah-masalah ekonomi, politik dan pertikaian bernuansa agama di dalam negeri, dan beberapa daerah sedang berusaha untuk mendapatkan kemerdekaan, yaitu Aceh dan Papua. Timor Timur akhirnya resmi memisahkan diri pada tahun 2002 setelah 24 tahun bersatu dengan Indonesia dan 3 tahun di bawah administrasi PBB.
Pada Desember 2004 dan Maret 2005, Aceh dan Nias dilanda dua gempa bumi besar yang totalnya menewaskan ratusan ribu jiwa. (Lihat Gempa bumi Samudra Hindia 2004 dan Gempa bumi Sumatra Maret 2005.) Kejadian ini disusul oleh gempa bumi di Yogyakarta dan tsunami yang menghantam pantai Pangandaran dan sekitarnya, serta banjir lumpur di Sidoarjo pada 2006 yang tidak kunjung terpecahkan.

MENCARI PENILAI MAHASISWA MELALUI VB NET

  CARA MEMBUAT PENILAI MAHASISWA MELALUI VB NET..

""Dari tampilan Program di atas komponen yang kita perlukan adalah 15 label , 8 textbox, 7 combobox , 3 button."
NI PROGRAM NYA...

Public Class Form1

    Private Sub Nilai_Mahasisiwa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pada kemudian double click
        npm.Items.Add("12110079")
        npm.Items.Add("12110070")
        npm.Items.Add("12110080")

        kddosen.Items.Add("AERDOS112")
        kddosen.Items.Add("BBODOS113")
        kddosen.Items.Add("KDOS114")

        kdmatkul.Items.Add("KDMAT001")
        kdmatkul.Items.Add("KDMAT002")
        kdmatkul.Items.Add("KDMAT003")

        Dim i As Integer
        For i = 100 To 1 Step -1
            nlhadir.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            nltugas.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            nluts.Items.Add(i)
        Next
        For i = 100 To 1 Step -1
            nluas.Items.Add(i)
        Next
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "12110079" Then
            nama.Text = "Khairul amri yusro"
            jurusan.Text = "Teknik Informatika"
            jenjang.Text = "S1"
        ElseIf npm.Text = "12110070" Then
            nama.Text = "Abdul Rahim"
            jurusan.Text = "Sistem Informasi"
            jenjang.Text = "D1"
        Else
            nama.Text = "Arifin"
            jurusan.Text = "Manajemen Informatika"
            jenjang.Text = "D3"
        End If
    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
        If kddosen.Text = "AERDOS112" Then
            nmdosen.Text = "Mesran, M.kom"
        ElseIf kddosen.Text = "BBODOS113" Then
            nmdosen.Text = "Pilipus Tarigan, ST, M.kom"
        ElseIf kddosen.Text = "KDOS114" Then
            nmdosen.Text = "Kristian Siregar, S.kom"
        End If
    End Sub

    Private Sub kdmatkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatkul.SelectedIndexChanged
        If kdmatkul.Text = "KDMAT001" Then
            nmmatkul.Text = "Pemograman Visual"
        ElseIf kdmatkul.Text = "KDMAT002" Then
            nmmatkul.Text = "Arsitektur Komputer"
        ElseIf kdmatkul.Text = "KDMAT003" Then
            nmmatkul.Text = "Pemograman HTML"
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nlakhir.Text = 0.1 * nlhadir.Text + 0.15 * nltugas.Text + 0.3 * nluts.Text + 0.45 * nluas.Text
        If nlakhir.Text >= 80 Then
            nlhuruf.Text = "A"
        ElseIf nlakhir.Text >= 70 Then
            nlhuruf.Text = "B"
        ElseIf nlakhir.Text >= 60 Then
            nlhuruf.Text = "C"
        ElseIf nlakhir.Text >= 50 Then
            nlhuruf.Text = "D"
        Else
            nlhuruf.Text = "E"
        End If

        If nluas.Text >= 50 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAl"
        End If
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
        npm.Focus()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kddosen.Text = ""
        nmdosen.Text = ""
        kdmatkul.Text = ""
        nmmatkul.Text = ""
        nlhadir.Text = ""
        nltugas.Text = ""
        nluts.Text = ""
        nluas.Text = ""
        nlakhir.Text = ""
        nlhuruf.Text = ""
        keterangan.Text = ""
    End Sub
End Class
                                     ~"INI DIA HASIL NYA  SEMOGA BERMANFAAT"~

CARA MEMBUAT ARITKEL YANG BAGUS LOH...

NI CARA MEMBUAT ARTIKEL YANG BAGUS












                                               Untuk membuat artikel yang berkualitas yang perlu anda perhatikan adalah beberapa hal mengenai isi tulisan atau konten dari artikel yang anda buat tersebut, dalam hal ini silahkan anda memperhatikan beberapa poin sebagai berikut:

    Seperti memilih judul artikel dan Mencari Tema Pembahasan Yang Tepat  atau mengandung keyword yang berhubungan dengan isi dari artikel tersebut.

    Kemudian menulis artikel minimal 500 kata untuk memperbanyak keyword karena artikel yang berkualitas setidaknya mengulang 3 keyword, serta Menghindari Penulisan Yang Sulit Dimengerti dengan memperhatikan penggunaan bahasa penulisan yang baik dan benar.

    Jika anda menggunakan gambar untuk artikel ada baiknya perkecil ukuran gambar anda agar tidak terlalu lama untuk memuat artikel dikarenakan ukuran gambar yang besar dan Membuat Alt Text Untuk Gambar agar setiap gambar yang telah anda gunakan untuk artikel dapat dengan mudah dikenali oleh mesin telusur sehingga dapat dibedakan dari gambar lainnya.

    Usahakan membuat link didalam artikel dan saling berhubungan dengan artikel lainnya dengan Membuat Anchor Text Yang Baik dan Benar agar pengunjung bisa membaca artikel lainnya karena terbantu dengan link didalam artikel tersebut.

    Juga yang sangat penting dan perlu digaris bawahi adalah menghindari copy paste artikel dari blog lain, karena jika tetap melakukan copy paste artikel dari blog lain di khawatirkan akan terjadinya duplikat konten yang dapat berdampak buruk untuk artikel yang anda buat dimata search engine dapat dapat merugikan kedua belah pihak. Jadi itu bukanlah Cara Membuat Artikel Yang Berkualitas namanya jika copy paste dari blog lain.


Apabila anda sudah memahami dan menerapkan poin-poin diatas selanjutnya buatlah artikel dengan rutin, karena banyak yang mengatakan bahwa blog yang baik itu adalah blog yang rutin menulis artikel sehingga dapat mengoptimalkan blog. Perlu diperhatikan maksud dari rutin menulis artikel ini bukanlah seperti anda bisa menulis sebanyak-banyaknya artikel dalam sehari, tetapi maksudnya adalah dalam sehari anda cukup menulis satu atau beberapa artikel akan tetapi setiap hari rutin untuk mengerjakannya. Karena prinsipnya seperti ini, menulis 1 artikel dalam sehari tetapi rutin pengerjaannya itu lebih baik dari pada langsung menulis 100 artikel dalam sehari akan tetapi tidak rutin.

Selain itu anda pun bisa Membuat Deskripsi Penelusuran Untuk Artikel agar artikel yang anda buat bisa dikenali dan dicari dengan baik oleh mesin telusur, karena deskripsi penelusuran untuk artikel dapat membantu mesin telusur untuk menemukan artikel-artikel yang berkaitan dengan suatu keyword dengan melihat deskripsi penelusurannya.

Naah sekian penjelasan saya tentang Cara Membuat Artikel Yang Bagus, saya harap dapat membantu Untuk Mengoptimalkan Blog anda.



Semoga bermanfaat!!   ^_^