Tugas Hotel Balong Kuring Semester 3

Private Sub cmdcancel_Click()

Unload Me

End Sub

Private Sub cmdok_Click()

If txtSERVER.Text = “Komp1” And txtusername.Text = “candra dautama” And txtpassworduser = “musik” Then

FRMSPLASH.Show

Unload Me

Else

MsgBox “PERIKSA KEMBALI DATA YANG ANDA MASUKKAN”

End If

End Sub

Private Sub Form_Activate()

txtusername.SetFocus

End Sub

Private Sub Form_Load()

bersih

End Sub

Private Sub bersih()

txtSERVER.Text = “Komp1”

txtusername.Text = “”

txtpassworduser.Text = “”

End Sub

Private Sub txtusername_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpassworduser.SetFocus

End If

End Sub

 

Option Explicit

Dim iSplash As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)

Unload Me

End Sub

Private Sub Frame1_Click()

Unload Me

End Sub

Private Sub Timer1_Timer()

On Error Resume Next

iSplash = iSplash + 1

prghotel.Value = prghotel.Value + 1000 / 1000

If iSplash > 100 Then

Timer1.Enabled = False

Screen.MousePointer = vbNormal

Me.WindowState = 0

Do

Me.Left = Me.Left + 3000

Me.Move Me.Left, Me.Top

DoEvents

Loop Until Me.Left > Screen.Width

Load frmmenu

frmmenu.Show

frmmenu.SetFocus

Unload Me

End If

End Sub

 

Private Sub mnuexit_Click()

PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbCritical + vbYesNo, “PESAN”)

If PSN = vbYes Then

Unload Me

End If

End Sub

Private Sub mnujasa_Click()

Form3.Show

End Sub

Private Sub mnukamar_Click()

Form2.Show

End Sub

Private Sub mnutamu_Click()

Form1.Show

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

If Button.Index = 1 Then

Form1.Show

ElseIf Button.Index = 2 Then

Form2.Show

ElseIf Button.Index = 3 Then

Form3.Show

ElseIf Button.Index = 4 Then

PSN = MsgBox(“ANDA YAKIN MAU KELUAR?”, vbQuestion + vbYesNo, “PESAN”)

If PSN = vbYes Then

Unload Me

End If

End If

End Sub

 

Private Sub cmdbersih_Click()

txtkodetamu = “”

txtnamatamu = “”

txtnoidentitas = “”

txtnotelp = “”

txtalamat = “”

txtkodetamu.SetFocus

End Sub

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveFirst

End Sub

Private Sub cmdsimpan_Click()

With Data1.Recordset

.AddNew

End With

txtkodetamu.SetFocus

End Sub

Private Sub cmdtutup_Click()

PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)

If PSN = vbYes Then

Unload Me

End If

End Sub

Private Sub Form_Activate()

txtkodetamu.SetFocus

End Sub

Private Sub txtkodetamu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnamatamu.SetFocus

End If

End Sub

Private Sub txtnamatamu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnoidentitas.SetFocus

End If

End Sub

Private Sub txtnoidentitas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnotelp.SetFocus

End If

End Sub

Private Sub txtnotelp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

Private Sub cmdbersih_Click()

cbonokamar = “”

cbojeniskamar = “”

cbolantai = “”

cbofasilitas = “”

cbotarif = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveFirst

End Sub

 

 

 

Private Sub cmdsimpan2_Click()

With Data1.Recordset

.AddNew

End With

End Sub

 

Private Sub cmdtutup_Click()

PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)

If PSN = vbYes Then

Unload Me

End If

End Sub

 

Private Sub Form_Load()

cbojeniskamar.AddItem “utama-1”

cbojeniskamar.AddItem “utama-2”

cbojeniskamar.AddItem “utama-3”

cbojeniskamar.AddItem “kelas-1”

cbojeniskamar.AddItem “kelas-2”

cbojeniskamar.AddItem “kelas-3”

 

cbonokamar.AddItem “2”

cbonokamar.AddItem “3”

cbonokamar.AddItem “4”

cbonokamar.AddItem “5”

cbonokamar.AddItem “9”

cbonokamar.AddItem “20”

cbonokamar.AddItem “21”

cbonokamar.AddItem “22”

cbonokamar.AddItem “23”

cbonokamar.AddItem “24”

cbonokamar.AddItem “25”

cbonokamar.AddItem “26”

cbonokamar.AddItem “27”

cbonokamar.AddItem “28”

cbonokamar.AddItem “29”

cbonokamar.AddItem “30”

