TI POLITALA

PEMROGRAMAN VISUAL
PERULANGAN

A.Perulangan Pertama

1. Setelah dibuka visual studionya, kemudian klik new project. Project merupakan kerangka dasar aplikasi yang menentukan jenis aplikasi yang akan dibuat.  Dan pada bagian new project pilih Bahasa Visual basic, Project type: Windows dan temples :Windows From Application. Dan kemudan isi nama untuk nama project yang anda buat .lalu klik OK.

2. Sebelum melakukan kodingan nya, kita harus mengisi bagian pada form desain seperti gambar di bawah ini.

Tapi sebelumnya atur dulu seperti table di bawah ini:

No.	Object	Property	Nilai
1.	form	Text	Program Perulangan Teks
2.	Label1	Text	Tuliskan Teks
3.	Label2	Text	Jumlah Pengulangan
4.	TextBox1	Name	Txttulis
5.	TextBox2	Name	Txtjumlah
6.	Button	Name Text	Btnproses Proses
7.	Button2	Name Text	Btnclear Clear
8.	Button3	Name Text	Btnkelluar Keluar
9	listBox1	Name Text	Listbox List

3.      Sekarang jika ingin membuat codingannya double klik Button Keluar. , kemudian buatlah program yang sesuai dengan tampilan yang anda buat. Seperti contoh:

Public Class Form1     Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click         End     End Sub

4.      Selanjutnya jika ingin membuat codingan di bagian Proses sama seperti di atas double tab Button proses. Kemudian buatlah program yang sesuai seperti contoh di bawah ini:

Private Sub btnproses_Click(sender As Object, e As EventArgs) Handles btnproses.Click         Dim tulis As String         Dim jumlah As Integer         tulis = txttulis.Text         jumlah = txtjumlah.Text         For i = 1 To jumlah             ListBox1.Items.Add(tulis)         Next i     End Sub

Perhatikan: pada For itu sendiri digunnakan untuk perulangan kata yang sudah kita inputkan di awal. Contohnya seperti gambar di bawah ini:

5.      Jika sudah selesai melakukan codingan di Button Proses, selanjutnya Kita ke Button Clear. Button clear sendiri berfungsi sebagai menghaput kalimat yang sudah anda inputkan agar bisa menginputkan kembali kalimat yang ingin anda inputkan. Jika ingin membuat codingan nya ikuti seperti cara di bawah ini:

Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click         txttulis.Text = ""         txtjumlah.Text = ""         ListBox1.Items.Clear()     End Sub End Class

B. Perulangan Ke-2

1. Langkah pertama pastikanlah buka aplikasi visual studio dan jika ingin memulai sebuah project sama cara nya yang sudah saya jelaskan di Perulangan Teks. Jika ingin membuat sebuah codingan terlebih dahulu kita membuat sebuah desaign di form desaign seperti contoh di bawah ini:

2. Kemudian Atur desaign tersebuh seperti table di bawah ini:

No.	Object	Property	Nilai
1.	Button1	Text Name	For Next Btnnext
2.	Button2	Text Name	Do While Btnwhile
3.	Button3	Text Name	Do Until Btnuntil
4.	ListBox1	Name	Listbox1

Jika selesai di atur di properties, tampilannya akan terubah menjadi sepert di gambar.

3. Jika kalian ingin membuat sebuah codingan di Button1, double tab for next kemudian coding seperti gambar di bawah ini:

 

Public Class Form1     Private Sub btnnext_Click(sender As Object, e As EventArgs) Handles btnnext.Click         listbox1.Items.Clear()         For i = 1 To 10             listbox1.Items.Add("For Next: " & i)         Next     End Sub

 
4. Jika ingin membuat codingan di Button2, sama seperti cara no.3 double tab Do While kemudian lakukan juga seperti perintah di bawah ini:

Private Sub btnwhile_Click(sender As Object, e As EventArgs) Handles btnwhile.Click         listbox1.Items.Clear()         Dim i As Integer         Do While i <= 10             listbox1.Items.Add("Do While: " & i)             i = i + 1         Loop     End Sub

Perhatiakan: Do While merupakan sebuah proses pengulangan dalam kondisi benar/true. Jadi jika nilai pada sebuah kondisi benar/true maka proses akan terus berulang dan akan berhenti jika nilai pada sebuah kondisi adalah salah /false.

5. Selanjutnya jika ingin membuat codingan di Button3, sama seperti cara sebelumnya double tab Do Until kemudian lakukan juga seperti perintah di bawah ini:

Private Sub btnuntil_Click(sender As Object, e As EventArgs) Handles btnuntil.Click         listbox1.Items.Clear()         Dim i As Integer = 0         Do Until i > 10             listbox1.Items.Add("Do until:" & i)             i = i + 1         Loop     End Sub End Class

Perhatikan: Do until sebenernya sama dengan Do While, bedanya Do until dengan menggunakan kondisi false/salah yang berarti proses akan terus berulang jika kondisi tetap salah. 

Ingin melihat hasil dari project yang anda kerjakan bisa klik START atau klik F6 pada keyboard. Dan beginilah hasilnya: