| sany2 | Дата: Среда, 28.05.2014, 18:29 | Сообщение # 1 |
|
Группа: Проверенные
Сообщений: 107
Статус: Offline
| Тут племянница озадачила-надо чтоб огоньки моргали в хаотичном порядке.Подскажите как в bascom организовать генератор случайных чисел.
|
| |
| |
| sany2 | Дата: Среда, 28.05.2014, 19:20 | Сообщение # 2 |
|
Группа: Проверенные
Сообщений: 107
Статус: Offline
| Вопрос снят,нашёл в хелпе .
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim I As Word ' dim variable
Do
I = Rnd(40) 'get random number (0-39)
Print I 'print the value
Wait 1 'wait 1 second
Loop 'for ever
End
Сообщение отредактировал sany2 - Среда, 28.05.2014, 19:22 |
| |
| |
