Sebagai pemrograman berbasis Windows, VB mempunyai kemampuan untuk berinteraksi dengan seluruh aplikasi Windows, seperti Microsoft Word, Microsoft Excel dan Microsoft Acces. Dengan kemampuan yang hampir tidak terbatas, VB dapat digunakan untuk semua aplikasi pemrograman, seperti game, multimedia, program perhitungan, bahkan untuk membuat aplikasi program yang mirip Word dan Excel (Pamungkas, 2003)
VB merupakan program yang mendukung pengolahan data yang akurat karena dilengkapi dengan fasilitas pengolahan database (Andi dan Madcom, 2003). Dalam pengembangan aplikasi, VB menggunakan pendekatan Visual untuk merancang user-interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa basic.
Dalam VB, pembuatan sebuah program aplikasi harus dikerjakan dalam sebuah proyek. Proyek tersebut berisi kumpulan file-file yang digunakan untuk membuat aplikasi. Sedangkan untuk membuat sebuah program aplikasi, terlebih dahulu dibuat form, baru kemudian membuat file dan modul lain. Setelah semua komponen dipadukan dan kode telah ditulis, langkah selanjutnya adalah membuat proyek menjadi file yang bisa dieksekusi (Pamungkas, 2003).
Di antara fasilitasnya ialah ADO (ActiveX Data Object) dan DHTML (Dynamic Hypertex MarkUp Language). Pembahasan dalam Modul ini akan dititik beratkan pd pembahasan pemrograman database menggunakan ADO.
Mengenal Tampilan Kerja (Intergrated Development Environtment/IDE) VB 6
IDE akan memberikan semua yang dibutuhkan programer untuk membuat aplikasi yang besar dengan dilengkapi dengan fasilitas yang sangat lengkap.
Komponen-komponen yang ada dalam IDE:
- Project Window memberikan gambaran dari semua modul yang ada dalam aplikasi. Jendela project dapat ditampilkan dengan menekan Ctrl+R / dengan mengklik icon project Explorer di toolbar.
- Form designer Window digunakan untuk membuat User Interface,
- Toolbox Window berisi komponen-komponen yang dapat diletakkan dalam form. Secara default visual basic menyediakan komponen standart yang dinamakan dengan Intrisic controls. Komponen ini dapat ditambah dengan menekan Ctrl+T, dan untuk memunculkannya klik menu View - Toolbox.
- Code window digunakan untuk menambahkan kode-kode yang akan dijalankan ketika terjadi event tertentu. Untuk memunculkan code window dapat digunakan tombol F7. sedangkan untuk berpindah dari code ke window ke form digunakan Shift-F7. Pada Code window procedure kejadian atau Event Procedures akan terdapat beberapa perbedaan pada tiap masing-masing kontrol/objek. Kode ini akan dieksekusi ketika ada respon dari pemakai berupa waktu event tertentu.
- Property window berisi property-property yang dimiliki oleh sebuah object. Untuk memunculkan Property Window tekan tombol F4.
- Form layout digunakan untuk mendefiniskan letak form ketika program dijalankan.
- Immediate window dapat digunakan digunakan untuk melihat hasil ekspresi dengan menggunakan perintah print. Jendela ini banyak digunakan ketika berada dalam break mode.
- Object Browser dapat digunakan untuk menampilkan property, metode dari object yang diambil dari library internal.
Kontrol adalah alat bantu yang dipakai untuk membuat sebuah objek pada form Visual Basic. Setelah kontrol ditambahkan ke form, kontrol tersebut berubah menjadi sebuah objek yaitu elemen perantara pemakai yang dapat diprogram.
Picture Box
Pic
Untuk menampilkan File gambar: .bmp, .jpg, .gif, .wmf dan .ico
Label
Lbl
Menampilkan teks tetapi pemakai tidak dapat berinteraksi atau mengubahnya.
Text Box
Txt
Menampilkan teks dimana pemakai dapat mengisi atau melihat teks yang ditampilkan sebagai output suatu proses
Frame
Fra
Mengidentifikasi sebuah group pengontrolan.
Command Button
Cmd
Memberikan sebuah perintah atau tindakan ketika digunakan.
Check Box
Chk
Memberikan perintah pilihan benar/salah (True/False) atau Ya/Tidak (Yes/No). Pemakai dapat memilih check box secara bersamaan.
Option Button
Opt
Memberikan group pilihan. Pemakai hanya dapat memilih satu option pada group pilihan.
Combo Box
Cbo
Unit kontrol kombinasi antara Text Box dengan List Box. Pemakai dapat memilih lewat daftar drop-down.
List Box
Lst
Menampilkan daftar item yang dapat dipilih salah satu oleh pemakai.
Horisontal Scroll Bar
Hsb
Menampilkan balok gulung horisontal
Vertical Scroll Bar
Vsb
Menampilkan balok gulung vertikal
Timer
Tmr
Untuk mengeksekusi waktu kejadian pada rutin program termasuk selang waktu (interval).
Drive List Box
Drv
Menampilkan daftar drive
Directory List Box
Dir
Menampilkan daftar direktory pada drive terpilih.
File List Box
Fil
Menampilkan Daftar File pada Drive dan direktori terpilih
Shape
Shp
Membuat lingkaran, elips dan kotak pada form.
Line
Lin
Membuat garis pada form.
Image
Img
Menampilkan gambar: bmp, gif, jpg, wmf dan ico. Perbedaan dengan PictureBox adalah, kontrol ini tidak bisa dijadikan sebagai frame, sedangkan PictureBox bisa.
Data
Dat
Objek penghubung (Connection) database pada suatu form.
OLE (Object Linking and Embedding)
Ole
Memungkinkan pemakai menempelkan suatu objek dari aplikasi yang mendukung OLE ke Aplikasi Visual Basic
Visual Basic snippets Codes
Allow certain characters in a textbox'1 textbox
'put in keypress procedure of textbox
Const Numbers$ = '0123456789.'
If KeyAscii <> 8 Then
If InStr(Numbers, Chr(KeyAscii)) = 0 Then
MsgBox 'error'
KeyAscii = 0
Exit Sub
End If
End If
APP Already Running?
'vb
If App.PrevInstance Then
msgbox 'Program is already running.
Exit Sub
End If
Center Form
'vb
Top = Screen.Height / 2 - Height / 2
Left = Screen.Width / 2 - Width / 2
Clear all Textboxes on Form'vb
Public Sub ClearAllText(frm As Form, ctl As Control)
For Each ctl In frm
If TypeOf ctl Is TextBox Then
ctl.Text=''
End If
Next ctl
Clipboard Cut Text
'Need VB, 1 textbox
ClipBoard.SetText Text1.SelText
Text1.SelText = ''
ClipBoard Copy Text'Need VB, 1 textbox
ClipBoard.SetText Text1.SelText
Clipboard Paste Text
'Need VB, 1 textbox
Text1.SelText = ClipBoard.GetText
Delete File'vb
On Error GoTo error
Kill FilePath$
Exit Sub
error: MsgBox Err.Description, vbExclamation, 'Error'
Directory Exist?'vb5+
f$ = 'C:\WINDOWS'
dirFolder = Dir(f$, vbDirectory)
If dirFolder <> '' Then
strmsg = MsgBox('This folder already exists.', vbCritical)
'directory exists action here
End If
File Exist?
'vb4+
Public Function FileExists(strPath As String) As Integer
FileExists = Not (Dir(strPath) = '')
End Function
File Size
'vb
Dim FileSize As Long
FileSize& = FileLen('C:\SOMEFILE.TXT')
msgbox filesize& & ' bytes'
Get screen size in pixels'vb
Width% = Screen.Width \ App.TwipsPerPixelX
Height% = Screen.Height \ App.TwipsPerPixelY
Highlight Textbox Text on Focus'textbox
Sub Text1_GotFocus()
Text1.SelStart = 0
Text1=SelLength = Len(Text1)
End Sub
Limit text input'vb
Function LimitTextInput(source) As String
'put the next line in the Textbox_KeyPress event
'KeyAscii = LimitTextInput(KeyAscii)
'change Numbers with any other character
Const Numbers$ = '0123456789.'
'backspace =8
If source <> 8 Then
If InStr(Numbers, Chr(source)) = 0 Then
LimitTextInput = 0
Exit Function
End If
End If
LimitTextInput = source
End Function
No textbox popup menu'textbox
If button=2 Then
text1.enabled=false
popupmenu
text1.enabled=true
text1.setfocus
Numer of characters in a textbox including spaces
'textbox
Dim TheNum as string
TheNum$ = Len(Text1)
Msgbox TheNum$
PW Protect
'Need 1 button and 1 textbox
If Text1 = 'password' Then
MsgBox 'Thats the pw'
Else
MsgBox 'Wrong pw try again'
End If
Reverse a string'vb5+
Text1.Text = StrReverse('String')
Search a Listbox
'Need 1 button, 1 textbox, 1 listbox
'Name textbox = txtSearch, Name listbox = lstSearch
Dim theList As Long
Dim textToSearch as String
Dim theListText As String
textToSearch = LCase(txtSearch.Text)
For theList = 0 To lstSearch.ListCount - 1
theListText = LCase(lstSearch.List(theList))
If theListText = textToSearch Then lstSearch.Text = textToSearch
Next
Sendkey Controls
'vb
^ = Control
{enter} = Enter
% = Alt
{Del} = Delete
{ESCAPE} = Escape
{TAB} = Tab
+ = Shift
{BACKSPACE} = Backspace
{BREAK} = Break
{CAPLOCKS} = Caps Lock
{CLEAR} = Clear
{DELETE} = Delete
{DOWN} = Down Arrow
{LEFT} = Left Arrow
{RIGHT} = Right Arrow
{UP} = Up Arrow
{NUMLOCK} = Num Lock
{PGDN} = Page Down
{PGUP} = Page Up
{SCROLLLOCK} = Scroll Lock
{F1} = F1 .......Use {F2} {F3} and so on for others...
{HOME} = home
{INSERT} = Insert
Textbox Scroll to Bottom
'1 Textbox
Text1.SelStart = Len(Text1.Text)
Time and Date'vb
Msgbox 'The time is ' & Time
Msgbox 'The date is ' & Date
Uppercase and Lowercase a string
'vb
text1.text = lcase('String')
text1.text = ucase('String')
Semoga Bermanfaat
No comments:
Post a Comment