KRIPTOGRAFI

TUGAS KRIPTOGRAFI 

1. CHESAR CHIPER

CODINGNYA:

Public Class Menu_Utama

    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click
        Caeser_Chiper.MdiParent = Me
        Caeser_Chiper.Show()
    End Sub

    Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click
        Grondfeld_Chiper.MdiParent = Me
        Grondfeld_Chiper.Show()
    End Sub

    Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click
        Vernam_Chiper.MdiParent = Me
        Vernam_Chiper.Show()
    End Sub

    Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click
        Vegenere_Chiper.MdiParent = Me
        Vegenere_Chiper.Show()
    End Sub

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click
        Des_Chiper.MdiParent = Me
        Des_Chiper.Show()
    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click
        RC4.MdiParent = Me
        RC4.Show()
    End Sub

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

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
        End
    End Sub
End Class

MENAMPILKAN KETERANGAN DRIVER MENGGUNAKAN VB.NET 2008

Menampilkan keterangan driver pada VB.Net 2008

Coding Program

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmddriver.Items.AddRange(IO.DriveInfo.GetDrives)
    End Sub

    Private Sub cmddriver_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddriver.SelectedIndexChanged
        keterangan.Items.Clear()
        keterangan.Items.Add("Nama Drive : " & Dir("" & cmddriver.Text & "", FileAttribute.Volume) & "")
        keterangan.Items.Add("Sistem         : " & Dir("" & cmddriver.Text & "", FileAttribute.System) & "")
        Dim Dvr As New DriveInfo(cmddriver.Text)
        Dim kapasitas = CStr(Dvr.TotalSize / 1000000) & " MB"
        Dim sisa = CStr(Dvr.TotalFreeSpace / 1000000) & " MB"
        Dim Terpakai = CStr(Val(kapasitas) + Val(sisa)) & " MB"
        keterangan.Items.Add("kapasitas     : " & kapasitas)
        keterangan.Items.Add("Terpakai      : " & Terpakai)
        keterangan.Items.Add("Sisa             : " & sisa)
    End Sub

End Class

Hasilnya

9 SIFAT DASAR MANUSIA BERDASARKAN AL-QUR'AN

Artikel sebelumnya memberitahukan sifat dasar manusia secara umum, nah sekarang saya mempostingkan artikel mengenai 9 sifat dasar manusia berdasarkan kitab suci Al-Qur'an, yaitu :

1. Tergesa-gesa " Dan manusia mendo'a untuk kejahatan sebagaimana ia mendo'a untuk kebaikan. Dan adalah manusia bersifat tergesa-gesa " . ( Q.S. Al-Israa'11 )

2. Suka membantah " Dan sesungguhnya Kami telah mengulang-ulangi bagi manusia dalam Al-Qur'an ini bermacam-macam perumpamaan. Dan manusia adalah makhluk yang paling banyak membantah " . ( Q.S. Al-Kahfi 54 )

 3. Melampaui Batas " Dan apabila manusia ditimpa bahaya dia berdo'a kepada Kami dalam keadaan berbaring, duduk atau berdiri, tetapi setelah Kami hilangkan bahaya itu daripadanya, dia (kembali) melalui (jalannya yang sesat), seolah-olah dia tidak pernah berdo'a kepada Kami untuk (menghilangkan) bahaya yang telah menimpanya. Begitulah orang- orang yang melampaui batas itu memandang baik apa yang selalu mereka kerjakan " . ( Q.S. Yunus 12 )

4. Kikir " Sesungguhnya manusia diciptakan bersifat keluh kesah lagi kikir " . ( Q.S. Al-Ma'aarij 19 )

5. Keluh kesah " Apabila ia ditimpa kesusahan ia berkeluh kesah " . ( Q.S. Al-Ma'aarij 20 )

6. Ingkar " sesungguhnya manusia itu sangat ingkar, tidak berterima kasih kepada Tuhannya " . ( Q.S. Al-'Aadiyaat 6 )

4 SIFAT DASAR MANUSIA

4 Sifat Dasar Manusia, adakah didalamnya yang termasuk watak anda?

1. Golongan Sanguinis, "Yang Populer"

Mereka ini cenderung ingin popular , ingin disenangi oleh orang lain. Sangat humoris dan suka memulai sebuah percakapan. Hidupnya penuh dengan bunga warna-warni. Pergejolakan emosinya bergelombang dan transparent. Pada suatu masa dia bergembira dan adakalanya menangis tersedu-sedu.

Orang-orang sanguinis ini juga termasuk golongan pelupa, sulit berkonsentrasi, cenderung berpikir `pendek', dan hidupnya serba tak beratur. Kemungkinan besar ia pun kurang mampu berdisiplin dengan waktu, sering lupa p
ada janji apalagi time planning sesuatu hal.

Namun kalau disuruh melakukan sesuatu, ia akan dengan cepat mengiyakannya dan terlihat sepertinya betul-betul hal itu akan ia lakukan. Dengan semangat sekali ia ingin buktikan bahwa ia bisa dan akan segera melakukannya. Tapi percayalah, beberapa hari kemudian ia tak lakukan apapun juga.

Agan-agan nggk akan menyesal berteman dengan orang dengan sifat sanguinis, mereka akan dengan cepat mencairkan suasana sedih anda.

2. Golongan Melankolis, "Yang Sempurna"

Mereka cenderung serba teratur, rapi, terjadwal, tersusun sesuai pola. Umumnya mereka ini suka dengan fakta-fakta, data-data, angka-angka dan sering sekali memikirkan segalanya secara mendalam . Dalam sebuah pertemuan, orang sanguinis selalu saja mendominasi pembicaraan, namun orang melankolis cenderung menganalisa, memikirkan,mempertimbangkan, lalu kalau bicara pastilah apa yang ia katakan betul-betul hasil yang ia pikirkan secara mendalam sekali.

Jam Analog

Terima kasih buat teman-teman yang bersedia berkunjung ke Blog saya ini, O ya kali ini saya mau share satu aplikasi mengenai Jam Analog. Aplikasi ini saya dapatkan dari suatu site, ya semoga aplikasi ini berguna bagi teman-teman sekalian.

Coding Nya:

Imports System.Math

Public Class Form1

    Inherits System.Windows.Forms.Form

    Dim l As Label

    Const HaftSize = 150

    Const SecondLength = 100

    Const MinuteLength = 80

    Const HourLength = 60

    Dim Pen As New Drawing.Pen(System.Drawing.Color.Red, 2)

    Dim Second, Minute, Hour As Integer

    Dim x1, y1, x2, y2 As Integer

   

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

JUDUL SOAL : PENJUALAN BARANG 

Berikut Jawaban Program :

Public Class Form2

    Sub RancangTable()
        Listview1.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Nama Barang", 200, HorizontalAlignment.Center)
        Listview1.Columns.Add("Merek", 150, HorizontalAlignment.Center)
        Listview1.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        Listview1.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.GridLines = True
    End Sub

    Sub IsiTable()
        Dim list As New ListViewItem
        list.Text = No_Pembelian.Text
        list.SubItems.Add(Kode_Barang.Text)
        list.SubItems.Add(Nama_Barang.Text)
        list.SubItems.Add(Merek.Text)
        list.SubItems.Add(Harga.Text)
        list.SubItems.Add(Jumlah_Beli.Text)
        list.SubItems.Add(Total_Harga.Text)
        ListView1.Items.Add(list)
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Kode_Barang.Items.Add("TS001")
        Kode_Barang.Items.Add("TS002")
        Kode_Barang.Items.Add("VG001")
        Kode_Barang.Items.Add("VG002")
        RancangTable()
    End Sub