Das deutsche QBasic- und FreeBASIC-Forum

CadCam · Anmeldungsdatum: 02.01.2005 Beiträge: 2

Hallo,
ich habe ein Problem:
diese Aufgabe hier:

----------------------------------------------------------------------------
Eine Randomdatei KUNDEN.DAT mit einer unbekannten Anzahl von Datensätzen sei vorhanden. Jeder Datensatz enthält folgende Informationen:
Kundenname (maximal 30 Symbole lang)
Anzahl bisheriger Bestellungen (einfachlange ganze Zahl)
Summe der bisherigen Rechnungsbeträge (Gleitkommazahl)
a. Schreiben Sie ein QBasic-Programm, das für eine neue Bestellung den Kundennamen und den Rechnungsbetrag von der Tastatur eingibt, anschließend in der Datei KUNDEN.DAT den Kunden sucht und
– wenn der Kunde schon auf der Datei vorhanden ist, in seinem Datensatz die Anzahl der Bestellungen um 1 erhöht und die bisherige Summe der Rechnungsbeträge um den neuen Rechnungsbetrag erhöht,
– wenn der Kunde neu ist, auf dem Bildschirm die Ausgabe ” Neukunde! “ schreibt.
------------------------------------------------------------------------------

habe ich eigentlich schon fast gelöst:

CLS
TYPE kunden
kn AS STRING * 30
bes AS INTEGER
sum AS SINGLE
END TYPE
DIM kun AS kunden
OPEN "kunden.dat" FOR RANDOM AS 1 LEN = LEN(kun)
INPUT "Kundenname eingeben"; kname$
INPUT "Rechnungsbetrag eingeben"; betrag
a = 0
FOR i% = 1 TO LOF(1) / LEN(kun$)

GET 1, i%, kun
IF kname$ = kun.kn THEN
a = a + 1
kun.bes=kun.bes + 1
kun.sum=kun.sum+bestrag
PUT 1, i%, kun
PRINT USING "Name: & Best: ##### Summe: ######## a:"; kun.kn; kun.bes; kun.sum; a
NEXT i%

IF a = 0 THEN PRINT "Neukunde!!!"

CLOSE 1
END

ALLERDINGS:

habe ich erst nach langem mit dem Kopf durch die Mauer wollen

rumprobieren rausgefunden, daß """ IF kname$ = kun.kn """
einen Syntax-Fehler hat.
Kann mir jemand bitte sagen, was ich da anders schreiben muß und wieso?

Schonmal tausend Dank im Voraus!!!

MisterD · Verfasst am: 02.01.2005, 23:31 Titel:

kun.kn ist immer dreißig zeichen lang, schreib RTRIM$(kun.kn) dann gehts weil die leerzeichen dann abgeschnitten werden.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

CadCam · Anmeldungsdatum: 02.01.2005 Beiträge: 2

Hi,
danke für die Antwort!
Also den Befehl RTRIM$ hatten wir eigentlich gar nicht behandelt.
Wir haben mal probiert, den string durch eine Zahl zu ersetzen und oh Wunder: es hat funktioniert............irgendwie total unverständlich!!!
Also konnten wir den Fehler dorthin einkreisen, daß die IF-Anweisung nicht funktioniert hat.
Stellt sich jetzt die Frage, wie schafft man es ohne das TRIM, mit strings bei randoms zu arbeiten?

Sebastian · Verfasst am: 03.01.2005, 14:24 Titel: Es geht auch ganz einfach mit BINARY

Hallo.

Beispielprogramm für's Schreiben:

MisterD · Verfasst am: 03.01.2005, 16:34 Titel:

das mit dem Random-Strings ist kein Problem. das problem entsteht dadurch, dass es in der Type-Anweisung heißt

Paul · Verfasst am: 03.01.2005, 16:51 Titel:

Ein String mit konstanter Länge wird mit Nullbytes ausgefüllt, da bringt dir RTRIM$ oder LTRIM$ nix durchgeknallt

Charly2 · Verfasst am: 03.01.2005, 18:24 Titel:

MisterD hat recht!
Strings mit fester Länge werden bei QBasic mit Leerzeichen aufgefüllt.
Daher muß man bei einem Vergleich die Leerzeichen mit Rtrim$ entfernen.

Sebastian · Verfasst am: 03.01.2005, 18:41 Titel: Nullbytes gibts bei SPACE$

Hallo.

Nullbytes gibt es glaub ich bei SPACE$(x).

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

Paul · Verfasst am: 03.01.2005, 18:45 Titel:

Nein, bei SPACE$ gibts wirklich Leerzeichen (Spaces halt mit den Augen rollen

)

Ok ihr habt recht, aber bevor man irgendwas mit dem String macht, besteht er aus Nullbytes. lachen

_________________

Sebastian · Verfasst am: 03.01.2005, 18:48 Titel:

Shit, stimmt. Nullbytes gehen aber mit STRING$(1, CHR$(0))... durchgeknallt

_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

MisterD · Verfasst am: 03.01.2005, 19:15 Titel:

ich klär mal auf...
der 30-Zeichen-String besteht ganz zu anfang aus 30 Nullbytes. sobald ein Text gespeichert wird wird dieser dann mit Leerzeichen gefüllt.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra