Listing Program


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


 

'Designlah seperti pada gambar'



 'Berikut listing program yang akan anda inputkan'


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

'Jalankan Program dengan menekan tombol F5 pada keyboard'

'contoh hasil tampilan program ketika dijalankan'

Halo Sobat Blogger, kali ini saya akan membagikan info yang baru saja saya dapat, Pernahkan Sobat Blogger membuat banner di Corel Draw??? mungkin, tapi file save nya kan nggak format JPG. Ya sudah saya bantu agan yang lagi kebingungan cara ubah Format CDR ke JPG. Berikut saya uraikan langkahnya Setelah itu beri tanda centang pada kotak Apply ICC Profile dan kotak Transparent Background nya. lalu klik OK

adapun caranya klik menu file – Eksport (Ctrl+E)


Kemudian anda pilih lokasi diamana anda mau menyimpan file tersebut – beri nama di kotak File name dan pilih format JPG Bitmap di dalam kotak Save as type :



Berikutnya anda akan di suguhi lagi dengan kotak dialog seperti ini :



Contoh Hasilnya pengaturanya bisa di lihat di bawah ini :

Halo sobat BLogger, kali ini saya akan membagikan satu informasi mengenai Pekerjaan. Bagi kaum muda yang berada pada posisi menengah kebawah pasti sulit dan tak mampu untuk melanjutkan kuliah, ingin bekerja tapi gelar tidak ada. Hanya sebatas ijasah SMA yang kini tidak banyak terpakai lagi untuk melamar pekerjaan. Saya ingin berbagi informasi ini pada teman-teman semua, bahwasannya kita generasi muda masih dapat mempunyai peluang untuk dapat duduk di bangku kuliah...

Artikel ini mungkin relevan pada golongan menengah kebawah, karena saya sudah jamin anda yang masih memiliki orang tua yang berkelebihan dapat dengan mudah hidup di zaman abad ke 20 ini.

Saya menyarankan kepada teman-teman yang masih mempunyai harapan dan semangat tinggi untuk sukses tidak ada salahnya mencoba mengajukan diri untuk bekerja di PT.ISS INDONESIA,

Jika kalian hidup dalam gengsi yang tinggi saya jamin hidup anda tidak akan nyaman, tapi cobalah jalani semuanya dengan ikhlas..

sobat bisa cari infonya di google untuk mengetahui letak alamat sesuai posisi anda berada,

untuk daerah Medan

Sobat bisa berkunjung ke daerah Jalan SM. Raja, tepatnya di Jalan Bahagia by Pass/Simpang Sempurna Ujung.


Waktu kita, dapat kita gunakan lebih efisien lagi jika kita bekerja dan belajar.

Berbagai Posisi jasa Pelayanan dapat anda coba.

^^ Syarat  berkas yang dibutuhkan tidak lah sulit,
1. FC Ijasah min SMP/sederajat ( nb: Ijasah bisa lebih tinggi lagi tergantung posisi yang dikehendaki)
2. FC KTP
3. Surat Lamaran
4. CV
5. Pas Photo 3x4 warna

semua di satukan dalam amplop besar warna coklat, dan dikirm ke alamat kantor ISS berada. untuk info selanjutnya dapat menghubungi saya 081360380827(SMS Saja)

Ok, semoga artikel ini dapat membantu teman-teman yang sedang sulit dalam mencari pekerjaan.

Ketika SObat sedang ngeblog dan merasa banyak memiliki artikel pasti ada hasrat ingin menjadikan blog kita menjadi lahan penghasilan, namun tab uangkan yang kita cari untuk mendaftar nya tidak ada. Bagaimana?? apa kendalanya?? Jangan khawatir, dari pengalaman kita belajar, dan saya akan berbagi pengalaman yang saya coba ini, meskipun saya sendiri belum diterima oleh adsense. tapi Lumayan satu jalan terbuka, untuk mencoba blog kita di uji diterima atau tidak oleh Google Adsense, berikut langkah cara menampilkan Tab Uangkan/Earnnings pada Dashboard sobat.

Saya mencoba ini dengan tampilan Dashboard baru blogger




Tampilan Gambar ini akan memudahkan sobat tanpa harus saya terangkan panjang lebar. ketika sobat sudah memilih bahasannya jangan lupa di save, dan reload atau refresh halamannya.

Selamat Mencoba.. jika ada kendala jangan sungkan untuk bertanya...

Selamat malam semuanya, kali ini saya akan mencoba membantu teman semua dalam mengenal lebih dalam lagi ketiga bahasa yakni  pascal, c, dan c++.

sobat tentu penasaran ketika melihat program yang tampilannya sama, namun bahasa nya berbeda. sebenarnya itu dapat kita analisa dari pemakaian Menampilkan dan Menulis yang ada pada bahasa tersebut.

Berikut beberapa hal yang dapat anda pelajari dari kesamaan fungsi didalam ketiga bahasa ini



*Menulis/ Input Data


Pascal

untuk Menulis sebuah data baik itu huruf ataupun angka kita menggunakan read didalam bahasa Pascal, contoh


nilai : byte;

Read(nilai);

C

int nilai;

scanf("%d",&nilai);

C++

int nilai;

Cin>>nilai;

Menampilkan/Output Data

Dalam Menampilkan sebuah statement kita tidak perlu mengetikannya lagi dari keyboard ketika menjalankan program tersebut.

Pascal

write('Bahasa Pemrograman');

C

printf('Bahasa Pemrograman');

C++

Cout<<"Bahasa Pemrograman";

Ok, sobat BLogger,, semoga penjelasan yang singkat ini dapat membantu anda dalam mempelajari Bahasa Pemrograman, mana tahu anda memiliki cita-cita jadi seorang Programmer... :D 

Pembelajaran ini disambung lagi esok hari, Selamat Malam.

Hello sobat Programmer, sebelumnya kita telah mencoba membuat Program Menampilkan Nilai Huruf Menggunakan Bahasa C, nah kali ini sobat bisa mencoba nya dengan Bahasa Pascal, sekaligus sobat dapat mencoba menganalisa perbedaan keduanya.

yuk mari dicoba,

Uses Crt;
Var
   Na :byte;
   Nh :char;

Begin
     Clrscr;
     Writeln('Mencari Nilai Huruf');
     Writeln('-------------------------');
     Write  ('Inputkan Nilai Angka:'); Readln(na);
     Case na of
          80..100  :Nh:='A';
          70..79   :Nh:='B';
          60..69   :Nh:='C';
          50..59   :Nh:='D';
          0..49    :Nh:='E';
     End;
     Writeln('Nilai Huruf :', Nh);
     Readln;
End.

#include"iostream.h"
void main()
{
    int a[3][3], b[3][3],c[3][3];
    int i,j;
    cout<<"Program Penambahan Matrik\n";
    cout<<"\n Input Matrik A:";
    for(i=0;i<=2;i++)
        for(j=0;j<=2;j++)
        {
            cout<<"Nilai a["<            cin>>a[i][j];
        }
    cout<<"\n Input Matrik B:";
    for (i=0;i<=2;i++)
        for(j=0;j<=2;j++)
        {
            cout<<"Nilai b["<            cin>>b[i][j];
        }
            for(i=0;i<=2;i++)
                for(j=0;j<=2;j++)
                    c[i][j]=a[i][j]+b[i][j];
                    cout<<"Matrik C";
                    for(i=0;i<=2;i++)
                        for(j=0;j<=2;j++)
                            cout<<"\nc["<}