220 likes | 493 Views
LOOPING dan array. Yoni, M. Kom. Mengenal Kondisi Percabangan, Kondisi Perulangan, dan ARRAY. Kondisi Percabangan. Kondisi percabangan yakni suatu kondisi yang hanya dapat dikerjakan karena memenuhi kriteria Bentuk kondisi percabangan yang dapat ditemui antara lain: If……..End If
E N D
LOOPING dan array Yoni, M. Kom
Mengenal Kondisi Percabangan, Kondisi Perulangan, dan ARRAY
Kondisi Percabangan Kondisipercabanganyaknisuatukondisi yang hanyadapatdikerjakankarenamemenuhikriteria Bentukkondisipercabangan yang dapatditemuiantara lain: If……..End If If……..Else……..End If If……..ElseIf……End If If……..ElseIF…...Else……..EndIF
KondisiPercabangan IF (Kondisi) Then Statement Benar IF (Kondisi) Then Statement Benar Statement Benar Else Statement Salah Statement Salah End IF IF (Kondisi) Then Statement Benar Statemen Benar End IF
KondisiPercabangan IF (Kondisi) Then Statement Benar StatemenBenar Elseif(Kondisi) Then Statement Benar Statement Benar End IF IF (Kondisi) Then Statement Benar Statemen Benar Elseif(Kondisi) Then Statement Benar Elseif Statement Benar Elseif Else Statement Salah Statement Salah End IF
Contoh Program Percabangan: If…EndIf Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = “pemrograman" Then TextBox2.Text = “vb.net" End If End Sub
Contoh Program Percabangan: If…EndIf Bila program tersebut dijalankan, maka hasilnya adalah :
Contoh Program Percabangan : If..Else..EndIf Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = “pemrograman" Then TextBox2.Text = “vb.net" Else TextBox2.Text = "siapa ya?" End If End Sub
Contoh Program Percabangan : If..Else..EndIf Bila program tersebut dijalankan, maka hasilnya adalah :
Contoh Program Percabangan : If..Else..EndIf Bila program tersebut dijalankan, maka hasilnya adalah :
Kondisi Perulangan Kondisi dimana Listing Program akan diulang-ulang Jika Kondisinya terpenuhi
Macam Perulangan For index = start To end [Step step] [statements] [Exit For] [statements] Next [index] Do [{While | Until} condition ] [statements] [Exit Do] [statements] Loop Do [statements] [Exit Do] [statements] Loop [{While | Until} condition] While condition [statements] End While
Contoh Program KondisiPerulangan : While……End While Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = Val(TextBox1.Text) While i < 5 MsgBox("a") End While End Sub
Contoh Program Kondisi Perulangan : While……End While Bila program tersebut dijalankan, maka hasilnya adalah : ?
Contoh Program Kondisi Perulangan : While……End While Bila program tersebut dijalankan, maka hasilnya adalah : …
Contoh Program Kondisi Perulangan : While……End While Program ini akan terus menghasilkan Message box, karena code program yang terkait Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = Val(TextBox1.Text) While i < 5 MsgBox("a") End While End Sub Membuat variabel i untuk menampung isi textbox1 dan diubah ke format angka Selama i lebih kecil dari 5 Maka terus akan muncul messagebox
array • Daftar data sejenis yang diindeks. Potongan data pertama yang disimpandalam array diberiposisiindeks 0. Potonganberikutnyaposisiindeks 1 danseterusnya. • Sintaksdeklarasi array adalah : TipeJangkauanNamaArray(Ukuran) As Tipe Data • TipeJangkauanmenentukanbagianmanadari program anda yang dapatmengakses Array. Contoh : Dim, Public, Private.
Contoh array • Dim arrNama(5) as String • MemasukkandanMemanggil Data dari Array NamaArray(indeks) = Nilai Contoh : arrNama(5) = “Revalina”
Contoh Program Array Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim arrNama(3) As String arrNama(0) = "Revalina" arrNama(1) = "Budi" arrNama(2) = "Rina" arrNama(3) = "Agus" Dim listNama As String For Each listNama In arrNama lstNama.Items.Add(listNama) Next End Sub
TambahkanTombolHapus • TambahkanTombol Exit