cbonokamar.AddItem “31”

cbonokamar.AddItem “32”

cbonokamar.AddItem “33”

cbonokamar.AddItem “34”

cbonokamar.AddItem “35”

cbonokamar.AddItem “36”

cbonokamar.AddItem “37”

cbonokamar.AddItem “38”

cbonokamar.AddItem “39”

 

cbolantai.AddItem “I”

cbolantai.AddItem “II”

cbolantai.AddItem “III”

 

cbofasilitas.AddItem “televisi + 4 single bed”

cbofasilitas.AddItem “televisi + double + single spring bed”

cbofasilitas.AddItem “televisi + 3 single bed”

cbofasilitas.AddItem “2 single bed”

cbofasilitas.AddItem “single + double spring bed”

cbofasilitas.AddItem “2 single bed”

cbofasilitas.AddItem “3 single bed”

cbofasilitas.AddItem “double + single bed”

 

cbotarif.AddItem “150000”

cbotarif.AddItem “130000”

cbotarif.AddItem “110000”

cbotarif.AddItem “100000”

cbotarif.AddItem “90000”

cbotarif.AddItem “70000”

End Sub

 

Private Sub bersih()

cbonokamar.Text = “”

cbojeniskamar.Text = “”

cbolantai.Text = “”

cbofasilitas.Text = “”

cbotarif.Text = “”

End Sub

 

Private Sub cmdbersih_Click()

txtkodejasa = “”

txtnamajasa = “”

txtsatuan = “”

txtharga = “”

txtkodejasa.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveFirst

End Sub

 

 

 

Private Sub cmdsimpan3_Click()

With Data1.Recordset

.AddNew

End With

End Sub

 

Private Sub cmdtutup_Click()

PSN = MsgBox(“ANDA YAKIN INGIN KELUAR ?”, vbQuestion + vbYesNo, “PESAN”)

If PSN = vbYes Then

Unload Me

End If

End Sub

 

 

 

Private Sub txtkodejasa_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnamajasa.SetFocus

End If

End Sub

 

Private Sub txtnamajasa_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtsatuan.SetFocus

End If

End Sub

 

Private Sub txtsatuan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtharga.SetFocus

End If

End Sub

 

 

 

Iklan

TUGAS UTS VB SEMESTER 3

Private Sub cmdtambah_Click()

txtnoinduk.Text = “”

txtnama.Text = “”

cbojk.Text = “”

txttempatlahir.Text = “”

txttanggallahir.Text = “”

cboagama.Text = “”

txtalamat.Text = “”

txtnotlp.Text = “”

txtnamawali.Text = “”

txtpekerjaan.Text = “”

txtalamatwali.Text = “”

cbostatus.Text = “”

txttahunmasuk.Text = “”

cbokelas.Text = “”

txtwalikelas.Text = “”

txtnoinduk.SetFocus

End Sub

 

 

 

Private Sub cboagama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttahunmasuk.SetFocus

End If

End Sub

 

Private Sub cbojk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttempatlahir.SetFocus

End If

End Sub

 

 

Private Sub cbokelas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtwalikelas.SetFocus

End If

End Sub

 

Private Sub cmdedit_Click()

With Data1.Recordset

.Edit

End With

End Sub

 

Private Sub cmdsimpan_Click()

With Data1.Recordset

.AddNew

End With

End Sub

 

Private Sub cmdkeluar_Click()

PSN = MsgBox(“ANDA YAKIN INGIN KELUAR?”, vbCritical + vbYesNo, “PESAN”)

If PSN = vbYes Then

Unload Me

End If

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveFirst

End Sub

 

Private Sub Form_Load()

cbojk.AddItem “Laki-laki”

cbojk.AddItem “Perempuan”

cboagama.AddItem “Islam”

cboagama.AddItem “Protestan”

cboagama.AddItem “Katholik”

cboagama.AddItem “Hindu”

cboagama.AddItem “Budha”

cboagama.AddItem “Konghucu”

cbostatus.AddItem “Anak Kandung”

cbostatus.AddItem “Anak Angkat”

cbokelas.AddItem “VII”

cbokelas.AddItem “VIII”

cbokelas.AddItem “IX”

End Sub

 

Private Sub mnexit_Click()

PSN = MsgBox(“ANDA YAKIN INGIN KELUAR?”, vbCritical + vbYesNo, “PESAN”)

If PSN = vbYes Then

Unload Me

End If

End Sub

 

 

 

 

 

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnotlp.SetFocus

End If

End Sub

 

 

 

Private Sub txtalamatwali_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cbostatus.SetFocus

