Aplikasi Do Loop

Konsep

Aplikasi Pengulangan Aritmatika di Visual Basic ini menggunakan konsep Do Loop, yang mana penggunaan Do Loop untuk mengeksekusi suatu blok statement dengan jumlah perulangan yang tak terhingga, ada beberapa Do...Loop statement, tetapi masing-masing mengevaluasi suatu kondisi untuk menentukan apakah melanjutkan eksekusi.

tara aplikasi ini menggunakan logika Do While..Loop dengan pengulangan angka b = 1, yakni dimana “nilai 1” akan terus dijumlah/ dikurangi dengan angka 1 sampai syarat “nilai 1” = “nilai 2” terpenuhi. Setelah itu hasil akan muncul dalam tampilan MsgBox.

Tutorial 1

 Listing Code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim nilai 1, nilai 2, hasil As Integer

        Dim i As Integer

        hasil = 0

        nilai 1= Val(TextBox1.Text)

        nilai 2 = Val(TextBox2.Text)

        i = 1

        Do While i <= nilai 2

            hasil = nilai 2 – nilai 1

            i = i + 1

        Loop

        MsgBox("Hasil = " & hasil, vbOKOnly + vbInformation, "Hasil")

 Nilai=suku

 Hasil = nilai 2 – nilai 1

    End Sub

Pertama-tama agar variabel nilai, suku dan hasil terdefinisi di Form maka digunakan fungsi Dim lalu As Integer. Dengan memasukkan fungsi val pada nilai dan suku agar terdefinisi sebagai angka. Untuk Do While pengulangan akan terus berlanjut dengan i = 1 sampai kondisi benar yakni nilai 1 = nilai 2.

Tutorial 2

Cara Pembuatan

No	Komponen	Properties	Keterangan
1	Button1	Name Text	Button1 Hitung
2	Label1	Name Text	Label1 Nilai 1
3	Label2	Name Text	Label2 Nilai 2
4	Textbox1	Name Text	Textbox1
5	Textbox2	Name Text	Textbox2

Hal yang pertama dilakukan adalah mendefinisikan variabel dengan memasukkan listing dibawah :

Dim nilai 1, nilai 2, hasil As Integer

        Dim i As Integer

        hasil = 0

        nilai 1= Val(TextBox1.Text)

        nilai 2 = Val(TextBox2.Text)

        i = 1

Lalu masukkan fungsi Do Loop nya :

Do While i <= nilai 2

            hasil = nilai 2 – nilai 1

            i = i + 1

        Loop

        MsgBox("Hasil = " & hasil, vbOKOnly + vbInformation, "Hasil")

 Nilai=suku

 Hasil = nilai 2 – nilai 1

Cara Pemakaian

1.      Buka program Pengulangan Aritmatika

2.      Masukkan angka pertama yang akan dihitung pengulangan dengan x+1 pada Textbox Nilai 1 dan angka ke-2 pada Textbox Nilai 2

3.      Setelah penginputan nilai telah dilakukan, klik tombol “Hitung”

Maka hasil dari banyaknya pengulangan x=x+1 sehingga kondisi “Nilai 1” = “Nilai 2” terpenuhi akan muncul pada Msgbox.

FLOWCHART

Gambar Flowchart Do Loop

keterangan:

1. di mulai dengan start

2. masukan first number

3. masukan second number

4. maka hasilnya akan keluar dengan rumus x=x+1

5. jika x=y-1 maka program selesai dan akan menampilkan hasil perhitungan, jika tidak maka akan kembali ke rumus lagi.

6. program berakhir

aplikasi ini dapat didownload di sini, selamat menikmatinya