Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Снег Добавлено: 15.12.09 20:48  

Автор вопроса:  $@ny@PG | ICQ: 468469477 
Как в vb 6.0 сделать программу снег???

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #1 		Добавлено: 15.12.09 21:22
  1.  
  2. Private Sub Form_Load()
  3. Dim x(100), y(100), speedy(100)
  4. Dim i%
  5. ScaleMode = vbPixels
  6. AutoRedraw = True
  7. ForeColor = vbWhite
  8. BackColor = vbBlack
  9. For i = 0 To 100
  10. x(i) = Rnd * ScaleWidth
  11. speedy(i) = Rnd * 5 + 1
  12. y(i) = Rnd * -ScaleHeight / 2
  13. Next
  14. Show
  15. Do
  16. Cls
  17. For i = 0 To 100
  18. y(i) = y(i) + speedy(i)
  19. x(i) = x(i) + Sin(Timer + speedy(i) + i)
  20. If y(i) > ScaleHeight Then
  21. y(i) = 0
  22. x(i) = Rnd * ScaleWidth
  23. speedy(i) = Rnd * 5 + 1
  24. End If
  25. DrawWidth = (7 - speedy(i)) / 2
  26. PSet (x(i), y(i))
  27. Next
  28. DoEvents
  29. Loop
  30. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | Цитата | #2 Добавлено: 16.12.09 17:11
А можно прокоментировать, а то не очень понятно

Ответить

Номер ответа: 3
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #3 		Добавлено: 16.12.09 18:53
А чего тут непонятно? храним массив иксов и игреков - координат снежинок. Еще один отдельный массив для скоростей снежинок по вертикали. Заполняем все рандомно, потом крутим цикл с DoEvents вместо таймера, в нем очищаем форму, потом каждую снежинку двигаем вниз на ее скорость, а к иксу прибавляем синус, чтобы она двигалась влево-вправо, плавно, как будто падает. Потом рисуем в нужном месте.

Ответить

Номер ответа: 4
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | Цитата | #4 Добавлено: 16.12.09 19:12
А что оператор Show означает???

Ответить

Номер ответа: 5
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #5 		Добавлено: 16.12.09 19:25
Показать форму. В событии Form_Load форма уже загружена, но еще не отображается на экране.

Ответить

Номер ответа: 6
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | Цитата | #6 Добавлено: 16.12.09 19:39
Понятно, спасибо.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам