Задача на графику - 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

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


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

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

8   голосов , оценка 4.25 из 5