XProfan

- page 1 -

diimool25

merci

26.02.2014 ▲

diimool25

comment peux je cela faire le moi encore autre fragen faire peux alors si je sur enien button klicke ouvrir sich autre fragen ?

07.03.2014 ▲

diimool25

merci mais habe maintenant selber une OLUTION trouvé

07.03.2014 ▲

diimool25

peux mir einer dire comment je cela faire peux cela mir dit wird tu as 3 de 6 richtig ?

- page 2 -

Michael
Wodrich

Na par Buchführung.
chez chacun Frageauswertung zählst Du qui richtigen répondre.
Kompilieren Marque Séparation

Inc Richtige_Antworten%

Aussi devrait pas alle Fragen gleichzeitig angezeigt volonté, mais toujours une Frage et qui möglichen répondre. après wird ermittelt si es richtig était (gezählt) et ensuite ca va plus avec qui prochain Frage.
Am Ende hat on ensuite cela gewünschte Resultat.

XProfan X2
Windows (TM) Vista Ultimate, Core(TM) i7 920 @ 2.67GHz, 9206,26 MB
Programmieren, das spannendste Detektivspiel der Welt.

H.Brill

en supplément pourrait on encore une Ini-Dossier faire.
Etwa dans qui forme :

[Siele]
anzahl = "5" ' Pour Begrenzung de Randomiser
[1]
Frage1 = "blabla"
Frage2 = "blublu"
Frage3 = "blibli"
....
Frage5 = "..."
Antw1 = "lala"
Antw2 = "lulu"
Antw3 = "lili"
....
Antw15 = "..."
richtig = "1,5,9,11,14" ' chez 5 Groupboxen avec je 3 Fragen u. répondre
[2]
ici gleiches Schema comment sous [1]
[3]
ici gleiches Schema comment sous [1]
[4]
ici gleiches Schema comment sous [1]
[5]
ici gleiches Schema comment sous [1]

Per Zufallsgenerator (Randomiser) pourrait on ensuite une zufällige
numéro ([Rubrik] anspringen et qui Radiobuttons bestücken et
qui répondre eintragen. Ist arrêt seulement sinnvoll, si toujours 3 Fragen
et 3 répondre voilà et z.B. 5 Groupboxen avec je 3 Fragen u.
répondre. Kannste oui pour deinen Vorstellungen anpassen.

si qui Dossier vom Anwender pas betrachtet volonté soll, peux on
vous aussi verschlüsseln. Somit peux on avec dem le contenu rien anfangen.
Ist arrêt seulement un einfacher Schutz.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

diimool25

et comment oui c'est ca soll je livre mener ?

Den Rubriknamen (ici "1") dois du ensuite aussi variable tenir,
um verschiedene Jeux trop magasin.

qui 5 Fragen peux du oui léger chacun Groupbox zuweisen.
ensuite qui Richtigen auslesen. avec einer WhileLoop Boucle
1-5 et Substr$().
Kompilieren Marque Séparation

H.Brill

quoi meinst du oui c'est ca avec 'buch führen' ?

Ist avec cela qui Auswertung qui richtigen répondre
gemeint ? ou bien cela Sauver qui Richtigen
pour une Spieler ?

Pour cela Sauver qui Richtigen peux du oui
wieder une Ini-Dossier prendre :
[diimool25]
Richtige = "4"
date = Date$
usw.

quoi obige Ini-Dossier betrifft, dois du dir arrêt un Schema
ausdenken. peux on aussi so faire :
[1]
Frage1 = "..."
Antw1 = "..."
Antw2 = "..."
Antw3 = "..."
Frage2 = "..."
Antw1 = "..."
Antw2 = "..."
Antw3 = "..."

et zum Schluß ensuite
Richtige = "1,5,9,11,14"

mais cela erste dessus ist leichter avec einer Boucle auszulesen.
cela Array serait je avec 16 Entrées définir, avec cela du toujours
chez 1 anfangen peux trop zählen. Bleibt arrêt Element 0 toujours libre.
Kompilieren Marque Séparation

WhileLoop 1, 15

    SetText RadionButtons%[&LOOP], ReadIni$(inidatei$, "1", "Antw" + Str$(&LOOP))

EndWhil

' sieht ensuite so aus
Déclarer richtige%[16], richtig$
richtig$ = "1,5,8,11,14"
Claire richtige%[]

WhileLoop 1, 5

    richtige%[Val($ Substr(richtig$, &LOOP, »))] = 1

Endwhile

' et schwupp di wupp ist deine Wahrheitstabelle à den
'richtigen se mettre gesetzt bzw.pleine.
Imprimer richtig$

WhileLoop 1, 15

    Imprimer &LOOP; " : "; richtige%[&LOOP]

Endwhile

waitkey
Fin

Zuvor serait je mir une Art Wahrheitstabelle
(num. Array avec 16 Elementen) faire. là écris du arrêt à den
richtigen se mettre une 1 rein. qui fonctionne ensuite später chez qui Auswertung
simultan avec dem RadioButtons%[] Array.
Kompilieren Marque Séparation

WhileLoop 1, 15

    Si GetCheck(RadioButtons%[&LOOP]) And (Richtige%[&LOOP] = 1)

        Inc Richtige%

    EndIf

Endwhile

voilà deiner Fantasie mais aucun Grenzen gesetzt. peux aussi un
String-Array prendre et un "X" comme richtig markieren.
Denke mais daran, beim Lecture qui Inidatei cela Wahrheitsarray[]
avec Claire trop effacer.

09.03.2014 ▲

Michael
Wodrich

Gute idées,

mais que voici...

H.Brill (09.03.14)

quoi obige Ini-Dossier betrifft, dois du dir arrêt un Schema
ausdenken. peux on aussi so faire :
Frage1 = "..."
Antw1 = "..."
Antw2 = "..."
Antw3 = "..."
Frage2 = "..."
Antw1 = "..."
Antw2 = "..."
Antw3 = "..."

...muss quelque chose anders air. Glücklicherweise la hâte Du autre Propositions gemacht. à diesem partie stören qui identischen Schlüssel chez AntwX. là devrait ensuite plutôt Antw1_1, Antw1_2,... usw. verwendet volonté.

XProfan X2
Windows (TM) Vista Ultimate, Core(TM) i7 920 @ 2.67GHz, 9206,26 MB
Programmieren, das spannendste Detektivspiel der Welt.

09.03.2014 ▲

diimool25

oui avec livre führung mon je cela si on 6 fragen hat cela au sommet si on sur auswerten klickt cela car là steht tu as 5 de 6 richtig

09.03.2014 ▲