vb.net ile grafiksel işlemler

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Merhaba arkadaşlar;
Bu dersimizde grafiksel olarak işlemler yapacağız.
Genelde koordinatlar üzerinde çalıştık ve bunun ile ilgili bir resim çizdik.
Hazır olarak genel drawing sınıfını kullanarak işlemleri kolayca yaptık.
Öncelikle fromun events kısmına gelerek paint'i seçiyoruz.
Ve ardından içeriğe şu kodları yazıyoruz.

 Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim cizim As Graphics = e.Graphics 'grafiksel işlemler için
        'hava için
        Dim hava As New SolidBrush(Color.SkyBlue) 'bi gökyüzü oluşturmak için rengini tanımladım 
        cizim.FillRectangle(hava, 0, 0, 500, 140) 'koordinatlarını belirledim
        'çimen için
        Dim cimen As New SolidBrush(Color.Green)
        cizim.FillRectangle(cimen, 0, 140, 500, 400)
        'güneş için
        Dim gunes As New SolidBrush(Color.Yellow)
        cizim.FillEllipse(gunes, 350, 10, 100, 100)
        'bulut için
        Dim bulut As New SolidBrush(Color.White)
        cizim.FillEllipse(bulut, 20, 20, 20, 20)
        cizim.FillEllipse(bulut, 30, 30, 20, 20)
        cizim.FillEllipse(bulut, 45, 30, 20, 20)
        cizim.FillEllipse(bulut, 30, 10, 20, 20)
        cizim.FillEllipse(bulut, 45, 10, 20, 20)
        cizim.FillEllipse(bulut, 55, 20, 20, 20)
        cizim.FillEllipse(bulut, 40, 20, 20, 20)
        'dag için
        Dim dag As New SolidBrush(Color.SaddleBrown)
        cizim.FillPie(dag, 0, 70, 500, 140, 180, 180)
        cizim.FillPie(dag, -100, 70, 200, 140, 180, 180)
        'duman için
        Dim duman As New Drawing.Pen(Brushes.DarkGray, 7)
        Dim nokta As Point() = {New Point(260, 80), New Point(270, 65), New Point(260, 55), New Point(270, 45), New Point(350, 35)}
        cizim.DrawCurve(duman, nokta)
        'ev için
        Dim bina As New SolidBrush(Color.Orange)
        cizim.FillRectangle(bina, 20, 150, 300, 200)
        'çatı için
        Dim cati As New SolidBrush(Color.Red)
        Dim catidizi As Point() = {New Point(20, 150), New Point(50, 100), New Point(350, 100), New Point(320, 150)}
        Dim catimicin As New Drawing2D.GraphicsPath
        catimicin.AddPolygon(catidizi)
        cizim.FillPath(cati, catimicin)
        'yan duvar için
        Dim yandizi As Point() = {New Point(320, 150), New Point(350, 100), New Point(380, 150), New Point(380, 300), New Point(320, 350)}
        Dim yanimicin As New Drawing2D.GraphicsPath
        yanimicin.AddPolygon(yandizi)
        cizim.FillPath(bina, yanimicin)
        'balkon icin
        Dim balkon As New SolidBrush(Color.Brown)
        Dim balkondizi As Point() = {New Point(40, 170), New Point(80, 170), New Point(80, 210), New Point(160, 210), New Point(160, 250), New Point(40, 250)}
        Dim balkonicin As New Drawing2D.GraphicsPath
        balkonicin.AddPolygon(balkondizi)
        cizim.FillPath(balkon, balkonicin)
        'cam icin
        Dim cam As New SolidBrush(Color.Crimson)
        Dim camdizi As Point() = {New Point(330, 170), New Point(370, 150), New Point(370, 197), New Point(330, 220)}
        Dim camicin As New Drawing2D.GraphicsPath
        camicin.AddPolygon(camdizi)
        cizim.FillPath(cam, camicin)
        cizim.FillRectangle(cam, 220, 180, 40, 40)
        'giriş kapısı için
        Dim kapi As New SolidBrush(Color.Chocolate)
        cizim.FillRectangle(kapi, 149, 270, 60, 80)
        'araba :D
        Dim araba As New SolidBrush(Color.Gray)
        Dim arabadizi As Point() = {New Point(300, 370), New Point(340, 370), New Point(350, 390), New Point(390, 390), New Point(390, 410), New Point(260, 410), New Point(260, 390)}
        Dim arabaicin As New Drawing2D.GraphicsPath
        arabaicin.AddPolygon(arabadizi)
        cizim.FillPath(araba, arabaicin)
        Dim tekerlek As New Drawing.Pen(Color.Black, 3)
        cizim.DrawEllipse(tekerlek, 290, 405, 10, 10)
        cizim.DrawEllipse(tekerlek, 360, 405, 10, 10)
        'baca için
        Dim baca As New SolidBrush(Color.SandyBrown)
        cizim.FillRectangle(baca, 250, 75, 20, 40)
        'tanıtım için
        Dim isim As New SolidBrush(Color.Black)
        Dim fontu As New Drawing.Font("Comic Sans", 20)
        cizim.DrawString("İbrahim Hüdai Yücel", fontu, Brushes.Black, 80.0F, 500.0F)
    End Sub

ekran çıktımız:

Kolay gelsin...

 

[Karcemackers]

Paylasım icin tesekkurler.