31. Kibor - 07 Сентября, 2018 - 12:45:13 - перейти к сообщению
Ну собственно выше приложенный скрипт дает рандом, так как там замешано время, есть еще эта тема http://kibor-bot.com/forum/topic...m=6&topic=69
32. Dantes3000 - 07 Сентября, 2018 - 12:53:49 - перейти к сообщению
Вроде бы не плохо работает, но долго.
Но скорость и не нужна.
(Добавление)
Ну это просто альтернатива. Так-то никому не нужна. Но работает
Но скорость и не нужна.
CODE:
fopen ("c:\5.txt", "w");
loop(10)
{
fwrite (rnd(1,5));
fwrite(ENDL);
}
fclose ();
function rnd(int r1, int r2)
{
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
st:getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
sleep(rand(r1,r2));
if(Milliseconds>=r1 && Milliseconds<r2) return Milliseconds;
else goto st;
}
loop(10)
{
fwrite (rnd(1,5));
fwrite(ENDL);
}
fclose ();
function rnd(int r1, int r2)
{
int Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds;
st:getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
sleep(rand(r1,r2));
if(Milliseconds>=r1 && Milliseconds<r2) return Milliseconds;
else goto st;
}
(Добавление)
Ну это просто альтернатива. Так-то никому не нужна. Но работает
Спойлер (Отобразить)
33. Kibor - 07 Сентября, 2018 - 13:20:29 - перейти к сообщению
Чем эта альтернатива рандомней к примеру моего кода?
Там через символ мешается время с псевдорандомом и потом преобразуется в число. То есть точно будет разное.
Там через символ мешается время с псевдорандомом и потом преобразуется в число. То есть точно будет разное.
34. Dantes3000 - 07 Сентября, 2018 - 13:27:07 - перейти к сообщению
Kibor , да мне сильная рандомность и не нужна была. Я просто эту функцию сделал до того, как вспомнил что на форуме есть нормальная ваша функция. Ну сделал и сделал, пусть будет)
(Добавление)
А если говорить о рандомности, то у вашей функции какой-то пробел в значение. Вверху моя
Нажмите для увеличения
(Добавление)
А если говорить о рандомности, то у вашей функции какой-то пробел в значение. Вверху моя
Нажмите для увеличения
35. Kibor - 07 Сентября, 2018 - 14:02:44 - перейти к сообщению
Ну может быть.
36. konctantin777 - 23 Декабря, 2019 - 11:25:42 - перейти к сообщению
Kibor пишет:
CODE:
rand(-10, 10);
rand(-10, 10);
А как вместо чисел подставить переменную из поля text_edit0[0] ? Ошибка при:
CODE:
if(flag_combo0[0]==1){n1=0-formatsn(text_edit0[0]);n2=formatsn(text_edit0[0]);n=formatsn(rand(n1, n2);}
37. Zireael - 23 Декабря, 2019 - 11:52:16 - перейти к сообщению
38. konctantin777 - 23 Декабря, 2019 - 12:14:02 - перейти к сообщению
Т.е. только через два едита. Ок- спасибо.
39. Zireael - 23 Декабря, 2019 - 12:34:49 - перейти к сообщению
Цитата:
Т.е. только через два едита.
Через один тоже можно.
CODE:
string text_edit0[1]={"-10 10"} // допустим это текст эдита
string s[2];
if(regexsearch(2, #s[0], text_edit0[0], "-*\d+")==2)
{
int random=rand(formatsn(s[0]), formatsn(s[1]));
messagebox(random);
}
string s[2];
if(regexsearch(2, #s[0], text_edit0[0], "-*\d+")==2)
{
int random=rand(formatsn(s[0]), formatsn(s[1]));
messagebox(random);
}