End If

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cbojk.SetFocus

End If

End Sub

 

 

 

Private Sub txtnamawali_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpekerjaan.SetFocus

End If

End Sub

 

Private Sub txtnoinduk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

 

 

 

 

 

 

 

Private Sub txtnotlp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnamawali.SetFocus

End If

End Sub

 

 

Private Sub txtpekerjaan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamatwali.SetFocus

End If

End Sub

 

Private Sub txttahunmasuk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cbokelas.SetFocus

End If

End Sub

 

Private Sub txttanggallahir_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cboagama.SetFocus

End If

End Sub

 

Private Sub txttempatlahir_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttanggallahir.SetFocus

End If

End Sub

 

 

Private Sub txtwalikelas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub


TUGAS 4

Private Sub cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_Load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub

Private Sub cbogolongan_click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal = “”

End Sub

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub command2_Click()

End

End Sub

 

Private Sub Form_Load()

 

End Sub

 

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub

 

Private Sub Check2_click()

Label2.FontItalic = Check2.Value

End Sub

 

Private Sub Check1_click()

Label2.FontBold = Check1.Value

End Sub

 


TUGAS 3 KODE PROGRAM

Private Sub cbonpm_Click()

Select Case cbonpm.Text

Case “10100001”

nama = “I Nyoman Agus Hermawan”

jurusan = “Sistem Informasi”

Case “10200002”

nama = “Yusuf Cahyo”

jurusan = “Manajemen Informatika”

Case “10300003”

nama = “Eva Riyana Abun”

jurusan = “Teknik Informatika”

Case “10100004”

nama = “Eva Maulana”

jurusan = “Sistem Informasi”

Case “10200005”

nama = “Desi Purnamasari”

jurusan = “Manajemen Informatika”

Case “10300006”

nama = “Fiqih Satria”

jurusan = “Teknik Informatika”

Case “10100007”

nama = “Nugroho Dwi Yus Panggi”

jurusan = “Sistem Informasi”

Case “10200008”

nama = “Aga Kusuma”

jurusan = “Manajemen Informatika”

Case “10300009”

nama = “Ike Diah Wulandari”

jurusan = “Teknik Informatika”

Case “10200010”

nama = “Heri Muriyanto”

jurusan = “Manajemen Informasi”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtnq.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtnq.SetFocus

txtnq = “”

txtnt = “”

txtuts = “”

txtuas = “”

txtnama = “”

txtjurusan = “”

cbonpm = “”

txtna = “”

txthm = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim Nilaiakhir As Integer

Dim hurufmutu As String

nilai1 = Val(txtnq.Text)

nilai2 = Val(txtnt.Text)

nilai3 = Val(txtuts.Text)

nilai4 = Val(txtuas.Text)

Nilaiakhir = (nilai1 + nilai2 + nilai3 + nilai4) / 4

txtna.Text = Nilaiakhir

If Val(txtna.Text) >= 76 Then

txthm.Text = “A”

End If

If Val(txtna.Text) < 76 Then

txthm.Text = “B”

End If

If Val(txtna.Text) < 66 Then

txthm.Text = “C”

End If

If Val(txtna.Text) < 56 Then

txthm.Text = “D”

End If

If Val(txtna.Text) < 46 Then

txthm.Text = “E”

End If

End Sub

Private Sub Form_Load()

cbonpm.AddItem “10100001”

cbonpm.AddItem “10200002”

cbonpm.AddItem “10300003”

cbonpm.AddItem “10100004”

cbonpm.AddItem “10200005”

cbonpm.AddItem “10300006”

cbonpm.AddItem “10100007”

cbonpm.AddItem “10200008”

cbonpm.AddItem “10300009”

cbonpm.AddItem “10200010”

End Sub

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

Private Sub txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuts.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub


MAKALAH TENTANG VISUAL BASIC 6.0

MAKALAH
PENGENALAN VISUAL BASIC 6.0

DISUSUN
O
L
E
H
CANDRA DAUTAMA
NPM : 10100050

SEKOLAH TINGGI MANAJMEN INFORMATIKA DAN
KOMPUTER (STMIK) PRINGSEWU
TAHUN PELAJARAN 2010

KATA PENGANTAR

