Pada program ini anda dapat melihat perubahan warna bintang dengan membentuk sebuah lingkaran. Untuk menjalankannya anda dapat mengikuti langkah-langkah berikut
1) Tampilkan terlebih dahulu sebuah Form dengan cara membuka
aplikasi Microsoft Visual Studio 2010 dan pilih menu File - New Project -
Visual Basic -Windows Forms Application - OK. Setelah itu akan muncul Form
seperti dibawah ini
2) Untuk program ini anda tidak perlu menambah apapun
didalam Form hanya saja perlu mendoule klik di "Form" untuk
memasukkan linsting program berkut
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
3) Dan untuk menjalankan program anda harus memilih
"Start Debugging" atau menekan "F5" pada tombol keyboard.
Hasil pun akan terlihat seperti tampilan dibawah ini
4) Selesai
#Selamat mencoba dan semoga berhasil :)
Tidak ada komentar:
Posting Komentar