Brauche Hilfe bei Visual Basic Schulprojekt

[Jesus_666]

Ich habe zwar die letzten 48 Stunden hauptsächlich damit verbracht, im Alleingang einen Übungszettel für Praktische Informatik zu lösen (ihr glaubt gar nicht, wie sehr einem das die Lust am Coden nimmt), aber whatever...

Das hier ist Pseudocode. Ich habe seit Ewigkeiten nicht mehr mit VB gearbeitet.

Code:

randnum = random(1, 4) ' Zufallszahl von 1 bis 4
while (randnum == richtig.text) ' Solange die Zufallszahl mit der richtigen Antwort identisch ist...
 randnum = random(1, 4) ' "würfeln" wir sie neu aus

if ((richtig.text != 1) AND (randnum != 1)) A.visible = false
if ((richtig.text != 2) AND (randnum != 2)) B.visible = false
if ((richtig.text != 3) AND (randnum != 3)) C.visible = false
if ((richtig.text != 4) AND (randnum != 4)) D.visible = false

Das sollte es tun. Du mußt den Kram natürlich noch in richtiges VB umsetzen, aber der Algorithmus sollte so mehr oder weniger hinkommen.

Du solltest dich aber wirklich mal mit deiner Programmiersprache befassen. Diese Aufgabe ist an sich trivial.

[DFYX]

Code:

randnum = random(1, 4) ' Zufallszahl von 1 bis 4
while randnum = richtig.text ' Solange die Zufallszahl mit der richtigen Antwort identisch ist...
 randnum = random(1, 4) ' "würfeln" wir sie neu aus
Wend

if richtig.text <> 1 AND randnum <> 1 Then A.visible = false
if richtig.text <> 2 AND randnum <> 2 Then B.visible = false
if richtig.text <> 3 AND randnum <> 3 Then C.visible = false
if richtig.text <> 4 AND randnum <> 4 Then D.visible = false

So in etwa sähe das in VB aus. Nur bei der Zufallszahl bin ich mir nicht sicher. Keine Ahnung, ob das tut, aber sieht gut aus.

@Jeez:
Wir warten immer noch auf den Zettel. Ich denk zwar nich, dass ich ne Chance hab, aber wer weiß...

[Jesus_666]

@Jeez:
Wir warten immer noch auf den Zettel. Ich denk zwar nich, dass ich ne Chance hab, aber wer weiß...

...

Ich kriege die ganzen Zettel erst am Donnerstag wieder. Geduld, junger Padawan...