Hirdetés
- Milyen videókártyát?
- Apple MacBook
- Projektor topic
- Hogy is néznek ki a gépeink?
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Vezeték nélküli fülhallgatók
- Vezetékes FEJhallgatók
- A popóalávaló: DXRacer Drifting gamer szék tesztje
- Lenovo Legion Go: a legsokoldalúbb kézikonzol
Új hozzászólás Aktív témák
-
alitak
senior tag
Na megvan a hiba
Gyuri 5lete beigazolódott. Viszont annyira banális, hogy le sem merem írni
Na jó mégis: A jel nevű változóm deklarálva volt a főprogramban. Meg az alprogramban is
Inentől nem részletezem tovább...
Viszont mindenkinek köszönöm a kitartó hiba-lehetőség szórásokat.
-
alitak
senior tag
Néztem a progit, de semmi más hibajelentés nem jött.
Az esc-re itt vár a progi:
jel:=#0;
while keypressed do readkey;
jel:=readkey;
if jel=#0 then jel:=readkey;
if jel=#80 then o:=o+1;{fel}
if jel=#72 then o:=o-1;{le}
if jel=#27 then exit; {esc}
Sajnos nem tudom, hogy itt hol olvas be szöveget a fájlból.
Ha megoldaható vegyél fel MSN-re, lenne még pár kérdésem, meg problémám. De télleg csak ha nem zaklatlak ezzel a szarral. Előre is -
-
alitak
senior tag
Egyébként lefuttattad a programot?
Mert amikor kiírja a fejezet szövegét, akkor ugye lehet lépegetni a lehetőségek közt. Oda kéne az ESC, hogy a menübe ki tuggyak lépni. De ha ott ESC-t nyomsz, akkor újra elindítja a lehetmenu procedúrát, amit szintén nem értek. Erre 5let? -
VladimirR
nagyúr
ezzel pont az a baj, hogy igy nem fogod tudni megkulomboztetni a felfele nyilat a mittudomen melyik betutol
en ezt hasznalnam
ch:=readkey;
if ch=#0 then begin
ch2:=readkey;
if ch2=#59 then {akarmi};
if ch2=#60 then {akarmi};
if ch2=#68 then {akarmi};
end;
if ch=#8 then begin
gotoxy(wherex-1,wherey);
write(' ');
gotoxy(wherex-1,wherey);
end;
if ch=#27 then begin
{esc, kilepes}
end;
if ch>=#32 then {magjelenitheto karakter}
-ahol {akarmi} van, ott lusta voltam megnezni, hogy mi is az adott billentyu
-a backspace pontatlan, csak akkor jo, ha nem log at a kurzor uj sorba (csak kimasoltam, es megritkitottam a kodot, most lusta vagyok pontosabbat adni)
ezzel mar egyertelmuen meg lehet kulonboztetni az egy, es a ket byte kodu karaktereket egymastol, s mindkettohoz rendelhetoek muveletek, eljarasok, fuggvenyek
[Szerkesztve] -
alitak
senior tag
Beírtam azt a részt, amit javasoltál, de a problémát nem oldotta meg. Az ESC lenyomása után ismét a #13 került a változóba.
Steppel azért nem tudtam megnézni, mert az egész alprogramban van, és nem tudom, hogy ott hogyan lehet step-pelni.
A programot feltettem, de még nincs kész! Az említett rész a ''lehetmenu'' procedurában van.
Program: [link]
Hozzá a szöveg fájl: [link] -
RAM
őstag
TextBackground( LightGray);
TextColor( map[x,y]);
TextBackground( Black);
ClrScr;
ezekkel van gondja Delphiben, mit változtassak?
Application Console mod-ban próbáltam,
Crt Unit -nak nem tudom van-e megfelelője, így ebben a formában nem ismeri...
Mivel kellene helyettesíteni ezeket az Undeclared Identifiereket?
-
QuarK
senior tag
Öhh, most meg én voltam, aki nem olvasott figyelmesen, voltaképp majdnem ugyanarról beszélünk Drótszamár-ral?!
[Szerkesztve]
nori: Feltétlenül szükséges az az sztomb? Nem lehetne, hogy csak a tomb értéket vizsgálva írnád ki a dolgokat; mint a fenti linkelt programomban?
[Szerkesztve] -
#1000
Drótszamár
őstag
QuarK
#998
Drótszamár
őstag
csak fél perc alatt átfutattam a kódot, szal lehet hogy valamit félreolvastam.
De ha jól láttam rosszul vizsgáltad a hajók elhelyezését. A halyók nem csak egymáson nem lehetne, hanem nem is érhetnek egymáshoz. Tehát a hajók körüli mezőket is figyelni kell.
Én a szakdogámban (3D torpedo (delphi)) ezt egy mátrixal oldottam meg. Bejelöltem a hajót és a körülötte lévő mezőket (1-et hozzáadtam az akt értékhez). Ha valahol 1-nél nagyobb szám jött ki akkor rossz az elhelyezés. Tudom ez nem annyira hatékony, mint a kockánkénti ellenőrzés, de jóval eccerűbb lessz az algoritmus. -
-
Rover623
félisten
Az sem mindenre megoldás...
Van egy kis projectem...évek óta át kellene írni védett módba (FreePascal lenne a szimpi...), csak tele van erősen hardverközeli cuccokkal...meg nem szabványos megoldásokkal (saját runtime rendszer a Borland helyett)
Minden évben megpróbálkozom az átültetéssel, de amióta fejlesztik azt az izét, még egy normális unitomat nem tudta lefordítani...
Ja...és 142.000 sor... -
Rover623
félisten
Ráadásul fiatal lehettél és bohó...és nem kellett optimalizálnod sem...
![;]](//cdn.rios.hu/dl/s/v1.gif)
Ez kb. ugyanazt tudja, ugye...?
function Power( Base : real; Exponent: integer): real;
var i : integer;
pow : real;
begin
if ( Exponent = 0) then
Power := 1;
else
begin
pow := Base;
for i := 2 to Abs(Exponent) do
pow := pow * Base;
if ( Exponent < 0) then
Power := 1 / pow
else
Power := pow;
end;
end; -
#555
Steelheart
senior tag
QuarK
#554
Steelheart
senior tag
Persze, értem, elmondom tehát. Megmutattam öcsémnek, aki igen picinyke, mondhatni semmi programozói tudással rendelkezik, de azért valamicske-néhányocska angol szót tud, és azt hitte, valami angol, szigorú ritmussal írt ódát vagy legalábbis eposzt mutatok neki
Hát igen, asszem nem kísérlem meg megtanítani neki a Pascalt, uccse a Boronkayba jön majd tanulni
[Szerkesztve]
Gyuri 5lete beigazolódott. Viszont annyira banális, hogy le sem merem írni 
Inentől nem részletezem tovább...
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
- Parfüm topik
- Milyen videókártyát?
- Battlefield 6
- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Jellyfin, Emby, Stream.io, Plesk Streaming platform
- Milyen légkondit a lakásba?
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- LEGO klub
- További aktív témák...
- Dell Inspiron 3511 /i7-1165G7/MX350/16GB/512GB M.2/WIN11/Újszerű akku/Játékra is!
- Apple MacBook Air 13 M2 8/256GB Éjfekete , 96%-os akku
- Garmin Instinct 3 50mm Solar narancssárga
- Lenovo Thinkpad E14 G4 I5-1235u/16 GB/256 NVMe /14" FULL HD gyári garanciás magyar laptop eladó
- VELBON Ultra Stick Super 8 - 8 szekciós ultrakönnyű monopod
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4050
- HIBÁTLAN iPhone XS Max 64GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS2898
- LG 34WQ500-B - 34" IPS LED - 2560x1080 Wide FHD - 100Hz 5ms - AMD FreeSync - HDR10
- HIBÁTLAN iPhone 13 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3846
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest