Testy pomoci radiogroup1 – Delphi – Fórum – Programujte.com

Dobrý den, máme na základy programování v Delphi a mam semestrální praci na Klasický test, na 10 otazek.

Mám podminky na vyhodnocení otázky typu :

if otz=0 then if radiogroup1.itemindex=3 then ShowMessage('Správně') else ShowMessage('Špatně');
if otz=1 then if radiogroup1.itemindex=2 then ShowMessage('Správně') else ShowMessage('Špatně');

a prikaz : 

begin
    otz:=1+ otz;
    radiogroup1.ItemIndex:=-1;
    if otz=1
    then begin
    label2.Caption:='2:';
    radiogroup1.Items[0]:='kompresor';
    radiogroup1.Items[1]:='profesor';
    radiogroup1.Items[2]:='procesor';
    radiogroup1.Items[3]:='motor';
end;

Mám to nekolikrát zkopírované ale když spustim tak mne to vynechá otázky a hodi mne to naposledni,a nevim kde je chyba,Děkuji za pomoc

Takto je to tazko skontrolovat ked nevidim cely zdrojak. To 'otz' je asi globalna premenna.Mas niekde to 'otz' nastavene na nejaku pociatocnu hodnotu ? 

#2 Jimi

Doufám že to je tedka citelne po pripade pak jsem jestli bude nutno hodim zazipovaný cely projekt,ptz to opravdu nutne musim nejak dat dokupy. Děkuji za ochotu

No s toho co som pochopil ak som to teda pochopil tak pocitas tie otazky v premennej 'otazka'. Tuto premennu nastavis vzdy na nejaku hodnotu podla toho ktory test v poradi momentalne ma zobrazit. Teda Tam mi to nie je celkom jasne. Nemalo by to byt nahodou take ze tu premennu otazka by si mal na zaciatok nastavit na '0'. Trebarz v procedure TForm1.FormCreate . Potom vzdy pri stlaceni tlacitka prebehnut vsetky tie podmienky teda 

if(otazka = 0) then bla bla bla

potom

if(otazka = 1) then bla bla bla

Potom do tej procedury Button1Click by som dal uplne posledny riadok dopisat 'otazka := otazka + 1';

Tym som chcel povedat asi to ze ked uz opravy ten test a vypise tu message tak nech uz na buduce po stlaceni toho dalsieho tlacitka vypisuje novy test. Napis ci som to dobre pochopil

Nezabudni z toho Button2Click vymazat vsetky tie 'otazka:=1' . Dalej si este skontroluj tie podmienky if( otazka = 1). Vsade v kazdej podmienke mas to iste. Malo by to byt od 0 po 3

#5 Jimi
Dobrý den,tak jsem to zkousel udelat tak jste popisoval,ale hází mne to opet nejakou chybu  :-(

http://www.uloz.to/…straalka-rar  když tak tady celý soubor,protože ja už nevim vcem je chyba? téměr zoufalý jsem z toho ....kdyby jste byl tak ochotný kouknul na to,napsal mne vcem je chyba,opravdu bych byl vdečný

A ano pochopil jste to dobre,a pak tam jeste musim zakombinovat nejakou promnenou na vyhodnoceni testu.

Dekuji

Tak som to nejak prekopal a uz to celkom ide.

http://www.uloz.to/…straalka-zip

Staci uz len poupravovat drobnosti

Opravil som par chyb a dorobil to skore.

http://www.uloz.to/…straalka-rar

#8 Jimi
Opravdu dekuji moc:-)...moc si važím pomoci :-) super...

#9 Machy
Mohu se zeptat jak dlouho Vám to trvalo? dekuji

#7 Jimi

Tak se omlouvám,jsem uplný trotl na toto,ale když se snazim pridat otazku píše mne toto:

[Error] Unit1.pas(106): Statement expected but 'PROCEDURE' found

Nevim kde je chyba,,zkopiroval jsem promnenil promenny,,,a stejne tento error

Dobry den,

v podstate len par minut. Neskor som ten program este zapol a bolo tam dost chyb tak som to poopravoval. Hadam to bude OK. Vela zdaru

#12 Jimi
Super,už to frčí :-D dekuji moc,ja to delal 1 celej den:-)