 |
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 |
mlb
Anmeldungsdatum: 20.08.2006 Beiträge: 7
|
Verfasst am: 28.10.2006, 16:58 Titel: ARTIKEL verwaltung |
|
|
habe nun alles bis auf listendruck geschafft!!
bitte hilf mir jezt mal wer??
ich meine wozu gibts das forum wenn mir kein einziger antwortet!???!?!?
es is echt wichitg!!
listendruck =
drei mal das anzeigen
Nummer
Bezeichnung
Liferatn1 PReis1
Lif 2 Preis2
Lif3 PReis3
und dann sole s gedruckt werden
hoffe das mir jetz werd helfen kann
DANKE schon mal
mfg
mlb
Code: |
'----------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------- LISTENDRUCK
druck:
CLS
OPEN "C:\artikel.dat" FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1, arec$
gefunden = 0
'RECORD IN EINZELFELDER ZERLEGEN
anummer = LEFT$(arec, 15)
aartikel = MID$(arec, 16, 15)
alieferanteins = MID$(arec, 31, 15)
apreis = MID$(arec, 46, 5)
alieferantzwei = MID$(arec, 51, 15)
apreisz = MID$(arec, 66, 5)
alieferantd = MID$(arec, 71, 15)
apreisd = MID$(arec, 86, 5)
WEND
LOCATE 17, 4
PRINT "Nummer: "; anummer
LOCATE 19, 4
PRINT "Bezeichnung: "; aartikel; " ";
LOCATE 21, 4
PRINT "Lieferanten: ";
LOCATE 21, 20
PRINT alieferanteins
LOCATE 21, 38
PRINT alieferantzwei
LOCATE 21, 56
PRINT alieferantd
LOCATE 23, 4
PRINT "Preise/EUR: ";
LOCATE 23, 20
PRINT ""; apreis; "";
LOCATE 23, 38
PRINT ""; apreisz; "";
LOCATE 23, 56
PRINT ""; apreisd; "";
reak$ = INPUT$(1) 'WEITER MIT TASTE
CLOSE #1
RETURN
|
_________________ so einfach wie möglich, so kompliziert wie notwendig |
|
Nach oben |
|
 |
Michael Frey

Anmeldungsdatum: 18.12.2004 Beiträge: 2577 Wohnort: Schweiz
|
|
Nach oben |
|
 |
Elvis

Anmeldungsdatum: 01.06.2006 Beiträge: 818 Wohnort: Deutschland, BW
|
Verfasst am: 29.10.2006, 12:26 Titel: Re: ARTIKEL verwaltung |
|
|
mlb hat Folgendes geschrieben: |
bitte hilf mir jezt mal wer??
ich meine wozu gibts das forum wenn mir kein einziger antwortet!???!?!?
es is echt wichitg!!
|
Sei doch nicht so ungeduldig...
Grüße, Elvis _________________ Geforce 7300GT (256MB GDDR3, Gainward) -- 2x 512MB (DDR2 800, MDT) -- AMD Athlon64 X2 EE 3800+ -- Asrock ALiveNF5-eSATA2+ |
|
Nach oben |
|
 |
mlb
Anmeldungsdatum: 20.08.2006 Beiträge: 7
|
Verfasst am: 02.11.2006, 13:26 Titel: |
|
|
ja sicher bentuez ich LPRINT.. aber ich brauche ja zuerst eine art FORMULAR mit den arikeln und den preisen und leiferanten von ein paar oder?
und dann drucke ich es so aus
ja is eh klar.. aber wie ich das anstelle weis ich end.. _________________ so einfach wie möglich, so kompliziert wie notwendig |
|
Nach oben |
|
 |
Michael Frey

Anmeldungsdatum: 18.12.2004 Beiträge: 2577 Wohnort: Schweiz
|
Verfasst am: 02.11.2006, 19:41 Titel: |
|
|
mlb hat Folgendes geschrieben: | ja sicher bentuez ich LPRINT.. aber ich brauche ja zuerst eine art FORMULAR mit den arikeln und den preisen und leiferanten von ein paar oder?
und dann drucke ich es so aus
ja is eh klar.. aber wie ich das anstelle weis ich end.. |
Versteh's nicht falsch, aber ich verstehe das Problem nicht.
Ist das Drucken selbst das Problem?
Geht das Drucken im Prinzip, aber es sieht schlecht aus?
Kannst du mal ein Beispiel für "C:\artikel.dat" posten?
Kannst du ein Beispiel machen wie es fertig aussehen soll? _________________ http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
Nach oben |
|
 |
Flo aka kleiner_hacker
Anmeldungsdatum: 23.06.2006 Beiträge: 1210
|
Verfasst am: 03.11.2006, 11:50 Titel: Re: ARTIKEL verwaltung |
|
|
mlb hat Folgendes geschrieben: | habe nun alles bis auf listendruck geschafft!!
bitte hilf mir jezt mal wer??
ich meine wozu gibts das forum wenn mir kein einziger antwortet!???!?!?
es is echt wichitg!!
|
da hat er recht, sei nich so ungeduldig
mlb hat Folgendes geschrieben: |
listendruck =
drei mal das anzeigen
Nummer
Bezeichnung
Liferatn1 PReis1
Lif 2 Preis2
Lif3 PReis3
und dann sole s gedruckt werden
hoffe das mir jetz werd helfen kann
|
ÄHhhm? sry, aber kein wort verstanden.
befolge mal bitte diese regeln:
wenigstens VERSUCHEN in deutscher rechtschreibung zu schreiben
und erklär das mal etwas näher
und dann editier den text am anfang und schreibs verständlich...
dann mal sehn ob ich dir helfen kann
und die gosubs ....
kannst du es vllt mal versuchen, mit SUB bzw. FUNCTION zu machen? _________________ MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
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.
|
|