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