neu schreiben

Übersicht

BlitzBasic

Beginners-Corner

	pepetigo Betreff: neu schreiben	Sa, Sep 22, 2007 16:27 Antworten mit Zitat
Hallo ich habe einen Code, und bei dem ist das erhöhern der Variabeln ein problem(das ab if Keyhit bis Endif geschreibene ist es, vielleicht ist auch die position falsch). es schreibt zwar aber es schreibt nicht neu ??? vielleicht könnt ihr mir helfen thx Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 24, 2 Global y1 = 0 Global hour$ = "h" Global datum$ = "" Global zeit$ = "" Global arbeit$ ="" Global geld$ = "" Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld" Repeat If KeyHit(88) datum$ = datum$ + 1 zeit$ = zeit$ + 1 arbeit$ = arbeit$ + 1 geld$ = geld$ + 1 eingabe() EndIf Until KeyHit(1) End Function eingabe() FlushKeys y1 = y1 +12 Locate 0, y1 datum$ = Input() Text 128, y1, "min" Locate 100, y1 zeit$ = Input() Locate 160, y1 arbeit$ = Input() Text 600, y1, "euro" Locate 579, y1 geld$ = Input() speichern() End Function Function speichern() datei%=WriteFile("Tina.dat") WriteLine datei%,"Datum:" + datum$ WriteLine datei%,"Zeit: " + zeit$ WriteLine datei%,"Arbeit: "+ arbeit$ WriteLine datei%,"Geld: " + geld$ CloseFile datei% End Function

pepetigo

Betreff: neu schreiben

Sa, Sep 22, 2007 16:27
Antworten mit Zitat

Hallo ich habe einen Code, und bei dem ist das erhöhern der Variabeln ein problem(das ab if Keyhit bis Endif geschreibene ist es, vielleicht ist auch die position falsch).
es schreibt zwar aber es schreibt nicht neu ???
vielleicht könnt ihr mir helfen
thx

Code: [AUSKLAPPEN]

Graphics 640, 480, 24, 2

Global y1 = 0
Global hour$ = "h"
Global datum$ = ""
Global zeit$ = ""
Global arbeit$ =""
Global geld$ = ""

Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld"

Repeat

If KeyHit(88)

datum$ = datum$ + 1
zeit$ = zeit$ + 1
arbeit$ = arbeit$ + 1
geld$ = geld$ + 1

eingabe()

EndIf

Until KeyHit(1)
End

Function eingabe()
FlushKeys
y1 = y1 +12
Locate 0, y1 datum$ = Input()
Text 128, y1, "min"
Locate 100, y1 zeit$ = Input()
Locate 160, y1 arbeit$ = Input()
Text 600, y1, "euro"
Locate 579, y1 geld$ = Input()

speichern()

End Function

Function speichern()

datei%=WriteFile("Tina.dat")
WriteLine datei%,"Datum:" + datum$
WriteLine datei%,"Zeit: " + zeit$
WriteLine datei%,"Arbeit: "+ arbeit$
WriteLine datei%,"Geld: " + geld$

CloseFile datei%

End Function

	DATIS	Sa, Sep 22, 2007 16:39 Antworten mit Zitat
ganz einfach: du kannst zu strings nichts dazu addieren. strings sind texte (markiert durch das $-zeichen). wenn du zu einem text eine 1 dazu addierst, was passiert dann? nichts. vielleicht ne fehlermeldung. du musst statt strings normale integer verwenden. lass das $-zeichen weg und gebe andere werte. z.B.: Code: [AUSKLAPPEN] [EINKLAPPEN] Global y1 = 0 Global hour$ = "h" Global datum = 0 Global zeit = 0 Global arbeit = 0 Global geld = 0 Text 40,40, "Datum:"+datum Text 100, 0, "Zeit:"+zeit Text 160, 0, "Arbeit:"+arbeit Text 579, 0, "Geld:"+geld Repeat If KeyHit(88) datum$ = datum$ + 1 zeit$ = zeit$ + 1 arbeit$ = arbeit$ + 1 geld$ = geld$ + 1 eingabe() EndIf so müsste es gehen
Frauen und Technik? Männer und BHs? Beides möglich.

DATIS

Sa, Sep 22, 2007 16:39
Antworten mit Zitat

ganz einfach: du kannst zu strings nichts dazu addieren. strings sind texte (markiert durch das $-zeichen). wenn du zu einem text eine 1 dazu addierst, was passiert dann? nichts. vielleicht ne fehlermeldung. du musst statt strings normale integer verwenden. lass das $-zeichen weg und gebe andere werte. z.B.:
Code: [AUSKLAPPEN]

