Struktur Pemilihan Dan Perulangan pada visual basic


Struktur If  Then
Struktur If –Then merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuh, tetapi jika kondisinya tidak terpenuhi maka ekspresi didalam struktur If tidak akan dijalankan dan blok If akan dilompati serta program akan melakukan tindakan berikutnya.
Bentuk penulisan dari struktur ini:
If    (kondisi) then
…….ekspresi……
Endif
Contoh:


Private sub command1_click( )
Dim NA AS Integer
If  NA >= 55  Then
Ket: “LULUS”
Endif
End sub
Struktur If – Then- Else
Struktur If – Then- Else merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi, tetapi jika kondisinya tidak terpenuhi maka ekspresi yang lain yang akan dikerjakan.
Bentuk penulisan dari struktur If – Then- Else sbb:
If ( Kondisi) Then
 …..Ekspresi 1…..
Else
…..Ekspresi 2…..
Endif
Contoh:
Dim NA AS Integer
If  NA >= 80  Then
Ket: “LULUS”
Else
Ket: “ Tidak Lulus”
Endif
End sub
Struktur Select Case
Struktur ini digunakan untuk menjalankan satu blok perintah yang jumlanya banyak atau bertingkat-tingkat.



Bentuk penulisan struktur ini:
Select case  ekspresi
Case ekspresi 1
……blok perintah 1……
Case ekspresi 2
……blok perintah 1……
Case else
……blok perintah 1……
End select
Contoh:
Private command 1_click( )
Dim hari as string
Select case hari
Case 1
Hari= senin
Case 2
Hari= selasa
Case 3
Hari=rabu
Case 4
Hari= kamis
Case 5
Hari = jumat
Case else
Hari= sabtu
End select
End sub







Private Sub Form_Activate()
Combo1.AddItem "1011"
Combo1.AddItem "1012"
Combo1.AddItem "1013"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.text=""






Private Sub Combo1_Click()
If Combo1.Text = "1011" Then
Text1.Text = "mesin cuci"
Text2.Text = 3000000
Else
If Combo1.Text = "1012" Then
Text1.Text = "lemari es"
Text2.Text = 4000000
Else
Text1.Text = "Tv Led 32"
Text2.Text = 2500000
End If
End If
end Sub



Private Sub Text3_Change()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub
Private Sub Command1_Click( )
Text6.Text = Val(Text5.Text) - Val(Text4.Text)
End Sub




Penulis : asbar pratama ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Struktur Pemilihan Dan Perulangan pada visual basic ini dipublish oleh asbar pratama pada hari Sabtu, 29 Desember 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Struktur Pemilihan Dan Perulangan pada visual basic
 

0 komentar:

Posting Komentar

Popular Posts