Серый форум — AHK: Рандом в AHK

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

null@example.com (serzh82saratov) — Thu, 13 Feb 2014 11:14:52 +0000

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
}

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

null@example.com (Irbis) — Thu, 13 Feb 2014 08:52:33 +0000

ypppu пишет:

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

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

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

null@example.com (Zmey25) — Thu, 13 Feb 2014 08:50:24 +0000

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
}

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

null@example.com (ypppu) — Thu, 13 Feb 2014 08:40:40 +0000

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

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

null@example.com (chemodan) — Thu, 13 Feb 2014 08:08:28 +0000

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

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

null@example.com (Grey) — Wed, 07 Mar 2012 17:48:55 +0000

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

AHK: Рандом в AHK

null@example.com (Nek1t98) — Wed, 07 Mar 2012 17:08:49 +0000

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