Cara Membuat Perulangan For dan While Sederhana Menggunakan Visual Basic 2005

 Di dalam hal ini admint ingin berbagi tentang Microsoft Visual Basic 2005 Express  Edition di dalam pembahasan ini kita membuat pengenalan tentang penggunaan Microsoft Visual Basic 2005 (VB). Cara membuat Perulangan  sederhana dengan menggunakan serta s ource kode yang digunakan VB , beberapa tahapan – tahapan sebagai berikut :

No.	Tahapan – Tahapan	Keteranagan
1.	Sediakan PC / Laptop	Sudah terinstall Sistem Operasi yang anda sukai seperti Windows 7, Windows 8 dll.
2.	Sediakan Softwere	Installkan  Microsoft Visual Basic 2005
3.	Operasikan Microsoft Visual Basic 2005	Seperti Langkah yang akan di jelaskan
4.	Runing Source code yang di buat	Pastikan telah benar semua
www.sulis04.blogspot.com

 Penjelasn :

Langsung saja buka program Microsoft Visual Basic 2005 Express  Edition yang telah dijelaskan pada artikel sebelumnya ( Cara Mengganti backgroud  ) ,kita akan membuat sebuat tampilan seperti dibawah ini :

Perulangan FOR _NEXT

Perulangan WHILE _ LOOP

Komponen yang diguanakan adalah label, ListBox, dan Tab Control seperti yang telah sedikit dijelaskan pada artikel sebelumnya ( Cara Mengganti backgroud dan Tulisan )  buat sama seperti gambar di atas.

Source code yang digunakan program diatas silakan samakan namanya pada gambar di atas :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.cbnoperator.Text = "   --Pilih Operator--   "

        Me.cbnoperator.Items.Add("+")

        Me.cbnoperator.Items.Add("-")

        Me.cbnoperator.Items.Add("x")

        Me.cbnoperator.Items.Add("/")

        Dim nilai, nilai2, nilai3, nilaix, nilaiy, D, ganjil, Ge As Integer

        nilai = 0

        For Ge = 1 To 10 Step 1

            If Ge Mod 2 = 0 Then

                cbgenap.Items.Add("Bilangan Genap")

                ListBox1.Items.Add("Bilangan Genap")

            Else

                cbgenap.Items.Add(Ge)

                ListBox1.Items.Add(Ge)

            End If

        Next Ge

        For nilai = 1 To 10 Step 1

            Cbderet.Items.Add(nilai)

        Next nilai

        nilai2 = 0

        For nilai2 = 10 To 1 Step -1

            Cbderet2.Items.Add(nilai2)

        Next nilai2

        nilai = 0

        For nilai3 = 1 To 20 Step 2

            Cbtextvb.Items.Add(nilai3 & ").  VB PROGRAMING")

        Next nilai3

        nilai = 0

        For nilaix = 10 To 100 Step 10

            cbX.Items.Add(nilaix)

        Next nilaix

        nilai = 0

        For nilaiy = 1 To 30 Step 3

            cby.Items.Add(nilaiy)

        Next nilaiy

        D = 2

        Do While D <= 40

            cb1.Items.Add(D)

            D = D + 2

        Loop

        Label13.Text = D

        ganjil = 11

        Do While ganjil <= 57

            ListBoxganjil.Items.Add(ganjil)

            Label16.Text = ganjil

            ganjil = ganjil + 3

        Loop

    End Sub

    Private Sub cbnoperator_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbnoperator.SelectedIndexChanged

        Dim x, y As New Double

        x = Val(cbX.Text)

        y = Val(cby.Text)

        If Me.cbnoperator.SelectedIndex = 0 Then

            Labelhasil.Text = x + y

        ElseIf Me.cbnoperator.SelectedIndex = 1 Then

            Labelhasil.Text = x - y

        ElseIf Me.cbnoperator.SelectedIndex = 2 Then

            Labelhasil.Text = x * y

        ElseIf Me.cbnoperator.SelectedIndex = 3 Then

            Labelhasil.Text = x / y

        End If

    End Sub

End Class

Setelah memasukan code ini mari kita running... !! maka akan tampil seperti gambar di bawah ini 

 

FOr - NEXT, while - loop

Untuk mengetahui gimana cara kerja dari pemograman java dan lainnya caranya klik cara kerja pemograman java, cara menghitung luas persegi panjang vibi.net, Cara Mengganti backgroud vibi.net , cara mengecek java di CMD, CARA MEMBUAT Getinputfromkeyword,sekian dari admint semoga bermanfaat. dan klik ilmu pengetahuan yang admint miliki terima kasih.