Poll of je GR

[Bisz]

Ik wil graag een poll maken op mijn grafische rekenmachine waarbij je uit 4 antwoorden kunt kiezen en daarna ziet hoeveel stemmen elke antwoord heeft en wat het totaal aantal stemmen is. Ik heb alle antwoorden een plek in List1 gegeven. Als je antwoord een invult telt hij bijvoorbeeld 1 op bij A die hij eerder uit de eerste plaats van list1 heeft gehaald (L1:1) en die laat ik dan weer terugzetten. Dit heb ik ook gedaan met de andere keuzes, (b,c en d) maar dit werkt niet. Want na een keer stemmen op antwoord 1 krijg ik

2 stem op antwoord A, 2 op B, 3 op C en 4 op D en in totaal 6 stemmen. Weet iemand hoe ik dit wel moet doen????

[bulbanos]

kan je de broncode ff posten? dan kan ik eens kijken

[M-King]

Ik weet niet of je er wat aan hebt maar ik heb ff snel zo'n prog gemaakt voor je.... Zo kom je er misschien achter waar je fout zit... Het is op de Ti83

á= dat list teken (een kleine l)
ü= dat opslaan teken (een pijltje)

Die tekens kun je hier niet weergeven (tenminste ze werden automatisch zo omgezet)


ClrHome
SetUpEditor áPOLL
4üdim(áPOLL)
Output(1,1,"HOEVEEL")
Output(2,1,"ONVOLDOENDES")
Output(3,1,"HAD JE OP JE")
Output(4,1,"RAPPORT???")
Pause
Lbl V
Menu("KEUZE","GEEN",A,"1",B,"2",C,"3 OF MEER",D,"OVERZICHT",E,"RESET",F,"STOP",G)
Lbl A
áPOLL(1)+1üáPOLL(1)
Goto V
Lbl B
áPOLL(2)+1üáPOLL(2)
Goto V
Lbl C
áPOLL(3)+1üáPOLL(3)
Goto V
Lbl D
áPOLL(4)+1üáPOLL(4)
Goto V
Lbl E
ClrHome
Output(1,1,"1: "
Output(1,4,áPOLL(1)
Output(2,1,"Z: "
Output(2,4,áPOLL(2)
Output(3,1,"3: "
Output(3,4,áPOLL(3)
Output(4,1,"4: "
Output(4,4,áPOLL(4)
Output(5,1,"TOTAAL:")
Output(6,1,sum(áPOLL)
Pause
Goto V
Lbl F
Menu("RESET??","JA",FA,"NEE",V)
Lbl FA
Fill(0,áPOLL)
Goto V
Lbl G
ClrHome
Return

[bulbanos]

M-King schreef:
<broncode>

deze werkt perfect, en als je wilt kan je het nog uitbreiden met grafieken en zo

[Bisz]

Ik weet nog steeds niet wat ik nou precies verkeerd heb gedaan, want ik had het heel anders gedaan. Maar dit werkt gewedlig en is nog beter dan ik had verwacht. Heel erg bedankt

[M-King]

Bisz schreef:
Ik weet nog steeds niet wat ik nou precies verkeerd heb gedaan, want ik had het heel anders gedaan. Maar dit werkt gewedlig en is nog beter dan ik had verwacht. Heel erg bedankt