No. 1

Public Class Form1
    Dim total As Long
    Dim formatharga As Long
    Sub buattable()
        ListView1.Columns.Add("Kode Pelanggan", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama Pelanggan", 70, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tipe", 70, HorizontalAlignment.Center)
        ListView1.Columns.Add("Biaya Beban", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jumlah Pemakaian", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total Tagihan", 90, HorizontalAlignment.Center)
        ListView1.Columns.Add("daerah", 60, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pajak", 70, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pembayaran", 90, HorizontalAlignment.Center)

        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim a As New ListViewItem
        With a
            a.Text = kp.Text
            a.SubItems.Add(np.Text)
            a.SubItems.Add(tip.Text)
            a.SubItems.Add(bb.Text)
            a.SubItems.Add(jp.Text)
            a.SubItems.Add(tt.Text)
            a.SubItems.Add(pem.Text)
            a.SubItems.Add(dae.Text)
            a.SubItems.Add(paj.Text)


            ListView1.Items.Add(a)

        End With
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("SWA-BEL-102")
        kp.Items.Add("RUM-MED-103")

        ListView1.Columns.Add("Kode Pelanggan", "Kode Pelanggan")
        ListView1.Columns.Add("Nama Pelanggan", "Nama Pelanggan")
        ListView1.Columns.Add("tipe", "tipe")
        ListView1.Columns.Add("Daerah", "Daerah")
        ListView1.Columns.Add("Biaya Beban", "Biaya Beban")
        ListView1.Columns.Add("Harga_kwh", "Harga_kwh")
        ListView1.Columns.Add("Jumlah_Pemakaian", "Jumlah_Pemakaian")
        ListView1.Columns.Add("Total_Tagihan", "Total_Tagihan")
        ListView1.Columns.Add("Pajak", "Pajak")
        ListView1.Columns.Add("Pembayaran", "Pembayaran")

        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True




    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)
        If x = "100" Then
            np.Text = "rinaldi kurniawan"
        ElseIf x = "101" Then
            np.Text = "buyung alamsyah saputra"
        ElseIf x = "102" Then
            np.Text = "rinaldi jambak"
        ElseIf x = "103" Then
            np.Text = "munawar khalil"
        End If

        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        If x = "PAB" Then
            tip.Text = "pabrik"
            bb.Text = 25000
        ElseIf x = "TOK" Then
            tip.Text = "toko"
            bb.Text = 25000
        ElseIf x = "SWA" Then
            tip.Text = "swalayan"
            bb.Text = 15000
        ElseIf x = "RUM" Then
            tip.Text = "rumah"
            bb.Text = 10000
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED" Then
            dae.Text = "medan"
        ElseIf x = "BEL" Then
            dae.Text = "belawan"
        End If
    End Sub

    Private Sub jp_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tt.Text = Val(bb.Text) * jp.Text
            paj.Text = Val(tt.Text) * 0.1
            pem.Text = Val(tt.Text) + Val(paj.Text)
        End If

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        isitable()
        Dim a As New ListViewItem
        With a
            a.Text = kp.Text
            a.SubItems.Add(np.Text)
            a.SubItems.Add(tip.Text)
            a.SubItems.Add(bb.Text)
            a.SubItems.Add(jp.Text)
            a.SubItems.Add(tt.Text)
            a.SubItems.Add(pem.Text)
            a.SubItems.Add(dae.Text)
            a.SubItems.Add(paj.Text)


        End With

        MsgBox("DATA BERHASIL DISIMPAN", MsgBoxStyle.Information, "PESAN")

    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        kp.Text = ""
        np.Text = ""
        tip.Text = ""
        dae.Text = ""
        bb.Text = ""
        jp.Text = ""
        tt.Text = ""
        paj.Text = ""
        pem.Text = ""
    End Sub
End Class

 No. 2
Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pin.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        np.Items.Add("rinaldi kurniawan")
        np.Items.Add("buyung")
        np.Items.Add("jambak")
    End Sub

    Private Sub np_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles np.SelectedIndexChanged
        Select Case np.Text
            Case Is = "rinaldi kurniawan"
                gol.Text = "IIIA"
            Case Is = "buyung"
                gol.Text = "IIIB"
            Case Is = "jambak"
                gol.Text = "IIIC"
        End Select

        Select Case np.Text
            Case Is = "rinaldi kurniawan"
                gaj.Text = "1500000"
            Case Is = "buyung"
                gaj.Text = "2500000"
            Case Is = "jambak"
                gaj.Text = "3500000"
        End Select


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        paj.Text = 0.15 * Val(gaj.Text)
        gb.Text = Val(gaj.Text) - Val(paj.Text) - Val(pin.Text)
    End Sub
