XProfan

Español

FLINN

moin primero DANKE a todos el me ya geholfen haben,
Yo hier una altes listing de me es en (alt BSIC) Yo möchte lo gerne en XPROFAN escribir nun hay sí como no Zeilennummern como verfahre Yo ahora con el GOTO Befehl sin Zeilennummern?
Bin gespannt en eure Respuesta)

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 Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

H.Brill

Ayuda lesen

Wenn du necesariamente vorerst beim GOTO bleiben
möchtest, nimm en lugar de el Zeilennummer una Label :

Kompilieren Marca Separación

Label1:
Imprimir "Du hast 1 gedrückt"
End
Label2:
Imprimir "Du hast 2 gedrückt"
End
Label3:
Imprimir "Du hast 3 gedrückt"
End

Aber Yo sería como no soviel Tiempo verschwenden. Goto
y Gosub hay en nächster Tiempo no mehr. Früher
wurde como el Ersatz a heutigen Prozeduren
genommen.

Kompilieren Marca Separación

Declarar GemerkteZahl&, EingabeZahl&, Ende&
Ende& = 0
MerkeZahl()
EingabeMaske()

Sinestar encargado Ende&

    If Eingabezahl& > 0

        If EingabeZahl& <> GemerkteZahl&

            Beep
            Localizar 4, 46 : Imprimir " "
            Localizar 4, 46 : Entrada EingabeZahl&

        Más

            EndeProc()
            Ende& = 1

        EndIf

    Más

        Ende& = 1

    EndIf

EndWhile

Proc EingabeMaske

    CLS
    Localizar 1, 1  : Imprimir "ENDE con Eingabe 0 !"
    Localizar 2, 1  : Imprimir "Der PC ha se una Zahl gemerkt !"
    Localizar 4, 1  : Imprimir "Bitte una Zahl zwischen 1 y 9 eingeben : "
    Localizar 4, 46 : Entrada EingabeZahl&

ENDPROC

Proc MerkeZahl

    ' Zahl zwischen 1 y 9
    ' por Zufall ermitteln
    Selección aleatoria
    GemerkteZahl& = RND(9 - 1) + 1

ENDPROC

Proc EndeProc

    Localizar 8, 1 : Imprimir "RICHTIG !!!!!"
    Localizar 9, 1 : Imprimir "Bitte Taste para Beenden 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 Zitat

Absatzweise Cita Zeilenweise Cita

p.specht

Der Sprung es entonces con ´Goto "Label1"´.

Yo kopiere el Ver código fuente 2 veces, wobei Hice el 1. Teil todos Variables para el en XProfan nötige "Declare" extrahiere (In Basic: DIM oder automatisches Anlegen). Auch ´GoSub "G100" es entonces posible (sonst verhält se GoSub, como wären Variable sólo lokal gültig). Auch en otro Besonderheiten muss uno achten: Sqr() es en XProfan SQRT() etc. etc. Allen con Goto angesprungenen Zeilennummern una G voranstellen y Doppelpunkt <return> anhängen...
G100:
(En Gosub-Labels lugar Yo una S voran).
Restliche Zeilennummern weglöschen, después de Imprimir gehört una Leerzeichen. - Gruss

P.S.: Yo bin y bleibe "GOTO"-Fan. Viele alte Programas leisten todavía siempre Nützliches, y lo wäre schade, alles neu strukturieren tener. Edsger Wybe Dijkstra en Ehren, aber seinem "Goto considered harmful!" es después de como antes el Meinung gegenüber "Dijkstra considered harmful!", auch si uno encima 2002 verstorbene Computerpioniere nichts Schlechtes sagen se...

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

04.11.2017 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita