Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

If Anweisung funktioniert nicht in FreeBASIC

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Z2012



Anmeldungsdatum: 03.05.2020
Beiträge: 22
Wohnort: Großdeutschland

BeitragVerfasst am: 05.05.2020, 20:03    Titel: If Anweisung funktioniert nicht in FreeBASIC Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name Yahoo Messenger MSN Messenger
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1874
Wohnort: D59192

BeitragVerfasst am: 06.05.2020, 12:42    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
grindstone



Anmeldungsdatum: 03.10.2010
Beiträge: 1208
Wohnort: Ruhrpott

BeitragVerfasst am: 06.05.2020, 17:51    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Z2012



Anmeldungsdatum: 03.05.2020
Beiträge: 22
Wohnort: Großdeutschland

BeitragVerfasst am: 07.05.2020, 18:51    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden AIM-Name Yahoo Messenger MSN Messenger
grindstone



Anmeldungsdatum: 03.10.2010
Beiträge: 1208
Wohnort: Ruhrpott

BeitragVerfasst am: 08.05.2020, 16:42    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.

 Impressum :: Datenschutz