TartalomFriss hozzászólások
Új fórum témákAktív fórum témákFriss blogbejegyzésekGoogle hirdetések |
Kvíz program készítése
randall, 2010, augusztus 28 - 20:31
Sziasztok! Kezdő delphis vagyok. Mindegyik témakörben 30-30 kérdést kellene megválaszolnom mégpedig úgy, hogy ahogy haladok a 30kérdés vége felé egyre nehezednek a kérdések. Ezt úgy gondoltam, hogy csinálok több adatfile-t amiben a kérdéseket tárolom le, és külön a más-más nehézségűeket is. Tehát valahogy így (összesen 12 adatfile): -Sport_első_nehézség: -Földrajz_első_nehézség: -Történelem_első_nehézség: -Irodalom_első_nehézség: Minden adatfájlban lenne kb 50-50 kérdés, de ebből a program nehézségenként mindíg csak 10-et kérdezne véletlenszerűen. Ezután a program a "Sport_első_nehézség" adatfile-ból feltesz 10kérdést (mindíg véletlenszerűen az ott lévőek közül). Ezután következik a "Sport_második_nehézség" adatfile, szintén e szernit az elv szerint. Ehhez szeretnék valamiféle segítséget kérni. Vagy hogy esetleg milyen más módszerrel lehetne ugyan ezt a végeredményt kapni? A segítségeket/ötleteket előre is köszönöm! »
|
KeresésBelépésIndex TechPC Fórum
Origo TechbázisSG.hu |
oké
A választós teszt és az igaz hamis az sima dolog.
Egyszerű szöveges fájlban is tárolhatod a kérdéseket és vele együtt a megoldásokat (pl.: a kérdést a választól egy speciális karakterrel választod el: így: melyik a helyes válasz? #a vagy az állítás igaz? #hamis)
A fájlt betöltöd egy memo-ba (a kivitelezést ezen fórum tömb gond nevű topic-jában találod), majd a sorokat véletlenszámgenerálással kéred le a speciális karakterig.
var kerdes,valasz:string;
......
kerdes:=copy(memo1.lines[i],0,pos('#',memo1.lines[i]));
valasz:=copy(memo1.lines[i],pos('#',memo1.lines[i]),2);
Arra pedig vigyázz, hogy kétszer ugyan azt a kérdést ne tedd fel, tehát tárold el a már húzott kérdések számát és addig ameddig már húzott számot generál a random() addig mindig egy új generálásra kell.
Egyenlőre ennyit, ha próbálgatod, akkor majd kérdezhetsz konkrétabban is!
Üdv.: Totó
Köszönöm, meglátom mire
Köszönöm, meglátom mire jutok.