Kata Kata Motivasi

Sukses bermula dari pikiran kita. Sukses adalah kondisi pikiran kita. Bila Anda menginginkan sukses, maka Anda harus mulai berpikir bahwa Anda sukses, dan mengisi penuh pikiran Anda dengan kesuksesan.
=====================================================================
Menyadari kelemahan bukan berarti kita harus pasrah sebelum ikhtiar, bukan pula pembenaran atas segala kesalahan dan kecerobohan, namun sebagai bentuk bersandarnya hati kepada Tuhan..
=====================================================================
Sebenarnya setiap orang memiliki kemampuan y6 tersimpan dalam dirinya, namun kamampuan tersebut telah terhalang oleh dinding tipis bernama keragu-raguan..
=====================================================================
Kepedihan dalam hidup itu sebenarnya disebabkan oleh kebodohan kita sendiri, karna selalu menginginkan ???? sempurna tanpa bersyukur atas apa ???? telah ada di hadapan mata..
=====================================================================
Bekunya mata karna kerasnya hati,
kerasnya hati akibat dari banyaknya dosa,
banyaknya dosa timbul karna lupa pada mati,
lupa pada mati disebabkan oleh banyaknya angan²,
banyaknya angan² berasal dari terlalu cinta akan dunia,
terlalu cinta dunia itulah sumber dari segala kesalahan..
=====================================================================
Jangan pernah mempercayai seseorang yang hanya berkata tapi tanpa pernah berbuat.
Kare ia mudah ingkar janji semudah ia berucap janji.
=====================================================================
Tiada sukses diraih tanpa keterlibatan orang lain.
Panda membawa diri di setiap pergaulan adalah ilmu hidup yang mutlak dimiliki oleh setiap orang yang mau SUKSES
=====================================================================
Hidup ini singkat, maka jangan membuatnya lebih singkat lagi dengan sesuatu yang sia-sia.
=====================================================================
Sukses itu sederhana...
Lakukan hal yang tepat dengan cara yang tepat dan pada waktu yang tepat.
=====================================================================
Sebetulkan hidup ini sangat sederhana..
tetapi kita merumitkannya dengan rencana yang tidak kita laksanakan,
dengan janji yang tidak kita penuhi,
dengan kewajiban yang kita lalaikan,
dan dengan larangan yang kita langgar (Mario T)
=====================================================================
Cobalah lakukan sesuatu yang sebelumnya kita menyangka tidak mampu untuk melakukannya,
tentu kita akan terkejut bahwa sebenarnya kita bisa malakukannya
=====================================================================
Satu musuh itu terlalu banyak, seribu teman itu terlalu sedikit. Dari ribuan teman kita mengenali seorang sahabat, dan dari beberapa sahabat ada yang lebih dekat dibanding saudara. Kumpulkanlah pertemanan sebanyak-banyaknya ketika masih muda, sehingga dimasa tua nanti anda memiliki banyak sahabat yang mengasihi anda melebihi saudara

Dengan tema yang sederhana yakni “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” namun sangat bermanfaat untuk kita semua.Mesran.net adalah sebuah web yang membantu kita dalam pembelajaran pemrograman,pengalaman ,cerita lucu,dan masih banyak lagi hal yang terdapat didalam mesran.net.

Jika kita rajin untuk membuka,membaca,dan mengulas postingan web ini, maka kita akan mampu sedikit demi sedikit memahami program yang kita kurang mengerti. Mau belajar VB.Net ,java,pascal,C,C++ Mesran.net tempatnya.

Terima kasih mesran.net karena telah membantu saya dalam pengerjaan beberapa pemograman yang saya tidak mengerti.Dan Terima kasih untuk Bapak Mesran,M.Kom yang telah melakukan gebrakan untuk kami yakni membuat blog,posting artikel,quiz online yang mana ini merupakan hal sangat luar biasa untuk kami sebagai mahasiswa Informatika yang mungkin lalai dan sepele dengan blog.

semoga dengan “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” dapat memberikan kita banyak ilmu yang  bermanfaat untuk kita semua

