Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
RND Найти похожие ветки
← →
DDA © (2004-03-09 00:48) [0]Что вы скажите про такой генератор (Псевдо)Случайных чисел
Нужен Image 200*200 и таймер 100-200 млс
и поводить мышкой по экрану
procedure TForm1.FormCreate(Sender: TObject);
begin
glob:=1;
end;
//--------------
var
Form1: TForm1;
bb:TBitmap;
glob:integer;
Function CaptureScreenRect( ARect: TRect ): TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
with Result, ARect do
begin
Width := Right - Left;
Height := Bottom - Top;
ScreenDC := GetDC( 0 );
try
BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC,
Left, Top, SRCCOPY );
finally
ReleaseDC( 0, ScreenDC );
end;
end;
end;
//-------------
procedure TForm1.Timer1Timer(Sender: TObject);
var a:TRect;
b:TBitmap;
begin
Form1.DoubleBuffered:=true;
a.Left:=Mouse.CursorPos.X-100;
a.Top:=Mouse.CursorPos.y-100;;
a.Right:=Mouse.CursorPos.X+100;;
a.Bottom:=Mouse.CursorPos.y+100;;
b:=TBitmap.Create;
b:=CaptureScreenRect(a);
if glob=1 then
begin
Image1.Canvas.Draw(0,0,b);
bb:=TBitmap.Create;
bb.Assign(Image1.Picture);
end
else
begin
BitBlt(bb.Canvas.handle,0,0,image1.Width,image1.Height,b.Canvas.Handle,0,0,SRCINVERT);//TButton(C)
Image1.Picture.Assign(bb);
END;
inc(glob);
b.Free;
end;
← →
Defunct © (2004-03-09 02:07) [1]Прикольно ;)
Тока какое причем здесь псевдослучайные числа?
Как эффект, вроде нормально.
А как генератор псевдослучайных чисел явно не годится (медленно и не совсем случайно).
← →
Fay © (2004-03-09 02:59) [2]2 Defunct © (09.03.04 02:07) [1]
>> А как генератор псевдослучайных чисел явно не годится
>> (медленно и не совсем случайно).
Генераторы, выдающие "совсем случайные" числа не называют генераторами псевдослучайных чисел.
2DDA © (09.03.04 00:48)
Идея была подхвачена из пакета PGP? 8)
← →
Defunct © (2004-03-09 04:06) [3]2 Fay
> Генераторы, выдающие "совсем случайные" числа не называют генераторами псевдослучайных чисел.
Генераитором псевдослучайных чисел называют такой механизм, который способен создать одну и ту же последовательность случайных чисел при одинаковых параметрах запуска.
То что выдает, код, приведенный в примере, никаким боком не подходит под определение генератора псевдослучайных чисел, по следующим причинам:
1. Последовательность нельзя повторить.
2. Нет никакой случайности. (при одноцветных окнах).
> Идея была подхвачена из пакета PGP? 8)
А там есть идея? копирование с инверсией по таймеру, серьезная идея...
← →
DDA © (2004-03-09 15:42) [4]
> Defunct © (09.03.04 04:06) [3]
1. Последовательность нельзя повторить.
2. Нет никакой случайности. (при одноцветных окнах).
1.Последовательность можно повторить,достаточто произвести одинаковое движение мышки
2.Очень даже случайная.Даже если Это окно развернуть на весь экран и на форме ничего небудет ,кроме Заголовка и имиджа,то и тогда даже можно добится случайности,если водить мышкой по заголовку и по этому имиджу
← →
Max_Ivanych © (2004-03-09 16:56) [5]Случайными числами называют возможные значения rj непрерывной случайной величины R, распределенной равномерно в интервале (О, 1).
← →
Max_Ivanych © (2004-03-09 16:57) [6]Плюс ко всему
http://borlpasc.narod.ru/inzik/glava7/opr.htm
← →
han_malign © (2004-03-09 17:09) [7]>> Идея была подхвачена из пакета PGP? 8)
>А там есть идея?
- там когда монтируешь защищенный том, нужно мышкой пошевелить... Насколько я понимаю для введения истинно случайного числа...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c
