[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Генератор случайных чисел
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
 
  • Страница 1 из 1
  • 1
Поиск: