XProfan

Français

FLINN

moin erstmal DANKE à alle qui mir déjà geholfen avons,
j'ai ici un altes listing de mir c'est dans (vieux BSIC) je voudrais es volontiers dans XPROFAN écrivons eh bien gibt es oui là aucun Zeilennummern comment verfahre je maintenant avec dem GOTO Befehl sans Zeilennummern?
suis gespannt sur eure répondre)

1 PRINT CHR$(147)
2 PRINT"GIB EINE ZAHL EIN"
3 COLOR 0,1
4 PRINT" A =1"
5 PRINT" B =2"
6 PRINT" C =3"
7 COLOR 0,1
8 COLOR 1,6,4
9 INPUT"LOS DEINE ZAHL";A
10 ON A GOTO 12, 13, 14:GOTO 18
12 PRINT"DU HAST 1 GEDRUECKT":FIN
13 PRINT"DU HAST 2 GEDRUECKT":FIN
14 PRINT"DU HAST 3 GEDRUECKT":FIN
15 PRINT"DU HAST 3 GEDRUECKT":FIN
16 PRINT
17 PRINT

RINT
18 PRINT"DANKE FUER DEINE MITARBEIT ABER
DIE EINGABE IST FALSCH DU BIST RAUS!"

Alle Sprachen

04.11.2017 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

H.Brill

Aider lesen

si du absolument vorerst beim GOTO rester
vouloir, prends statt qui Zeilennummer un Label :

Kompilieren Marque Séparation

Label1:
Imprimer "Du la hâte 1 gedrückt"
Fin
Label2:
Imprimer "Du la hâte 2 gedrückt"
Fin
Label3:
Imprimer "Du la hâte 3 gedrückt"
Fin

mais je serait là pas soviel Zeit verschwenden. Goto
et Gosub gibt es dans prochaine Zeit pas plus. Früher
wurde cela comme Ersatz le heutigen Prozeduren
pris.

Kompilieren Marque Séparation

Déclarer GemerkteZahl&, EingabeZahl&, Ende&
Ende& = 0
MerkeZahl()
EingabeMaske()

WhileNot Ende&

    Si Eingabezahl& > 0

        Si EingabeZahl& <> GemerkteZahl&

            Beep
            Localiser 4, 46 : Imprimer " "
            Localiser 4, 46 : Contribution EingabeZahl&

        D'autre

            EndeProc()
            Ende& = 1

        EndIf

    D'autre

        Ende& = 1

    EndIf

Endwhile

Proc EingabeMaske

    CLS
    Localiser 1, 1  : Imprimer "ENDE avec Eingabe 0 !"
    Localiser 2, 1  : Imprimer "Der PC hat sich une numéro gemerkt !"
    Localiser 4, 1  : Imprimer "Bitte une numéro entre 1 et 9 eingeben : "
    Localiser 4, 46 : Contribution EingabeZahl&

ENDPROC

Proc MerkeZahl

    ' numéro entre 1 et 9
    ' par Zufall ermitteln
    Randomiser
    GemerkteZahl& = RND(9 - 1) + 1

ENDPROC

Proc EndeProc

    Localiser 8, 1 : Imprimer "RICHTIG !!!!!"
    Localiser 9, 1 : Imprimer "Bitte bouton zum finissons drücken..."
    WaitKey

ENDPROC

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.

04.11.2017 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

qui Sprung erfolgt ensuite avec ´Goto "Label1"´.

je kopiere den Voir le texte source 2 la fois, wobei je aus dem 1. partie alle Variablen pour cela dans XProfan nötige "Declare" extrahiere (dans Basic: DIM ou bien automatisches Anlegen). aussi ´GoSub "G100" ist ensuite possible (sonst verhält sich GoSub, comme wären Variable seulement bistrot gültig). aussi sur autre Besonderheiten muss on achten: Sqr() ist dans XProfan SQRT() etc. etc. Allen avec Goto angesprungenen Zeilennummern un G voranstellen et Doppelpunkt <return> anhängen...
G100:
(chez Gosub-Labels lieu je un S voran).
Restliche Zeilennummern weglöschen, pour Imprimer est un Leerzeichen. - Gruss

P.S.: je suis et bleibe "GOTO"-Fan. Viele vieille Programme leisten encore toujours Nützliches, et es wäre tant pis, alles récente strukturieren trop doit. Edsger Wybe Dijkstra dans honorer, mais seinem "Goto considered harmful!" steht pour comment avant qui attitude à "Dijkstra considered harmful!", aussi si on sur 2002 verstorbene Computerpioniere rien Schlechtes dire soll...

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

04.11.2017 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation