Sabtu, 17 Mei 2008

Mengontrol Alur Programming

7.1 Operator Kondisi

Untuk mengontrol alur program dalam Visual Basic, kita bisa menggunakan bermacam-macam operator kondisi. Pada dasarnya, operator kondisi ini mirip dengan operator aritmatik. Operator kondisi merupakan alat yang sangat hebat, dengan operator tersebut kita dapat melakukan perbandingan untuk memutuskan tindakan selanjutnya. Tabel dibawah ini menunjukan operator kondisi yang digunakan dalam Visual Basic.


OPERATOR
MAKSUD
=
Sama dengan
>
Lebih besar
<
lebih kecil
>=
Lebih besar sama dengan
<=
Lebih kecil sama dengan
<>
Tidak sama dengan


Anda juga dapat membandingkan string dengan menggunakan operator tersebut. Akan tetapi ada aturan-aturan yang telah ditetapkan untuk membandingkan nilai string. Huruf besar lebih kecil dibandingkan huruf kecil, "A"<"B"<"C"...<"Z" dan angka lebih kecil dibandingkan huruf.

7.2 Operator Logika

Sebagai tambahan untuk operator kondisi, ada beberapa operator logika yang ditambahkan pada Visual Basic sehingga memudahkan pembuatan alur program.


OPERATOR
MAKSUD
And
Keduanya harus bernilai True
or
Salah satu saja yang bernilai True
Xor
Salah satu boleh bernilai True tetapi tidak boleh keduanya bernilai True
Not
Bernilai False



7.3 Pernyataan If.....Then.....Else

Untuk mendapatkan hasil yang baik dalam mengontrol alur program, sebaiknya kita menggunakan pernyataan if...then...else digabungkan bersama operator kondisi dan operator logika.
Syntak umum untuk pernyataan if...then...else adalah
If kondisi Then
VB expressions
Else
VB expressions
End If
Pernyataan If..Then..Else harus diakhiri dengan " End If". Pernyataan Else tidak selalu digunakan, ada kalanya kita tidak membutuhkan pernyataan tersebut.
Contoh:
Private Sub OK_Click()
hrgbrg = txtHargaBarang
jmlbrg = txtJumlahBarang
hrgtotal = hrgbrg * jmlbrg
If hrgtotal >= 5000000 And jmlbrg >= 10 0 Then
diskon = 300000
Else
diskon = 0
End If
hrgtotal=hrgtotal-diskon
End Sub

7.4 Select Case

Jika anda mempunya banyak kondisi, pernyataan If..Then..Else kurang efektif. Untuk kondisi yang banyak pernyataan Select Case lebih baik.
Syntax :
Select Case ekspresi
Case nilai1
VB statement
Case nilai2
VB Statement
Case nilai3
VB statement
Case nilai4
.
.
.
Case Else
VB Statement

End Select
Type data pada expression harus sama dengan nilai pada Case.

7.5 Contoh

Contoh 7.5.1
Dim Nilai As String
Private Sub Hitung_Click( )
Nilai = txtNilai.Text
Select Case Nilai
Case "A"
result.Caption="Sangat Baik"
Case "B"
result.Caption="Baik"
Case "C"
result.Caption="Cukup"
Case Else
result.Caption="Buruk"
End Select

End Sub
Catatan : variable nilai adalah string sehingga nilai yang ada pada case seperti "A" adalah tipe data string juga.
Contoh 7.5.2
Dim Nilai As Single
Private Sub Hitung_Click()
Nilai = txtNilai.Text

Select Case Nilai

Case Is >= 85
comment.Caption = "Sangat Bagus"Case Is >= 70
comment.Caption = "Bagus"
Case Is >= 60
comment.Caption = "Rata-Rata"
Case Is >= 50
comment.Caption = "Cukup"
Case Else
comment.Caption = "Blo'on !!!"

End Select
End Sub
Keyword Is disini untuk menentukan kondisi. Biasa digunakan untuk data numeric.
Contoh 7.5.3
Dim Nilai As Single
Private Sub Hitung_Click()

Nilai = txtNilai.Text

Select Case Nilai

Case 0 to 49
comment.Caption = "Blo'on !!!"
Case 50 to 59
comment.Caption = "Rata-Rata"
Case 60 to 69
comment.Caption = "Diatas Rata-rata"
Case 70 to 84
comment.Caption = "Bagus"
Case Else
comment.Caption = "Sangat Bagus"

End Select
End Sub


5.0
Agregar a facebook

Artikel Terkait:

3 komentar:

infoGue on 6 Juni 2008 13.27 mengatakan...

artikel anda bagus dan menarik, artikel anda:
http://programing.infogue.com/
http://programing.infogue.com/mengontrol_alur_programming

anda bisa promosikan artikel anda di infogue.com yang akan berguna untuk semua pembaca. Telah tersedia plugin/ widget vote & kirim berita yang ter-integrasi dengan sekali instalasi mudah bagi pengguna. Salam!

Anonim mengatakan...

Bagus smga berguna buat rakyat indonesia, cuman biar materinya bisa di download dan program 2 yg sederhana buat latihan . merdeka indonesia

Anonim mengatakan...

http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/24.gif

Poskan Komentar

 

Recent Comment

Pengikut