QUIS ONLINE

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tabel()

        Kode_pelanggan.Items.Add("MED")
        Kode_pelanggan.Items.Add("BEL")
        Kode_pelanggan.Items.Add("TEM")
        Kode_pelanggan.Items.Add("MAR")
        Kode_pelanggan.Items.Add("BIN")
        Kode_pelanggan.Items.Add("PAK")

        Tipe_pelanggan.Items.Add("TOK")
        Tipe_pelanggan.Items.Add("RUM")
        Tipe_pelanggan.Items.Add("SWA")
        Tipe_pelanggan.Items.Add("PAB")
    End Sub

    Private Sub Kodepel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_pelanggan.SelectedIndexChanged
        Select Case Kode_pelanggan.Text
            Case ("MED")
                Daerah.Text = "MEDAN"
                pajak.Text = 0.015
            Case ("BEL")
                Daerah.Text = "BELAWAN"
                pajak.Text = 0.015
            Case ("TEM")
                Daerah.Text = "AKSARA"
                pajak.Text = 0.015
            Case ("MAR")
                Daerah.Text = "MARENDAL"
                pajak.Text = 0.015
            Case ("BIN")
                Daerah.Text = "BINJAI"
                pajak.Text = 0.015
            Case ("PAK")
                Daerah.Text = "LUBUK PAKAM"
                pajak.Text = 0.015
        End Select
    End Sub

    Private Sub Tipel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe_pelanggan.SelectedIndexChanged
        Select Case Tipe_pelanggan.Text
            Case ("TOK")
                Tipoe_toko.Text = "TOKO"
                BiayaBeban.Text = 150000
                harga.Text = 500
            Case ("RUM")
                Tipoe_toko.Text = "RUMAH"
                BiayaBeban.Text = 50000
                harga.Text = 200
            Case ("SWA")
                Tipoe_toko.Text = "SWALAYAN"
                BiayaBeban.Text = 400000
                harga.Text = 1500
            Case ("PAB")
                Tipoe_toko.Text = "PABRIK"
                BiayaBeban.Text = 1000000
                harga.Text = 10000
        End Select
    End Sub
    Sub tabel()
        ListView1.Columns.Add("Kode pelanggan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Daerah", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tipe Pelanggan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tipe Toko", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Biaya Beban", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Meteran Bulan Lalu", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Meteran Bulan Ini", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga Per KWH", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Besar Pemakaian", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tagihan", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Bayar", 50, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .Text = Kode_pelanggan.Text
            .SubItems.Add(Daerah.Text)
            .SubItems.Add(Tipe_pelanggan.Text)
            .SubItems.Add(Tipoe_toko.Text)
            .SubItems.Add(BiayaBeban.Text)
            .SubItems.Add(meteran_lalu.Text)
            .SubItems.Add(meteran_ini.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(besar_pemakaian.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(tagihan.Text)
            .SubItems.Add(total_bayar.Text)
            ListView1.Items.Add(x)
        End With
    End Sub

    Private Sub Tobay_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles total_bayar.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total_bayar.Text = Val(BiayaBeban.Text) + Val(harga.Text) + Val(besar_pemakaian.Text)
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        besar_pemakaian.Text = meteran_lalu.Text - meteran_ini.Text
        tagihan.Text = BiayaBeban.Text + (harga.Text * besar_pemakaian.Text)
        total_bayar.Text = tagihan.Text * pajak.Text
    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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        bersih()
    End Sub
    Sub bersih()
        Kode_pelanggan.Text = ""
        Tipe_pelanggan.Text = ""
        Tipoe_toko.Text = ""
        BiayaBeban.Text = ""
        meteran_ini.Text = ""
        meteran_lalu.Text = ""
        harga.Text = ""
        Daerah.Text = ""
        besar_pemakaian.Text = ""
        pajak.Text = ""
        tagihan.Text = ""
        total_bayar.Text = ""
    End Sub
Private Sub btnhpslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpslist.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

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

Manfaat Daun Sirih Merah

Gambar Sirih Merah

Selain bersifat antiseptic, sirih merah juga bisa dipakai untuk mengobati penyakit diabetes, dengan meminum air rebusan sirih merah setiap hari akan menurunkan kadar gula darah sampai pada tingkat yang normal.

Selain itu tanaman sirih merah mempunyai manfaat menyembuhkan penyakit ambeien, keputihan dan bisa digunakan sebagai obat kumur, karena alkaloid di dalam sirih merah inilah yang berfungsi sebagai anti mikroba.

1. Mengatasi Keputihan

Khasiat daun sirih merah ini digunakan untuk mengurangi keputihan dan menjaga organ kewanitaan, karena salah satu khasiat dari daun sirih merah adalah sebagai antiseptic. Yaitu dengan merebus 7-10 lembar daun sirih merah, lalu menggunakan air rebusan untuk membilas organ kewanitaan.

2. Menghilangkan bau badan

Ambil daun sirih 2-3 lembar direndam dalam air panas 1/2gelas.ditambah satu sendok teh gula putih. Biarkan sampai air suam-suam kuku. Setelah sirihnya diambil, airnya diminum.

3. Menghilangkan Bau Mulut

Satu lembar daun sirih setelah dicuci bersih dikunyah-kunyah, ditahan bebearapa menit dalam mulut lalu diludahkan. Kerjakan hal itu 2-3 kali sehari. Cara lainnya rebus 5-6 lembar daun sirih dengan 2 gelas air sampai mendidih. Dinginkan dan saring dan setelah itu untuk kumur-kumur setiap pagi dan sore.

Mesran.Net

Website Mesran.Net ini adalah salah satu website Dosen STMIK BUDIDARMA MEDAN. Bapak Mesran S.Kom, M.Kom yaitu Mesran.Net



Dalam website Mesran.Net berisi tentang informasi-informasi kampus, tutorial PEMROGRAMAN yang membuat kita bisa sambil belajar bahasa pemrograman. Mahasiswa/i STMIK BUDIDARMA juga dapat login member untuk melihat nilai, tugas, berita terhangat, dll.

Website Mesran.Net ini sangat bermanfaat bagi siapa saja yang ingin belajar bahasa pemrograman komputer. Karna sudah tersedia tutorial tentang pembelajaran bahsa pemrograman. Seperti, Algoritma, PASCAL, C/C++, VB6, Visual Basic.Net, Visual C#, dan lain-lain.

Dan kita juga dapat mendownload E-Book dengan gratis.

Silahkan anda kunjungi langsung website Mesran.Net untuk belajar bahasa pemrograman.

Tugas Pemrograman VB Net 2008

Belajar Pemrograman

Gambar Design Form

Kemudian masukkan kode dibawah..


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110806")
        NPM.Items.Add("12110807")
        NPM.Items.Add("12110809")
        NPM.Items.Add("12110810")

        Kodedosen.Items.Add("10001")
        Kodedosen.Items.Add("10002")
        Kodedosen.Items.Add("10003")

        Kodemakul.Items.Add("KB011")
        Kodemakul.Items.Add("KB012")
        Kodemakul.Items.Add("KB013")


        For i = 100 To 1 Step -1
            nilaikehadiran.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            nilaitugas.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            nilaiuts.Items.Add(i)
        Next i
        For i = 100 To 1 Step -1
            nilaiuas.Items.Add(i)
        Next i
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110806"
                Nama.Text = "FAJAR SYAHDIANTI"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110807"
                Nama.Text = "ARIFIN"
                Jenjang.Text = "D3"
                Jurusan.Text = "Teknik Informatika"
            Case "12110808"
                Nama.Text = "SYAHPUTRA"
                Jenjang.Text = "S1"
                Jurusan.Text = "Teknik Informatika"
            Case "12110809"
                Nama.Text = "FADHILLA"
                Jenjang.Text = "D3"
                Jurusan.Text = "Managemen Informatika"
        End Select
    End Sub

    Private Sub Kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodedosen.SelectedIndexChanged
        Select Case Kodedosen.Text
            Case "10001"
                Namadosen.Text = "Mesran,M.Kom"
            Case "10002"
                Namadosen.Text = "Kennedi Tampubolon"
            Case "10003"
                Namadosen.Text = "Tonni Limbong,S.Kom,M.Kom"
            Case Else
                Namadosen.Text = "Pilipus Tarigan,S.T,M.Kom"
        End Select
    End Sub

    Private Sub Kodemakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodemakul.SelectedIndexChanged
        Select Case Kodemakul.Text
            Case "KB011"
                matakuliah.Text = "Pemrograman Visual"
            Case "KB012"
                matakuliah.Text = "Matriks dan Transformasi Linear"
            Case "KB013"
                matakuliah.Text = "Sistem Basis Data"
            Case Else
                matakuliah.Text = "Arsitektur dan Organisasi"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nilaiakhir.Text = 0.1 * nilaikehadiran.Text + 0.15 * nilaitugas.Text + 0.3 * nilaiuts.Text + 0.45 * nilaiuas.Text

       Select nilaiakhir.Text
            Case Is >= 80
                nilaihuruf.Text = "A"
                keterangan.Text = "Sangat Memuaskan"
            Case 70 To 79
                nilaihuruf.Text = "B"
                keterangan.Text = "Dengan Pujian"
            Case 60 To 69
                nilaihuruf.Text = "C"
                keterangan.Text = "Cukup Memuaskan"
            Case 50 To 59
                nilaihuruf.Text = "D"
                keterangan.Text = "Cukup"
            Case Is >= 49
                nilaihuruf.Text = "E"
                keterangan.Text = "Tidak Memuaskan"
        End Select
    End Sub

    Private Sub Btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhps.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Kodedosen.Text = ""
        Namadosen.Text = ""
        Kodemakul.Text = ""
        matakuliah.Text = ""
        nilaikehadiran.Text = ""
        nilaitugas.Text = ""
        nilaiuts.Text = ""
        nilaiuas.Text = ""
        nilaiakhir.Text = ""
        keterangan.Text = ""
    End Sub

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


Kemudian Jalankan dengan ketik F5/Start Debugging...

Gambar Design Form setelah dijalankan

Silahkan dicoba... ^_^

Resep Membuat Brownies Coklat Panggang Paling Enak

Resep membuat Brownies Cokelat yang akan di bagikan kali ini sudah terbukti enak dan gurih ketika Sobat memakannya. Untuk membuat kue brownies cokelat caranya cukup mudah dan praktis, Sobat cukup dengan mempersiapkan bahan-bahan dan cara pembuatan di bawah ini dengan tepat dan benar saja.

Bahan Membuat Brownies Coklat Panggang :
150 gram tepung terigu, ayak halus
200 gram margarin
3 butir telur, ( kocok hingga mengembang )
200 gram dark cokelat ( dipotong dadu )
150 gram gula pasir
1/4 sendok teh garam halus

Cara Membuat Brownies Coklat Panggang :
1. Langkah pertama panaskan terlebih dahulu margarin di atas penggorengan sampai meleleh. Lalu masukkan potongan cokelat, gula pasir serta garam, aduk -aduk hingga cokelat dan gula larut dan leleh, kemudian angkat.
2. Setelah itu tuangkankan tepung pada adonan telur sedikit demi sedikit, sambil diaduk -aduk sampai merata. Pastikan tidak ada yang menggumpal.
3. Kemudian tuangkankan adonan ke dalam loyang yang sudah dialasi kertas roti dan diolesi margarin.
4. Terakhir panggang ke dalam oven selama kurang lebih 45 menit. Tusukkan lidi pada kue untuk memastikan adonan sudah matang. Jika tak ada adonan yang lengket menandakan kue brownies sudah siap makan, kemudian angkat dan potong-potong kue menjadi beberapa bagian ( 10 sampai 15 bagian ).
5. Dinginkan sebentar dan kue siap di sajikan.

Itulah resep cara membuat BROWNIES COKLAT PANGGANG, lebih simple mudah dan praktis di bandingkan dengan lainnya kan? walaupun cara yang diberikan simple, namun rasanya begitu menggoda lidah Sobat semua, Silahkan mencobanya di rumah dan buktikan omongan dari Saya. Selamat mencoba dan semoga bermanfaat untuk Kalian semua

Cara Menurunkan Berat Badan Secara Alami Dalam Seminggu

          Mempunyai tubuh sehat adalah impian setiap orang, tetapi memiliki tubuh yang gemuk dan kurang ramping atau perut gendut, tentu ini bukan keinginan kita. Terlebih lagi jika kita adalah seorang wanita, memiliki badan yang gemuk dan tidak ramping pasti tidak akan membuat hidup kita tenang. Kebanyakan wanita menginginkan tubuh yang ramping, bukan tubuh yang gendut. saat merasa berat badannya bertambah, pasti mereka akan sangat bingung dan mencari cara untuk menurunkan berat badan.

Menurunkan berat badan tidak seperti halnya dengan menaikkan berat badan, perjuangannya lebih berat dan tipsnya tidak seenak cara menaikkan berat badan. seperti apa tips cara menurunkan berat badan? ini dia.

1. Menambah Waktu Olahraga - Cara pertama dalam menurunkan berat badan adalah berolah raga. jika sebelumnya anda juga rutin melakukan olah raga, maka menambah jadwal olah raga adalah cara pertama yang harus anda lakukan. jika sebelumnya anda melakukan olah raga 30menit, sekarang tambah menjadi 45menit atau 1 jam dalam setiap harinya.
2. Hindari Minuman berkarbonasi/minuman ringan - minuman berkarbonasi biasanya adalah minuman ringan yang didalamnya mengandung 250 kalori yang semuanya berasal dari gula. Selain itu, dalam minuman ringan tidak mengandung vitamin. Wanita yang minum soda terlalu sering akan lebih mungkin terkena obesitas, diabetes atau osteoporosis.
3. Hindari makanan cepat saji - Makanan cepat saji yang sarat dengan kalori sebagian besar memiliki kandungan lemak. Bahkan, satu porsi makanan cepat saji, terutama jenis junk food yang mengandung seluruh jumlah kalori yang kita butuhkan dalam satu hari. Jangan mengkonsumsi makanan cepat saji dan berat badan Anda akan berkurang dalam waktu seminggu.
4. Kurangi Porsi Makan - Tentu saja sangat sulit bagi Anda untuk mengurangi porsi makan. Oleh karena itu, Anda hanya dapat menyisihkan setengah porsi makanan dari piring. jika sebelumnya anda makan 1 piring penuh, berlahan anda harus bisa menguranginya dari seper'empat sampai setengahnya.
5. Makan Lebih Sering - Makan lima porsi kecil sehari akan membantu metabolisme Anda dan membantu Anda menurunkan berat badan. Dengan makan makanan kecil lebih sering akan membuat Anda tidak merasa lapar sehingga mencegah rasa lapar dan keinginan untuk makan berlebihan.
6. Memperbanyak makan Buah dan Sayuran - Jika Anda serius ingin menurunkan berat badan dalam seminggu, salah satu cara yang harus dilakukan selain peningkatan cara diatas  adalah memperbanyak makan buah dan sayuran. 
7. Minum Sebelum Makan - Tahukah Anda minum air 5-10 menit sebelum makan dapat mengurangi rasa lapar? Minum air sebelum makan dan Anda akan dapat mengurangi porsi makan. Dengan penekanan pada air minum juga dapat membantu meningkatkan metabolisme Anda.
8. Ganti Nasi Putih dengan Beras Merah -Solusi jika Anda ingin langsing begitu cepat adalah mengganti karbohidrat putih dengan karbohidrat kompleks. Karbohidrat ini memakan waktu lebih lama untuk dicerna oleh tubuh, membuat perut merasa kenyang lebih lama. Ditambah karena sulit untuk dicerna, sehingga tubuh menggunakan banyak energi yang berguna untuk mengurangi kalori. Beras merah, kentang (rebus), kacang-kacangan dan roti gandum jatuh ke dalam karbohidrat kompleks yang kaya serat.
9. Hindari gorengan - Gorengan mempunyai potensi penyimpanan lemak yang dapat meningkatkan kolesterol dan menyebabkan penumpukan lemak yang berlebihan dalam tubuh. Oleh karena itu hindari gorengan dan harus mulai konsumsi makanan yang diolah dengan cara direbus, dipanggang, pepes, kukus atau sup.   

 SEMOGA BERMANFAAT YAA ...