Program Menampilkan Animasi

1. Buka program Microsoft Visual Studio 2010

Dengan tampilan seperti berikut :

2. Klik file – new – project

3. Lalu ketik nama project dan pilih lokasi untuk penyimpanan file dan OK

4. Saat klik Ok akan keluar tampilan form.

  

5. Klik double klik pada form dengan linsting program :

Imports System.Drawing.Drawing2D

Public Class Form9

    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 10 'untuk melakukan perulangan

            Dim Posisi As Integer = 0

            For A As Integer = 300 To 2 Step -2

                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)

                Posisi += 1

                For X As Single = 0 To 400000

                Next

            Next

        Next

    End Sub

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

    End Sub

End Class

 6. Lalu save and start debugging, Setelah debugging

  

 7. Maka akan tertampil gambar seperti ini dibawah ini.

 8. Selesai