31 Oct 2011

Belajar Pemrograman dengan Visual Basic v 6.0

 Apa itu Microsoft Visual Basic 6.0 ?Microsoft Visual Basic 6.0 (VB) merupakan salah satu bahasa pemrograman yang handal untuk membuat suatu aplikasi dalam Microsoft Windows yang berbasis grafis (Graphical User Interface – GUI). Dengan metode Graphical User Interface (GUI), VB memudahkan pemrogram untuk berinteraksi langsung dengan elemen-elemen untuk setiap bentuk pemrograman.

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:
  1. 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.
  2. Form designer Window digunakan untuk membuat User Interface,
  3. 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.
  4. 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.
  5. Property window berisi property-property yang dimiliki oleh sebuah object. Untuk memunculkan Property Window tekan tombol F4.
  6. Form layout digunakan untuk mendefiniskan letak form ketika program dijalankan.
  7. Immediate window dapat digunakan digunakan untuk melihat hasil ekspresi dengan menggunakan perintah print. Jendela ini banyak digunakan ketika berada dalam break mode.
  8. Object Browser dapat digunakan untuk menampilkan property, metode dari object yang diambil dari library internal.
Mengenal Kontrol
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

Garudayasa

Garudayasa