by

Cara Membuat Lingkaran di VB.NET

Pernahkah Anda bertanya dan memikirkan bagaimana cara membuat gambar berbentuk lingkaran menggunakan bahasa Visual Basic VB.NET? Dengan menggunakan Visual Studio dan bahasa VB.NET ternyata kita bisa membentuk lingkaran dengan sangat mudah.

Akan tetapi yang perlu Anda ketahui, gambar lingkaran sejatinya juga adalah gambar persegi, kenapa bisa begitu? Karena data di komputer gambar terutama dua dimensi, yang dapat dibaca adalah koordinat (X,Y) / (Panjang,Lebar). Sehingga konsep membuat lingkaran menggunakan bahasa Visual Basic .NET juga tidak jauh berbeda, yaitu membentuk persegi sebelum membentuk lingkaran. Kurang jelas? Coba lihat gambar ilustrasi berikut:

Konsep Gambar Lingkaran di Komputer
Konsep Gambar Lingkaran di Komputer

 

Anda lihat gambar diatas, dalam ilmu komputer khususnya yang membahas pengolahan citra dimensi, sebenarnya gambar lingkaran terbentuk juga dari gambar persegi, akan tetapi warna pixel pada bagian diluar lingkaran dibuat menjadi transparan sehingga terlihat bentuknya seperti bentuk lingkaran, padahal sejatinya adalah gambar persegi yang terlihat seperti lingkaran karena ada kombinasi warna, dan tentu saja algoritma yang membuatnya menjadi bentuk lingkaran.

Untuk membuat lingkaran di Visual Basic VB.NET, silakan Anda buat sebuah project dan sebuah form, lalu tambahkan sebuah “Button” dan pada event click, tambahkan kode berikut:

Lingkaran Metode 1:

[vb]Dim OurPen As Pen
OurPen = New Pen(Drawing.Color.DarkGray, 8)
Dim MyGraphics As Graphics = Me.CreateGraphics
Dim MyRectangle As New Rectangle

MyRectangle.X = 40
MyRectangle.Y = 20
MyRectangle.Width = 300
MyRectangle.Height = 300

MyGraphics.DrawEllipse(OurPen, MyRectangle)[/vb]

Lingkaran Metode 2:

[vb]Dim OurPen As Pen
OurPen = New Pen(Drawing.Color.Yellow, 5)
Dim MyGraphics As Graphics = Me.CreateGraphics
MyGraphics.DrawEllipse(OurPen, 360, 20, 300, 300)[/vb]

Selain membuat lingkaran, Anda juga dapat membuat bentuk ellipse, untuk kodenya adalah berikut ini.

Ellipse Metode 1:

[vb]Dim OurPen As Pen
OurPen = New Pen(Drawing.Color.Cyan, 7)

Dim MyGraphics As Graphics = Me.CreateGraphics
Dim MyRectangle As New Rectangle

MyRectangle.X = 40
MyRectangle.Y = 30
MyRectangle.Width = 200
MyRectangle.Height = 100

MyGraphics.DrawEllipse(OurPen, MyRectangle)[/vb]

Ellipse Metode 2:

[vb]Dim OurPen As Pen
OurPen = New Pen(Drawing.Color.Red, 7)
Dim MyGraphics As Graphics = Me.CreateGraphics
MyGraphics.DrawEllipse(OurPen, 320, 30, 200, 100)[/vb]

Jika telah selesai, hasilnya nanti ketika dijalankan akan seperti berikut.

Membuat Lingkaran di Visual Basic.NET
Membuat Lingkaran di Visual Basic.NET

 

Comment

Leave a Reply

Your email address will not be published. Required fields are marked *