Von BB Programm in einer Textdatei schreiben

Übersicht

BlitzBasic

Allgemein

	bruce185 Betreff: Von BB Programm in einer Textdatei schreiben	Fr, Okt 07, 2005 19:39 Antworten mit Zitat
hi, ich bin ja gerade dabei ein Mathematik Programm zu schreiben, nun wenn ich ein ergebnis reinschreibe, und es falsch oder richtig ist, dann möchte ich das es in einer Textdatei reingeschrieben wird, ich lass es ja so Prüfen ob das eingegebene Zahl Richtig oder Falsch ist: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If Eingabe = Zahl1 + Zahl2 Then ;wenn Richtig, dann Richtig um 1 Richtig = Richtig + 1 ;erhöhen, und neue Zufallszahlen Zahl1 = Rnd(1, 100) ;erzeugen Zahl2 = Rnd(1, 100) Else ;wenn Falsch, dann Falsch um 1 Falsch = Falsch + 1 ;erhöhen, und neue Zufallszahlen Zahl1 = Rnd(1, 100) ;erzeugen Zahl2 = Rnd(1, 100) EndIf und wenn z.B. 15 + 30 = 45 ist, dann möchte ich so in einer Textdatei schreiben: 15 + 30 = 45 ist Richtig oder so: 15 + 30 = 40 dann soll das so in einer Textdatei schreiben: 15 + 30 = 40 ist Falsch, richtig wäre 45 man kann es doch mit WriteString machen, aber leider weiss ich nicht wie das geht für jede hilfe bin ich euch sehr dankbar Andreas

bruce185

Betreff: Von BB Programm in einer Textdatei schreiben

Fr, Okt 07, 2005 19:39
Antworten mit Zitat

hi,
ich bin ja gerade dabei ein Mathematik Programm zu schreiben, nun wenn ich ein ergebnis reinschreibe, und es falsch oder richtig ist, dann möchte ich das es in einer Textdatei reingeschrieben wird, ich lass es ja so Prüfen ob das eingegebene Zahl Richtig oder Falsch ist:

BlitzBasic: [AUSKLAPPEN]


If Eingabe = Zahl1 + Zahl2 Then ;wenn Richtig, dann Richtig um 1 
  Richtig = Richtig + 1                 ;erhöhen, und neue Zufallszahlen 
  Zahl1 = Rnd(1, 100)                 ;erzeugen
  Zahl2 = Rnd(1, 100)
Else                                          ;wenn Falsch, dann Falsch um 1 
  Falsch = Falsch + 1                  ;erhöhen, und neue Zufallszahlen 
  Zahl1 = Rnd(1, 100)                ;erzeugen
  Zahl2 = Rnd(1, 100)
EndIf

und wenn z.B. 15 + 30 = 45 ist, dann möchte ich so in einer Textdatei schreiben: 15 + 30 = 45 ist Richtig

oder so: 15 + 30 = 40 dann soll das so in einer Textdatei schreiben:
15 + 30 = 40 ist Falsch, richtig wäre 45

man kann es doch mit WriteString machen, aber leider weiss ich nicht wie das geht

für jede hilfe bin ich euch sehr dankbar Sad

Andreas

	simi	Fr, Okt 07, 2005 19:45 Antworten mit Zitat
=> Zuerst öffnest du eine Daei zum Schreiben (ql:WriteFile) => dann schreibst du diene gewünschte Zeile rein (ql:WriteLine) => und dann schliesst du deine Datei wieder (ql:CloseFile) => und Fertig !! Viel Spass

simi

Fr, Okt 07, 2005 19:45
Antworten mit Zitat

=> Zuerst öffnest du eine Daei zum Schreiben (ql:WriteFile)
=> dann schreibst du diene gewünschte Zeile rein (ql:WriteLine)
=> und dann schliesst du deine Datei wieder (ql:CloseFile)
=> und Fertig !! Very Happy

Viel Spass Smile

	Rallimen Sieger des 30-EUR-Wettbewerbs	Fr, Okt 07, 2005 19:53 Antworten mit Zitat
Eine neue Function wäre das beste... dann immer eine Zeile anhängen! datei öffnen seekfile dateiende writeline ... closefile..
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Fr, Okt 07, 2005 19:53
Antworten mit Zitat

Eine neue Function wäre das beste...
dann immer eine Zeile anhängen!

datei öffnen
seekfile dateiende
writeline ...
closefile..

[BB2D | BB3D | BB+]

	bruce185	Sa, Okt 08, 2005 5:13 Antworten mit Zitat
