Source Code Membuat Animasi Lingkaran Berwarna pada Visual Basic

Untuk membuat animasi lingkaran berwarna 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. Double klik pada Form1. Kemudian isi listing program seperti dibawah ini :

Imports System.Drawing.Drawing2D

Public Class Form6

    Dim Random As Random = New Random

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

        Dim G As Graphics = e.Graphics

        G.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

        For B As Byte = 1 To 50 'Perulangan warnanya'

            Dim Posisi As Integer = 0

            For A As Integer = 300 To 2 Step -2 'Ukuran gambar'

                Dim Warna As New Pen(Color.FromArgb(Random.Next(200, 255), Random.Next(255), Random.Next(255), Random.Next(255)), 3)

                G.DrawEllipse(Warna, Posisi + 5, Posisi + 5, A, A) 'Peletakkan nilai sumbu x dan sumbu y'

                Posisi += 1

                For X As Single = 0 To 400000 'Waktu perulangan'

                Next

            Next

        Next

    End Sub

End Class

5. Kemudian Save and Start Debugging.

Maka akan muncul seperti ini :

Sekian langkah-langkah cara membuat animasi lingkaran berwarna 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.