Problem mit IF

Übersicht

BlitzBasic

Beginners-Corner

	ssj-goku Betreff: Problem mit IF	Sa, Dez 16, 2006 0:28 Antworten mit Zitat
hi leutz hier mein Problem: Code: [AUSKLAPPEN] [EINKLAPPEN] If Locate 20,20 vorname$ = Input$("Vorname: ") And Locate 20,40 name$ = Input$("Name: ") And Locate 20,60 betrag# = Input#("Betrag: ") And Locate 20,80 datum# = Input#("Datum: ") Then print "danke blabla" kommt immer der fehler: Zitat: Expecting expression danke für jede hilfe mfg Goku
AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

ssj-goku

Betreff: Problem mit IF

Sa, Dez 16, 2006 0:28
Antworten mit Zitat

hi leutz hier mein Problem:

Code: [AUSKLAPPEN]

kommt immer der fehler:

Zitat:

Expecting expression

danke für jede hilfe

mfg Goku

AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

	aMul Sieger des Minimalist Compo 01/13	Sa, Dez 16, 2006 0:43 Antworten mit Zitat
Lass mal die ganzen Ands und das If+Then weg, schon klappts. Ich weiß ja nicht, was du mit dem Code erreichen wolltest, aber die paar Abfragen funktionieren auch ohne Ifs. EDIT: Oder möchtest du die Variablen mit den Eingaben vergleichen? Dann musst du 1. alles in eine Zeile schreiben und zweitens das Locate rausnehmen. Zwischen If und Then/If und And/And und Then darf nur ein Ausdruck (x=y, etc.) stehen. EDIT2: @Ralliman: So kann man das auch ausdrücken EDIT3: @Hase: So auch...
Panic Pong - ultimate action mashup of Pong and Breakout <= aktives Spiele-Projekt, Downloads mit vielen bunten Farben! advASCIIdraw - the advanced ASCII art program <= aktives nicht-Spiele-Projekt, must-have für ASCII/roguelike/dungeon-crawler fans! Alter BB-Kram: ThroughTheAsteroidBelt - mit Quelltext! \| RGB-Palette in 32²-Textur / Farbige Beleuchtung mit Dot3 \| Stereoskopie in Blitz3D \| Teleport-Animation Screensaver

aMul

Sieger des Minimalist Compo 01/13

Sa, Dez 16, 2006 0:43
Antworten mit Zitat

Lass mal die ganzen Ands und das If+Then weg, schon klappts. Ich weiß ja nicht, was du mit dem Code erreichen wolltest, aber die paar Abfragen funktionieren auch ohne Ifs.

EDIT:
Oder möchtest du die Variablen mit den Eingaben vergleichen?
Dann musst du 1. alles in eine Zeile schreiben und zweitens das Locate rausnehmen. Zwischen If und Then/If und And/And und Then darf nur ein Ausdruck (x=y, etc.) stehen.

EDIT2:
@Ralliman:
So kann man das auch ausdrücken Mr. Green

EDIT3:
@Hase:
So auch...

Panic Pong - ultimate action mashup of Pong and Breakout <= aktives Spiele-Projekt, Downloads mit vielen bunten Farben!
advASCIIdraw - the advanced ASCII art program <= aktives nicht-Spiele-Projekt, must-have für ASCII/roguelike/dungeon-crawler fans!
Alter BB-Kram: ThroughTheAsteroidBelt - mit Quelltext! | RGB-Palette in 32²-Textur / Farbige Beleuchtung mit Dot3 | Stereoskopie in Blitz3D | Teleport-Animation Screensaver

Zuletzt bearbeitet von aMul am Sa, Dez 16, 2006 0:58, insgesamt 3-mal bearbeitet

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Dez 16, 2006 0:43 Antworten mit Zitat
Solche konstruktionen habe ich noch nicht gesehen! Was soll der Code bezwecken?
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Dez 16, 2006 0:43
Antworten mit Zitat

Solche konstruktionen habe ich noch nicht gesehen!
Was soll der Code bezwecken?

[BB2D | BB3D | BB+]

	DerHase	Sa, Dez 16, 2006 0:54 Antworten mit Zitat
@ssj-goku: Vielleicht ist es hilfreich, wenn Du Dich über Befehle die Du verwendest informierst Es ist doch ne Help bei BlitzBasic dabei. Und wenn Du es auf deutsch haben möchtest, hätte Dir Google sehr geholfen. Hier die Befehle auf deutsch erklärt.
Play Satyr!

