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 Form10

    Dim i As Integer

    Dim random As Random = New Random

    Dim brush As SolidBrush = New SolidBrush(Color.DarkMagenta)

    Dim xPoint() As Integer = {55, 67, 109, 73, 83, 55, 27, 37, 1, 43}

    Dim yPoint() As Integer = {0, 36, 36, 54, 96, 72, 96, 54, 36, 36}

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

        Dim Grp_Obj As Graphics = e.Graphics

        Dim star As GraphicsPath = New GraphicsPath

        Grp_Obj.TranslateTransform(140, 140)

        For i = 0 To 8 Step 2

            star.AddLine(xPoint(i), yPoint(i), xPoint(i + 1), yPoint(i + 1))

        Next

        star.CloseFigure()

        For N As Byte = 1 To 10

            For i = 0 To 8

                Grp_Obj.RotateTransform(20)

                brush.Color = Color.FromArgb(random.Next(200, 255), random.Next(255), random.Next(255), random.Next(255))

                Grp_Obj.FillPath(brush, star)

                For x As Single = 0 To 5000000

                Next

            Next

        Next

    End Sub

    Private Sub Menggambar_Sekumpulan_Bintang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        End

    End Sub

End Class

 6. Lalu save and start debugging, Setelah debugging

  

 7. Maka akan tertampil gambar seperti ini dibawah ini.

 8. Selesai