- C# programozás
- Programozásról_szubjektíven
- Színészek hangjait lopta el egy AI-cég
- Windows 11
- A tüntetések ellenére is bővítheti német gyárát a Tesla
- A streamingszolgáltatások összecsomagolása lehet a következő divat
- Tarr Kft. kábeltv, internet, telefon
- Linux kezdőknek
- Xiaomi AX3600 WiFi 6 AIoT Router
- Synology NAS
Új hozzászólás Aktív témák
-
tgmaster
csendes tag
Nem tudom, hogy a búbánatba lehet szerkeszteni az üzenetet...
A jel változó a memóriában tuti, hogy a lehet tömb után helyezkedik el, tehát valszeg az szemeteli tele. -
N!tRo
tag
Hali!
Ha minden igaz, ez az az ominózus rész, amiből problémák adódtak:
repeat
oe:=o;
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}
if o=0 then o:=n; {tulhaladas}
if o=n+1 then o:=1; {vedelem}
if (jel=#72) or (jel=#80) then begin
textbackground(white);gotoxy(2,y+oe);write(lehet[oe]);{elozo atfestese}
textbackground(blue);gotoxy(2,y+o);write(lehet[o]);{uj atirasa}
end;
until (jel=#13) or (jel=#27);
if jel=#27 then begin szoveg:='';exit;end;{kilep a menube,esc}
if jel=#13 then{enter}
case o of
1:fej:=lehetfej[o];
2:fej:=lehetfej[o];
3:fej:=lehetfej[o];
4:fej:=lehetfej[o];
5:fej:=lehetfej[o];
end;
szoveg:='';reset(fajl2);
end;
Átírtam egy két dolgot, csak azért hogy jobban átlátható legyen, de lehet hogy a feltételezett hibát is kijavítottam ezzel, kérlek teszteld le, nekem nincs rá most lehetőségem, meg őszintén, megnéztem a progidat, nagyon szétszórt az egész. De ha te átlátod no problem
Szóval szerintem így:
while (keypressed) do readkey;
jel:= readkey; if jel = #0 then jel:=readkey;
repeat
oe:=o;
case jel of
#80: begin
o:=o+1; {fel}
textbackground(white); gotoxy(2,y+oe); write(lehet[oe]); {elozo atfestese}
textbackground(blue); gotoxy(2,y+o); write(lehet[o]); {uj atirasa}
end;
#72: begin
o:=o-1; {le}
textbackground(white); gotoxy(2,y+oe); write(lehet[oe]); {elozo atfestese}
textbackground(blue); gotoxy(2,y+o); write(lehet[o]); {uj atirasa}
end;
{ ezt itt nem ertem, itt is exit, meg par sorral lejjebb is??? kell ez ide???
nem lenne jobb ha until utan van csak exit? szerintem torold ezt a sort, de te tudod }
#27: exit; {esc}
end;
if o=0 then o:=n; {tulhaladas}
if o=n+1 then o:=1; {vedelem}
until (jel=#13) or (jel=#27);
case jel of
{ ide se kell a szoveg:='' mert par sorral lejjebb mindenkepp vegrehajtodik ez a parancs
vagy tedd az until utan rogton hogy szoveg:='', szerintem }
#27: begin szoveg:=''; exit; end; {kilep a menube,esc}
#13: case o of
1..5: fej:=lehetfej[o];
end;
end;
szoveg:=''; reset(fajl2);
end;
Üdv: Attila
ui.: remélem tudtam segíteni
[Szerkesztve]
[Szerkesztve]My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
alitak
senior tag
A problémás rész az volt bizony.
Nagy segítség volt, hogy észrevetted a két helyen is előforduló exitet, azt jó eséllyel suliban is beleírtam, és elfeledtem.
case jel of
#80: begin
o:=o+1; {fel}
textbackground(white); gotoxy(2,y+oe); write(lehet[oe]); {elozo atfestese}
textbackground(blue); gotoxy(2,y+o); write(lehet[o]); {uj atirasa}
end;
#72: begin
o:=o-1; {le}
textbackground(white); gotoxy(2,y+oe); write(lehet[oe]); {elozo atfestese}
textbackground(blue); gotoxy(2,y+o); write(lehet[o]); {uj atirasa}
end;
Ezzel az a baj, hogy ha az o értéke kiesik a 0-3 intervallumból, akkor is kirajzolja, és csak utána korrigálja az o értékét.
#13: case o of
1..5: fej:=lehetfej[o];
end;
Ez világmegváltás volt, thx érte
Lefutattam F7-ttel az egész szart, és arra jutottam, hogy mikor megnyomom az ESC-pet, akkor a jel-be bekerül a #27, és ott is marad, amíg ki nem lép a procedúrából. Utána már rejtélyesen az #0 értéket veszi fel. Ezért az egész menübe kilépést megoldottam egy boolean változóval. Ami legalább műxik. Viszont onnan meg nem működik rendesen a menu procedura, de az már a holnap munkája lesz.
ui.: Sokat segítettél, köszi. És én is Attila vagyok
mod: frissítettem a változatot, amit nemrég linkeltem.
[Szerkesztve]Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
N!tRo
tag
Szóval akkor működik?
Amugy az elején az a választás, hogy Betöltés, Új Játék, Kilépés is érdekesen működik
De amúgy tetszik a játék ötlete, karakterfejlesztő (asszem
Sok sikert hozzá!
Üdv: egy másik AttilaMy Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
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.Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
alitak
senior tag
Na már megint én vagyok
A programomban rengeteg helyen kéne dobókockával dobni, és ezt úgy oldottam meg, hogy random(6)+1. Viszont gondoltam kéne írni egy function-t, vagy valami hasonlót, hogy ne kelljen beírnom mindenhova azt hogy random(6)+1, csak azt hogy pl. kocka. Problémám az, hogy functionról semmit sem tudok Szóval ha valaki elmondja, hogy hogyan működik, azt megköszönném.
[Szerkesztve]Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
emitter
őstag
-
N!tRo
tag
Írok példákat, hátha megérted belőlük:
// ------------------------------------------ //
function tangens(szog:real):real;
begin
tangens:=sin(szog) / cos(szog);
end;
...
writeln(tangens(45));
// ------------------------------------------ //
function kocka:integer;
begin
randomize;
kocka:=random(6)+1;
end;
...
writeln(kocka);
// ------------------------------------------ //
function negyzet(x:integer):longint;
begin
negyzet:=x*x;
end;
...
writeln('4-nek a négyzete= ',negyzet(4));
{ tudom hogy van SQR függvény, csupán demonstrálás céljából csináltam }
// ------------------------------------------ //
Tehát a lényeg, hogy a function mindig egy értékkel tér vissza, lehet kezdőértékeket, egyéb paramétereket is adni neki (lásd: tangens, negyzet) de nem muszály (lásd kocka), a function tpye-ja határozza meg a visszatérő érték típusát is, tehát function meghaltam:boolean; egy logikai változót fog takarni, meghaltam-e a csatában vagy sem, de az is lehetne hogy function nevek(sorszam:integer):string ami egy megadott ''sorszam''-ú ember nevét, stringjét adja vissza neked.
De ez csak alapdolgok, ennél bővebben az előző hozzászóló linkjeiben találsz még leírást.My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
alitak
senior tag
Mindkettőtöknek köszi a helpet, sikerült megértenem
Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
_eskimo
csendes tag
Sziasztok!
Programoznék, csak ötletem nincs. A 2006-os emelt szintű érettségi programozás részét most csináltam meg. Hasonló feladatokat honnan szerezhetnék?
Előre is köszi!
[Szerkesztve] -
N!tRo
tag
-
emitter
őstag
ez jó ötlet, már én is gondolkoztam rajta! ehhez nem kell véletlenül egy kicsit magasabb matematikai tudás? pl. mátrixok, koordináta-transzformáció..
_eskimo: ha van vmi programozás-könyved, abban szoktak lenni feladatok. Meg gugli, csak elég sokat kell keresni, míg talál az ember vmi sovány eredméynt tudom, mert egy éve én is hasonló bőrben voltam (csak nekem volt könyvem)
amúgy meg 2005-ös feladatsor kész van?
[Szerkesztve] -
N!tRo
tag
válasz emitter #1315 üzenetére
hát, nem tudom
végülis csak sin vagy csak cos függvénnyel félig megvalósítható a dolog, csak torzít.
Én csak úgy csináltam, hogy külön forgatja az x illetve az y tengelyeket. Ezért torzít. Ezt a kettőt valahogy egymáshoz képest kell kiszámolni, akkor nem torzítana. Szerintem...
Mátrixokat, koordináta-transzformációt középiskolában tanítják
Ha érdekel nézd meg [link]
Meg akit érdekel, megnézheti.My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
alitak
senior tag
Nagyon gyors help kéne: Fájlból olvasok be, változó mennyiségű adatot. Úgy tudom, hogy van valamilyen parancs, ami azt figyeli, hogy mikor van vége a fájlnak. Na ez a parancs(?) kéne.
Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
alitak
senior tag
Up bizony!
Na úgy néz ki, hogy elkészült a programom első bétája, amiben már minden műxik, remélhetően jól. Ha lesz még kedvem valaha, akkor biztos lesz még bővítve: pl varázslás, tárgyak...
Szóval ha esetleg valaki kipróbálná, esetleg véleményezné, akkor küldöm. Csak még várom haverom, hogy befejezze a könyv gépelését...Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
alitak
senior tag
Itt van minden fájl, de a szöveg még nem teljes. Amint megvan, azt is frissítem.
[link]Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
alitak
senior tag
Az a kérdésem, hogyha a programomban crt unitot használok, akkor megoldható-e, hogy közben a képernyő másik részén graph unit van használtban?
Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
alitak
senior tag
-
czappa
aktív tag
Sziasztok! Delphiben írok egy progit windows alá; egy kérdésem lenne ami viszont - azt hiszem - inkább pascalhoz kapcsolódik.
Hogyan döntöm el egy szöveges file-ról (ismert az elérési út), hogy ott van-e, létezik-e?
Mert ha létezik, akkor hozzáírni szeretnék (append), ha nem akkor meg létrehozni és írni (rewrite).
Előre is köszi! -
VladimirR
nagyúr
{$I-}
append( file );
{$I+}
if ioresult <> 0 then begin
{$I-}
rewrite( file );
{$I+}
end;
bar nem tudom, lehet delphi alatt van ra fuggveny, pascal alatt a I direktiva kapcsolgatasaval, es az ioresult valtozoval lehetett jatszani (mindkettorol kimeritoen ir a sugo, en meg csak azert nem, mert reg hasznaltam) -
Ákoska
csendes tag
Sziasztok!
A segítségeteket szeretném kérni: Hogy lehet EXE fájlt ''csinálni'' a Turbo Pascalban?
Köszi előre is!
Üdv: ÁkosÜdv: Ákos
-
N!tRo
tag
pityPANG ?
My Frist Android Logic Game -[ Frame It! ]- keresd az Android Market-en!
-
alitak
senior tag
Én már végeztem a programommal, bár szerintem a nyáron megpróbálom majd átírni graphra, és akkor képek is lehetnek majd benne.
Viszont a játékhoz tartózó text.txt-t is át kéne nézni, biztos vannak benne hibák, csak nekem nincs rá erőm. Szóval ha esetleg akar valaki segíteni ebben az ízig-vérig pascalos problémában, akkor jelentkezzenNec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
alitak
senior tag
Át kéne olvasni, helyesírást kijavítani. Az is előfordulhat, hogy hiányzik 1-2 fejezet, át kéne nézni, hogy különleges eseményeknél helyesen vannak beírva az adatok. Kb. ennyit.
Frissítettem a legfrisebb verzióra: [link]Nec arte, nec marte | használt hardverek jó áron: http://goo.gl/lUwLkw
-
ViragL
tag
Ha transzformációkat végzel, akkor tárold az adatokat lebegőpontosan, külömben pontatlan adatokkal számolsz tovább és torzulni fog (ugye?)
Egy apróság, ha nem vagy tisztában a tömb és a ciklus fogalmával, akkor korai neked ilyen dolgokkal foglalkozni, ha meg igen akkor használd, átláthatóbb lesz a program. Ez csak tipp. -
ViragL
tag
Ha megfelelő célszoftvert (pl. bármelyik általános szövegszerkesztőt) használnál a mellékelt szöveg megírására (és nem egy DOS alapú editort) akkor a helyesírás nem jelentene problémát.
Minden tiszteletem annak a személynek, aki rászánja az időt és kijavítja a helyesírási hibáidat. -
ViragL
tag
Jószándékú megjegyzés volt részemről, remélem, nem bántottalak meg, nem az volt a célom!
Azért remélem nem csak az off-ot olvastad. Ha kell a témában segítség, segítek szivesen.
Valóban az a legfontosabb, hogy te átlásd, amit csinálsz, de ha egyszer egy ehhez hasonló kódot odaadsz valakinek, hogy nézze át...csak les majd szegény...
Még egyszer sorry! Az is igaz, hogy el kell kezdeni valahol, tehát hajrá! -
Norbo03
őstag
Hali!
Én msot kezdek tanulni programozást turbo pascal nyelvbe. Melyik verzióját ajánlátok a Turbo pascal-nak Win-re? WElőre is köszike mindenkinek!
Új hozzászólás Aktív témák
- Kipróbáltuk a Xiaomi 14 Ultra fotós szettjét
- A fociról könnyedén, egy baráti társaságban
- Fotók, videók mobillal
- Jobb zoom, egyszerűbb kijelző - megérkezett a Sony Xperia 1 VI
- Luck Dragon: Asszociációs játék. :)
- Motorolaj és szűrő topik
- Politika
- Háztartási gépek
- Mibe tegyem a megtakarításaimat?
- Drágább lett a Pixel 8a
- További aktív témák...
- 1GB 2GB 4GB - KINGMAX DDR3 1333MHz RAM
- Eladó full konfig: Ryzen 5 2600x, 32 GB Ram, 2060 Super 8 GB
- LENOVO LEGION IDEAPAD Y520-15IKBN i7 7700HQ 1050 Ti 12GB DDR4 128GB m.2 1TB HDD
- SUPER ALLOY ASRock H110M-DGS
- Olympus OM-D E-M5 II (Mark 2) (sn: BHEA30947) doboz, gyári tartozékok, 3 akksi OLVASS LEÍRÁST
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs