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