1 Тема от Nek1t98 (изменено: Nek1t98, 2012-03-07 21:09:57)

  • Nek1t98
  • Участник
  • Неактивен

Тема: AHK: Рандом в AHK

Подскажите команду рандома, например, чисел от 10 до 100.

2 Ответ от Grey (изменено: Grey, 2012-03-08 12:29:19)

  • Grey
  • Разработчик
  • Неактивен

Re: AHK: Рандом в AHK

Space::
   While GetKeyState("Space", "P")
   {
      Random, Randelay, 10, 100
      TrayTip,, % Randelay
;      TrayTip,, % Round(Randelay, -1) ; округлено
      Sleep, 100
   }
   Return

3 Ответ от chemodan

  • chemodan
  • Участник
  • Неактивен

Re: AHK: Рандом в AHK

А как сделать  рандомной вывод даты рождения за определенный период?
Например от 01.01.1980 до 01.01.1990.

4 Ответ от ypppu

  • ypppu
  • Разработчик
  • Неактивен

Re: AHK: Рандом в AHK

Сгенерировать три случайных числа, затем записать их в переменную через точку.

Правила  Поиск  Русский язык  Слова-паразиты
AHK: [ENG] [RUS]

5 Ответ от Zmey25

  • Zmey25
  • Участник
  • Неактивен

Re: AHK: Рандом в AHK

chemodan пишет:

А как сделать  рандомной вывод даты рождения за определенный период?
Например от 01.01.1980 до 01.01.1990.

Без проверки на высокосный год.

filedelete, daterandom.txt
loop, 100 {
random, year, 1980, 1990
if year = 1990 ;Ограничиваем дату рандома до 01 месяца
        mmonth = 1
            else
                mmonth = 12

random, month, 1, mmonth
if month in 4,6,9,11 ;Проверка на месяца с 31-им днем
    dday := 30
        else if month = 2
            dday := 28
                else
                    dday := 31

if year = 1990 ;Ограничение по дням
    dday = 1
        
random, day, 1, dday
date = %day%.%month%: %year%

fileappend, %date%`n,  daterandom.txt
}

6 Ответ от Irbis (изменено: Irbis, 2014-02-13 12:54:28)

  • Irbis
  • Разработчик
  • Неактивен

Re: AHK: Рандом в AHK

ypppu пишет:

Сгенерировать три случайных числа, затем записать их в переменную через точку.

Ага, и получить в общем случае такие даты, как 31.02.1981
А если к начальной дате прибавлять рандомное число через EnvAdd? По-моему, так можно, но проверить нет возможности.

Feci quod potui faciant meliora potentes

7 Ответ от serzh82saratov

  • serzh82saratov
  • Разработчик
  • Неактивен

Re: AHK: Рандом в AHK

Irbis
Хорошая идея!


start = 19800101 
end = 19900101 

Loop
    MsgBox, , , % RandomDate(start, end), 0.5
  
RandomDate(start, end)  {   
    EnvSub, end, start, days 
    Random, day, 0, %end%
    EnvAdd, start, %day%, days
    FormatTime, var, %start%, dd.MM.yyyy 
    Return var
}
По вопросам возмездной помощи пишите на E-Mail: serzh82saratov@mail.ru Telegram: https://t.me/sergiol982
Win10x64 AhkSpy, Hotkey, ClockGui