Fungsi yang dipakai yaitu:

OpenDatabase(, , )

: Nama file MDB yang mau dibuka
: Isi True jika akan dibuka secara ekslusif
(gak bisa dimodifikasi user laen)
: Isi true jika cuma baca aja,
False supaya bisa nulis

Cara kerja program:

* beri kesempatan user untuk membuka file MDB (Open for file)
* setelah file dipilih, buka file tersebut dengan fungsi OpenDatabase di atas
* setelah file dibuka, lakukan iterasi (looping) terhadap obyek TableDefs, untuk mendapatkan obyek-obyek tabel didalamnya.
* yang ditemukan bukan cuma Tabel untuk data, tapi juga tabel untuk info system, yang nama tabelnya diawali dengan 'MSys'. Untuk itu perlu dicek, kalo 4 huruf di depannya adalah 'MSys' berarti tabelnya system.
* untuk setiap tabel, lakukan iterasi juga untuk menampilkan field-fieldnya, yang akan ditampilkan adalah nama field, tipe dan panjangnya.
* lalu jika user mengklik salah satu tabel, pada obyek ListView di bagian kanan form, ditampilkan semua isi datanya.

Arsitektur tersentralisasi : Implementasinya adalah pemrosesan data yang terpusat/komputasi terpusat. Semua pemrosesan data dilakukan oleh komputer yang ditempatkan didalam suatu lokasi untuk melayani semua pemakai dalam organisasi.

Arsitektur terdistribusi : Lokasi komponen sistem di satu tempat atau tidak.

Arsitektur client/server : Server adalah sistem/proses yang menyediakan data/layanan yang diminta oleh client.Server dapat berupa komputer (mainframe,mini komputer,workstation,ataupun PC ) atau piranti lain misalnya printer. Client mempunyai kemampuan untuk melakukan proses sendiri.Ketika sebuah client meminta suatu data ke server,server akan segera menanggapinya dengan memberikan data yang diminta ke client bersangkutanSeteleh diterima client akan melakukan pemrosesan.Model komputasi yang berbasis client/server terdapat pada system operasi.

Keterangan gambar :

1.Menu edit : Berisi berbagai menu untuk mengubah kejadian yang dilakukan pada project vb.
2.Redo : Merupakan bagian dari menu edit, yang digunakan untuk mengembalikan keadaan semula (sebelum dirubah).
3.AlignConstants : Merupakan bagian dari Object Browser, yang digunakan untuk merubaha tata letak project vb.
4.Form : Bagian dari project vb, digunakan untuk menempatkan pekerjaan yang diinginkan pada vb.
5.Command : Perintah yang digunakan untuk menjalankan project vb.
6.Name : Bagian dari properties yang digunakan untuk memberi nama pada file general, seperti label, command, dll.
7.Forms : Folder dari project vb
8.Combo box : Bagian dari menu general yang dapat menampilkan pilihan dalam 1 baris.
9.Timer : Digunakan untuk menambahkan effect waktu dalam menjalankan project vb.
10.Locals : Digunakan untuk memilih tempat penyimpanan project vb.
11.Windows : Digunakan untuk mengatur tampilan project vb pada windows.
12.Form layout : Digunakan untuk mengatur layout pada form project vb.

KISI_KISI UTS
UTS MULOK : VISUAL BASIC

1. Skrip yang masih tergolong bahasa pemrograman bahasa level Rendah adalah : 0B38:0100 B402

2. Skrip yang masih tergolong bahasa pemrograman bahasa level menengah adalah : Mov AH,02h

3. Skrip yang masih tergolong bahasa pemrograman bahasa level tinggi adalah : Write(‘A’);

4. Berisi Data atau program adalah bagian definisi dari : file

5. Kumpulan instruksi / perintah yang dirangkaian sehingga membentuk suatu proses dinamakan :program

6. Apa yang dimaksud dengan meng-Compile instruksi program yang dibuat : memeriksa program yang telah disusun

7. Flowchart berfungsi sebagai : alat bantu yang berupa simbol – simbol yang saling dihubungkan sehingga dapat menggambarkan alur pikir sebuah program atau permasalahan yang akan diproses dengan progam komputer.

8. Contoh Bahasa Pemrograman Berbasis Teks, kecuali: Visual basic

9. Bahasa Pemrograman Visual Basic memiliki karakter utama yakni event driven yang bermakna : Program menunggu user menjalankan program

10. Berikut yang bukan termasuk Event adalah : Merubah tampilan window

11. Salah satu contoh Properties yakni : Bentuk tampilan di window dapat anda ubah melalui template(cetakan) yang disediakan.

12. Yang dimaksud dengan methode adalah : susunan perintah yang dikerjakan bila event dijalankan

13. Jelaskan tujuan program berikut :
Private Sub Lblnama_DblClick()
Lblnama.caption =“ Saya sedang Belajar Visual Basic”
End Sub
Jika diklik 2 kali maka akan ditampilkan “Saya sedang Belajar Visual Basic.

14. Apa Perbedaan dari Combo Box dengan List Box :Combo box tampilannya hanya satu sedangkan List box menampilkan beberapa pilihan.

15. Property Alignment pada label berfungsi untuk :Mengatur tata letak teks.

16. Tempat dimana kita membuat tampilan (user interface) dari program aplikasi dinamakan :properties

17. Dengan melihat tampilan program diatas,komponen yang dibutuhkan adalah :

18. Dengan melihat gambar diatas, komponen yang ditunjuk oleh label A adalah :

19. Dengan melihat gambar diatas, komponen yang ditunjuk oleh label A adalah :

20. Dengan melihat gambar diatas, komponen yang ditunjuk oleh label A adalah :
Diposkan oleh

he following constants are used to give the lights a certain color
Const Off = &H8000000F
Const Red = vbRed
Const Green = vbGreen
Const Orange = &H80C0FF

'a simple traffic junction of two perpendicular crossing streets
'consists of 4 traffic poles. Each traffic pole has a green, orange
'and red light. There is always just one light on per pole.

'The traffic lights control on one of those junctions has just 4
'statusses. The current status is stored in the variable "Status".
Dim Status As Integer

'The time a status lasts, is derived from the following constants, which
'indicate the time in seconds.
Const TimeForStatus1 = 5
Const TimeForStatus2 = 3
Const TimeForStatus3 = 5
Const TimeForStatus4 = 3

Private Sub SetStatus(ByVal intStatus As Integer)
'Set the status variable to the new status
Status = intStatus

'Turn off all the lights
shpLamp1Groen.FillColor = Off
shpLamp1Oranje.FillColor = Off
shpLamp1Rood.FillColor = Off
shpLamp2Groen.FillColor = Off
shpLamp2Oranje.FillColor = Off
shpLamp2Rood.FillColor = Off
shpLamp3Groen.FillColor = Off
shpLamp3Oranje.FillColor = Off
shpLamp3Rood.FillColor = Off
shpLamp4Groen.FillColor = Off
shpLamp4Oranje.FillColor = Off
shpLamp4Rood.FillColor = Off

'Turn on the appropriate lights with the correct color,
'depending on the current status
Select Case intStatus 'or "Select Case Status", won't make any difference
Case 1
shpLamp1Rood.FillColor = Red
shpLamp2Groen.FillColor = Green
shpLamp3Rood.FillColor = Red
shpLamp4Groen.FillColor = Green

Timer1.Interval = TimeForStatus1 * 1000
Case 2
shpLamp1Rood.FillColor = Red
shpLamp2Oranje.FillColor = Orange
shpLamp3Rood.FillColor = Red
shpLamp4Oranje.FillColor = Orange

Timer1.Interval = TimeForStatus2 * 1000
Case 3
shpLamp1Groen.FillColor = Green
shpLamp2Rood.FillColor = Red
shpLamp3Groen.FillColor = Green
shpLamp4Rood.FillColor = Red

Timer1.Interval = TimeForStatus3 * 1000
Case 4
shpLamp1Oranje.FillColor = Orange
shpLamp2Rood.FillColor = Red
shpLamp3Oranje.FillColor = Orange
shpLamp4Rood.FillColor = Red

Timer1.Interval = TimeForStatus4 * 1000
End Select

'We need to call the following subroutine
RefreshLights
End Sub

Private Sub RefreshLights()
'This subroutine makes sure that de data on the screen is
'displayed correctly
shpLamp1Groen.Refresh
shpLamp1Oranje.Refresh
shpLamp1Rood.Refresh
shpLamp2Groen.Refresh
shpLamp2Oranje.Refresh
shpLamp2Rood.Refresh
shpLamp3Groen.Refresh
shpLamp3Oranje.Refresh
shpLamp3Rood.Refresh
shpLamp4Groen.Refresh
shpLamp4Oranje.Refresh
shpLamp4Rood.Refresh
End Sub

Private Sub Form_Load()
'When the programs starts, it starts with status 1
SetStatus 1
'Initializing the timer will start the timer1_timer subroutine after the
'set interval has elapsed (in milliseconds)
Timer1.Interval = TimeForStatus1 * 1000
End Sub
Private Sub Timer1_Timer()
'Change to the next status
Status = Status + 1
'If the next status is 5 then we need to change it back to one
If Status = 5 Then Status = 1

SetStatus Status
End Sub