Vyhledáváním bylo nalezeno 76 výsledků

Zpět na pokročilé hledání

Pokud je ErrStr: integer, pak mov ErrSt,ax funguje, jinak ne. Jen tak náhodou jsi to mezitím nepřepsal?

mov ax, offset ErrSt - co máš furt s tím ofsetem? Tohle dá ofset ErrSt do ax, a co z toho?

1) Velikost statického pole nejde za běhu změnit.
2) if Length(S) >= SizeOf(Buffer) then Move(S...
od JM
29. 7. 2006 09:41
 
Sekce: Programování
Téma: [T.Pascal7]BIOS pristup na disketu alias "AX nie je AH!
Odpovědi: 16
Zobrazení: 1949

Ta tabulka pro CX v athelpu znamená, že 6 nižších bitů v cl je 6-bitové číslo sektoru, ostatní je 10-bitové číslo stopy.

ccccccccCC ssssss

CC jsou nejvyšší dva bity čísla cylindru.

Cylindr 300 neboli 012Ch neboli 000000 01 00101100
Sektor 10 neboli 0Ah neboli 00 001010

tedy CX bu...
od JM
28. 7. 2006 18:40
 
Sekce: Programování
Téma: [T.Pascal7]BIOS pristup na disketu alias "AX nie je AH!
Odpovědi: 16
Zobrazení: 1949

inflater píše:Sorry;
prvy riadok nechce zobrat

les di,@Result

chyba 160: Invalid symbol reference.

@Result je na vracení výsledku funkce. Jestli sis to dal do procedury nebo rovnou do těla programu, pak tam ovšem bude chyba 160.
od JM
24. 7. 2006 19:08
 
Sekce: Programování
Téma: [Turbo Pascal 7.0]BIOS funkcia Int 10h
Odpovědi: 18
Zobrazení: 2606

A k čemu to má vlastně sloužit? Pravděpodobně chceš přečíst z klávesnice řetězec. Ale ty ho jen vypisuješ zpátky na obrazovku. Pokud se nikam neuloží, k čemu to je?


Tak třeba, když tedy chceš používat 0Eh
(Nemám po ruce TP a píšu to z hlavy, kdyby to nefungovalo tak zařvi)


function ReadSt...
od JM
23. 7. 2006 22:21
 
Sekce: Programování
Téma: [Turbo Pascal 7.0]BIOS funkcia Int 10h
Odpovědi: 18
Zobrazení: 2606

Nejde o TP, ale o asm. Jestli chceš používat BIOS, bez asm to nepůjde. Šlo by, ale stejně bys to musel znát. A jestli chceš používat asm, musíš si osvojit jak se přistupuje k paměti v 16-bitovém režimu, jak TP organizuje proměnné v paměti atd. A to všechno se jaksi za jeden večer nestihne.
V AT-he...
od JM
23. 7. 2006 16:26
 
Sekce: Programování
Téma: [Turbo Pascal 7.0]BIOS funkcia Int 10h
Odpovědi: 18
Zobrazení: 2606

Řetězce v TP mají pevnou délku podle deklarace.
var S: string má 256 byte, přičemž nultý byte S[0] je délka a od S[1] je obsah řetězce, max. tedy 255 znaků. Var S" string[32] má max délku 31 znaků atd.

WriteStr tedy může vypadat např. takto:
function WriteStr(What: String): Int...
od JM
23. 7. 2006 15:21
 
Sekce: Programování
Téma: [Turbo Pascal 7.0]BIOS funkcia Int 10h
Odpovědi: 18
Zobrazení: 2606

Vše mi funguje jak má a většině mých známých také. Ale jeden z nich, starý tvíkovatel a expert (to si myslí on) má trable. A tak mne napadá taková OT myšlenka, noflame prosím.

Jak to, že někdo má potíže po instalaci nějaké win záplaty a někdo ne? Nemůže to být třeba tak, že potíže mají častěji li...
od JM
18. 3. 2006 23:06
 
Sekce: Windows XP a starší verze
Téma: Windows Genuine Advantage -zjištěna neleg.kopie
Odpovědi: 77
Zobrazení: 52567

Napiš si takovýto pomocný prográmek, mačkej klávesy a koukej co ti to napíše.

Kód: Vybrat vše
uses crt;
var
  c: char;
begin
  repeat
    c := readkey;
    writeln(ord(c));
  until c = #27; {esc = konec}
end.
od JM
14. 3. 2006 20:49
 
Sekce: Programování
Téma: [Delphi, Pascal] kod na kurzorove sipky
Odpovědi: 7
Zobrazení: 1923

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
vk_Left: Doleva := True;
vk_Right: Doprava := True;
vk_Space: Pif_paf := True;
end;
end;

procedure TForm1.FormKeyUp(Sender&#...
od JM
8. 3. 2006 16:51
 
Sekce: Programování
Téma: [Delphi] Stisknutí více kláves současně
Odpovědi: 2
Zobrazení: 934

Jediný způsob, jak se naučit hrát šachy, je pořád hrát - a to proti živým soupeřům. Hraním proti počítači se ještě nikdy nikdo šachy nenaučil. A zahájení ani ani koncovky se nedají "naučit", musí se jim porozumět. Počítač nikoho nenaučí sestavovat plán hry, což je mnohem důležitější věc než nějaké n...
od JM
24. 2. 2006 02:21
 
Sekce: Ostatní programy
Téma: Program na naučení šachů
Odpovědi: 7
Zobrazení: 8039

6003 je dělení nulou.
od JM
11. 2. 2006 14:36
 
Sekce: Programování
Téma: [dopln jazyk] Chyba při spuštění programu
Odpovědi: 8
Zobrazení: 600

Sorry, samozřejmě je to překlep. :oops:
od JM
9. 1. 2006 12:57
 
Sekce: Programování
Téma: [Pascal] Jak najit pismena v textovem souboru?
Odpovědi: 12
Zobrazení: 1524

while not Eof(x) do begin
Read(x,p3);
if (p1 = char1) and (p2 = char2) and (p3 = char3)
then suma := suma+1;
char1 := char2;
char2 := char3;
end;

Kdybys to celé chtěl dát do nějaké procedury, musel bys na začátku ješ...
od JM
9. 1. 2006 11:04
 
Sekce: Programování
Téma: [Pascal] Jak najit pismena v textovem souboru?
Odpovědi: 12
Zobrazení: 1524

Spyboti slíbili už dávno opravu, ale kde nic tu nic. Opravil jsem si to nakonec sám taky pomocí programu ResHacker. Stáhni si ho třeba odtud http://delphi.icm.edu.pl/ftp/tools/ResHack.zip

Zazálohuj pro jistotu TeaTimer.exe.
V task manageru odstřel TeaTimer.
Spusť ResHacker, dej File-Open-TeaTim...
od JM
7. 1. 2006 23:27
 
Sekce: Viry a bezpečnost
Téma: Rezidentní Spybot S&D - problém
Odpovědi: 11
Zobrazení: 2580
Předchozí stránkaDalší stránka

Zpět na pokročilé hledání