Ik verlang van jullie niet dat jullie een heel programma schrijven, ik hoef alleen maar wat tips en uitleg over hoe het moet.
Uitleg voor Hezik
Het wordt een form met 220 x 3 radiobuttons. Elk 3tal correspondeert met een vraag. De waarde van elk 3 tal radiobuttons moet in een array gezet worden(ingevulde waarden). Als geen waarde is geselecteerd wordt automatisch waarde 2 aan het positienummer van die array toegekend. 0 voor onjuist, 1 voor juist en 2 voor geen invoer of weet niet.
normaal zou je dan die input gaan vergelijken met de correcte antwoorden. Maar in dit geval worden die correcte antwoorden verzonnen door het programma. Die verzonnen 'correcte antwoorden' moeten random gemaakt worden met een verdeling waarbij er 109 juist en 109 onjuist zijn. de 2 laatsten worden random bepaald. Dus ik heb een array die er zo uitziet:
Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| procedure vulevenwicht;
var
i: integer;
begin
for i := 1 to 109 do
begin
evenwicht[i] := 0;
end;
for i:= 110 to 218 do
begin
evenwicht[i]:=1;
end;
evenwicht[219] := random(2);
evenwicht[220] := random(2);
end; |
De waarden in deze array(evenwicht) zijn bijna helemaal in evenwicht, aangezien er evenveel waarden 0 en 1 zijn met uitzondering van de 2 laatste random waarden. En ook is deze array mooi verdeeld in eerst 0-en en dan 1-en. Dit wordt dan door elkaar gehusseld met
Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| procedure tform1.vulantwoorden;
var
temp,gekozenwaarden : integer;
begin
vulevenwicht;
randomize;
gekozenwaarden := 0;
while gekozenwaarden < 220 do
begin
temp := random(220)+1;
if (evenwicht[temp] = 9) then
begin
//doe niks :P
end
else
begin
inc(gekozenwaarden);
antwoorden[gekozenwaarden]:= evenwicht[temp];
evenwicht[temp] := 9;
end;
end;
end; |
(Jouw stringlist heb ik nog effe niet uitgeplozen)
Nou is het aan de gebruiker, om strategieën te verzinnen waarmee hij toch een redelijke score zou behalen. Dit kan zijn :
1. Hij vult echt gewoon maar iets in (bijvoorbeeld 2x juist, 2x onjuist, en zo alle 220 waarden lang) dus hierbij moeten zijn 4 waarden voor de rest van de ingevuld array gebruikt woorden. JJOOJJOO etc.
2. of hij heeft al kennis, en bijvoorbeeld 30 vragen ingevuld, en probeert dan de rest ook in te vullen met een strategie (JJOO) om te kijken hoe hij dan scoort op de lange termijn als hij bijvoorbeeld 10 keer de toets zou doen.
Uiteindelijk is het belangrijkste punt, om op basis van de al ingevulde vragen en het aantal juist en onjuist in de gaten houdend een goede strategie te bedenken die rekening houdt met deze feiten.
Vragen van tomatos
1: correct.
2. de vragen worden nergens opgehaald, alleen de antwoorden, die krijg ik in een word document, met vraagnummer en juist en onjuist, maar dat type ik wel handmatig in, dat maakt niet uit.
In het kader van toetsingsanalyse en verbetering wil ik dit onderzoeken. Het is een statistisch programma dat random een ongeveer gelijk aantal goed en fout maakt zodat strategieën geprobeerd kunnen worden onder bepaalde aannames, als er bijvoorbeeld al 30 zijn ingevuld. Dan met een bepaalde strategie, steeds 2x goed, 2x fout ofzo de rest invullen die je niet weet.
3. niet echt van toepassing, dit zou later wel kunnen toegevoegd worden en de toets electronisch zo aanbieden(de huidige potloodinvul formulieren zijn nog altijd niet foutloos), maar het gaat nu eerst om de strategieën en de score die je daarmee zou halen. Een vraag goed is score + 1 een vraag fout score -1.
Bedankt voor je hulp in ieder geval. Je kunt me ook op msn bereiken.
zo heb ik het maken van radiobuttons gedaan
Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
| procedure TForm1.Button1Click(Sender: TObject);
const
kolommen = 22;
var
row, column , grotekolom : integer;
rb : tradiobutton;
lb : tlabel;
gb : tgroupbox;
totaal : integer;
begin
vulantwoorden;
totaal := 0;
for grotekolom := 0 to 9 do
begin
//labels met Juist onjuist
lb := Tlabel.create(self);
lb.parent := self;
lb.left := 56+ grotekolom*90;
lb.Top := 24;
lb.caption := 'J X O';
for row := 1 to kolommen do
begin
//labels met vraag nummer
lb := Tlabel.create(self);
lb.parent := self;
lb.left := 22+ grotekolom*90;
lb.Top := 18 + row*25;
lb.caption := inttostr(kolommen*grotekolom+(kolommen-(kolommen-row))); //lekka
// Groupbox settings
gb := tgroupbox.create (self);
gb.top := 10+25*row;
gb.height := 25;
gb.Left := 50 + grotekolom * 90;
gb.width := 50;
gb.parent := self;
gb.caption := '';
for column := 0 to 2 do
begin
//Radiobutton settings
rb := TRadioButton.Create (self);
rb.width := 15;
rb.Height:= 15;
rb.top := 7;
rb.left := 2+15*column;
rb.parent := gb; //this line to assign the groupbox as parent?
rb.caption := '';
end;
inc(totaal);
progressbar1.position := totaal;
end;
end;
button1.enabled := false;
end; |
ik weet alleen niet hoe ik die radiobuttons later dan weer aanspreek.
edit: effe labels met vraagnummer verzet> snelheidswinst.
Ik hoop dat het een beetje duidelijk is.
[
Voor 104% gewijzigd door
REDFISH op 29-05-2003 00:04
]
:strip_exif()/u/33808/avatar.gif?f=community){kind=avatar}
/u/1830/acm.png?f=community)
:strip_exif()/u/50656/andre-scholten-avatar.gif?f=community){kind=avatar}
:strip_exif()/u/51756/iglo.gif?f=community)
/u/71437/crop6867a75b81f09_cropped.png?f=community)
:strip_exif()/u/15310/tomato60%252072%2520frames%25205%2520deg%2520per%2520frame%2520optimized%252026%2520colors.gif?f=community)
). Je kunt daarom beter de generieke datatypes Integer en Cardinal gebruiken. De compiler kiest dan wel of hij er een 32-bits of (binnenkort?) 64-bits getal van wil maken.