Minggu, 30 Juni 2013

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

Senin, 17 Juni 2013

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.

Rabu, 05 Juni 2013

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
   

Minggu, 02 Juni 2013

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

Selasa, 21 Mei 2013

PERINTAH PERKALIAN PADA ASSEMBLY

Perintah Assembly Untuk Menampilkan Perkalian

mov cx,a; untuk menampilkan berapa banyak bilangannya
mov bh,00; untuk membuat karakter yang dari 0
mov bl,bh; pindahkan bh itu ke bl
mov dl,30; untuk karakter nol
add dl,bl; tambahkan bl kedalam dl
mov ah,02; untuk mencetak karakter pada kalimat baru
int 21; untuk mencetak karakter
mov dl,2a; untuk memunculkan bintang
int 21; untuk mencetak karakter
mov dl,31;untuk mencetak karakter 1
int 21; untuk mencetak karakter
mov dl,3d; untuk karakter sama dengan - = -
int 21; untuk mencetak karakter
mov al,01; start of heading
mul bl; untuk mengalikan
mov dl,al;pindahkan al ke dl
add dl,30; start of heading
mov ah,02; untuk mencetak karakter pada kalimat baru
int 21; untuk mencetak karakter
mov dl,0d; corriage return
int 21; untuk mencetak karakter
mov dl,0a; line feed
int 21; untuk mencetak karakter
inc bl; increament tambah 1
loop 107; perulangan pada angka yang berbeda/meningkat seperti 1,2,3
int 20; mencetak ke layar

JIM ROHN (MOTIVATOR)



Jim Rohn, Siapakah Dia? Pasti tau donk ? Ya, Jim Rohn adalah Motivator terbaik di Dunia, yang mampu membuat Anthony Robbins menjadi motivator terbaik juga setelah beliau. Kali ini saya ingin berbagi informasi mengenai Jim Rohn, termasuk Profilnya.

Jim Rohn, born September 17, 1930, is an American entrepreneur, author, and motivational speaker. His work has been influential in launching or furthering the careers of many others in the personal development industry, including Anthony Robbins, Mark Victor Hansen, Brian Tracy, Jack Canfield. Born to an Idaho farming family, Mr. Rohn began his early adulthood without acclaim, leaving college after his first year, starting a family, and trying to get by as best he could as a salaried worker. By age 25, according to his accounts, he was in a personal rut familiar to many middle-class families--in debt, unable to see a way that would lead to his personal ambitions. Around this time, he was introduced to John Earl Shoaff, an entrepreneur who impressed Mr. Rohn with his wealth, business accomplishments, charisma, and life philosophy. Mr. Rohn joined Mr. Shoaff's direct sales organization and began a process of personal development that culminated in his becoming a millionaire by age 31. It was a source of sorrow to Mr. Rohn that Mr. Shoaff, who had challenged him to reach for this goal, died one year before he (Mr. Rohn) achieved it. In the years that followed, Mr. Rohn discovered a demand from people outside his industry to hear his rags to riches story and the personal development philosophy that he felt had led to his accomplishments. Rohn has been presenting his seminars for more than 40 years. He has addressed over 6,000 audiences and 4 million people worldwide. He was the recipient of the 1985 National Speakers Association CPAE Award and is the author of 17 different books, audio, and video programs. Jim Rohn is considered a "Business Philosopher". He does not claim to teach novel truths, only fundamentals - and as he is fond of saying, "There are no new fundamentals. Truth is not new, it's old. You've got to be a little suspicious of the guy who says, 'come over here, I want to show you my manufactured antiques!' No. You can't manufacture antiques." His "Five Major Pieces To the Life Puzzle" include: Philosophy - how you think Attitude - how you feel Action - what you do Results - measure often to see if you are making progress Lifestyle - the kind of life you can make for yourself out of the first four pieces.


