Membuat Encrypt dan Decrypt Pada Text (.txt) Dalam Bahasa VB 6.0

Hello All... ^_^

Kali ini gue mao Share Ilmu VB 6.0 tentang pembuatan Encrypt dan Decrypt Pada Text nich..

Moga2 bermanfaat bagi tugas lu semua.

Gak usah bayak bertele-tele langsung aja nich Mas Bro...

1   1.     Buat tampilan Form1 Kaya dibawah ini yooo..

2. Selanjutnya Buat Settingan Objek Kaya ini Juga yach..

Nama Objek	Properti	Setting
CommonDialog1	Name	CommonDialog1
Label1	Caption	Model
ComboBox1	Name List	ComModel Encrypt Decrypt
Text1	Name	TxtDirFile
CommandBotton1	Name Caption	CmdDirFile .....
CommandBotton2	Name Caption	CmdProses Proses

Tips-tips dan tric Visual Basic 6.0

Tips dan trik vb 6.0

-->Membuata Hanya Angka saja yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") & Chr(13) _

And KeyAscii <= Asc("9") & Chr(13) _

Or KeyAscii = vbKeyBack _

Or KeyAscii = vbKeyDelete _

Or KeyAscii = vbKeySpace) Then

Beep

KeyAscii = 0

End If

End Sub

-->

-->Membuata Hanya Hurup saja yang bisa di Input dalam TextBoxt

Private Sub txtNama_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("a") & Chr(13) _

And KeyAscii <= Asc("z") & Chr(13) _

Or (KeyAscii >= Asc("A") & Chr(13) _

And KeyAscii <= Asc("Z") & Chr(13) _

Or KeyAscii = vbKeyBack _

Or KeyAscii = vbKeyDelete _

Or KeyAscii = vbKeySpace)) Then

Beep

KeyAscii = 0

End If

End Sub

--> Membersihkan Seluruh Control TextBox dan Combo Box

Sub Clear()

For Each Control In Me.Controls

If TypeOf Control Is TextBox Then

Control.Text = ""

End If

If TypeOf Control Is ComboBox Then

Control.Text = ""

End If

Next Control

End Sub

Membuat Animasi Running Text (teks berjalan) Pada VB6.0

Pada postingan kali ini saya akan memberikan trik mebuat Running text (teks berjalan) pada Visual Basic 6.0 . Cukup simple tapi pasti berguna untuk mempercantik tampilan aplikasi yang akan Anda buat.

 Berikut adalah langkah-langkah yang harus anda lakukan :

1)      Pertama bukalah program Visual Basic Anda.

2)      Tambahkan komponen-komponen ke dalam form sebagai berikut: 1buah Label, 1buah textbox, 1buah command button & sebuah timer. Gambar di bawah adalah ilustrasinya .