Hlavne menu We are sorry, but magazine AMMO is suspended. Here is just read-only access to the articles archive. Some features are removed because they were outdated, pointless in read-only (voting and pools), or it was missused by spammers (comments) etc. Now the webpages aren't maintained so when something will get broken most probably it won't be fixed at all. If you liked our magazine then please make donation with paypal so we can pay for traffic on this server.

TOP Výuka
01 Maľované krížovky 103 bodov
02 OpenGL, lákadlo 38 bodov
03 MySQL (+ použitie Visual C++ a PHP) 28 bodov
04 OpenGL, časť 1 21 bodov
05 Huffmanove kódovanie 19 bodov
06 Pascal, časť 1 18 bodov
07 Ako tlačiť s HP 16 bodov
08 Základy HTML časť 2 16 bodov
09 Základy HTML časť 3 13 bodov
10 Hry pre nenáročných + zdrojáky 10 bodov
11 OpenGL, úvod 8 bodov
12 Faktúrka v4.0 + zdrojáky v MS Visual C++ 6.0 7 bodov
13 OpenGL – Intermezzo 1 7 bodov
14 OpenGL povinná literatúra 6 bodov
15 Základy HTML časť 1 6 bodov
Najnovsie clanky
Kvalitné služby podľa skúseností iných - TopSlužby.sk
LOTR - Dve veže - Parodia - Scénka 2. časť
Neverwinter nights
Children Of Bodom-Hatebreeder
Kult Duny - 6. časť (Bonus)
Kult Duny - 5. časť (Filmy, Hry)
Dobré ráno. (morc certa, hora incerta...)
Kult Duny - 4. časť (Knihy 2/2)
Stretnutie Spoločenstva Tolkiena
GRAVE DIGGER – Knights Of The Cross
Kult Duny - 3. časť (Knihy 1/2)
Kult Duny - 2. časť (Pojmy)
Kult Duny - 1. časť (Úvod)
LOTR - Dve veže - Parodia - Scénka
Jackass
Vsetky clanky
Airsoft - Specnaz [4 clanky]
Básne [6 clankov]
Fantázia [4 clanky]
Filmy a DVD [51 clankov]
Hardware [10 clankov]
Hry [170 clankov]
Hry, návody [6 clankov]
Hudba [8 clankov]
Internet [7 clankov]
Knihy [6 clankov]
O AMME [4 clanky]
Pandemonium [10 clankov]
Poviedky [14 clankov]
Programy [18 clankov]
Rôzne [8 clankov]
Technické [3 clanky]
Úvahy [8 clankov]
Výuka [50 clankov]
Ako tlačiť s HP
Algoritmy v grafoch
Faktúrka
Faktúrka v4.0 + zdrojáky v MS Visual C++ 6.0
Fract
HLSaver
Hry pre nenáročných + zdrojáky
Huffmanove kódovanie
IPicture2 & aggresiveoptimize.h
Maľované krížovky
MySQL (+ použitie Visual C++ a PHP)
OpenGL - GLWnd
OpenGL AMMO Saver
OpenGL povinná literatúra
OpenGL – Intermezzo 1
OpenGL, časť 10
OpenGL, časť 11
OpenGL, časť 12
OpenGL, časť 13
OpenGL, časť 14
OpenGL, časť 15
OpenGL, časť 16
OpenGL, časť 17
OpenGL, časť 18
OpenGL, časť 7
OpenGL, časť 8
OpenGL, časť 9
Opengl – Cloth Simulation
RenameR
SkinMagic
WinSocket Communication via VC++
Údajové štruktúry
viac...
Zábava [5 clankov]
Zdravie [15 clankov]
Celkovy pocet clankov: 407
Fake2 
Výuka | Dna 4.11.2002 | Johny | 4 znamky, priemer 2.50 | 8597 videni | 1051 WAP videni

Malinký programík, robený v Pascale. Vhodný najmä pre stredoškolákov, ktorým sa nechce nič robiť na hodine IVT v Pascale. Alebo tiež vhodný pre Holywood, kde nevedia herci napísať pár riadkov textu na PC, tak do toho len búchajú a ono im to píše samo vopred zadaný text. Presne o tomto je ten program. Funguje pre PASCAL, BC3.1 alebo rôzne typy commanderov...

Funguje to ako rezidentný program. Obsluha je veľmi ľahká, do súboru fake2.txt hodíte text, napr. nejaký malý zdroják programu. Spustíte fake2.exe, potom spustíte napríklad Pascal. Zaktivujete program stlačením „~” a už len rýchlo búchate do klávesnice a všetci si myslia aký ste perfektný v strojopise. ;o). Keď chcete vypnúť opäť stlačíte „~”. Program si pamätá, kde ste prestali a po stlačení “~” opäť pokračuje tam, kde ste prestali.

Tých ktorých to priamo nezaujíma, nájdu aspoň príklad rezidentného programu a ukážku ako manipulovať s bufferom klávesnice.


Celý program je založený na zdrojáku z helpu ku príkazu keep. Akurát je pridané naviac menenie buffera klávesnice. Takže koho zaujímajú rezidentné programy viac, ten nech si pozrie help v pascale ku keep. Tam je taký jednoduchý program, ktorý pri stlačení klávesy pípne.

Celý zdroják je tu:

{$M 6144,0,0 }
uses Dos;

var KbdIntVec : Procedure;
run,dat:byte;
c,d:word;
f:file of byte;
size:word;
data:array[1..4096] of byte;
b1:byte absolute $40:26;
b2:byte absolute $40:28;
b3:byte absolute $40:30;
b34:byte absolute $40:31;
b4:byte absolute $40:32;
b45:byte absolute $40:33;
b5:byte absolute $40:34;


{$F+}
procedure Keyclick; interrupt;
var a:byte;
procedure KeyboardBuffer(s_b:string);
var i_b:integer;
begin;
s_b:=s_b;
mem[$40:26]:=30;
mem[$40:28]:=30+2*length(s_b);
for i_b:=1 to length(s_b) do mem[$40:28+2*I_b]:=ord(s_b[i_b]);
end;

procedure clearbuff;
var reg:registers;
begin
reg.ah:=$0C;
reg.al:=$06;
reg.dl:=$FF;
msdos(reg);
end;

begin

if Port[$60] = 41 then {~}
begin
if run=1 then run:=0
else run:=1;
{c:=0;}
end;

inline ($9C);
KbdIntVec;

if (run=1) then
begin
inc(c);
if data[c]=13 then
begin
b1:=30;
b2:=30+2*2;
b3:=data[c];
b4:=0;
b45:=71;
end
else
begin
b1:=30;
b2:=30+2*1;
b3:=data[c];
end;
if c=size then
begin
run:=0;
c:=0;
end;
end;
end;
{$F-}

begin
assign(f,'fake2.txt');
reset(f);
size:=filesize(f);
if size>sizeof(data) then
begin
writeln('Sorry, this works only for 4kb text...');
writeln('Contact Author for upgrade ;o)...');
end
else
begin
d:=1;
for c:=1 to size do
begin
read(f,dat);
if dat<>10 then
begin
data[d]:=dat;
d:=d+1;
end;
end;
close(f);
run:=0;
c:=0;

GetIntVec($9,@KbdIntVec);
SetIntVec($9,Addr(Keyclick));
Keep(0);
end;
end.

Alebo si ho stiahnite tu:
http://www.softsklad.host.sk/fake2.zip


Najnovsie clanky od tohto redaktora