Pemograman Kriptografi dengan VB 2008

•  Menu Utama

 Listing Program
Public Class Form1

    Private Sub KiptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KiptografiVernamToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub KiptografiVernamToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KiptografiVernamToolStripMenuItem1.Click
        oneTimePad.Show()
    End Sub

    Private Sub KiptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KiptografiGronsfeldToolStripMenuItem.Click
        Form4.Show()

    End Sub

Program Pencarian Nilai Dengan Microsoft Visual Studio 2008

Desain Form.vb  seperti dibawah ini:

Perintah Programnya :

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text

            Case "12110861"

                TextBox1.Text = "Lidia"

                TextBox2.Text = "S1"

                TextBox8.Text = "TI"

            Case "12110867"

                TextBox1.Text = "Naomi"

                TextBox2.Text = "D3"

                TextBox8.Text = "MI"

            Case "12110990"

                TextBox1.Text = "Rio"

                TextBox2.Text = "D1"

                TextBox8.Text = "AI"

            Case Else

                TextBox1.Text = "Ga tau"

                TextBox2.Text = "S1"

                TextBox8.Text = "SI"

        End Select

    End Sub

KEAJAIBAN DARI DOA DAN PENGAMPUNAN

By : Romo Laurensius Rony

(diambil dari sebuah kisah nyata)

“If the only prayer you say in your whole life is `Thank You’, that would suffice.” ~ Meister Eckhart

Sabtu pagi minggu lalu saya dijemput oleh kawan saya, salah satu pimpinan bank nasional papan atas, untuk bersama-sama menuju tempat pelatihan di luar kota Surabaya. Kawan saya ini meminta saya mengajarkan materi Manage Your Mind for Success untuk stafnya. Namun bukan materi pelatihan yang ingin saya ceritakan di artikel ini. Ada satu topik menarik yang sempat kami diskusikan, selama perjalanan, yaitu mengenai doa.
Kawan saya ini bercerita bahwa ia telah beberapa kali berhasil mencapai goal-nya tanpa harus berdoa seperti orang pada umumnya. Saya lalu menggali lebih lanjut dan bertanya, “Kalau tidak berdoa, seperti kebanyakan orang, lalu apa yang Bapak lakukan?”

DOA KURA-KURA

By Romo Laurensius Rony

(kiriman dari suster Lidwina Mariani OSU)

Di tepi telaga, si lamban kura-kura berdoa sepenuh jiwa. 'Wahai,
Pemilik kekuatan dan kecepatan, berikanlah si lamban ini kaki yang
kuat dan cepat.'

Telaga itu adalah telaga yang diberkahi. Pada saat yang sama pintu
langit sedang terbuka, maka terjadilah yang harus terjadi.

Perubahan yang begitu cepatnya membuat kura-kura senang bukan
kepalang. Ia berlari kesana-kemari, merambah lembah mendaki bukit
tinggi. Kura-kura begitu terpesona dengan kemampuan barunya.
Kecepatannya yang luar biasa bahkan membuat kuda ternganga dan kijang
tercengang.

SURAT CINTA DARI BAPA

By : Romo Laurensius Rony

Anak-anakku ytk,
Engkau mungkin tidak mengenal Aku , tetapi Aku mengenal segala
sesuatu tentang dirimu .. ................. ................................ (Mzm.139.1)
Aku tahu kalau engkau duduk dan berdiri.............................(Mzm.139:2)
Aku mengerti segala jalanmu .............................................(Mzm.139:3)
Setiap helai rambut kepalamu, terhitung semuanya ............. (Mat.10:29-31)
Karena engkau diciptakan dalam gambar dan rupaKu........... (Kej.1:26-27)
Di dalamKu engkau hidup, engkau bergerak dan engkau ada ............. (Kis.17:28)
Sebab engkau ini adalah keturunanKu ............................... ..............(Kis.17:28)
Aku mengenal engkau sejak sebelum engkau ada dalam kandungan ..(Yer.1:4-5)
Aku memilih engkau dari semula sebelum Aku menciptakan segalanya (Ef.1:11-12)
Engkau ada bukan karena suatu kesalahan , karena hari-harimu ada
tertulis dalam KitabKu .. ......................................................(Mzm.139:15-16)
Aku telah menentukan waktu yang tepat untuk kelahiran dan dimana
engkau akan Hidup .. .......................................................... (Kis.17:26)
Kejadianmu dahsyat dan ajaib .............................................. (Mzm.139:14)
Karena Aku menenun engkau dalam kandungan ibumu ........... (Mzm.139:13)
Dan mengeluarkan engkau pada hari engkau dilahirkan ........... (Mzm.71:6)
Seringkali aku tidak dipahami oleh mereka yang tidak mengenal Aku . (Yoh.8:41-44)

Ketekunan adalah Kekuatan Anda

By : Romo Laurensius Rony

Apa yang anda raih sekarang adalah hasil dari hasil usaha-usaha kecil yang anda lakukan terus-menerus. Keberhasilan bukan suatu yang turun begitu saja. Bila anda yakin pada tujuan dan jalan anda, maka anda harus memiliki ketekunan untuk tetap berusaha. Ketekunan adalah kemampuan anda untuk bertahan di tengah tekanan dan kesulitan. Anda harus tetap mengambil langkah selanjutnya. Jangan hanya berhenti di langkah pertama. Memang semakin jauh anda berjalan, semakin banyak rintangan yang menghadang. Bayangkan, andai saja kemarin anda berhenti, maka anda tidak berada di sini sekarang. Setiap langkah menaikan nilai diri anda. Apapun yang anda lakukan, jangan sampai kehilangan ketekunan anda. Karena ketekunan adalah daya tahan anda.