danke euch, aber sorry, ich habe ein problem, ich versuche es schon den ganzen abend, aber leider komme ich nicht weiter, die Forum Suche habe ich auch benutzt, aber nichts pasendes gefunden. Zu mein Problem, und zwar habe ich das jetzt hinbekommen mit dem Schreiben in einer Textdetei, aber es wird nur eine Zeile immer reingeschrieben, ich möchte wenn mann weitere aufgaben rechnet, das diese alle in die Textdatei geschrieben wird, und zwar untereinander, habe es so probiert: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If Eingabe = Zahl1 + Zahl2 Then Datei = WriteFile(\"Korrigierung.txt\") WriteLine(Datei, Zahl1 + \" + \" + Zahl2 + \" = \" + Eingabe + \" ist Richtig\") CloseFile(Datei) Else Datei = WriteFile(\"Korrigierung.txt\") WriteLine(Datei, Zahl1 + \" + \" + Zahl2 + \" = \" + Eingabe + \" ist Falsch, richtig wäre \" + (Zahl1 + Zahl2)) CloseFile(Datei) EndIf da kann was nicht stimmen, weill wenn ich eine aufgabe richtig gerechnet habe, dann wird ja Praktisch die If anweisung ausgeführt, oder wenn es falsch gerechnet wurde, dann die else anweisung, da steht ja Datei = WriteFile("Korrigierung.txt") damit wird das ja immer überschrieben, deshalb geht das nicht, wisst ihr vieleicht einen andere lösung, für jede hilfe bin ich euch sehr dankbar Andreas

bruce185

Sa, Okt 08, 2005 5:13
Antworten mit Zitat

danke euch, aber sorry, ich habe ein problem, ich versuche es schon den ganzen abend, aber leider komme ich nicht weiter, die Forum Suche habe ich auch benutzt, aber nichts pasendes gefunden.
Zu mein Problem, und zwar habe ich das jetzt hinbekommen mit dem Schreiben in einer Textdetei, aber es wird nur eine Zeile immer reingeschrieben, ich möchte wenn mann weitere aufgaben rechnet, das diese alle in die Textdatei geschrieben wird, und zwar untereinander, habe es so probiert:

BlitzBasic: [AUSKLAPPEN]

If Eingabe = Zahl1 + Zahl2 Then
  Datei = WriteFile(\"Korrigierung.txt\")
  WriteLine(Datei, Zahl1 + \" + \" + Zahl2 + \" = \" + Eingabe + \" ist Richtig\")
  CloseFile(Datei)
Else
  Datei = WriteFile(\"Korrigierung.txt\")
  WriteLine(Datei, Zahl1 + \" + \" + Zahl2 + \" = \" + Eingabe + \" ist Falsch, richtig wäre \" + (Zahl1 + Zahl2))
  CloseFile(Datei)
EndIf

da kann was nicht stimmen, weill wenn ich eine aufgabe richtig gerechnet habe, dann wird ja Praktisch die If anweisung ausgeführt, oder wenn es falsch gerechnet wurde, dann die else anweisung, da steht ja
Datei = WriteFile("Korrigierung.txt") damit wird das ja immer überschrieben, deshalb geht das nicht, wisst ihr vieleicht einen andere lösung, für jede hilfe bin ich euch sehr dankbar Smile

Andreas

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Okt 08, 2005 10:17 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Datei = WriteFile(\"Korrigierung.txt\") öffnet immer eine neue leere Datei BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Datei = OpenFile(\"Korrigierung.txt\") öffnet eine vorhandenen Datei um darin zu schreiben mit SeekFile kommst du an die gewünschte Position Beispiel BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Datei = OpenFile(\"Korrigierung.txt\") If Datei = 0 Then Datei = WriteFile(\"Korrigierung.txt\") SeekFile Datei, FileSize (\"Korrigierung.txt\") ;ans Ende springen WriteLine .... CloseFile datei
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Okt 08, 2005 10:17
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Datei = WriteFile(\"Korrigierung.txt\")

öffnet immer eine neue leere Datei

BlitzBasic: [AUSKLAPPEN]

Datei = OpenFile(\"Korrigierung.txt\")

öffnet eine vorhandenen Datei um darin zu schreiben
mit SeekFile kommst du an die gewünschte Position

Beispiel
BlitzBasic: [AUSKLAPPEN]

Datei = OpenFile(\"Korrigierung.txt\")
   If Datei = 0 Then Datei = WriteFile(\"Korrigierung.txt\")
   SeekFile Datei, FileSize (\"Korrigierung.txt\") ;ans Ende springen
   WriteLine ....
   CloseFile datei

[BB2D | BB3D | BB+]

	bruce185	Sa, Okt 08, 2005 15:01 Antworten mit Zitat
cool, vielen dank für deine hilfe, jetzt funktioniert das, nur das hat gefehlt "SeekFile", danke nochmals Andreas

bruce185

Sa, Okt 08, 2005 15:01
Antworten mit Zitat

cool, vielen dank für deine hilfe, jetzt funktioniert das, nur das hat gefehlt "SeekFile", danke nochmals Very Happy

Andreas

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Von BB Programm in einer Textdatei schreiben

bruce185

Betreff: Von BB Programm in einer Textdatei schreiben

simi

Rallimen

bruce185

Rallimen

bruce185