1 (изменено: [CM]White, 2012-08-30 04:55:19)

Тема: AHK: Генерация случайного числа

Gui, Show, w200 h106, Тест
Gui, Add, Slider, h20 w180 NoTicks Invert ToolTip Range0-1000
Gui, Add, GroupBox, Center x15 w50 hp10, 
Gui, Font, cBlue s16
Gui, Add, Text, Center x15 y37 w50 h30 vRandom, %random_value% %Speed%
Gui, Font, s12
Gui, Add, Button, x80 y70 w90 h25 gRestart,Обновить
Gui, Add, Button, x80 y40 w90 h25 gStart,Запуск
return


Speed := MaxSpeed - Speed

Start:
Loop
   {
      Random, random_value, 0, 1000
      ToolTip, %random_value%, 640, 512
      Sleep, 250
      ToolTip
      GetKeyState, state, F2, P
      If state = U
         Break
      Sleep, 50
   }
Return



Restart:
    Reload
    return

GuiClose:
GuiEscape:
Выход:
    ExitApp
    return

2

Re: AHK: Генерация случайного числа

Gui, Add, Slider, h20 w180 NoTicks vsliderPos ToolTip Range0-1000
Gui, Add, Button, x80 y40 w90 h25 gStart vbuttonStart, Запуск
Gui, Show, w200 h106
return

Start:
    If (start := !start) {
        GuiControl,, buttonStart, Стоп
        SetTimer, Show_Tooltip, 80
    }
    Else {
        GuiControl,, buttonStart, Запуск
        SetTimer, Show_Tooltip, Off
        ToolTip
    }
    return

Show_Tooltip:
    Gui, Submit, NoHide
    Random, rand, 1, sliderPos
    ToolTip %rand%
    return

GuiClose:
    Exitapp

3

Re: AHK: Генерация случайного числа

Благодарю, еще один нюанс, как сделать отображение результата в уже существующем поле вместо "ххх"?

Gui, Show, w200 h106, Тест
Gui, Add, Slider, h20 w180 NoTicks vsliderPos Счет Range0-1000
Gui, Add, GroupBox, Center x15 w55 hp25, Результат
Gui, Font, cBlue s16
Gui, Add, Text, Center x18 y45 w50 h20 vСчет, ххх
Gui, Font, s12
Gui, Add, Button, x80 y70 w90 h25 gRestart,Обновить
Gui, Add, Button, x80 y40 w90 h25 gStart vbuttonStart, Запуск
return

Start:
    If (start := !start) {
        GuiControl,, buttonStart, Стоп
        SetTimer, Show_Tooltip, 80
    }
    Else {
        GuiControl,, buttonStart, Запуск
        SetTimer, Show_Tooltip, Off
        ToolTip
    }
    return



Show_Tooltip:
    Gui, Submit, NoHide
    Random, rand, 1, sliderPos
    Tooltip %rand%
    return

Restart:
    Reload
    return

GuiClose:
GuiEscape:
Выход:
    ExitApp
    return

4

Re: AHK: Генерация случайного числа

Примера в сообщении #2 должно было хватить

Gui, Add, Slider, h20 w180 NoTicks vsliderPos ToolTip Range0-1000
Gui, Add, Button, x80 y40 w90 h25 gStart vbuttonStart, Запуск
Gui, Add, Text, Center x18 y45 w50 h20 vrandomValue
Gui, Show, w200 h106
return

Start:
    If (start := !start) {
        GuiControl,, buttonStart, Стоп
        SetTimer, Show_Data, 80
    }
    Else {
        GuiControl,, buttonStart, Запуск
        SetTimer, Show_Data, Off
    }
    return

Show_Data:
    GuiControlGet, sliderPos,, sliderPos
    Random, rand, 1, sliderPos
    GuiControl,, randomValue, %rand%
    return

GuiClose:
    Exitapp

5

Re: AHK: Генерация случайного числа

Благодарен