Задача на графику - VB
Формулировка задачи:
Помогите нарисовать в VB вот такое чудо
Я совсем не понимаю как расположить все эти х,уhttp://www.cyberforum.ru/attachment....3&d=1394875225
Решение задачи: «Задача на графику»
textual
Листинг программы
Option Explicit Private Sub Form_Load() AutoRedraw = True End Sub Private Sub Form_Resize() Dim w As Long, i As Long Me.Cls: DrawWidth = 1 FillColor = &H183E6B: ForeColor = &H183E6B: BackColor = vbBlack: FillStyle = vbCross w = IIf(ScaleWidth > ScaleHeight, ScaleHeight, ScaleWidth) Me.Circle (w / 1.5, w / 1.5), w / 4 Me.Circle (w / 1.5, w / 1.5 - 3 * w / 8), w / 8 Me.Circle (w / 4, w / 1.55 + w / 5), w / 4.2, , , , 0.15 FillStyle = vbSolid: FillColor = vbBlack Me.Circle (w / 1.5, w / 1.55), w / 5, , , , 1.5: DrawWidth = 4 Me.Circle (w / 1.5 - w / 24, w / 1.5 - 3 * w / 8), w / 24, vbWhite, , , 1.5 Me.Circle (w / 1.5 + w / 24, w / 1.5 - 3 * w / 8), w / 24, vbWhite, , , 1.5 Me.Line (w / 1.5, w / 1.5 - 21 * w / 64)-Step(-w / 48, w / 48), vbWhite Me.Line -Step(w / 48, 0), vbWhite: Me.Line -Step(0, -w / 48), vbWhite Me.Line -Step(w / 48, w / 48), vbWhite: Me.Line -Step(-w / 48, 0), vbWhite For i = -1 To 1 Me.Line (w / 1.5 - w / 48, w / 1.5 - 21 * w / 64 + w / 48)-Step(-w / 8, i * w / 45), vbWhite Me.Line (w / 1.5 + w / 48, w / 1.5 - 21 * w / 64 + w / 48)-Step(w / 8, i * w / 45), vbWhite Next Me.Line (w / 1.5 + w / 16, w / 5.5)-Step(w / 17, w / 15) Me.Line -Step(-w / 64, -w / 6): Me.Line -Step(-w / 24, w / 10) Me.Line (w / 1.5 - w / 16, w / 5.5)-Step(-w / 17, w / 15) Me.Line -Step(w / 64, -w / 6): Me.Line -Step(w / 24, w / 10) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д