Dasar Visual Basic Part III

Selamat malam Blogger,

Agak lama saya nulis lanjutan tutorial [Belajar Bareng] Dasar Visual Basic Part III ini, soalnya saya lagi sibuk nyiapin laporan kerja praktek saya hehehe, yang wajib diambil sebagai syarat pengambilan skripsi (Tugas Akhir).

Oke sahabat N3 semua, setalah membahas tentang fungsi IF..THEN atau Perintah Bersyarat pada Tutorial Part II kemarin, sekarang kita masuk pada Tutorial Part III yaitu Pengulangan atau Looping.

Intruksi pengulangan ini, memungkinkan program untuk melakukan pengulangan selama kondisi pengulangan itu sendiri memenuhi syarat.

*Beberapa Instruksi Pengulangan Pada Visual Basic:

• For … Next
• Do While … Loop
• Do … Loop While
• Do Until … Loop
• Do … Loop Until

*Untuk tutorial kali ini saya hanya akan membahas tiga macam bentuk pengulangan yaitu:

• For … Next
• Do While … Loop
• Do … Loop While

Yang dimana penggunaan ketiganya digunakan sesuai dengan kondisi yang diperlukan. Untuk mempermudah pemahaman, mari kita buat bersama programnya.

*Langkah-Langkah Pembuatan Program "Menghitung Nilai Rata-Rata":
Buat 1 Form
Tambahkan pada Form 2 buah Comand Button
Beri Nama Button 1 “Do Loop While dan Do While Loop” >> Pengulangan Menggunakan Do Loop While dan Do While Loop (Lihat Gambar 1)

Gambar 1

Beri Nama Button 2 “For Next” >> Pengulangan Menggunakan For..Next (Lihat Gambar 2)

Gambar 2

Tulis Kode Berikut Pada Button 1: (Lihat Source Code)
Source Code Button 1

Public Class Form1

        'Name: Janggawareng
        'Home-Base: www.nyit-nyit.net
        'Date: 14 December 2011 (09:11 PM)
        'Desc: VB Tutorial Part 3 "Program Menghitung Nilai Rata-Rata"

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

                '//Pendeklarasian Tipe data & Variabel//
                Dim i As Integer, n As Integer, b As Integer
                Dim total As Single, rata As Single, tanya As String

                Try
                        '//Memainkan Looping 1//
                        Do
                                i = 1
                                n = InputBox("Berapa Data Yang Akan Dihitung??")

                                '//Memainkan Looping 2//
                                Do While i <= n
                                        b = InputBox("Masukan Nilai ke- " & i & " =")
                                        total = total + b
                                        i = i + 1
                                Loop

                                '//Proses Perhitungan//
                                rata = total / n

                                '//Output//
                                MsgBox("Nilai Rata-Ratanya = " & rata)

                                tanya = InputBox("Apakah Anda Akan Menghitung Lagi? [Y/N]")

                                '//Memainkan Upper Case//
                        Loop While UCase(tanya) = "Y"

                Catch ex As Exception
                End Try
        End Sub

Tulis Kode Berikut Pada Button 2: (Lihat Source Code)

Source Cose Button 2

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

                '//Pendeklarasian Tipe data & Variabel//
                Dim i As Integer, n As Integer, b As Integer
                Dim total As Single, rata As Single

                Try
                        n = InputBox("Berapa Data Yang Akan Dihitung??")

                        '//Memainkan For...Next//
                        For i = 1 To n
                                b = InputBox("Masukan Nilai ke- " & i & " =")
                                total = total + b
                        Next i

                        '//Proses Perhitungan//
                        rata = total / n

                        '//Output//
                        MsgBox("Nilai Rata-Ratanya = " & rata)

                Catch ex As Exception
                End Try
        End Sub
End Class

Lalu lakukan proses Debug (Tekan F5)

Jika melihat code keduanya Button 1 dan Button 2, maka akan terlihat jelas perbedaannya penulisan dan kemudahan penulisan.
Walaupun tujuan pembuatan programnya sama yaitu program "Menghitung Nilai Rata-Rata".

Semoga dapat membantu teman-teman N3 semua, Mohon maaf untuk semua kekurangannya pada setiap tutorial yang saya buat.


Visual Basic Part I
Visual Basic Part II
Visual Basic Part III