Hai..Baru Update lagi nich//
kali ini gw mao berbagi tentang membuat kata Angka bilangan. Dalam Bentuk Indonesia Dan Inggirs
langsung Ajah deh..
Simak Secara Telitih Yoooo...
Pertama buat dulu design seperti dibawah ini... Oke
Visual Basic 6.0 merupakan aplikasi pemrograman visual yang dibuat oleh Microsoft. Visual Basic 6.0 berjalan dalam sistem operasi Windows dan bergabung dalam suite aplikasi Microsoft Visual Basic Studio 6.0.
Translate
Kamis, 08 Mei 2014
Kamis, 23 Januari 2014
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
|
Jumat, 10 Januari 2014
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
-->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
Kamis, 09 Januari 2014
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 .
Langganan:
Postingan (Atom)