Langsung ke konten utama

Contoh Latihan 1-7 Menggunakan Perulangan (Struktur For – Next dan Nested For – Next, While – End While)

Latihan 1 Menggunakan For ... Next


Berikut Source Codenya :

Public Class latihan1
    'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        For x = 1 To 10
            ListBox1.Items.Add(x)
        Next x
    End Sub
End Class

Latihan 2 Menggunakan For ... Next


Berikut Source Codenya :

Public Class latihan2
    'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        For x = 10 To 1 Step -1
            ListBox1.Items.Add(x)
        Next x
    End Sub
End Class

Latihan 3 Menggunakan For ... Next


Berikut Source Codenya :

Public Class latihan3
    'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y, i, hasil As Integer
        x = Val(TextBox1.Text)
        y = Val(TextBox2.Text)
        hasil = 1
        For i = 1 To y
            hasil = hasil * x
            On Error Resume Next
            TextBox3.Text = Str(hasil)
        Next
    End Sub
End Class

Latihan 4 Menggunakan For ... Next


Berikut Source Codenya :

Public Class latihan4
    'nadiahtami 2017230007'
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To 7
            ListBox1.Items.Add(WeekdayName(i))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 5 Menggunakan Nested For ... Next


Berikut Source Codenya :

Public Class latihan5
    'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        For x = 1 To 3
            For y = 1 To 2
                ListBox1.Items.Add(x & y)
            Next y
        Next x
    End Sub
End Class

Latihan 6 Menggunakan While – End While


Berikut Source Codenya :

Public Class latihan6
        'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        x = 1
        While x <= 10
            ListBox1.Items.Add(x)
            x = x + 1
        End While
    End Sub
End Class

Latihan 7 Menggunakan While – End While


Berikut Source Codenya :

Public Class latihan7
        'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, i As Integer
        x = Val(TextBox1.Text)
        i = 1
        x = x + 1
        ListBox1.Items.Clear()
        While i < 11
            If x Mod 2 = 0 Then
                ListBox1.Items.Add(x)
                i = i + 1
            End If
            x = x + 1
        End While
    End Sub
End Class

Komentar

Posting Komentar

Postingan populer dari blog ini

Materi Percabangan Struktur IIF dan Struktur Select-Case

Percabangan (IIF)          Bentuk penulisan dari struktur If–Then–Else adalah tegak atau vertikal. Bentuk semacam ini tentu banyak memakan baris atau terulang panjang, apalagi jika bentuknya Nested If.        Untuk mengatasi kekurangan tersebut, dapat menggunakan struktur IIF yaitu struktur If–Then-else yang bentuknya datar atau horisontal. Bentuk penulisan IIF butuh variabel untuk menampung jawabannya. Dari segi kecepatan struktur IIF lebih cepat prosesnya dibandingkan dengan struktur If – Then – Else. Aturan Penulisannya adalah : 1. Expresi (kondisi)    Nilai = IIF (Ekspresi1, Nilai benar, Nilai Salah) 2. Lebih dari satu kondisi    Nilai = IIF (Ekspresi1, Nilai benar, IIF(Ekspresi1,Nilai benar, Nilai salah)) dan seterusnya... Keterangan : *kondisi: Berisi perbandingan antara satu variabel/konstanta dengan variabel/konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang...
Posting Komentar
Baca selengkapnya

Variabel dan Tipe Data Visual Basic .NET

- Mengenal Variabel dan Tipe Data Visual Basic .NET - Deklarasi Variabel Variabel yakni objek yang dapat menerima pemasukan nilai-nilai tertentu. Dalam bahasa pemrograman fungsi variabel penting sekali untuk menampung nilai dan mengalokasikan untuk keperluan tertentu. Di Visual Basic .NET  cara untuk mendeklarasikan variabel sangat mudah, yakni dengan menggunakan perintah Dim. Contoh mendeklarasikan variabel di Visual Basic .NET yaitu: Dim NamaVariabel As tipe data Contoh: Dim Nama, Jurusan As String Dim Nilai As Int 'Pemberian Nilai pada Variabel' Nama =”Nadiah Tami” Jurusan =”Teknik Informatika” Nilai = 10 Kata Dim yakni kata yang digunakan untuk mendeklarasikan nama variabel. Ketika perintah Dim dieksekusi oleh compiler maka perintah Dim tersebut meminta tempat di memori untuk menyimpan data-data yang akan dialokasikan pada variabel tersebut.  Variabel Lokal dan Variabel Member Variabel Lokal yakni variabel yang dideklarasikan didalam prosedur atau event. ...
Posting Komentar
Baca selengkapnya

Materi Mengenai Perulangan (For .. Next, Nested For .. Next, dan While .. End While)

Struktur FOR .... NEXT     Struktur for ... next digunakan untuk mengulang perintah dalam jumlah yang sudah ditentukan. Pada struktur for ... next kita tidak perlu menuliskan kondisi yang akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel penghitung.   Nilai variabel penghitung akan secara otomatis bertambah atau berkurang setiap kali suatu pengulangan dikerjakan. Bentuk Struktur for ... next :              For counter =  awal to akhir   step pertambahan                          …ekspresi…             next counter Keterangan : Ø    Counter: variabel integer yang digunakan untuk melakukan proses pengulangan Ø    Awal: nilai awal suatu variabel untuk menentukan awal pengula...
Posting Komentar
Baca selengkapnya