Popular Post

Posted by : niki iswanti Kamis, 28 Maret 2013

LOOPING



NIKI-ISWANTI 

Materi  hari rabu dosen nya mesran.net  STMIK BUDIDARMA MEDAN
Looping adalah perulangan
looping mempunyai  4 macam
1.       1.  Do … Until dapat dikatakan sebagai kebalikan dari Do-While. Do-Until digunakan untuk melakukan proses pengulangan selama kondisi yang dibandingkan tidak memenuhi syarat (bernilai false). Pengulangan ini akan dilakukan secara berulangulang sampai (until) kondisi memenuhi syarat (bernilai true). Bentuk sintaxnya adalah sebagai berikut :
Do Until Kondisi
Aksi1
Loop
Atau
Do Kondisi
Aksi1
LoopUntil kondisi

2.       2. Perulangan Do..While
Do … While
digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada
jumlah tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true) sampai
kondisi tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :
Do While Kondisi
Aksi1
Exit Do
Aksi2
Loop
Atau
Do Kondisi
Aksi1
Exit Do
Aksi2
Loop While kondisi
3.     3.  For … Next. Digunakan untuk mengulangi suatu perintah dalam jumlah yang telah ditentukan. Dengan menggunakan For-Next anda dapat menentukan berapa kali pengulangan akan dilakukan. Bentuk sintaxnya adalah sebagai berikut :
For cacah = Awal to Akhir
Aksi
Next
contoh program perulangan untuk menampilkan hasil kali dua bilangan menggunakan perulangan for…next

4.       4.  End While: digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada
jumlah tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true) sampai
kondisi tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :

    While kondisi
        perintah
        perintah
    End While

Contoh program looping menampil kan angka 1-10 memakai toolbox listbox memakai syntax do until

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim halaman As Byte
        halaman = 1
        Do Until halaman = 11
            ListBox1.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub
End Class
Contoh program looping menampil kan angka 1-10 memakai toolbox comboBox memakai syntax FOR

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim halaman As Byte
        For halaman = 1 To 10
            ComboBox1.Items.Add(halaman)
        Next
    End Sub
End Class

Contoh program looping  perkalian memakai toolbox listbox memakai syntax for

Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For x = 1 To 10
            Perkalian_1.Items.Add(x & " x 1 = " & x * 1)
        Next

        For x = 1 To 10
            Perkalian_2.Items.Add(x & " x 2 = " & x * 2)
        Next

        For x = 1 To 10
            Perkalian_3.Items.Add(x & " x 3 = " & x * 3)
        Next

        For x = 1 To 10
            Perkalian_4.Items.Add(x & " x 4 = " & x * 4)
        Next
    End Sub

   
End Class


Contoh program looping  menampilkan angka 10-1 memakai toolbox listbox memakai syntax END WHILE
Public Class Form6

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        ListBox1.Items.Clear()
        i = 10
        While i > 0
            ListBox1.Items.Add(i)
            i -= 1
        End While
    End Sub
End Class

Contoh program looping  membuat bilangan berpangkat memakai toolbox listbox memakai syntax do while dan FOR

Public Class latihan

    Private Sub latihan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim halaman As Byte
        halaman = 1
        Do While halaman <= 10
            bilangan.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub

    Private Sub bilangan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bilangan.SelectedIndexChanged
        Dim halaman As Byte
        halaman = 1
        Do While halaman <= 10
            pangkat.Items.Add(halaman)
            halaman = halaman + 1
        Loop
    End Sub

 
    Private Sub pangkat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkat.SelectedIndexChanged
        Dim xhasil As Double = 1
        For i = 1 To Val(pangkat.Text)
            xhasil = xhasil * bilangan.Text
        Next
        hasil.Text = xhasil
    End Sub
End Class



SELAMAT MENCOBA YAHHHH SEMOGA BERHASIL DAN JALAN PROGRAM NYA SESUAI YANG ANDA INGIN KAN……




{ 7 komentar... read them below or Comment }

- Copyright © blog niki - Date A Live - Powered by Blogger - Designed by Johanes Djogan -