Indonesian
Jim Rohn adalah salah satu motivator besar di dunia asal Amerika Serikat. Beliau adalah salah satu yang mengajarkan kepada salah satu motivator terbesar di dunia, yaitu Antony Robbins,Mark Victor Hansen, Jack Canfield dan Brian Tracy. . Maka Jim Rohn layak mendapatkan urutan pertama. Salah satu pengajaran yang diajarka kepada Anthony Robbins adalah “kebahagiaan dan kesuksesan dalam hidup adalah bukan hasil dari apa yang kita miliki, melainkan bagaimana kita hidup dan apa yang kita lakukan dengan hal-hal yang telah kita membuat perbedaan terbesar dalam kualitas hidup“.


- Filsafat – Bagaimana Anda berpikir

- Sikap – Bagaimana perasaan Anda

- Aksi – Apa yang Anda lakukan

- Hasil – Ukur sering untuk melihat apakah Anda membuat kemajuan

- Gaya hidup – jenis kehidupan Anda dapat membuat sendiri dari empat buah pertama

Berikut adalah salah satu kutipan dari Jim Rohn :

“Untuk menarik orang-orang yang menarik, Anda harus menarik. Untuk menarik orang kuat, Anda harus kuat. Untuk menarik orang-orang berkomitmen, Anda harus berkomitmen. Alih-alih akan bekerja pada mereka, Anda pergi bekerja pada diri sendiri. Jika Anda menjadi, Anda dapat menarik“.  Jim Rohn. Jim Rohn meninggal pada tahun 2009.


Sumber : http://www.in.com/jim-rohn/biography-139519.html

Membuat Aplikasi Sederhana Menggunakan Listview Di VB. Net 2008

Penggunaan Listview



Ini adalah Kodingnya

Import Mysql.Data Mysql Client
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")

        For i = 1 To 4
            juman.Items.Add(i)
        Next i

        For i = 1 To 10
            jamlem.Items.Add(i)
        Next i
        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
        buattabel()
    End Sub


Sumber : http://mesran.net/ 




Senin, 08 April 2013

Mesran [dot]Net Tempat Pemograman


Kamu mau pintar bahasa Pemograman ? Jangan bingung karna saya akan membawa anda ke website yang penuh dengan bahasa pemograman, baiklah marilah kita menuju ke sana.




Merupakan Website dimana Anda/Kamu/Kita bisa belajar bahasa pemograman dengan berbagai Bahasa Pemograman contohnya (Bahasa C, Bahasa C++, Bahasa C#/C Sharp, Bahasa Pascal, Bahasa Visual(VB 6.0, VB.Net), Bahasa Java, Bahasa Delphi,maupun bahasa pemogramman yang terbaru yaitu Android).

Bagaimana caranya ? caranya gampang kok kalau mau mengaksesnya tingal kamu klik nama ini Mesran.net 
atau tulis link ini http://mesran.net/. Anda akan langsung ditujukan ketepat yang website yang penuh dengan bahasa pemograman.

Website ini dibuat oleh seorang Dosen dikampus saya, Beliau selain menjadi Dosen, juga menduduki jabatan sebagai Ketua STMIK di kampus saya. Siapakah orangnya yaitu Bapak Mesran, S.KOM., M.KOM.

Beliau adalah Dosen yang membentuk dan juga membina suatu Organisasi dikampus saya yang bernama Budidarma Programming Club (BPC). Budidarma Programming Club (BPC) yaitu suatu organisasi yang mempelajari bahasa pemograman, juga merupakan organisasi yang cukup ternama dikampus saya, Kenapa? Karena BPC banyak membantu mahasiswa dalam pengerjaan Tugas Akhir(TA) maupun Skripsi.

O ya dari tadi saya hanya membahas kampus saya tapi saya belum memberi tahu nama kampus saya, jadi saya berkuliah di STMIK BUDIDARMA MEDAN.

Sekian informasi yang bisa saya share kepada teman-teman semua, semoga bermanfaat dan Terima Kasih. Jangan lupa dikunjungi ya........... :)

Selasa, 19 Maret 2013

Membuat Aplikasi Sederhana Menggunakan Database Acces