DerHase

Sa, Dez 16, 2006 0:54
Antworten mit Zitat

@ssj-goku: Vielleicht ist es hilfreich, wenn Du Dich über Befehle die Du verwendest informierst Rolling Eyes

Es ist doch ne Help bei BlitzBasic dabei. Und wenn Du es auf deutsch haben möchtest, hätte Dir Google sehr geholfen. Hier die Befehle auf deutsch erklärt.

Play Satyr!

	ssj-goku	Sa, Dez 16, 2006 1:16 Antworten mit Zitat
ja also was ich damit bezwecken will ist folgendes: wenn ich die eingaben gemacht habe soll er das ind eine datei schreiben hier mal der ganze code Code: [AUSKLAPPEN] [EINKLAPPEN] If Locate 20,20 vorname$ = Input$("Vorname: ") And Locate 20,40 name$ = Input$("Name: ") And Locate 20,60 betrag# = Input#("Betrag: ") And Locate 20,80 datum# = Input#("Datum: ") Then ;in deatei schreiben datei = OpenFile("daten.txt") WriteLine datei, "Vorname: " + $vorname WriteLine datei, "Name: " + $name WriteLine datei, "Betrag: " + #betrag WriteLine datei, "Datum: " + #datum CloseFile mehr soll das nicht bezwecken, aber leider geht es ja nicht, hat jemand eine andere idee als if schleifen zu benutzen
AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

ssj-goku

Sa, Dez 16, 2006 1:16
Antworten mit Zitat

ja also was ich damit bezwecken will ist folgendes: wenn ich die eingaben gemacht habe soll er das ind eine datei schreiben hier mal der ganze code

Code: [AUSKLAPPEN]

If
Locate 20,20
vorname$ = Input$("Vorname: ")
And
Locate 20,40
name$ = Input$("Name: ")
And
Locate 20,60
betrag# = Input#("Betrag: ")
And
Locate 20,80
datum# = Input#("Datum: ")
Then
;in deatei schreiben
datei = OpenFile("daten.txt")
WriteLine datei, "Vorname: " + $vorname
WriteLine datei, "Name: " + $name
WriteLine datei, "Betrag: " + #betrag
WriteLine datei, "Datum: " + #datum
CloseFile

mehr soll das nicht bezwecken, aber leider geht es ja nicht, hat jemand eine andere idee als if schleifen zu benutzen

AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

	FireballFlame	Sa, Dez 16, 2006 1:22 Antworten mit Zitat
IFs sind keine Schleifen! Ich versteh immer noch nicht, was du mit den IFs da willst... Erklär bitte nochmal, warum du die da rein gebaut hast...
PC: Intel Core i7 @ 4x2.93GHz \| 6 GB RAM \| Nvidia GeForce GT 440 \| Desktop 2x1280x1024px \| Windows 7 Professional 64bit Laptop: Intel Core i7 @ 4x2.00GHz \| 8 GB RAM \| Nvidia GeForce GT 540M \| Desktop 1366x768px \| Windows 7 Home Premium 64bit

FireballFlame

Sa, Dez 16, 2006 1:22
Antworten mit Zitat

IFs sind keine Schleifen!

Ich versteh immer noch nicht, was du mit den IFs da willst...
Erklär bitte nochmal, warum du die da rein gebaut hast...

	ssj-goku	Sa, Dez 16, 2006 1:25 Antworten mit Zitat
okay sry hast recht sind keine schleifen was ich damit will ist, jetzt mal auf deutsch: Zitat: wenn eingegeben und eingeben dann speichern
AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

ssj-goku

Sa, Dez 16, 2006 1:25
Antworten mit Zitat

okay sry hast recht sind keine schleifen was ich damit will ist, jetzt mal

auf deutsch:
Zitat:

wenn
eingegeben
und
eingeben
dann
speichern

AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

	FireballFlame	Sa, Dez 16, 2006 1:29 Antworten mit Zitat
Achso ... dann versuchs mal so: Code: [AUSKLAPPEN] [EINKLAPPEN] Locate 20,20 : vorname$ = Input("Vorname: ") Locate 20,40 : name$ = Input("Name: ") Locate 20,60 : betrag# = Input("Betrag: ") Locate 20,80 : datum# = Input("Datum: ") ;in datei schreiben If vorname <> "" And name <> "" And betrag <> 0 And datum <> 0 datei = OpenFile("daten.txt") WriteLine datei, "Vorname: " + vorname WriteLine datei, "Name: " + name WriteLine datei, "Betrag: " + betrag WriteLine datei, "Datum: " + datum CloseFile datei End If Wenn Datum oder Betrag Null sollen sein dürfen, dann wird das etwas komplizierter, ist aber auch nicht wild...

