Разработать программу, которая вычерчивает на экране веселую рожицу желтого цвета - Visual Basic .NET
Формулировка задачи:
Разработать программу, которая вычерчивает на экране веселую рожицу желтого цвета. Размер одной клетки 20х20 пикселей.
Мои наработки , кривые оченьРешение задачи: «Разработать программу, которая вычерчивает на экране веселую рожицу желтого цвета»
textual
Листинг программы
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim P As New Pen(Color.Black, 2) Dim P2 As New Pen(Color.Black, 3) Dim BM As New Bitmap(PictureBox1.Width, PictureBox1.Height) Dim G As Graphics = Graphics.FromImage(BM) G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias 'Trollface Dim FaceRect As New Rectangle(50, 50, 250, 220) G.FillEllipse(Brushes.Yellow, FaceRect) G.DrawEllipse(P, FaceRect) 'EmptyEyes Dim EyeRect1 As New Rectangle(100, 110, 45, 25) G.FillEllipse(Brushes.White, EyeRect1) G.DrawEllipse(P, EyeRect1) Dim EyeRect2 As New Rectangle(200, 110, 45, 25) G.FillEllipse(Brushes.White, EyeRect2) G.DrawEllipse(P, EyeRect2) 'Switcher G.DrawArc(P2, 150, 150, 50, 30, -160, 140) 'FoodReceiver G.DrawArc(P2, 75, 80, 200, 150, 27, 123) PictureBox1.Image = BM End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д