Sabtu, 18 Januari 2014

Disini saya kembali mencoba membuat program  tentang Kriptografi Gronsfled, berikut ini langkah langkah nya
1.buatlah form baru file>New Project>OK

2. Desainlah form baru tersebut seperti pada gambar dibawah ini
3. Selanjutnya isilah name dan teks nya sesuai dengan coding agar tidak terjadi eror pada saat dijalankan seperti dibawah ini


Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        input.Text = ""
        hasil.Text = ""

    End Sub

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
        Dim ind As Integer
        Dim huruf, kalimat As String
        Dim jumlah(25) As Integer
        kalimat = (input.Text).ToUpper
        For x = 1 To Microsoft.VisualBasic.Len(kalimat)
            huruf = kalimat.Substring(x - 1, 1)
            If (huruf >= "A") And (huruf <= "Z") Then
                ind = Asc(huruf) - 65
                jumlah(ind) += 1
            End If
        Next
        hasil.Text = ""
        For i As Integer = 0 To 25
            huruf = Chr(i + 65)
            If jumlah(i) > 0 Then
                hasil.Text = hasil.Text & huruf & " = " & jumlah(i) & vbCrLf
            End If
        Next
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        input.Text = ""
        hasil.Text = ""
    End Sub
End Class

4.jika telah selesai mengisi codingnya maka langkah selanjutnya adalah menjalankannya  dengan cara menekan "F5" atau meng klik tanda play pada menu bar
jika berhasil tanpa ata eror maka  tampilannya akan seperti ini

Demikian lah penjelasan tenteng membuat kriptografi gronsfled  menggunakan vbnet 2008,jangan lupa kunjungi mesran.net untuk mengetahui informasi dan semua tentang program

selamat mencoba.....!!!!!!

0 komentar:

Posting Komentar