Aamiin….

JAYA SELALU UNTUK MESRAN.NET!!!!!!!!!!!!!!

http://mesran.net/home.html

 Kasus Pemrograman Pemakaian Listrik
 

Public Class Form1

    Sub buattable()

        lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)

        lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)

        lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)

        lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)

        lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)

        Lv.GridLines = True

        Lv.FullRowSelect = True

        Lv.View = View.Details

    End Sub

    Sub isitable()

        Dim x As New ListViewItem

        With x

            .Text = nmr.Text

            .SubItems.Add(daerah.Text)

            .SubItems.Add(tipe.Text)

            .SubItems.Add(Bbeban.Text)

            .SubItems.Add(kwh.Text)

            .SubItems.Add(MMini.Text)

            .SubItems.Add(MMlalu.Text)

            .SubItems.Add(pemakai.Text)

            .SubItems.Add(total.Text)

            .SubItems.Add(pajak.Text)

            .SubItems.Add(bayar.Text)

            lv.Items.Add(x)

        End With

    End Sub

    Sub add_daerah()

        With daerah

            .Items.Add("MEDAN")

            .Items.Add("BELAWAN")

            .Items.Add("AKSARA")

            .Items.Add("MARENDAL")

            .Items.Add("BINJAI")

            .Items.Add("LUBUK PAKAM")

        End With

    End Sub

    Sub add_tipe()

        With tipe

            .Items.Add("TOKO")

            .Items.Add("RUMAH")

            .Items.Add("SWALAYAN")

            .Items.Add("PABRIK")

        End With

    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged

        If tipe.Text = "TOKO" Then

            Bbeban.Text = 150000

            kwh.Text = 500

        ElseIf tipe.Text = "RUMAH" Then

            kwh.Text = 200

            Bbeban.Text = 50000

        ElseIf tipe.Text = "SWALAYAN" Then

            kwh.Text = 1500

            Bbeban.Text = 400000

        ElseIf tipe.Text = "PABRIK" Then

            kwh.Text = 1000

            Bbeban.Text = 1000000

        End If

        MMini.Text = ""

        MMlalu.Text = ""

        pemakai.Text = ""

        total.Text = ""

        pajak.Text = ""

        bayar.Text = ""

        nmr.Text = ""

    End Sub

    Sub bersih()

        nmr.Text = ""

        daerah.Text = ""

        tipe.Text = ""

        Bbeban.Text = ""

        kwh.Text = ""

        MMini.Text = ""

        MMlalu.Text = ""

        pemakai.Text = ""

        total.Text = ""

        pajak.Text = ""

        bayar.Text = ""

    End Sub

    Sub add_nmr()

        Dim x, y, z As String

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

        y = Microsoft.VisualBasic.Left(tipe.Text, 3)

        z = "00" & (tipe.SelectedIndex + 1)

        nmr.Text = x & "-" & y & "-" & z

    End Sub

  Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)   Handles MMlalu.KeyPress

        If e.KeyChar = Chr(13) Then

            If MMlalu.Text = "" Or MMini.Text = "" Then

                MsgBox("Isi Dengan Benar")

            Else

                If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then

                    pemakai.Text = MMini.Text - MMlalu.Text

                    total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)

                    pajak.Text = (15 / 100) * total.Text

                    bayar.Text = Val(total.Text) + Val(pajak.Text)

                    Call add_nmr()

                Else

                    MsgBox("isi dengan angka !!!")

                    pemakai.Text = ""

                    total.Text = ""

                    pajak.Text = ""

                    bayar.Text = ""

                    nmr.Text = ""

                End If

            End If

        End If

    End Sub

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

        Call add_daerah()

        Call add_tipe()

        Call buattable()

    End Sub

    Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged

        Dim i As String

        i = daerah.Text

        bersih()

        daerah.Text = i

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        bersih()

    End Sub

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

        isitable()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        lv.Items.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

End Class

http://www.mesran.net/berita-579-yuk-belajar-bahasa-pemrograman-visual-basic-dot-net.html