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