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.....!!!!!!
1.buatlah form baru file>New Project>OK
2. Desainlah form baru tersebut seperti pada gambar 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