Pengenalan Visual Basic 6.0 (part 1 )

Pengenalan Visual Basic

Mengenal Struktur Kendali

Struktur kendali memungkinkan anda untuk mengatur jalannya program anda, Jika

membiarkan tanpa di periksa oleh statement control-flow, suatu logika program akan

berjalan dari kiri ke kanan dan dari atas kebawah. Hanya program yang sangat sederhana

dapat ditulis tanpa statement control-flow.

Struktur Keputusan

Struktur keputusan yang didukung oleh Visual Basic adalah sebagai berikut :

If...Then

Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan secara kondisional.

Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris :

If kondisi Then pernyataan

atau

If kondisi Then

pernyataan-pernyataan

End If

Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang menghasilkan nilai

numerik. Visual Basic menginterpretasikan False sebagai nol (0), dan True sebagai bukan

nol.

If...Then...Else

Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan yang akan

dijalankan salah satu berdasarkan kondisi yang memenuhi syarat

If kondisi1 Then

[blok pernyataan-1]

[ElseIf kondisi2 Then

[blok pernyataan-2]] ...

[Else

[blok pernyataan-n]]

End If

Visual Basic awalnya akan mencoba kondisi1. Jika False, maka Visual Basic akan

memeriksa kondisi2, dan seterusnya sampai menemukan suatu kondisi True untuk

dijalankan blok pernyataannya.

Contoh :

If JlhRec > 0 Then

Posisi = 1

Else

Posisi = 0

End If

Select Case

Visual Basic menyediakan struktur Select Case sebagai suatu alternatif terhadap

If...Then...Else. Suatu Select Case statement memiliki kemampuan yang sama dengan

If…Then…Else…, tetapi membuat code lebih mudah dibaca.

Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya dievaluasi satu kali pada bagian atas struktur. Visual Basic then membandingkan hasil ekspresi dengan nilai pada setiap Case didalam struktur tersebut, jika ada yang sesuai, akan dijalankan

blok statement yang sesuai

Select Case ekspresiyangdicoba

[Case ekspresi1

[blokpernyataan-1]]

[Case ekspresi2

[blokpernyataan-2]]

…

[Case Else

[blokpernyataan-n]]

End Select

Contoh :

Select Case x

Case 0: angka = "Nol"

Case 1:

If posisi = 1 Then

angka = "Satu "

Else

angka = "Se"

End If

Case 2: angka = "Dua "

Case 3: angka = "Tiga "

Case 4: angka = "Empat "

Case 5: angka = "Lima "

Case 6: angka = "Enam "

Case 7: angka = "Tujuh "

Case 8: angka = "Delapan "

Case 9: angka = "Sembilan "

Case 10: angka = "Sepuluh "

Case 11: angka = "Sebelas "

Case 12: angka = "Duabelas "

Case 13: angka = "Tigabelas "

Case 14: angka = "Empatbelas "

Case 15: angka = "Limabelas "

Case 16: angka = "Enambelas "

Case 17: angka = "Tujuhbelas "

Case 18: angka = "Delapanbelas "

Case 19: angka = "Sembilanbelas "

End Select

next part 2