Coding Program Kripto Grafi Vegenere

Public Class Form_Vegenere

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        chipertext.Text = Enkripsi(plaintext.Text, kunci.Text)
    End Sub
   Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String
        Dim j As Integer
        Dim jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String
        Dim nEnc As Integer
        j = 0
        jum = Len(Teks)
        sPlain = ""
        sKey = Kunci
        sKata = Teks
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1))

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))
        Next i
        Enkripsi = sPlain
    End Function

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Dim salam As String
        salam = MsgBox("KALAU MAU KELUAR KLIK YES", MsgBoxStyle.YesNo)
        If salam = vbYes Then
            Me.Close()
        End If
    End Sub
End Class
  

Selamat Mencoba.....Semoga Berhasil.......

Contoh Koding Program VB Keredit mobil

Public Class Form1
    Sub kode()
        If kdmobil.Text = "MB1" Then
            nama.Text = "Avanza Velos"
        ElseIf kdmobil.Text = "MB2" Then
            nama.Text = "Avanza G"
        ElseIf kdmobil.Text = "MB3" Then
            nama.Text = "Xenia G"
        ElseIf kdmobil.Text = "MB4" Then
            nama.Text = " Yaris"
        Else
            nama.Text = ""
        End If
    End Sub
    Sub BuatTable()
        LV.Columns.Add("Kode Mobil", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Mobil", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Tahun", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Kondisi", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Uang Muka", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Komisi Sales", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Kredit", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Lama Kredit", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Angsuran PerBulan", 130, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kdmobil.Items.Add("MB1")
        kdmobil.Items.Add("MB2")
        kdmobil.Items.Add("MB3")
        kdmobil.Items.Add("MB4")
        For T = 2012 To 2014
            tahun.Items.Add(T)
        Next
        kondisi.Items.Add("Baru")
        kondisi.Items.Add("Bekas")
        For J = 1 To 100
            jmlhbeli.Items.Add(J)
        Next
        For K = 12 To 48 Step 6
            lamakredit.Items.Add(K)
        Next
        Call BuatTable()

        kdmobil.Enabled = True
        nama.Enabled = False
        tahun.Enabled = True
        kondisi.Enabled = True
        harga.Enabled = False
        jmlhbeli.Enabled = True
        totalharga.Enabled = False
        uangmuka.Enabled = False
        komisisales.Enabled = False
        totalkredit.Enabled = False
        lamakredit.Enabled = True
        angsuran.Enabled = False
    End Sub
    Private Sub kdmobil_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmobil.SelectedIndexChanged
        Call kode()
    End Sub
    Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
        If kondisi.Text = "Baru" And nama.Text = "Avanza Velos" And tahun.Text = "2012" Then
            harga.Text = 175
        ElseIf kondisi.Text = "Bekas" And nama.Text = "Avanza Velos" And tahun.Text = "2012" Then
            harga.Text = 120
        ElseIf kondisi.Text = "Baru" And nama.Text = "Avanza Velos" And tahun.Text = "2013" Then
            harga.Text = 195
        ElseIf kondisi.Text = "Bekas" And nama.Text = "Avanza Velos" And tahun.Text = "2013" Then
            harga.Text = 130
        ElseIf kondisi.Text = "Baru" And nama.Text = "Avanza Velos" And tahun.Text = "2014" Then
            harga.Text = 208
        ElseIf kondisi.Text = "Bekas" And nama.Text = "Avanza Velos" And tahun.Text = "2014" Then
            harga.Text = 170

        ElseIf nama.Text = "Avanza G" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = 170
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = 125
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = 200
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = 150
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = 210
        ElseIf nama.Text = "Avanza G" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = 180

        ElseIf nama.Text = "Xenia G" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = 175
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = 130
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = 205
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = 155
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = 215
        ElseIf nama.Text = "Xenia G" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = 185

        ElseIf nama.Text = "Yaris" And tahun.Text = "2012" And kondisi.Text = "Baru" Then
            harga.Text = 190
        ElseIf nama.Text = "Yaris" And tahun.Text = "2012" And kondisi.Text = "Bekas" Then
            harga.Text = 120
        ElseIf nama.Text = "Yaris" And tahun.Text = "2013" And kondisi.Text = "Baru" Then
            harga.Text = 190
        ElseIf nama.Text = "Yaris" And tahun.Text = "2013" And kondisi.Text = "Bekas" Then
            harga.Text = 140
        ElseIf nama.Text = "Yaris" And tahun.Text = "2014" And kondisi.Text = "Baru" Then
            harga.Text = 200
        ElseIf nama.Text = "Yaris" And tahun.Text = "2014" And kondisi.Text = "Bekas" Then
            harga.Text = 170
        End If
    End Sub

    Private Sub jmlhbeli_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhbeli.SelectedIndexChanged
        totalharga.Text = jmlhbeli.Text * harga.Text
        uangmuka.Text = 0.3 * totalharga.Text
        komisisales.Text = 0.02 * jmlhbeli.Text * uangmuka.Text
        totalkredit.Text = totalharga.Text - uangmuka.Text
    End Sub

    Private Sub lamakredit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lamakredit.SelectedIndexChanged
        angsuran.Text = (((totalkredit.Text) * (0.03 * lamakredit.Text)) + totalkredit.Text) / lamakredit.Text
    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
        Dim AbdulSalam As String
        AbdulSalam = MsgBox("Are You Sure Want To Quit?", MsgBoxStyle.OkCancel)
        If AbdulSalam = vbOK Then
            Me.Close()
        End If
    End Sub
    Sub IsiTable()
        Dim abdulsalam As New ListViewItem
        abdulsalam.Text = kdmobil.Text
        abdulsalam.SubItems.Add(nama.Text)
        abdulsalam.SubItems.Add(tahun.Text)
        abdulsalam.SubItems.Add(kondisi.Text)
        abdulsalam.SubItems.Add(harga.Text)
        abdulsalam.SubItems.Add(jmlhbeli.Text)
        abdulsalam.SubItems.Add(totalharga.Text)
        abdulsalam.SubItems.Add(uangmuka.Text)
        abdulsalam.SubItems.Add(komisisales.Text)
        abdulsalam.SubItems.Add(totalkredit.Text)
        abdulsalam.SubItems.Add(lamakredit.Text)
        abdulsalam.SubItems.Add(angsuran.Text)
        LV.Items.Add(abdulsalam)
    End Sub
    Private Sub Btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpan.Click
        Call IsiTable()
        kdmobil.Text = ""
        nama.Text = ""
        tahun.Text = ""
        kondisi.Text = ""
        harga.Text = ""
        jmlhbeli.Text = ""
        totalharga.Text = ""
        uangmuka.Text = ""
        komisisales.Text = ""
        totalkredit.Text = ""
        lamakredit.Text = ""
        angsuran.Text = ""
        MsgBox("Data Telah TerSimpan")
    End Sub
    Private Sub Btn_hpssatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpssatu.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
            MsgBox("Data Telah Terhapus")
        Else
            MsgBox("Pilih duluh yg mau di hapus")
        End If
    End Sub
    Private Sub Btn_hpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpssemua.Click
        LV.Items.Clear()
        MsgBox("Data Telah Terhapus")
    End Sub
End Class



Semoga Kodingnya Bermanfaat , Selamat Mencoba.....!

PENGERTIAN GPRS

GPRS (singkatan bahasa Inggris: General Packet Radio Service, GPRS) adalah suatu teknologi yang memungkinkan pengiriman dan penerimaan data lebih cepat jika dibandingkan dengan penggunaan teknologi Circuit Switch Data atau CSD. Sering disebut pula dengan teknologi 2,5G.

GPRS merupakan sistem transmisi berbasis paket untuk GSM yang menggunakan prinsip 'tunnelling'. Ia menawarkan laju data yang lebih tinggi. Laju datanya secara kasar sampai 160 kbps dibandingkan dengan 9,6kbps yang dapat disediakan oleh rangkaian tersakelar GSM.

GPRS merupakan teknologi baru yang memungkinkan para operator jaringan komunikasi bergerak menawarkan layanan data dengan laju bit yang lebih tinggi dengan tarif rendah ,sehingga membuat layanan data menjadi menarik bagi pasar massal. Para operator jaringan komunikasi bergerak di luar negeri kini melihat GPRS sebagai kunci untuk mengembangkan pasar komunikasi bergerak menjadi pesaing baru di lahan yang pernah menjadi milik jaringan kabel, yakni layanan internet. Kondisi ini dimungkinkan karena ledakan penggunaan internet melalui jaringan kabel (telepon) dapat pula dilakukan melalui jaringan bergerak. Layanan bergerak yang kini sukses di pasar adalah, laporan cuaca, pemesanan makanan, berita olah raga sampai ke berita-berita penting harian. Dari perkembangan tersebut, dapat dirasakan dampaknya pada kemunculan berbeagai provider HP yang bersaing menawarkan tarif GPRS yang semakin terjangkau.

Dalam teorinya GPRS menjanjikan kecepatan mulai dari 56 kbps sampai 115 kbps, sehingga memungkinkan akses internet, pengiriman data multimedia ke komputer, ''notebook'' dan ''handheld computer''. Namun, dalam implementasinya, hal tersebut sangat tergantung faktor-faktor sebagai berikut:

§  Konfigurasi dan alokasi time slot pada level BTS

§  Software yang dipergunakan

§  Dukungan fitur dan aplikasi ponsel yang digunakan

Ini menjelaskan mengapa pada saat-saat tertentu dan di lokasi tertentu akses GPRS terasa lambat, bahkan lebih lambat dari akses CSD yang memiliki kecepatan 9,6 kbps.