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:

Taschenrechner

 
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
qbay



Anmeldungsdatum: 08.06.2008
Beiträge: 84
BeitragVerfasst am: 01.05.2010, 19:18    Titel: Antworten mit Zitat
hey leute hab auch versucht einen taschenrechner zu programmieren
aber irgentwie funktioniert der nich obwohl er sehr simple ist
ich verstehe nich was da falsch ist

was meint ihr??

Code:


DIM AS SINGLE zeichen
DIM SHARED AS INTEGER a, b, c

DECLARE SUB Addition
DECLARE SUB Subtraktion
DECLARE SUB Multiplikation
DECLARE SUB Division

DO
    CLS
    INPUT "Geben Sie eine Zahl ein(a)",a
    INPUT "Geben Sie einen Operator ein",zeichen
    INPUT "Geben Sie eine Zahl ein(b)",b

    IF zeichen = "+" THEN
        Addition
    END IF
    IF zeichen = "-" THEN
        Subtraktion
    END IF
    IF zeichen = "*" THEN
        Multiplikation
    END IF
    IF zeichen = "/" THEN
        Division
    END IF
    'ELSE INPUT "Geben Sie den Operator noch einmal an",zeichen
LOOP

SUB Addition
    c=a+b
    PRINT a,"+",b,"=",c
END SUB

SUB Subtraktion
    c=a-b
    PRINT a,"-",b,"=",c
END SUB

SUB Multiplikation
    c=a*b
    PRINT a,"*",b,"=",c
END SUB

SUB Division
    c=a/b
    PRINT a,"/",b,"=",c
END SUB


Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
MOD
Fleißiger Referenzredakteur


Anmeldungsdatum: 10.09.2007
Beiträge: 1003
BeitragVerfasst am: 01.05.2010, 19:22    Titel: Antworten mit Zitat
Hi,

"zeichen" muss natürlich ein String sein und kein Single und am Ende der Do-Loop-Schleife noch ein Sleep, sonst wird das Ergebnis sofort wieder überschrieben. Der Rest passt so.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
qbay



Anmeldungsdatum: 08.06.2008
Beiträge: 84
BeitragVerfasst am: 01.05.2010, 19:27    Titel: Antworten mit Zitat
vielen dank MOD
oh man so ein dummer fehler^^
naja

so siehts jetzt aus

Code:

DIM AS STRING zeichen
DIM SHARED AS INTEGER a, b, c

DECLARE SUB Addition
DECLARE SUB Subtraktion
DECLARE SUB Multiplikation
DECLARE SUB Division

DO
    CLS
    INPUT "Geben Sie eine Zahl ein(a): ",a
    INPUT "Geben Sie einen Operator ein: ",zeichen
    INPUT "Geben Sie eine Zahl ein(b): ",b

    IF zeichen = "+" THEN
        Addition
    END IF
    IF zeichen = "-" THEN
        Subtraktion
    END IF
    IF zeichen = "*" THEN
        Multiplikation
    END IF
    IF zeichen = "/" THEN
        Division
    END IF

    SLEEP
LOOP

SUB Addition
    c=a+b
    PRINT a,"+",b,"=",c
END SUB

SUB Subtraktion
    c=a-b
    PRINT a,"-",b,"=",c
END SUB

SUB Multiplikation
    c=a*b
    PRINT a,"*",b,"=",c
END SUB

SUB Division
    c=a/b
    PRINT a,"/",b,"=",c
END SUB



kannst du mir noch sagen wie ich es schaffe das bei der ausgabe die zeichen nich so weit voneinender stehen?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
28398



Anmeldungsdatum: 25.04.2008
Beiträge: 1917
BeitragVerfasst am: 01.05.2010, 19:53    Titel: Antworten mit Zitat
Erstelle doch bitte dafür deinen eigenen Thread.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 01.05.2010, 19:57    Titel: Antworten mit Zitat
qbay hat Folgendes geschrieben:
kannst du mir noch sagen wie ich es schaffe das bei der ausgabe die zeichen nich so weit voneinender stehen?

Verwende statt des Kommas in den PRINT-Zeilen ein Ampersand (&), um Leerzeichen zu vermeiden:
Code:
DIM AS INTEGER a = 13, b = 37
PRINT "Der Wert ist " & a & b & "."
SLEEP

_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
qbay



Anmeldungsdatum: 08.06.2008
Beiträge: 84
BeitragVerfasst am: 01.05.2010, 21:21    Titel: Antworten mit Zitat
ICH HABS JETZT grinsen
DANKE LEUTE

Code:

DIM AS STRING zeichen
DIM SHARED AS INTEGER a, b, c

DECLARE SUB Addition
DECLARE SUB Subtraktion
DECLARE SUB Multiplikation
DECLARE SUB Division

DO
    CLS
    INPUT "Geben Sie eine Zahl ein(a): ",a
    INPUT "Geben Sie einen Operator ein: ",zeichen
    INPUT "Geben Sie eine Zahl ein(b): ",b

    IF zeichen = "+" THEN
        Addition
    END IF
    IF zeichen = "-" THEN
        Subtraktion
    END IF
    IF zeichen = "*" THEN
        Multiplikation
    END IF
    IF zeichen = "/" THEN
        Division
    END IF

    SLEEP
LOOP

SUB Addition
    c=a+b
    PRINT a & "+" & b & "=" & c
END SUB

SUB Subtraktion
    c=a-b
    PRINT a & "-" & b & "=" & c
END SUB

SUB Multiplikation
    c=a*b
    PRINT a & "*" & b & "=" & c
END SUB

SUB Division
    c=a/b
    PRINT a & "/" & b & "=" & c
END SUB


Nach oben
Benutzer-Profile anzeigen Private Nachricht 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