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

Quiz Online 1

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110935")
        npm.Items.Add("12010022")
        npm.Items.Add("12020023")
        kode_dosen.Items.Add("D123")
        kode_dosen.Items.Add("D345")
        kode_dosen.Items.Add("D678")
        kode_matakuliah.Items.Add("K001")
        kode_matakuliah.Items.Add("K002")
        kode_matakuliah.Items.Add("K003")
        Dim i As Integer
        Nilai_kehadiran.Items.Clear()
        For i = 1 To 100
            Nilai_kehadiran.Items.Add(i)
        Next
        Nilai_tugas.Items.Clear()
        For i = 1 To 100
            Nilai_tugas.Items.Add(i)
        Next
        Nilai_UTS.Items.Clear()
        For i = 1 To 100
            Nilai_UTS.Items.Add(i)
        Next
        Nilai_UAS.Items.Clear()
        For i = 1 To 100
            Nilai_UAS.Items.Add(i)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110935"
                nama.Text = "Erixon Andrianus Saruksuk"

            Case "12020023"
                nama.Text = "Abdul Rahmad"

            Case "12010022"
                nama.Text = "Rinaldi Pratama"


        End Select
        Dim x As String
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "02" Then
            jurusan.Text = "Manajemen Informatika"
        ElseIf x = "01" Then
            jurusan.Text = "Teknik Komputer"
        End If
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            Jenjang.Text = "S I"
        ElseIf x = "02" Then
            Jenjang.Text = "D III"
        ElseIf x = "01" Then
            Jenjang.Text = "D I"
        End If
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "D123"
                Nama_dosen.Text = "Mesran,S.kom, M.Kom"
            Case "D345"
                Nama_dosen.Text = "Rivalry K Hondro, S.Kom"
            Case "D678"
                Nama_dosen.Text = "Kenedi Tampubolon,S.si, M.Kom"

        End Select
    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "K001"
                nama_mata_kuliah.Text = "Pemrograman Visual 1"
            Case "K002"
                nama_mata_kuliah.Text = "Sistem Basis Data"
            Case "K003"
                nama_mata_kuliah.Text = "Matriks dan Transformasi Linear"
        End Select
    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click

        Nilai_Akhir.Text = 0.1 * Nilai_kehadiran.Text + 0.15 * Nilai_tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf Nilai_Akhir.Text >= 70 Then
            Nilai_Huruf.Text = "B"
        ElseIf Nilai_Akhir.Text >= 60 Then
            Nilai_Huruf.Text = "C"
        ElseIf Nilai_Akhir.Text >= 50 Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
        If Nilai_Akhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
    End Sub


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

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click
        nama.Text = ""
        npm.Text = ""
        Keterangan.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_tugas.Text = ""
        Nilai_kehadiran.Text = ""
        Nilai_Akhir.Text = ""
        kode_dosen.Text = ""
        kode_matakuliah.Text = ""
        Nilai_Huruf.Text = ""
        Nama_dosen.Text = ""
        nama_mata_kuliah.Text = ""
        Jenjang.Text = ""
        jurusan.Text = ""
    End Sub
End Class

- See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.8MOT2PBA.dpuf

Becak Terunik , Terkeren dan Termewah di Dunia

Becak Terunik , Terkeren dan Termewah  di Dunia -Becak adalah transportasi darat yang beroda tiga , becak sangat banyak kita temui di negara negara berkembang , seperti Indonesia,Thailan,China,India dan negara lainnya yang berkembang. Becak ini terbuat dari potongan Mobil BWM Mini Cooper yang sengaja di potong dan di jadikan bagian bak belakang becak kawan.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Apabila Anda berjalan jalan di Beijing China Jangan lewatkan wisata becak yang satu ini kawan, karena biayanya yang cukup murah becak ini juga menjadi sorotan wisatawan luar kawan.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Becak ini di desain sangat mewah dan berkelas, dan ini sengaja di buat agar para penumpang nya terasa nyaman saat menaiki becak tersebut.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Ternyata becak ini juga bisa di sewakan kawan, harga sewa becak ini kalau di banding becak biasa yaitu hampir 2x lipat kawan. jadi apabila wisatawan ingin menyewa becak ini sangat mudah kawan karena hampir di setiap sudut sudut kota Beijing china ada becak seperti ini.

Foto Becak Terunik , Terkeren dan Termewah  di Dunia

Tenaga becak ini melalui tenaga kaki manusia, menggayuh seperrti biasa, yang membuat berbeda cuma jok penumpang yang sangat unik,keren, dan terasa mewah ini. 

Itulah Becak Terunik , Terkeren dan Termewah  di Dunia semoga bermanfaat dan menamwah wawasan Anda,  Anda juga bisa melihat Panorama Yang Berbeda di Hotel Gua Beckham Creek dan Keindahan dan Keeksotisan Curug Kemumu.

10 KAPAL INDUK TERCANGGIH DAN TERBESAR DIDUNIA

Kapal Induk merupakan sebuah kebutuhan peralatan perang yang sangat fenomenal dan sangat fantastik kecanggihannya. Selain menampung ratusan bahkan ribuan serdadu militer, Kapal induk ini juga memfungsikan diri sebagai penampungan pesawat-pesawat tempur sekaligus sebagai pangkalan udara terapung untuk sebuah strategy penyerangan. Kepentingan pertahanan sebuah negara membuat mereka berlomba-lomba memproduksi Kapal-kapal induk bertegnology tinggi,tercatat dalam sejarah 10 Nama besar kapal induk yang tercanggih dan terbesar dikelasnya.

Ini Dia Mobil Tanpa Bahan Bakar Dan Listrik

Ini Dia Mobil Tanpa Bahan Bakar Dan Listrik. Peningkatan harga BBM disetiap tahunnya kadangkala menjadi masalah yang serius di Indonesia ini. Lihat saja setiap ada peningkatan harga BBM pastilah protes atau demo akan bermunculan dari sabang sampai marauke. Alasan protes terhadap peningkatan BBM memanglah sangat wajar karena apabila BBM naik maka secara tidak langsung akan meningkatkan harga produk-produk atau pun pangan.

3 MOBIL TERMAHAL DI DUNIA

Fenomena mobil mahal di dunia menjadi salah gaya hidup kaum expatriat di dunia untuk menunjukan kelasnya atau hanya sekedar memenuhi kepuasanya batinya karena di beberapa negara berkembang mobil menjadi indikator kekayaan seseorang karena kecangihan atau keunikan dari mobil tersebut dan pastinya jumlahnya pun sangat sedikit atau bisa di bilang limited edisison meskipun harga mobil dibawah ini terbilang fantastis tapi banyak peminatnya dan berikut adalah Inilah 3 daftar mobil termahal di dunia  tahun 2013.
1. Maybach Exelero ($8 million atau setara dengan 80 Milyar)