End Class

Blog ini saya buat untuk membuat saya lebih paham mempelajari mata kuliah " PEMOGRAMAN VISUAL " agar saya bisa menguasai ilmu VISUAL BASIC, dan bisa saya pergunakan untuk masa depan saya..

 http://mesran.blogspot.com/

http://mesran.net/

Bahasa Pemrograman C++

Bahasa Pemrograman C++

Konversi bilangan Desimal ke Biner menggunakan perulangan do while  hanya mengkonversi dari bilangan desimal ke biner, kali ini kita akan bahas tentang konversi bilangan dari bilangan Desimal ke bilangan hexadesimal, oktal, dan juga biner.
prinsipnya sebenarnya untuk konversi kepada biner sama saja dengan program sebelumnya hanya saja untuk progam ini kita tambahkan hex untuk konversi ke hexadesimal dan oct untuk konversi ke oktal.
mari kita lihat progam selengkapnya :

#include<iostream.h>

int main()

{

        long desimal, pembagi=1073741824, bit;

        cout<<"Nilai Desimal : ";

        cin>>desimal;

                cout<<"Hexadesimal = "<<hex<<desimal<<endl;

                cout<<"Oktal       = "<<oct<<desimal<<endl;

                cout<<"Biner       = ";

        while(pembagi>desimal) pembagi/=2;

        do{

                bit=desimal/pembagi;

                cout<<bit;

                desimal=desimal%pembagi;

                pembagi/=2;

        }

        while(pembagi>=1);

        cout<<"\n";

        return 0;    

}

dari program diatas dapat kita lihat misalnya kita akan mengkonversi dari desimal dengan nilai 15 .
maka hasil outputnya akan seperti berikut ini.

Public Class Form1

    Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim a As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plain.Text)
            a = Mid(plain.Text, i, i)
            a = Chr(Asc(a) - 3)
            xkalimat = xkalimat + a
        Next
        chiper.Text = xkalimat
    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
        Dim a As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chiper.Text)
            a = Mid(chiper.Text, i, i)
            a = Chr(Asc(a) - 3)
            xkalimat = xkalimat + a
        Next
        plain.Text = xkalimat
    End Sub
End Class

Contoh Program Visual Basic 2 Mengenal & Mengetahui Cara Penggunaan Listview
Tutorial kali ini saya akan memberikan contoh VisualBasic 2008  yang kedua

Langkah-langkahnya:
1. Membuka Program Visual Basic (VB) 2008
2. Klik create : Project
3. Ubah Project dengan Nama Anda sendiri
4. Maka setelah itu akan muncul sebuah FROM1 pada project Anda
5. Desain from dengan label, Textbox, Buttom, ListView
Tampilan From

6. Listing Program

Public Class Form2

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

        buattabel()

    End Sub

    Sub buattabel()

        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = NPM.Text

        lst.SubItems.Add(Nama.Text)

        LV.Items.Add(lst)

    End Sub

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

        isitabel()

        NPM.Text = ""

        Nama.Text = ""

    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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

7. Tampilan Form setelah dijalankan

NB :

• Ketikan NPM Anda pada TextBox NPM
• Ketikan Nama Anda pada TextBox Nama
• Klik => buttton (Simpan Ke ListView)
• Jika Anda ingin menghapusnya : Klik saja button (Hapus data yang Dipilih) atau jika ingin menghapus semua Datanya Klik saja button (Hapus Semua Data)

Silahkan di coba programnya ya :-* :-)

Pembelajaran Komunikasi Data

Pembelajaran Komunikasi Data

tutorial kali ini saya akan menjelaskan sedikit tentang :

Model Komunikasi

Komunikasi merupakan cara untuk menyampaikan atau menyebar luaskan data dan informasi. Teknologi Komunikasi terus di kembangkan dengan tujuan memudahkan manusia dalam melakukan Komunikasi.