FireballFlame

Sa, Dez 16, 2006 1:29
Antworten mit Zitat

Achso ... dann versuchs mal so:

Code: [AUSKLAPPEN]

Locate 20,20 : vorname$ = Input("Vorname: ")
Locate 20,40 : name$ = Input("Name: ")
Locate 20,60 : betrag# = Input("Betrag: ")
Locate 20,80 : datum# = Input("Datum: ")

;in datei schreiben
If vorname <> "" And name <> "" And betrag <> 0 And datum <> 0
datei = OpenFile("daten.txt")
WriteLine datei, "Vorname: " + vorname
WriteLine datei, "Name: " + name
WriteLine datei, "Betrag: " + betrag
WriteLine datei, "Datum: " + datum
CloseFile datei
End If

Wenn Datum oder Betrag Null sollen sein dürfen, dann wird das etwas komplizierter, ist aber auch nicht wild...

Zuletzt bearbeitet von FireballFlame am Sa, Dez 16, 2006 1:44, insgesamt 2-mal bearbeitet

	ssj-goku	Sa, Dez 16, 2006 1:36 Antworten mit Zitat
okay danke erstmal
AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

ssj-goku

Sa, Dez 16, 2006 1:36
Antworten mit Zitat

okay danke erstmal

AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

	ssj-goku	Sa, Dez 16, 2006 11:51 Antworten mit Zitat
so neues problemhab schon verucht es zu lösen aber irgendwie hat es nicht geklappt. Also wenn ich Dateien speichere dann übershcreibt er die immer wieder. Kann man nicht irgendwie ein Zeiger setzten oder so. txh im voraus
AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

ssj-goku

Sa, Dez 16, 2006 11:51
Antworten mit Zitat

so neues problemhab schon verucht es zu lösen aber irgendwie hat es nicht geklappt. Also wenn ich Dateien speichere dann übershcreibt er die immer wieder. Kann man nicht irgendwie ein Zeiger setzten oder so.

txh im voraus

AMD 64 3500+ 2GB RAM GF6600 GT 128 RAM

	StepTiger	Sa, Dez 16, 2006 12:31 Antworten mit Zitat
wie, er überschreibt sie immer? writefile sorgt dafür, dass du eine bestehende datei überschreibst oder eine neue erstellst. sonst entweder: alte daten einlesen und mit in die neue schreiben oder: Readfile erlaubt das gleichzeitige Schreiben und Lesen
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Sa, Dez 16, 2006 12:31
Antworten mit Zitat

wie, er überschreibt sie immer?

writefile sorgt dafür, dass du eine bestehende datei überschreibst oder eine neue erstellst.

sonst entweder:
alte daten einlesen und mit in die neue schreiben
oder:
Readfile erlaubt das gleichzeitige Schreiben und Lesen

Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Dez 16, 2006 14:14 Antworten mit Zitat
Eine von vielen Möglichkeiten ... Code: [AUSKLAPPEN] [EINKLAPPEN] Datei% = OpenFile (DateiPfad$) If Datei% <> 0 Then ; Datei gibt es schon... Zeiger% = FileSize (DateiPfad$) SeekFile Datei,Zeiger% ;Die Schreibposition ans Ende stellen Else ; Datei exitiert nicht neue erstellen Datei% = WriteFile (DateiLogPfad$) End If WriteLine Datei%, bla... ;... CloseFile Datei%
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Dez 16, 2006 14:14
Antworten mit Zitat

Eine von vielen Möglichkeiten ...
Code: [AUSKLAPPEN]

Datei% = OpenFile (DateiPfad$)

If Datei% <> 0 Then ; Datei gibt es schon...
Zeiger% = FileSize (DateiPfad$)
SeekFile Datei,Zeiger% ;Die Schreibposition ans Ende stellen
Else
; Datei exitiert nicht neue erstellen
Datei% = WriteFile (DateiLogPfad$)
End If

WriteLine Datei%, bla...
;...
CloseFile Datei%

[BB2D | BB3D | BB+]

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Problem mit IF

Betreff: Problem mit IF