|
Das deutsche QBasic- und FreeBASIC-Forum Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Z2012
Anmeldungsdatum: 03.05.2020 Beiträge: 22 Wohnort: Großdeutschland
|
Verfasst am: 05.05.2020, 21:03 Titel: If Anweisung funktioniert nicht in FreeBASIC |
|
|
Hallo
ich habe folgendes Programm gebaut:
Code: | DIM as INTEGER A=0, B=10, C=0
PRINT "Variable A, B und C", "A=", A, "B=", B, "C=", C
SLEEP 4500
DO
PRINT A
CLS
A=(A+10)
B=(B+10)
C=sqr(A^2)+(B^2)
PRINT "Nächste Runde der Variablen A, B und C", "A=", A, "B=", B, "C=", C
SLEEP 1500
IF A>100 THEN
GOTO DO
ELSE
GOTO END
END IF
LOOP
END
SLEEP |
Aber die "ELSE Funktion" wirkt sich nicht aus.
Kennt die Lösung - warum"?
MfG |
|
Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1875 Wohnort: D59192
|
Verfasst am: 06.05.2020, 13:42 Titel: |
|
|
Hi,
DO ist kein Label, END ist kein Label
FB zeigt bei mir das als Fehler an.
Code: | Dim As Long A, B=10, C
Print "Variable A, B und C", "A="; A, "B="; B, "C="; C
Sleep 1000
Do
A=A+10
B=B+10
C=Sqr((A^2)+(B^2))
Print "Nächste Runde der Variablen A, B und C", "A="; A, "B="; B, "C="; C
Sleep 1000
Loop While A<100
Sleep
End
|
_________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
|
grindstone
Anmeldungsdatum: 03.10.2010 Beiträge: 1220 Wohnort: Ruhrpott
|
Verfasst am: 06.05.2020, 18:51 Titel: |
|
|
Zur Ergänzug: Für Sprünge an den Anfang einer Schleife und aus einer Schleife heraus hat FB eigene Befehle: Code: | Dim As Integer A=0, B=10, C=0
Print "Variable A, B und C", "A=", A, "B=", B, "C=", C
Sleep 4500
Do
Cls
Print A
A=(A+10)
B=(B+10)
C=Sqr(A^2)+(B^2)
Print "Nächste Runde der Variablen A, B und C", "A=", A, "B=", B, "C=", C
Sleep 1500
If A<100 Then
Continue Do '<<<<<<<<
Else
Exit Do '<<<<<<<
End If
Loop
Print "OK"
Sleep
|
Gruß
grindstone _________________ For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen! |
|
Nach oben |
|
|
Z2012
Anmeldungsdatum: 03.05.2020 Beiträge: 22 Wohnort: Großdeutschland
|
Verfasst am: 07.05.2020, 19:51 Titel: |
|
|
Hallo grindstone,
Danke, dass ich nicht dumm sterben muss.
Ich wollte gerade eben fragen wie denn
"IF THEN ELSE" programmiert und wofür diese BEDIENUNG denn eingesetzt wird!
MfG _________________ Z2012
A C H T U N G Sarkasmus:
Nur nicht hetzen, (Hobby <> Semiprofi oder Profi)-Proggramira brauchen etwas länger.
(frei nach mir)
Es gibt keinen Königsweg zur Mathematik oder Programmierung.
(frei nach Euklid) |
|
Nach oben |
|
|
grindstone
Anmeldungsdatum: 03.10.2010 Beiträge: 1220 Wohnort: Ruhrpott
|
Verfasst am: 08.05.2020, 17:42 Titel: |
|
|
Gern geschehen.
Leider ist mir in meinem Post ein kleiner Fehler unterlaufen: Continue springt nicht an den ANFANG, sondern an das ENDE einer Schleife, ich bitte um Entschuldigung. Bei deinem Programmschnippsel macht das allerdings keinen Unterschied, da ein Loop ohne Bedingung immer an den Anfang der Schleife springt
Gruß
grindstone _________________ For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen! |
|
Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|