Source Code Animasi dengan Kontrol For-Next [100%]

Untuk membuat animasi dengan kontrol for-next [100%] dapat mengikuti langkah-langkah berikut ini :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.

Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih ProgressBar dan Button.

Kemudian, gantikan nama Button1 menjadi "Proses".

Maka akan tampak seperti gambar dibawah ini :

5. Double klik pada Button1. Kemudian isi listing program seperti dibawah ini :

Public Class Form2

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

        With ProgressBar1

            .Minimum = 0

            .Maximum = 1000

            For N As Integer = .Minimum To .Maximum

                .Value = N

                Me.Text = "Program animasi dengan" & " kontrol for-next [ " & Int(N / 10) & "%]"

            Next

        End With

    End Sub

End Class

6. Kemudian Save and Start Debugging.

7. Kemudian Klik "Proses", maka akan muncul seperti ini :

Sekian langkah-langkah cara membuat animasi dengan for-next [100%] pada Visual Basic. Semoga Bermanfaat ^^

Mohon kritik dan sarannya ya ^^

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.