Hirdetés
- Karácsonyi telefonajánló 2025
- Apple Watch
- Méretes kamerasziget a Motorola Edge 70 Ultrán
- Milyen okostelefont vegyek?
- Akciófigyelő: Ilyen kedvezmények járnak a Poco F8 sorozatra
- Apple iPhone 17 - alap
- Nem megy az AI az Apple-nek, hullanak a fejek
- Papírvékony a jövő a Samsungnál: íme, a Galaxy TriFold!
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Google Pixel topik
Ú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
- LED világítás a lakásban
- TCL LCD és LED TV-k
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Az Intel korábbi vezére szerint a kvantumforradalom gyorsan elsöpri a GPU-kat
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Meggyi001: A végtelenbe...
- A fociról könnyedén, egy baráti társaságban
- One otthoni szolgáltatások (TV, internet, telefon)
- Karácsonyi telefonajánló 2025
- Apple Watch
- További aktív témák...
- XPS 9340 27% 13.4" FHD+ IPS Ultra 7 155H 32GB 1TB NVMe ujjlolv IR kam gar
- Új Biztosító Által Cserélt iPhone 14 Pro 128GB Független Lila/3 hónap gar./p4612
- DJI Mavic 2 Pro drón +koffer +szűrők +landing pad +SD kártya
- Oneplus Pad lite 128 Gb Új, bontatlan
- Latitude 7440 27% 14" FHD+ IPS i7-1365U 32GB 1TB NVMe magyar vbill ujjlolv gar
- Samsung Galaxy S23 Ultra 5G 512GB, Kártyafüggetlen, 1 Év Garanciával
- Keresünk dokkolókat
- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 240GB SSD 1TB HDD GTX 1050Ti 4GB Zalman T4 ADATA 600W
- Telefon felvásárlás!! Xiaomi Redmi 9, Xiaomi Redmi 9AT, Xiaomi Redmi 10, Xiaomi Redmi 10 2022
- Microsoft Surface Laptop 4 13.5" i7-1185G7 16GB 512GB 1 év garancia
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest