Создать графический редактор - VB

Узнай цену своей работы

Формулировка задачи:

Помогите создать графический редактор, хотя бы начало, вообще не умею!

Решение задачи: «Создать графический редактор»

textual
Листинг программы
Picture1.Width = 340 * Picture1.Height / 240
Picture1.Scale (-20, 200 + 20)-(300 + 20, -20)
 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Picture1.Line (-20, 0)-(320, 0) ' Os X
Picture1.Line (0, 220)-(0, -20) ' Os Y
For x = 0 To 300 Step 50
Picture1.Line (x, 10)-(x, -10): Picture1.Print x
Next x
For y = 50 To 200 Step 50
Picture1.Line (-10, y)-(10, y): Picture1.Print y
Next y
'==================================
x0 = 50: y0 = 75: R = 20: cl = vbBlue
Picture1.Circle (x0, y0), R, cl
   Picture1.Circle (x0, y0), 0.5, cl
 
X1 = 100: Y1 = 40: X2 = 150: Y2 = 100: cl = vbGreen
Picture1.Line (X1, Y1)-(X2, Y2), cl
 
X1 = 170: Y1 = 10: X2 = 200: Y2 = 120: cl = 0
Picture1.Line (X1, Y1)-(X2, Y2), cl, B
          
X1 = 110: Y1 = 140: X2 = 270: Y2 = 200: cl = vbRed
Picture1.Line (X1, Y1)-(X2, Y2), cl, BF

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.571 из 5
Похожие ответы