AutoIt Простой генератор чисел

СуперМэн

Всем привет!
Сегодня я хотел бы рассказать о простом генераторе чисел, который можно написать на AutoIt-е...

Давайте всё изучать по порядку:

Я хочу, чтобы генерировалось число от 0 до 999999999 и записывалось в текстовый файл на рабочем столе.

Начнем с директив для подключения дополнительных файлов. В данном случае у нас будет всего одно дополнительное подключение:

Код :
#include <File.au3>

Теперь нам нужно написать саму функцию генерации числа (-ел):

Код :
$Maximum = 999999999
$Rand = Random(1, $Maximum, 1)

Ну и как в самом начале темы я писал, что хочу, чтобы число сохранялось в текстовый файл на рабочем столе:

Код :
FileWrite(@DesktopDir & "\Генератор чисел.txt",($Rand)&@CRLF)

Вот вроде бы и всё....
А нет, давайте чуть-чуть улучшим наш код. А именно дополним повторяющимся циклом и его отключением.

Чтобы наш цикл (генерация чисел) повторялся, то дополним наш код следующей функцией:

Код :
While 1
.......
.......
wend

Теперь добавим функцию отключения:

Код :
Global $Stop
HotKeySet("{END}", "Terminate")
..........
Func Terminate()
exit 0
EndFunc

В итоге у нас получилось следующее:

Код :
#include <File.au3>
Global $Stop
HotKeySet("{END}", "Terminate")
$Maximum = 999999999
While 1
$Rand = Random(1, $Maximum, 1)
sleep (5000)
FileWrite(@DesktopDir & "\Генератор чисел.txt",($Rand)&@CRLF)
wend
Func Terminate()
exit 0
EndFunc

Вот вроде и всё, наш генератор чисел готов!
Осталось только скомпилировать!
Конец Ставим +)

nokados

зачем здесь sleep? и #include <File.au3>? не легче сделать так:


$rnd=Random()
$rnd=StringMid($rnd,3,16)

Aydar

Збс, че)

Спартак

Б А Я Н ! ! !
темуууу офффф!
на*** создавать одинаковые темы!?

aL61k

Aydar

**Спартак** 
Б А Я Н ! ! !
темуууу офффф!
на*** создавать одинаковые темы!?

Ты везде так пишешь, Му*ак?

HalfDead

прпрпрп

Maxim Mukhin

брбрбрбр