Pengenalan Visual basic 6.0 (part 2)

Deklarasi Konstanta

Anda sering menjumpai suatu kode yang mengandung nilai yang berulang-ulang ataupu

nilai yang memiliki arti khusus, atau anda menemukan bahwa angka tersebut susah

diingat. Dalam hal ini anda dapat membuat code anda menjadi lebih mudah dibaca-lebih

mudah ditangani-dengan menggunakan suatu konstanta. Suatu konstanta adalah nama

yang menyimpan dari suatu nilai yang tidak dapat berubah. Ada dua sumber dari suatu

konstanta :

• Intrinsic atau System-defined konstanta yang disediakan oleh suatu aplikasi atau

control. Konstanta Visual Basic terdaftar pada Visual Basic (VB), Visual Basic

for Application (VBA), dan Data Access (DAO).

• Symbolic atau User-defined konstanta adalah dideklarasikan dengan

menggunakan statement Const.

Membuat Konstanta Anda Sendiri

Syntax untuk deklarasi konstanta adalah :

[Public|Private] Const constantname [As type] = expression

Contoh :

Const Pi = 3.12159265358979

Public Const Planet As Integer= 9

Const ReleaseDate = #7/1/95#

Scope dari suatu user-defined konstanta

• Membuat suatu konstanta yang mana hanya ada dalam suatu procedure,

deklarasikan di dalam procedure tersebut

• Membuat suatu konstanta berlaku pada semua procedure dalam suatu module,

deklarasikan dia pada bagian deklarasi di module tersebut

• Membuat suatu konstanta berlaku pada semua aplikasi, deklarasikan dia dengan

keyword Public sebelum kata Const.

Struktur Perulangan

Struktur loop memperbolehkan anda untuk melaksanakan sekelompok baris lebih dari

satu kali :

Do...Loop

Gunakan Do loop untuk mengeksekusi suatu blok statement dengan jumlah perulangan

yang tak terhingga, ada beberapa Do...Loop statement, tetapi masing-masing

mengevaluasi suatu kondisi untuk menentukan apakah melanjutkan eksekusi

Berikut ini adalah statement Do…Loop, yang dijalankan selama kondisi benar :

Do While condition

statements

Loop

Ketika Visual menjalankan Do loop ini, pertama kali akan di coba kondisinya, jika

kondisi False (zero), akan diloncati semua statements yang mengikuti kondisi tersebut.

Visual Basic akan menjalankan statements jika kondisi benar dan kembali ke Do…Loop

berikutnya.

Function Faktorial (x)

Dim Hasil As Double

Dim Count As Long

Hasil = 1

count = 2

Do While Count <= x

Hasil = Hasil * count

count = count + 1

Loop

Faktorial = count

End Function

Variasi lain dari statement Do…Loop, yang menjamin minimal satu kali statement

dijalankan :

Do

statements

Loop While condition

Dua variasi yang analog dengan dua contoh sebelumnya adalah perulangan minimal satu

kali. Dan berikut ini adalah berulang atau tidak sama sekali :

Do Until condition

statements

Loop

Do

statements

Loop Until condition

For...Next

Do loops bekerja dengan baik, ketika anda tidak tahu berapa bayak kali untuk butuhkan

untuk menjalankan statement. Ketika anda mengetahui harus menjalankan statement

sejumlah kali, bagaimanapun For…Next adalah pilihan yang lebih baik. Tidak seperti Do

Loop, For…loop menggunakan suatu variabel yang disebut counter yang mana akan

bertambah atau berkurang pada setiap perulangan. Syntaxnya adalah :

For counter = start To end [Step increment]

statements

Next [counter]

Argumen counter, start, end, dan increment semuanya adalah numerik

1. Dalam melakukan For loop, Visual Basic :

2. Menset nilai counter sama dengan start

3. Mencoba apakah counter lebih besar dari end. Jika ya, Visual Basic meninggalkan

looping tersebut.

4. Menjalankan statements tersebut.

5. Menaikkan counter dengan 1 atau dengan nilai step yang ditentukan

6. Mengulangi langkah 2 sampai 4

Code berikut akan mencetak semua item yang terdapat pada suatu daftar list.

Private Sub Form_Click ()

Dim I As Integer

For i = 0 To List1.ListCount-1

Print List1.List(I)

Next

End Sub