While Wend Program

Konsep Program Aplikasi While Wend

While wend adalah suatu perintah perulangan yang digunakan pada software visual basic. Penggunaan while wend ini sama dengan fungsi do loop yang mana fungsi dari do loop adalah mengerjakan satu atau lebih statement. While wend digunakan untuk melakukan perulangan pada suatu statement selama statement itu benar dengan cara ketika statement itu sampai ke wend maka oleh wend dikembalikan ke while, begitu seterusnya jika statementnya benar, jika statement tersebut tidak benar atau salah maka akan dihentikan oleh wend. Di mana format kode pembuatan fungsi ini adalah sebagai beriktu:

While kondisi

Statement

Wend

Tujuan dari program aplikasi ini adalah memudahkan pengguna menghitung fungsi arimatika. Program aplikasi yang kelompok kami buat adalah perhitungan aritmatika dengan cara memasukan first number yang berfungsi sebagai angka pertama, kemudian masukan second number yang berfungsi sebagai pembatas angka terakhir dan memiliki peran sebagai bilangan yang dijumlahkan dengan first number tadi. Maka jumlah yang muncul pada textbox 3 adalah total dari penjumlahan fisrt number dan second number tersebut. Sebagai contoh, langkah pertama masukan angka 1 pada textbox 1 dan masukan angka 3 pada textbox 2 lalu tekan tombol hitung, maka hasil yang muncul pada textbox 3 adalah 15. Dari manakah didapatkannya angka 15? Berikut penjelasan dan penjabarannya:

Angka pertama 1 dan angka kedua adalah 3. Maksudnya adalah penjumlahan antara 1-3 dengan menjumlahkan angka 1 sampa 3 dengan angka akhir yaitu 3. Sehingga penjabarannya dapat  diperoleh dengan (1+3) + (2+3) + (3+3) = 15.

Sehingga dapat disimpulkan bahwa konsep dari program aplikasi ini adalah perhitungan antara angka pertama sampai angka kedua dengan menjumlahkan antara angka pertama satu-satu dengan angka akhir (kedua) lalu dijumlahkan hasil dari masing-masing angka tersebut. Penjelasan dan contohnya telah dijelaskan di atas. 

TUTORIAL WHILE WEND

1.     Buka program .exe, maka akan keluar program while wend penjumlahan dengan pengulangan angka.

2.    Input data angka pada  kolom textbox awal dan kolom textbox akhir, pastikan kolom terisi.

3.    Klik pada button hitung untuk mendapatkan hasil perulangan penjumlahan pada angka yang dimasukkan di kolom satu dan dua.

4.    Klik button reset untuk mengosongkan kolom yang ada dan dapat diisi dengan data angka yang berbeda.

5.    Klik exit untuk keluar dari program.

TUTORIAL PEMBUATAN WHILE WEND

1.     Buka form baru pada program, lalu masukkan button, textbox, dan label hingga seperti tampilan berikut

2.    Pada button 1 klik dua kali lalu masukkan listing berikut, dengan tujuan jika button 1 di klik akan muncul hasil perhitungan di kolom textbox3:

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

        Dim awal, akhir As Integer

        Dim jml As Single

        awal = CInt(TextBox1.Text)

        akhir = CInt(TextBox2.Text)

        jml = 0

If TextBox1.Text = Nothing Then

            MsgBox("Data awal belum diisi", MsgBoxStyle.Critical, "hayoo lohh")

        ElseIf TextBox2.Text = Nothing Then

            MsgBox("Data akhir belum diisi", MsgBoxStyle.Critical, "hayoo lohh")

        ElseIf TextBox2.Text = Nothing And TextBox1.Text = Nothing Then

            MsgBox("tolong isikan data awal dan akhir", MsgBoxStyle.Critical, "hayoo lohh")

        ElseIf TextBox2.Text = TextBox2.Text And TextBox1.Text = TextBox1.Text Then

            While (awal <= akhir)

                jml = (jml + awal) + akhir

                awal = awal + 1

            End While

            TextBox3.Text = jml

        End If

    End Sub

3.       Pada button 2 klik dua kali lalu masukkan listing berikut, dengan tujuan jika button 2 di klik akan mengosongkan ketiga kolom textbox:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub  

4.       Pada button 3 klik dua kali lalu masukkan listing berikut, dengan tujuan jika button 3 di klik, program akan menutup:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

    End Sub

 FLOWCHART WHILE WEND

Gambar Flowchart Program Aplikasi dengan Fungsi While Wend

Keterangan flowchart di atas adalah sebagai berikut:

1.     Program dimulai dengan start pada saat membuka program aplikasi

2.    Kemudian masukan first number sebagai nilai a

3.    Jika first number yang dimasukan datanya valid maka masukan second number, jika data tidak valid maka masukan kembali first number

4.    Setelah memasukan second number, jika data yang dimasukan valid maka akan dilanjutkan pada proses perhitungan, jika data tidak valid maka masukan kembali first number

5.    Kemudian jika angka a=b maka proses akan berhenti dan hasil akan keluar, jika a=b maka akan kembali pada perhitungan kembali

6.    Setelah didapat hasilnya maka pilih exit dan program berakhir

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