Artikel Terbaru

+ Follow
Join on this site

with Google Friend Connect

Belajar Visual Basic : Perintah Percabangan (BRANCHING)

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 KENDALI yang didukung oleh Visual
Basic adalah sebagai berikut:

A.   If...Then 
Gunakan  suatu  struktur  If...Then  untuk  menjalankan  suatu  pernyataan secara 
kondisional.  Anda  dapat   menggunakan  syntax  satu  baris  ataupun  syntax banyak baris.  
Syntax: 
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 satu.  
Contoh : 


Ketentuan Logika :
Logika dari program diatas adalah ketika diinput nilai lebih dari atau sama dengan 60 (
>= 60 ) maka akan menghasilkan keterangan “Anda Lulus”. 

Listing kodenya: 
Private sub cmdhitung_click() 
If txtnilai.text >=60 then  

txtket.text= "Anda Lulus"
End IF 
End Sub 


B.  If...Then...Else    
Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan yang akan
dijalankan salah satu berdasarkan kondisi yang memenuhi syarat

Syntax :
If kondisi Then
        [blok pernyataan-1]
Else 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 : 





Ketentuan Logika :  
Dari  kondisi  diatas jika untuk  menampilkan  keterangan  gagal,  kita  cukup
menambahkan kondisi yang kedua saja yaitu else. 


Listing kodenya: 
Private sub cmdhitung_click() 
If txtnilai.text >=60 then  

txtket.text= "Anda Lulus"
Else 
txtket.text= "Anda Gagal"
End IF 
End Sub

No comments

Biasakan berkomentar di blog ini yah ^_^

Copyright By Dencik Art. Powered by Blogger.