Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Генератор случайных чисел Добавлено: 04.02.05 19:55  

Автор вопроса:  Egor
В экселе имею задачу сделать подобие игры "лототрон", когда на экране мелькают числа а при нажатии клавиши останавливаются и последнее остаётся на экране.
Оформление есть, запись протокола выпавших чисел есть.
Не получается самая основня часть - заставить мелькать числа, чтобы было видно как они меняются.
Если есть что-либо подобное киньте, плиз, на kosyh_egor@mail.ru. Либо ткните носом где почитать. Нужно срочно, а не получается. Заранее спасибо откликнувшимся за ответ.

Ответить

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

Номер ответа: 1
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #1
Добавлено: 04.02.05 20:56
Генератор случайных чисел - Rnd()

Ответить

Номер ответа: 2
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #2
Добавлено: 04.02.05 23:37
Думаю тут речь идет о смене цифр по порядку в разных... а что толку если они будут беспорядочно вылезать ?

Ответить

Номер ответа: 3
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
 Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #3
Добавлено: 05.02.05 00:04
SetTimer
Интервалы человеку вроде нужны, API опять же :)

Ответить

Номер ответа: 4
Автор ответа:
 Egor



Вопросов: 1
Ответов: 1
 Профиль | | #4 Добавлено: 07.02.05 18:41
не могу разобраться как пользоваться SetTimer/KillTimer - они вообще не воспринимаются.
Может у кого есть что-либо подобное, чтобы взять правильный рабочий синтаксис и на его основе сделать своё?

Ответить

Номер ответа: 5
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #5
Добавлено: 07.02.05 18:48
можно сделать так:
Timer1.Interval = 1
______________________
Dim Current
______________________
Private Sub Timer1_Timer
Current = Int(Rnd(1) * 10)
Label1.Caption = Current
End Sub
______________________
Private Sub Command1_Click
'Stop
Timer1.Enabled = False
MsgBox "Число: " & vbNewLine & Label1.Caption
End Sub


И так же кнопку Старт. Правильно же?

Ответить

Номер ответа: 6
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #6
Добавлено: 07.02.05 18:49
Ну, чтобы видно было, как числа мелькают можно интервал побольше поставить.

Ответить

Номер ответа: 7
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #7
Добавлено: 07.02.05 18:50
Черт возьми! Не вчитался в вопрос. Да нафик тебе ексель, такие проги обычно в Бясике делают!

Ответить

Номер ответа: 8
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #8
Добавлено: 08.02.05 12:12
Я делал API-таймер на VBA. Всё прекрасно работает. sne свидетель ;)

Ответить

Номер ответа: 9
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
 Web-сайт: 123
 Профиль | | #9
Добавлено: 08.02.05 21:20
хм... я в VBA не разбираюсь, не пробовал, ну а таймером на api вышеуказанный код пойдет?

Ответить

Страница: 1 |

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



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