Global y1 = 0
Global hour$ = "h"
Global datum = 0
Global zeit = 0
Global arbeit = 0
Global geld = 0

Text 40,40, "Datum:"+datum
Text 100, 0, "Zeit:"+zeit
Text 160, 0, "Arbeit:"+arbeit
Text 579, 0, "Geld:"+geld

Repeat

If KeyHit(88)

datum$ = datum$ + 1
zeit$ = zeit$ + 1
arbeit$ = arbeit$ + 1
geld$ = geld$ + 1

eingabe()

EndIf

so müsste es gehen

Frauen und Technik?
Männer und BHs?

Beides möglich.

	pepetigo	Sa, Sep 22, 2007 16:46 Antworten mit Zitat
aber da schreibt er bei: datum$ + datum$ + 1 Variable typ mismatch thx

pepetigo

Sa, Sep 22, 2007 16:46
Antworten mit Zitat

aber da schreibt er bei:

datum$ + datum$ + 1 Variable typ mismatch
thx

	mas93	Sa, Sep 22, 2007 16:58 Antworten mit Zitat
Warum nimmst du für datum eines String?? Tu mal überall das $ hinter datum weg, dann geht es.
www.lpbase.de Meine Linkin Park Fanseite[Noch im Aufbau]

mas93

Sa, Sep 22, 2007 16:58
Antworten mit Zitat

Warum nimmst du für datum eines String??

Tu mal überall das $ hinter datum weg, dann geht es.

www.lpbase.de
Meine Linkin Park Fanseite[Noch im Aufbau]

	pepetigo	Sa, Sep 22, 2007 17:07 Antworten mit Zitat
So??? aber es geht nicht er überschreibt es er soll es ja neu schreiben. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 24, 2 Global y1 = 0 Global hour$ = "h" Global datum = "" Global zeit = "" Global arbeit$ ="" Global geld = "" Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld" Repeat If KeyHit(88) datum = datum + 1 zeit = zeit + 1 arbeit = arbeit + 1 geld = geld + 1 eingabe() EndIf Until KeyHit(1) End Function eingabe() FlushKeys y1 = y1 +12 Locate 0, y1 datum = Input() Text 128, y1, "min" Locate 100, y1 zeit = Input() Locate 160, y1 arbeit$ = Input() Text 600, y1, "euro" Locate 579, y1 geld = Input() speichern() End Function Function speichern() datei%=WriteFile("Tina.dat") WriteLine datei%,"Datum:" + datum WriteLine datei%,"Zeit: " + zeit WriteLine datei%,"Arbeit: "+ arbeit$ WriteLine datei%,"Geld: " + geld CloseFile datei% End Function

pepetigo

Sa, Sep 22, 2007 17:07
Antworten mit Zitat

So???
aber es geht nicht er überschreibt es er soll es ja neu schreiben.

Code: [AUSKLAPPEN]

Graphics 640, 480, 24, 2

Global y1 = 0
Global hour$ = "h"
Global datum = ""
Global zeit = ""
Global arbeit$ =""
Global geld = ""

Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld"

Repeat

If KeyHit(88)

datum = datum + 1
zeit = zeit + 1
arbeit = arbeit + 1
geld = geld + 1

eingabe()

EndIf

Until KeyHit(1)
End

Function eingabe()
FlushKeys
y1 = y1 +12
Locate 0, y1 datum = Input()
Text 128, y1, "min"
Locate 100, y1 zeit = Input()
Locate 160, y1 arbeit$ = Input()
Text 600, y1, "euro"
Locate 579, y1 geld = Input()

speichern()

End Function

Function speichern()

datei%=WriteFile("Tina.dat")
WriteLine datei%,"Datum:" + datum
WriteLine datei%,"Zeit: " + zeit
WriteLine datei%,"Arbeit: "+ arbeit$
WriteLine datei%,"Geld: " + geld

CloseFile datei%

End Function

	Xeres Moderator	Sa, Sep 22, 2007 17:14 Antworten mit Zitat
Vielleicht würde es bei der Lösung helfen, wenn du dich ein stück genauer ausdrückst. Die Ausgabe ist genau vor der Schleife, nicht innerhalb der Schleife.
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Sa, Sep 22, 2007 17:14
Antworten mit Zitat

Vielleicht würde es bei der Lösung helfen, wenn du dich ein stück genauer ausdrückst.
Die Ausgabe ist genau vor der Schleife, nicht innerhalb der Schleife.

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	pepetigo	Sa, Sep 22, 2007 17:18 Antworten mit Zitat
sorry aber das verstehe ich nicht kannst du den Code nco heinmal rein kopieren thx

pepetigo

Sa, Sep 22, 2007 17:18
Antworten mit Zitat

sorry
aber das verstehe ich nicht kannst du den Code nco heinmal rein kopieren
thx

	Xeres Moderator	Sa, Sep 22, 2007 17:37 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld" ;<<< da stehts Repeat ;<<< da gehört's hin Wahrscheinlich solltest du erst mal grundlagentutorials machen und dir die deutsche Blitzbasic Hilfe runterladen: http://www.blitzbase.de/2b.htm
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Sa, Sep 22, 2007 17:37
Antworten mit Zitat

Code: [AUSKLAPPEN]

Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld" ;<<< da stehts

Repeat

;<<< da gehört's hin

Wahrscheinlich solltest du erst mal grundlagentutorials machen und dir die deutsche Blitzbasic Hilfe runterladen:
http://www.blitzbase.de/2b.htm

	pepetigo	Sa, Sep 22, 2007 17:58 Antworten mit Zitat
so geht es nicht thx Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 24, 2 Global y1 = 0 Global hour$ = "h" Global datum = "" Global zeit = "" Global arbeit$ ="" Global geld = "" Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld" Repeat datum = datum + 1 zeit = zeit + 1 arbeit = arbeit + 1 geld = geld + 1 If KeyHit(88) eingabe() EndIf Until KeyHit(1) End Function eingabe() FlushKeys y1 = y1 +12 Locate 0, y1 datum = Input() Text 128, y1, "min" Locate 100, y1 zeit = Input() Locate 160, y1 arbeit$ = Input() Text 600, y1, "euro" Locate 579, y1 geld = Input() speichern() End Function Function speichern() datei%=WriteFile("Tina.dat") WriteLine datei%,"Datum:" + datum WriteLine datei%,"Zeit: " + zeit WriteLine datei%,"Arbeit: "+ arbeit$ WriteLine datei%,"Geld: " + geld CloseFile datei% End Function

pepetigo

Sa, Sep 22, 2007 17:58
Antworten mit Zitat

so geht es nicht
thx

Code: [AUSKLAPPEN]

Graphics 640, 480, 24, 2

Global y1 = 0
Global hour$ = "h"
Global datum = ""
Global zeit = ""
Global arbeit$ =""
Global geld = ""

Print "Datum" Text 100, 0, "Zeit" Text 160, 0, "Arbeit" Text 579, 0, "Geld"

Repeat

datum = datum + 1
zeit = zeit + 1
arbeit = arbeit + 1
geld = geld + 1

If KeyHit(88)

eingabe()

EndIf

Until KeyHit(1)
End

Function eingabe()
FlushKeys
y1 = y1 +12
Locate 0, y1 datum = Input()
Text 128, y1, "min"
Locate 100, y1 zeit = Input()
Locate 160, y1 arbeit$ = Input()
Text 600, y1, "euro"
Locate 579, y1 geld = Input()

speichern()

End Function

Function speichern()

datei%=WriteFile("Tina.dat")
WriteLine datei%,"Datum:" + datum
WriteLine datei%,"Zeit: " + zeit
WriteLine datei%,"Arbeit: "+ arbeit$
WriteLine datei%,"Geld: " + geld

CloseFile datei%

End Function

	BladeRunner Moderator	Sa, Sep 22, 2007 18:05 Antworten mit Zitat
Du hast es de facto nicht geändert. Bevor Du daran weiterarbeitest, pepetigo, schreib mir bitte ein Programm dass die Zahlen von 1 - 1000 nacheinander Zeile für Zeile auf dem Bildschirm ausgibt und danach auf einen Tastendruck wartet um es zu beenden. Das gesamte Programm darf nicht mehr als 20 Zeilen haben. Das würde zeigen dass Du dich wirklich mit der Materie beschäftigst.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Sa, Sep 22, 2007 18:05
Antworten mit Zitat

Du hast es de facto nicht geändert.
Bevor Du daran weiterarbeitest, pepetigo, schreib mir bitte ein Programm dass die Zahlen von 1 - 1000 nacheinander Zeile für Zeile auf dem Bildschirm ausgibt und danach auf einen Tastendruck wartet um es zu beenden. Das gesamte Programm darf nicht mehr als 20 Zeilen haben.
Das würde zeigen dass Du dich wirklich mit der Materie beschäftigst.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	pepetigo	Sa, Sep 22, 2007 18:37 Antworten mit Zitat
so??? aber mein Problem??? Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 24, 2 For i=1 To 1000 Print i Next WaitKey End

pepetigo

Sa, Sep 22, 2007 18:37
Antworten mit Zitat

so???
aber mein Problem???

Code: [AUSKLAPPEN]

Graphics 640, 480, 24, 2

For i=1 To 1000
Print i
Next

WaitKey
End

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

neu schreiben

Betreff: neu schreiben