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