Вывести на экран изображение веера - VB

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

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

Вывести на экран изображение веера, складыванием и раскладыванием которого можно управлять: А) с клавиатуры; Б) с помощью мышки.

Решение задачи: «Вывести на экран изображение веера»

textual
Листинг программы
Option Explicit
 
Dim angle As Single
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    angle = angle + Switch(KeyCode = vbKeyUp, 0.1, KeyCode = vbKeyDown, -0.1, True, 0)
    If angle > 2.5 Then angle = 2.5 Else If angle < 0.001 Then angle = 0.001
    Draw
End Sub
 
Private Sub Form_Load()
    Width = 5000: Height = 5000: FillColor = vbMagenta: FillStyle = vbSolid
    AutoRedraw = True: angle = 2: Draw
End Sub
 
Private Sub Draw()
    Dim dif  As Single, str As Single, n As Long
    dif = angle / 5: str = 1.57 - angle / 2: Cls
    For n = 0 To 4
        Circle (ScaleWidth / 2, ScaleHeight / 1.5), 2000, , -str, -str - dif
        Circle (ScaleWidth / 2, ScaleHeight / 1.5), 300, , -str - 3.14, -str - dif - 3.14
        str = str + dif
    Next
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static oy As Single
    If Button = vbLeftButton Then Form_KeyDown Switch(Y - oy > 0, vbKeyDown, Y - oy < 0, vbKeyUp, True, 0), 0
    oy = Y
End Sub

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

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