Разработать приложение с анимацией косого дождя - VB

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

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

может кто подскажет с чего начать или может похожие примеры были, а то не знаю даже с чего начать( условие задачи: Разработать приложение с анимацией косого дождя. По щелчку на форме начинается дождь, по повторному - прекращается. Введите в интерефейс элементы уравнения, позволяющие изменять направление струй дождя.

Решение задачи: «Разработать приложение с анимацией косого дождя»

textual
Листинг программы
Option Explicit
Dim Naklon As Integer
Dim Dlina_strui As Integer
Dim Zvet As Long, nZ As Integer
Dim X As Integer, Y As Integer
Dim Chislo As Integer
Private Sub Command1_Click()
 If Timer1 Then
    Timer1.Enabled = False
    Command1.Caption = "Начать"
    Cls
 Else
    Timer1.Enabled = True
    Command1.Caption = "Прекратить"
 End If
End Sub
Private Sub Command3_Click()
    Naklon = Naklon + 10
End Sub
Private Sub Command2_Click()
    Naklon = Naklon - 10
End Sub
Private Sub Command4_Click()
    Dlina_strui = Dlina_strui + 50
    If Dlina_strui >= 2000 Then Dlina_strui = 200
End Sub
Private Sub Command5_Click()
    nZ = nZ + 1
    Select Case nZ
        Case 1: Zvet = vbBlack
        Case 2: Zvet = vbBlue
        Case 3: Zvet = vbMagenta
        Case 4: Zvet = vbGreen
        Case 5: Zvet = vbRed
    End Select
    If nZ >= 5 Then nZ = 0
End Sub
Private Sub Command6_Click()
   Chislo = Chislo - 1
   If Chislo <= 1 Then Chislo = 1
End Sub
Private Sub Command7_Click()
   Chislo = Chislo + 1
  If Chislo >= 1000 Then Chislo = 1000
End Sub
Private Sub Form_Load()
  Timer1.Interval = 50
  Timer1.Enabled = True
  Randomize
  Dlina_strui = 200
  Naklon = 0
  Zvet = vbBlue
  Chislo = 50
End Sub
Private Sub Timer1_Timer()
Dim i
  Cls
  For i = 1 To Chislo
    X = Int(Rnd * Me.Width): Y = Int(Rnd * Me.Height)
    Line (X, Y)-(X + Naklon, Y + Dlina_strui), Zvet
  Next i
End Sub

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


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

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

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