Pemograman Kriptografi dengan VB 2008

•  Menu Utama

 Listing Program
Public Class Form1

    Private Sub KiptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KiptografiVernamToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub KiptografiVernamToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KiptografiVernamToolStripMenuItem1.Click
        oneTimePad.Show()
    End Sub

    Private Sub KiptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KiptografiGronsfeldToolStripMenuItem.Click
        Form4.Show()

    End Sub

Program Pencarian Nilai Dengan Microsoft Visual Studio 2008

Desain Form.vb  seperti dibawah ini:

Perintah Programnya :

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text

            Case "12110861"

                TextBox1.Text = "Lidia"

                TextBox2.Text = "S1"

                TextBox8.Text = "TI"

            Case "12110867"

                TextBox1.Text = "Naomi"

                TextBox2.Text = "D3"

                TextBox8.Text = "MI"

            Case "12110990"

                TextBox1.Text = "Rio"

                TextBox2.Text = "D1"

                TextBox8.Text = "AI"

            Case Else

                TextBox1.Text = "Ga tau"

                TextBox2.Text = "S1"

                TextBox8.Text = "SI"

        End Select

    End Sub