Source Code Membuat Animasi Bintang Berwarna pada Visual Basic

Untuk membuat animasi bintang 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 Form7

    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

5. Kemudian Save and Start Debugging.

Maka akan muncul seperti ini :

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