Puji syukur diucapkan kehadirat Allah SWT atas berkat rahmat dan hidayatNya, sehingga penulis dapat menyelesaikan salah satu tuntutan pendidikan dewasa ini, yaitu sebuah makalah yang berjudul Pengenalan Visual Basic 6.0. Suatu hal yang tidak dapat dipungkiri sekarang bahwa setiap orang suatu ketika dihadapkan pada kenyataan untuk dapat mengerti apa program Visual Basic itu.
Untuk mendapatkan pengetahuan tentang program Visual Basic diperlukan petunjuk – petunjuk. Maka dari itu penulis menulis makalah ini agar dapat dipelajari oleh semua pihak.
Penulis mengucapkan terima kasih kepada :
1. Bapak Nur Aminudin, S.Kom, selaku dosen pengampu mata kuliah Bahasa Pemrograman Visual Basic.
2. Teman – teman yang membantu dan mendorong serta memberikan informasi yang sangat diperlukan dalam penyusunan makalah ini.

Semoga makalah ini memenuhi persyaratan dan banyak manfaat bagi pemakai. Kepada semua pihak senantiasa diharapkan saran – saran dan petunjuk untuk penyempurnaan lebih lanjut.

Pringsewu, 27 November 2010
Penulis,

Candra Dautama

DAFTAR ISI

Halaman judul i
Kata pengantar ii
Daftar isi iii

BAB I PEMBAHASAN
1. Mengenal Visual Basic 6.0 1
2. Memulai Visual Basic 6.0 2
3. Tampilan awal Visual Basic 6.0 3
4. Lingkungan Kerja dan komponen Visual Basic 6.0 3

BAB II PENUTUP
1. Kesimpulan 8
2. Saran 8
DAFTAR PUSTAKA 9

BAB II
PENGENALAN VISUAL BASIC 6.0

1. Mengenal Visual Basic
Visual Basic adalah bahasa pemrograman yang digunakan untuk membuat aplikasi Windows yang berbasis grafis (GUI – Graphical User Interface). Visual Basic merupakan event-driven programming (pemrograman terkendali kejadian) artinya program menunggu sampai adanya respon dari pemakai berupa event/ kejadian tertentu (tombol diklik, menu dipilih, dan lain-lain). Ketika event terdeteksi, kode yang berhubungan dengan event (prosedur event) akan dijalankan.
Berikut ini adalah point-point penting dalam sejarah perkembangan Visual Basic, sebagai berikut :
1) Visual Basic pertama kali diperkenalkan tahun 1991.
2) Berikutnya dirilis Visual Basic 3.0 tahun 1993.
3) Visual Basic 4.0 dirilis pada akhir tahun 1995 (tambahan dukungan untuk aplikasi 32 bit).
4) Visual Basic terbaru adalah versi 6.0 yang dirilis pada akhir tahun 1998. Microsoft umumnya membuat tiga edisi Visual Basic yaitu : Standard Edition merupakan produk dasar. Profesional Edition berisi tambahan Microsoft Jet Data Access Engine (database) dan pembuatan server OLE automation. Enterprise Edition adalah edisi client-server. Jenis File Pada Visual Basic Proyek merupakan cikal bakal dari aplikasi dan terdiri dari beberapa file yang saling terkait satu sama lain, file-file tersebut mempunyai ekstensi yang berbeda-beda sesuai dengan isi dan fungsinya.

2. Memulai Visual Basic

Jika belum memiliki program Visual Basic Kita harus menginstalnya terlebih dahulu. Caranya adalah sebagai berikut :
1. Masukan CD-ROM installer , buka isinya kemudian klik ganda pada setup.exe sehingga akan muncul kotak dialog yang pertama kemudian klik next.
2. Kotak dialog yang kedua akan muncul, baca agreement jika setuju klik I accept the agreement dan klik next.
3. Kotak dialog yang ketiga akan muncul, isikan nomor produk yang tertera pada VB6 klik next.
4. Kotak dialog yang keempat akan muncul, klik install Visual Basic 6 klik next, program InstallShield akan bekerja dan muncul kotak dialog kelima yang isinya tentang aturan hukum pembajakan ada aturan main yang harus disepakati bersama yaitu EULA(End User Lisence Agreement) perjanjian antara Microsoft dengan user, klik continue.
5. Kotak dialog yang keenam akan muncul, secara default VB6 akan membuat folder yang terletak C:\Program files\DevStudio\VB. klik ok.
6. Kotak dialog yang ketujuh akan muncul, menyediakan pilihan setup Typical atau Custom lalu klik ok, nama program VB6 secara default adalah Microsoft Visual Basic 6 lalu klik continue proses penyalinan hardisk dimuali pada langkah ini .
7. Setelah proses mencapai 100% akan muncul tampilan yang memberi tahu bahwa proses instalasi akan komplet. Klik ok, VB6 akan meminta untuk merestart windows agar hasil proses instalasi sesuai dengan rencana.
8. Klik tombol restart windows, lengkaplah proses instalasi VB6. Untuk melihat hasilnya, dari menu Start arahkan pointer ke Microsoft Visual Basic 6, maka akan tampil kelompok dari program Visual Basic 6.

