Membuat Form Nilai Mahasiswa

Listing Program :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110982")
        NPM.Items.Add("12110040")
        NPM.Items.Add("12113456")
        NPM.Items.Add("12118890")
        NPM.Items.Add("12113435")

        KDosen.Items.Add("D001")
        KDosen.Items.Add("D002")
        KDosen.Items.Add("D003")
        KDosen.Items.Add("D004")
        KDosen.Items.Add("D005")

        Kodematkul.Items.Add("M001")
        Kodematkul.Items.Add("M002")
        Kodematkul.Items.Add("M003")
        Kodematkul.Items.Add("M004")
        Kodematkul.Items.Add("M005")

        Dim i As Integer
        For i = 100 To 1 Step -1
            Nhadir.Items.Add(i)
            NT.Items.Add(i)
            NU.Items.Add(i)
            NUS.Items.Add(i)
        Next i

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text

            Case "12110982"
                Nama.Text = "Rahmad Dedi"
                Jenjang.Text = "S1"
                Jurusan.Text = "Tekhnik Informatika"
            Case "12110040"
                Nama.Text = "Sri Agustina"
                Jenjang.Text = "S1"
                Jurusan.Text = "Sistem Informasi"
            Case "12113456"
                Nama.Text = "Sahli Fadli"
                Jenjang.Text = "D3"
                Jurusan.Text = "Manajemen Informatika"
            Case "12118890"
                Nama.Text = "Nur Fika"
                Jenjang.Text = "D3"
                Jurusan.Text = "Akutansi Informatika"
            Case "12113435"
                Nama.Text = "Tumpak s"
                Jenjang.Text = "D1"
                Jurusan.Text = "Tekhnisi"
            Case Else
                Nama.Text = "-"
        End Select

    End Sub

    Private Sub KDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
        Select Case KDosen.Text
            Case "D001"
                NmDosen.Text = "Mesran"
            Case "D002"
                NmDosen.Text = "Sinar Sinurat"
            Case "D003"
                NmDosen.Text = "Toni Limbong"
            Case "D004"
                NmDosen.Text = "Harvei"
            Case "D005"
                NmDosen.Text = "Syahrizal"
            Case Else
                NmDosen.Text = "-"

        End Select
    End Sub

    Private Sub Kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodematkul.SelectedIndexChanged
        Select Case Kodematkul.Text
            Case "M001"
                Nmatkul.Text = "Pemrograman Visual"
            Case "M002"
                Nmatkul.Text = "Sistem Operasi"
            Case "M003"
                Nmatkul.Text = "Komunikasi Data"
            Case "M004"
                Nmatkul.Text = "Arsitektur dan Organisasi Komputer"
            Case "M005"
                Nmatkul.Text = "Sistem Basis Data"
            Case Else
                Nmatkul.Text = "-"
        End Select
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Close()
    End Sub

    Private Sub BtnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProcess.Click
        NA.Text = 0.1 * Nhadir.Text + 0.15 * NT.Text + 0.3 * NU.Text + 0.45 * NUS.Text
        If NA.Text >= 50 Then
            Ket.Text = "LULUS"
        Else
            Ket.Text = "GAGAL"

        End If

        If NA.Text >= 80 Then
            NH.Text = "A"
        ElseIf NA.Text >= 70 Then
            NH.Text = "B"
        ElseIf NA.Text >= 60 Then
            NH.Text = "C"
        ElseIf NA.Text >= 50 Then
            NH.Text = "D"
        Else
            NH.Text = "E"
        End If
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = "'"
        Jurusan.Text = ""
        KDosen.Text = ""
        NmDosen.Text = ""
        Kodematkul.Text = ""
        Nmatkul.Text = ""
        Nhadir.Text = ""
        NT.Text = ""
        NU.Text = ""
        NUS.Text = ""
        NA.Text = ""
        NH.Text = ""
        Ket.Text = ""
    End Sub

End Class

Hasil Program setelah dijalankan

Pemrograman Kriptografi

Form Menu

Public Class Menu

    Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click
        End
    End Sub

    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click
        Kriptografi_Caesar.Show()
    End Sub

    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click
        Kriptografi_Vernam_Chiper.Show()
    End Sub

    Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click
        Kriptografi_Gronsfeld.Show()
    End Sub

    Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click
        Kriptografi_Viginere.Show()
    End Sub
End Class

Form Kriptografi Caesar

Public Class Kriptografi_Caesar

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub btndekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndekripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

    Private Sub Kriptografi_Caesar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


Form Kriptografi Vernam

Public Class Kriptografi_Vernam_Chiper

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        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
        sKata = plainteks.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65

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

            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged

    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not ((tombol >= 65) And ((tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub
End Class

Form Kriptografi Gronsfeld

Public Class Kriptografi_Gronsfeld

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

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True
    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
        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
        sKata = plainteks.Text
        jum = Len(sKata)
        sKey = kunci.Text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65

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

            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub
End Class


Form Kriptografi Viginere

Public Class Kriptografi_Viginere

    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 Kriptografi_Viginere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Hasil Printout