Создать графический редактор - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д