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