Komunikasi Data merupakan cara mengirim data menggunakan sistem transmisi elektronik dan satu komputer ke komputer lainnya atau dari satu komputer ke terminal tertentu. Sedangkan data itu sendiri merupakan sinyal elektromagnetik yang dibangkitkan oleh sumber data yang dapat di tangkap dan diterima lalu dikirimkan ke terminal tertentu.

Tujuan utama dari Komunikasi Data adalah untuk menukar informasi antara dua perantara. Data adalah sebuah gambaran dari kenyataan, konsep atau intruksi dalam bentuk formal yang sesuai untuk komunikasi, interpretasi, atau proses oleh manusia atau peralatan otomatis.

                              Sistem Sumber                                                        Sistem Tujuan

Agent => Input Device => Transmiter => Media Transmisi => Receiver => Output Device => A.B.C

Hal-hal yang berhubungan dengan Komunikasi Data adalah :

1. Media Transmisi
2. Kapasitas Data
3. Tipe Saluran Transmisi
4. Protokol
5. Mode Transmisi
6. Check Error

Pengertian dari DELPHI

Pengertian dari DELPHI

 Delphi adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti bahasa pemrograman Visual Basic ( VB ) . Namun Delphi menggunakan bahasa yang hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih mudah untuk digunakan . Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik embarcadero . Divisi tersebut awalnya milik borland , sehingga bahasa ini memiliki versi Borland Delphi . 

     Delphi juga menggunakan konsep yang berorientasi objek ( OOP ) , maksudnya pemrograman dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya . Hal itu bisa dilakukan dengan cara mendesign objek untuk menyelesaikan masalah . OOP ini memiliki beberapa unsur yaitu ; Encapsulation ( pemodelan ) , Inheritance ( Penurunan ) , Polymorphism ( Polimorfisme ) .

     Awalnya bahasa pemrograman delphi hanya dapat digunakan di Microsoft Windows, namun saat ini telah dikembangkan sehingga dapat digunakan juga di Linux dan di Microsoft .NET . Dengan menggunakan free pascal yang merupakan proyek OpenSource, bahasa pemrograman ini dapat membuat program di sistem operasi Mac OS X dan Windows CE .

     Umumnya delphi hanya digunakan untuk pengembangan aplikasi dekstop, enterprise berbasis database dan program - program kecil . Namun karena pengembangan delphi yang semakin pesat dan bersifat general purpose bahasa pemrograman ini mampu digunakan untuk berbagai jenis pengembangan software . Dan Delphi juga disebut sebagai pelopor perkembangan RadTool ( Rapid Apllication Development ) tahun 1995 . Sehinnga banyak orang yang mulai mengenal dan menyukai bahasa pemrograman yang bersifat VCL ( Visual Component Library ) ini .

form pembayaran PDAM ~visual studio

Public Class Form1

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

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

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)
        If x = "100" Then
            np.Text = "munawar khalil"
        ElseIf x = "101" Then
            np.Text = "buyung alamsyah"
        ElseIf x = "102" Then
            np.Text = "rinaldi jambak"
        ElseIf x = "103" Then
            np.Text = "syawal"
        End If

        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        If x = "PAB" Then
            tip.Text = "pabrik"
            bb.Text = 25000
            hm.Text = 500
        ElseIf x = "TOK" Then
            tip.Text = "toko"
            bb.Text = 25000
            hm.Text = 300
        ElseIf x = "SWA" Then
            tip.Text = "swalayan"
            bb.Text = 15000
            hm.Text = 200
        ElseIf x = "RUM" Then
            tip.Text = "rumah"
            bb.Text = 10000
            hm.Text = 100
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED" Then
            dae.Text = "medan"
        ElseIf x = "BEL" Then
            dae.Text = "belawan"
        End If


    End Sub

    Private Sub jp_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tt.Text = Val(bb.Text) + hm.Text * jp.Text
            paj.Text = 0.01 * tt.Text
            pem.Text = Val(paj.Text) + Val(jp.Text)
        End If



    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kp.Text = ""
        np.Text = ""
        tip.Text = ""
        bb.Text = ""
        jp.Text = ""
        tt.Text = ""
        pem.Text = ""
        dae.Text = ""
        hm.Text = ""
        paj.Text = ""

    End Sub
End Class

  End Sub