Untuk mengisi waktu luang, saya mengajak Anda untuk menuangkan tulisan di dalam Aplikasi Visaul Basic.Net 2008, kali ini saya mengajak anda belajar VB.Net 2008 Lanjutan dimana pada VB.Net 2008 lanjutan ini kita akan membahasnya menggunakan database Acces. Pembelajaran ini saya dapatkan dari seorang guru besar dikampus saya yaitu : Bapak Mesran,S.KOM,M.KOM
Bagaimana caranya inilah program sederhana yang saya buat,dengan rincian : 
1. Database Name : DBMahasiswa.mdb
2. Inilah gambarnya

Inilah Source Codenya :

Imports System.Data.OleDb
Public Class Form1
    Dim db As OleDbConnection
    Dim cmd As OleDbCommand
    Dim adp As OleDbDataAdapter
    Dim rs As OleDbDataReader
    Dim ds As New DataSet
    Dim sql As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OpenDB()
        TampilMHS()
        Baru_Click(sender, e)
    End Sub

    Sub OpenDB()
        Dim lokasi = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DBMahasiswa.mdb"
        db = New OleDbConnection(lokasi)
        If db.State = ConnectionState.Closed Then
            db.Open()
        End If
    End Sub

    Sub TampilMHS()
        adp = New OleDbDataAdapter("Select * From Mahasiswa", db)
        ds = New DataSet
        adp.Fill(ds, "Mahasiswa")
        DataGridView1.DataSource = ds.Tables("Mahasiswa")
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        sql = "Insert Into Mahasiswa (NPM,Nama,Jenjang,Jurusan,Semester)" & _
                      " Values('" & NPM.Text & "','" & _
                                    Nama.Text & "','" & _
                                    Jenjang.Text & "','" & _
                                    Jenjang.Text & "','" & _
                                    Semester.Text & "')"
        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Baru_Click(sender, e)
        Call TampilMHS()
    End Sub

    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click
        sql = "Update Mahasiswa Set Nama='" & Nama.Text & "'," & _
                               " Jenjang='" & Jenjang.Text & "'," & _
                               " Jurusan='" & Jurusan.Text & "'," & _
                               " Semester='" & Semester.Text & "'," & _
                               " Where NPM='" & NPM.Text & "'"
        Try
            cmd = New OleDbCommand(sql, db)
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Call Baru_Click(sender, e)
        Call TampilMHS()
    End Sub

LOOPING (PIRAMIDA)

Hello Semua, Sudah lama nih ngak buat artikel lagi, saya berharap semua dalam kedaan sehat dan sejahtera dalam kedamaian.
Nih saya mau Share nih mengenai VB. Net 2008 atau Visual Basic.Net 2008. Saya mau mencoba membuat suatu aplikasi sederhana, karna saya masih belajar maka saya berharap semua maklum dengan program yang sederhana saya kerjakan.... 
Pastinya sebelum membuat programnya tentulah harus menginstalkan dulu software yang mendukung pembuatannya.
Maka marilah kita belajar LOOPING/Perulangan dimana kita akan membuat perulangan 1 sampai 10 menggunkana bahasa VB.Net 2008.
Nih contoh gambarnya........


Source Codenya :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, x As Byte
        For i = 1 To Val(TextBox1.Text)
            For x = 1 To i
                lv.Items.Add(x)
            Next x
        Next i
    End Sub

 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lv.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub

 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(TextBox1.Text)
        TextBox2.Clear()
        Do While y <= q
            z = 1
            'TextBox2.Text = TextBox2.Text & Space(q - y)
            Do While z <= y
                TextBox2.Text = TextBox2.Text & " " & z
                z += 1
            Loop
            TextBox2.Text = TextBox2.Text & vbCrLf
            y += 1
        Loop
    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        TextBox2.TextAlign = HorizontalAlignment.Center
    End Sub
End Class

Semoga berhasi ya, semoga bermanfaat ya.....????
Create By : ICHE GUSTIYANI