Untuk menjalankan VB6 ada beberapa cara yang dapat digunakan, yaitu :
1. Dari Menu Start pilih program – Microsoft Visual Studio 6 – lalu klik icon Visual basic 6
2. Klik ganda icon Visual Basic 6 pada Dekstop
3. Klik ganda ekstensi .MAK pada Window Eksplorer
4. Klik ganda file VB6.EXE pada Windows Eksplorer. File ini secara default terletak pada folder C:\Program files\Microsoft VisualStudio\VB98

3. Tampilan Awal Visual Basic

4. Lingkungan kerja dan komponen Visual Basic

1) Title Bar
Title bar merupakan batang jendela dari program Visual Basic 6.0 yang terletak pada bagian paling atas dari jendela program yang berfungsi untuk menampilkan judul atau nama jendela. Selain itu juga berfungsi untuk memindahkan posisi jendela dengan menggunakan drag and drop pada posisi title bar tersebut dan untuk mengatur ukuran jendela dari ukuran minimize ke ukuran restore ataupun sebaliknya dengan melakukan klik ganda pada posisi title bar tersebut.

2) Menu bar
terdiri dari 2 komponen yaitu menu bar dan title bar. Menu bar menampilkan menu yang berisi perintah-perintah pada VB, title bar akan menampilkan judul proyek VB yang sedang dikerjakan.

3) Toolbar
digunakan untuk mngakses menu yang ada dalam VB secara lebih cepat dan lebih mudah.

4) Toolbox
berisi kumpulan objek yang digunakan untuk membuat user interface serta pengontrolan bagi program yang dibuat. Objek yang terdapat dalam toolbox ini adalah control.

5) Project
Digunakan untuk mengelola file yang menyusun sebuah objek yang berisi daftar form, modul class dan file resource yang digunakan sebuah proyek.

6) Properties window
merupakan jendela yang digunakan untuk mengatur properties sebuah objek, dibagi dalam 2 bagian yaitu; Alphabetic dan Categorized.

7) Form Layout window
digunakan untuk mengatur tata letak form pada layar monitor.

8) immediate window
digunakan untuk mencoba beberapa instruksi program dan pada saat menguji program bisa digunakan sebagai window debug.

9) Form window
adalah lembar desain tampilan atau kanvas dari program yang dibuat. Form ini adalah tempat diletakannya kontrol-kontrol VB.

10) Code window
digunakan sebagai tempat untuk menuliskan atau menyunting program VB., terdiri dari 2 elemen, yaitu : Object Box dan Procedure List Box.

11) Event
Event adalah peristiwa atau kejadian yang diterima oleh suatu objek, misalnya klik, seret, tunjuk dan lain-lain. Event yang diterima objek akan memicu MS-Visual Basic menjalankan kode program yang ada di dalamnya. Contoh : Private Sub Command1_Click( ) Baris di atas menunjukkan penggunaan Event Click pada objek command1, maka baris-baris kode program di bawahnya akan dilaksanakan.

12) Method
Method adalah suatu set perintah seperti halnya fungsi dan prosedur, tetapi sudah tersedia di dalam suatu objek

13) Module
Module dapat disejajarkan dengan Form, Tetapi tidak mengandug Objek dan bentuk yang standar. Module dapat berisi beberapa kode program yang dapat digunaka dalam program aplikasi.


BAB II
PENUTUP

1. Kesimpulan
Visual Basic adalah bahasa pemrograman yang digunakan untuk membuat aplikasi Windows yang berbasis grafis (GUI – Graphical User Interface). kemampuan Visual Basic untuk dapat berinteraksi dengan aplikasi lain di dalam sistem operasi Windows dengan komponen ActiveX Control.

2. Saran
Kemajuan Visual Basic di masa mendatang diharapkan dapat membantu semua jenis pekerjaan manusia sehingga mampu menyelesaikan pekerjaan dengan cepat karena di masa depan teknologi akan semakin canggih.


DAFTAR PUSTAKA

http://id.shvoong.com/books/1901179-pengenalan Visual Basic
Reference Manual, MICROSOFT BASIC-80 Version 5.0, Microsoft, 1980


Hello world!

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!