|
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 |
hello
Anmeldungsdatum: 15.04.2010 Beiträge: 34
|
Verfasst am: 15.04.2010, 16:12 Titel: Brauche Hilfe mit IF und INPUT, ganz simpel |
|
|
Hallo, alle, ich wollte mit IF einen "Taschenrechner" machen, hab' mich an
http://www.freebasic-portal.de
gehalten, und da ist immer so 'n Fehler, kann mir einer sagen was da falsch ist?
PS Ich bin noch Anfänger, also bitte für doofe erklären.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DIM A AS INTEGER, B AS INTEGER, SUMME AS INTEGER
INPUT "Geben Sie die erste Zahl ein: ", A
INPUT "Geben Sie die zweite Zahl ein: ", B
INPUT "Addieren, Subtrahieren, Multiplizieren oder Dividieren ? ", wahl
IF wahl = Addieren THEN
SUMME = A + B
END IF
IF wahl = Subtrahieren THEN
SUMME = A - B
END IF
IF wahl = Multiplizieren THEN
SUMME = A * B
END IF
IF wahl = Dividieren THEN
SUMME = A / B
END IF
PRINT "Das Ergebnis ist "; SUMME; " ."
SLEEP
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! _________________ Regards |
|
Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007 Beiträge: 4597 Wohnort: ~/
|
Verfasst am: 15.04.2010, 16:36 Titel: |
|
|
Vorneweg: die Frage hat mit Windows zunächst nichts zu tun, gehört also zu den FreeBASIC-spezifischen Fragen.
Code: | INPUT "Addieren, Subtrahieren, Multiplizieren oder Dividieren ? ", wahl |
wahl hast du noch nicht deklariert. Wenn der Benutzer hier tatsächlich "Addieren" oder eines der anderen eintippen soll, dann brauchst du vorher ein
Bei der Abfrage musst du die Variable dann ebenfalls wieder als String behandeln, also brauchst du um das "Addieren" Anführungsstriche:
Code: | IF wahl = "Addieren" THEN |
Sieht dann zusammengesetzt so aus:
Code: | DIM A AS INTEGER, B AS INTEGER, SUMME AS INTEGER, wahl AS STRING
INPUT "Geben Sie die erste Zahl ein: ", A
INPUT "Geben Sie die zweite Zahl ein: ", B
INPUT "Addieren, Subtrahieren, Multiplizieren oder Dividieren ? ", wahl
IF wahl = "Addieren" THEN
SUMME = A + B
END IF |
usw.
edit: Grundsätzlich wäre es bei "Da ist immer so ein Fehler" besser zu schreiben, was für ein Fehler denn auftritt. _________________ Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
Nach oben |
|
|
hello
Anmeldungsdatum: 15.04.2010 Beiträge: 34
|
Verfasst am: 15.04.2010, 19:42 Titel: |
|
|
nemored hat Folgendes geschrieben: | Vorneweg: die Frage hat mit Windows zunächst nichts zu tun, gehört also zu den FreeBASIC-spezifischen Fragen.
--> Tut mir leid, ich bin neu
Code: | INPUT "Addieren, Subtrahieren, Multiplizieren oder Dividieren ? ", wahl |
wahl hast du noch nicht deklariert. Wenn der Benutzer hier tatsächlich "Addieren" oder eines der anderen eintippen soll, dann brauchst du vorher ein
-->Ja, ich hatte so viele Versionen, ich weiß gar nicht was da richitg ist, hab eins verändert, nächster anderer Error.
Bei der Abfrage musst du die Variable dann ebenfalls wieder als String behandeln, also brauchst du um das "Addieren" Anführungsstriche:
Code: | IF wahl = "Addieren" THEN |
-->Achso
Sieht dann zusammengesetzt so aus:
Code: | DIM A AS INTEGER, B AS INTEGER, SUMME AS INTEGER, wahl AS STRING
INPUT "Geben Sie die erste Zahl ein: ", A
INPUT "Geben Sie die zweite Zahl ein: ", B
INPUT "Addieren, Subtrahieren, Multiplizieren oder Dividieren ? ", wahl
IF wahl = "Addieren" THEN
SUMME = A + B
END IF |
usw.
edit: Grundsätzlich wäre es bei "Da ist immer so ein Fehler" besser zu schreiben, was für ein Fehler denn auftritt. |
--> Der Fehler ist ja immer anders...
Aber ich hab mich noch ne halbe Stunde durchgewuselt und schon alles hingekriegt:
Code: | DIM A AS INTEGER, B AS INTEGER, SUMME AS INTEGER, wahl AS INTEGER
INPUT "Geben Sie die erste Zahl ein: ", A
INPUT "Geben Sie die zweite Zahl ein: ", B
INPUT "1 = Plus, 2 = Minus, 3 = Mal oder 4 = Geteilt ? ", wahl
IF wahl = 1 THEN
SUMME = A + B
END IF
IF wahl = 2 THEN
SUMME = A - B
END IF
IF wahl = 3 THEN
SUMME = A * B
END IF
IF wahl = 4 THEN
SUMME = A / B
END IF
PRINT "Das Ergebnis aus " ; A; " und " ; B; " ist "; SUMME; "."
SLEEP 1000
IF wahl = 1 THEN
PRINT "Die Rechnung war eine "
COLOR 12
PRINT "Summe"
COLOR 15
END IF
IF wahl = 2 THEN
PRINT "Die Rechnung war eine "
COLOR 12
PRINT "Subtraktion"
COLOR 15
END IF
IF wahl = 3 THEN
PRINT "Die Rechnung war eine "
COLOR 12
PRINT "Multiplikation"
COLOR 15
END IF
IF wahl = 4 THEN
PRINT "Die Rechnung war eine"
COLOR 12
PRINT "Division"
COLOR 15
END IF
SLEEP: END
|
Danke trotzdem _________________ Regards |
|
Nach oben |
|
|
Stueber
Anmeldungsdatum: 07.07.2008 Beiträge: 202
|
Verfasst am: 15.04.2010, 20:05 Titel: |
|
|
Ein kleiner Tip:
Anstatt ganz vielen IFs die alle die gleiche Variable prüfen wäre if...elseif...else viel besser. Hier gibts die Erklärung mit Beispiel *Link*. Noch besser wäre hier in deinem Fall select...case, nachzulesen hier. |
|
Nach oben |
|
|
square1
Anmeldungsdatum: 11.04.2010 Beiträge: 3
|
Verfasst am: 15.04.2010, 23:31 Titel: |
|
|
Das folgende Beispiel ist vielleicht nicht für ganz Doofe, denn es steckt schon einiges drin, aber ich finde, man sollte seine Ziele beim Lernen nicht zu niedrig stecken.
Es zerlegt eine einzige Eingabezeile, z. B. "12+3" in die Bestandteile "12", "+" und "3" und rechnet sie entsprechend zusammen:
Code: |
Dim As String s,o(4),zeichen,zahlstring(2)
Dim As Integer x,y,n=1,op
Dim As Double zahl(2)
For x = 1 To 4
Read o(x)'einlesen der operatoren aus der Datenzeile unten
Next
Input "Was darf's denn sein";s
For x = 1 To Len(s)
'durchläuft die gesamte eingabe
zeichen = Mid(s,x,1)
'nimmt ein einzelnes zeichen aus der eingabe
If zeichen=Str(Val(zeichen)) Or zeichen = "." Then
'prüft, ob das aktuelle zeichen eine zahl oder ein dezimalpunkt ist
zahlstring(n)=zahlstring(n)&zeichen
ElseIf zeichen =" " Then
'leerzeichen ignorieren
Else
n=n+1
'stellt die nächste zahl zusammen, wenn das aktuelle zeichen weder eine zahl noch ein dezimalpunkt ist
If n=3 Then Exit For EndIf
'ignoriert den rest der eingabe, wenn bereits zwei zahlen erkannt sind
EndIf
For y = 1 To 4
If zeichen = o(y) Then op=y End If
'prüft, ob das aktuelle zeichen ein operator ist
Next
Next
'umwandlung der zeichenketten in echte zahlen
zahl(1)=Val(zahlstring(1))
zahl(2)=Val(zahlstring(2))
'Berechnung und ausgabe des ergebnisses
Select Case op
Case 1
Print "Ergebnis der Addtion: ";zahl(1)+zahl(2)
Case 2
Print "Ergebnis der Subtraktion: ";zahl(1)-zahl(2)
Case 3
Print "Ergebnis der Multiplikation: ";zahl(1)*zahl(2)
Case 4
Print "Ergebnis der Division: ";zahl(1)/zahl(2)
Case Else
Print "Damit kann ich leider nichts anfangen."
End Select
Sleep
Data "+","-","*","/"
|
|
|
Nach oben |
|
|
hello
Anmeldungsdatum: 15.04.2010 Beiträge: 34
|
Verfasst am: 16.04.2010, 13:51 Titel: |
|
|
Code: | Das folgende Beispiel ist vielleicht nicht für ganz Doofe, denn es steckt schon einiges drin, aber ich finde, man sollte seine Ziele beim Lernen nicht zu niedrig stecken.
Es zerlegt eine einzige Eingabezeile, z. B. "12+3" in die Bestandteile "12", "+" und "3" und rechnet sie entsprechend zusammen: |
Naja, wir hatten erst eine Stunde darüber _________________ Regards |
|
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.
|
|