Tutorial VB

MICROSOFT VISUAL BASIC

PERTEMUAN 1

A. Pengenalan Visual Basic

Basic adalah salah satu depelopment tools untuk membangun aplikasi dalam lingkungan windows.

Cara menjalankan Visual Basic

1. Klik tombol Start
   
2. Pilih menu Program Microsoft Visual Studio 6.0 Microsoft Visual Basic 6.0
   
3. Sebuah kotak dialok New Project akan muncul untuk memilih jenis aplikasi yang akan anda buat.: biasanya kita menggunakan Standart EXE Klik Open
   

   Untuk New Project terdapat 3 tab yaitu :

   1. Tab New adalah tab untuk memilih project yang akan kita gunakan
   

   1. Standart EXE adalah tampilan project yang sederhana yang biasa digunakan.
      
   2. Activex EXE
   3. Activex DLL
   4. Activex Control
      
   5. VB Application Wizard
   6. VB Wizard Manager
      
   7. VB Entervrise edition = tampilan project yang lebih lengkap dari pada standar exe
      

   2. Existing adalah tab yang digunakan untuk membuka project yang pernah kita buat atau fungsinya sama seperti open di office.

   3. Recent adalah tab yang digunakan untuk melihat pengerjaan atau projek terakhir dari visual basic yang telah dibuat, fungsinya sama seperti MY Recent Document di Microsoft Office.

B. Lingkungan Kerja Visual Basic / IDE

Lingkungan kerja Visual Basic atau dikenal dengan nama IDE (Integrated Development Envirotment). Berikut ini adalah lingkunagan IDE

1. Project explorer

Jendela explorer adalah semua jendela yang mengandung semua file seperti form , modul, class, dan sebagainya didalam aplikasi project.

1. Properties Windows

Jendela properties windows adalah jendela yang mengandung semua informasi mengenai object yang terdapat aplikasi visual basic.

1. Form Layout Windows

   Jendela yang menggambarkan posisi dari form yang ditampilaka pada layer monitor saat dijalankan nanti.

1. Jendela Code

   Jendela ini berisi kode-kode program yang merupakan intruksi-intruksi untuk aplikasi visual basic.
   

   1. Form Windows

   Jendela form adalah daerah kerja utama.
   

   1. Tool Box
      

   Sebuah kotak yang mengandung objeck atau control untuk mendisai suatu program.
   
   

   LATIHAN 1

   

   Object	Propertis	Ket
   TextBox	Name	Text1
   	Text	Dihapus/dikosongkan
   CommandButton	Name	Command1
   	Caption	Perkenalan

   Listing Program

   Private Sub Command1_Click()

   Text1.Text = "Kenalkan, Nama Saya ............ (Nama Masing2)"
   

   End Sub

   LATIHAN 2

   

   Object	Propertis	Ket
   TextBox1	Name	txtnim
   	Text	Dihapus/dikosongkan
   TextBox2	Name	txtnama
   	Text	Dihapus/dikosongkan
   TextBox3	Name	txtkls
   	Text	Dihapus/dikosongkan
   CommandButton1	Name	Cmdpesan
   	Caption	PESAN
   CommandButton2	Name	Cmdkeluar
   	Caption	KELUAR

   Listing Program

   Private Sub cmdpesan_Click()

   MsgBox "Selamat Datang di Lab F : " + " " + txtnim + " " + txtnama + " " + txtkls
   

   End Sub
   

   Private Sub cmdkeluar_Click()

   End
   

   End Sub

   
   

   LATIHAN 3

   

   Object	Propertis	Ket
   TextBox1	Name	Txtnil1
   	Text	Dihapus/dikosongkan
   TextBox2	Name	Txtnil2
   	Text	Dihapus/dikosongkan
   TextBox3	Name	Txthasil
   	Text	Dihapus/dikosongkan
   CommandButton1	Name	Cmdtambah
   	Caption	TAMBAH
   CommandButton2	Name	Cmdkurang
   	Caption	KURANG
   CommandButton3	Name	Cmdkali
   	Caption	KALI
   CommandButton4	Name	Cmdbagi
   	Caption	BAGI
   CommandButton5	Name	Cmdbersih
   	Caption	&BERSIH
   CommandButton6	Name	Cmdkeluar
   	Caption	&KELUAR

   Listing Program

   Private Sub cmdtambah_Click()
   

   txthsl.Text = Val(txtnil1.Text) + Val(txtnil2.Text)
   

   End Sub
   

   Private Sub cmdkurang_Click()
   

   txthsl.Text = Val(txtnil1.Text) - Val(txtnil2.Text)
   

   End Sub
   

   Private Sub cmdkali_Click()
   

   txthsl.Text = Val(txtnil1.Text) * Val(txtnil2.Text)
   

   End Sub
   

   Private Sub cmdbagi_Click()
   

   txthsl.Text = Val(txtnil1.Text) / Val(txtnil2.Text)
   

   End Sub
   

   
   

   Private Sub cmdbersih_Click()
   

   txtnil1.Text = ""
   

   txtnil2.Text = ""
   

   txthsl.Text = ""
   

   txtnil1.SetFocus
   

   End Sub
   

   
   

   Private Sub cmdkeluar_Click()
   

   End
   

   End Sub