| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
studio
Anmeldungsdatum: 08.08.2005
Beiträge: 34
|
 Verfasst am: 01.09.2006, 09:49 Titel: Variablen innerhalb einer Schleife generieren |
 |
|
Guten Morgen!
Das Layout des Etikettendruckers soll bestimmt werden.
Im ersten Schritt möchte ich den Preis rechtsbündig darstellen.
Die Variablen p1$ - p$7 sind die Positionen der jeweiligen Zahl innerhalb des Preises.
z.B. "EUR 1390.95" -> p3$ stellt hierbei den Punkt.
"EUR "+p7$+p6$+p5$+p4$+p3$+p2$+p1$
Jetzt stellt sich natürlich die Frage wie ich innerhalb einer Schleife die
Variablen entsprechend belege.
Aktueller Code:
| Code: |
preis$ = "34.95"
x% = 0
FOR i% = LEN(preis$) TO 1 STEP 1
?? = MID$(preis$,LEN(preis$)-x%,1) 'Anstelle der ?? müssten die Variablen generiert werden von p1$ - max p7$
x% = x% + 1
NEXT i%
|
Im Voraus schon einmal Danke für Eure Hilfe
Gruß
studio
_________________
Entwicklungsumgebung:
---------------------------
Hardware: Denso BHT 300 / SATO Etikettendrucker (MB 200)
Software: BHT-Basic (Ähnlichkeiten zu MSDOS-Basic)
Infos: ftp://www.denso-id.de/Documents/Manuals/Programmers_Manuals/Denso_OS/BHT300_Programmers_Manual_E.pdf |
|
| Nach oben |
|
 |
Stormy
Anmeldungsdatum: 10.09.2004
Beiträge: 567
Wohnort: Sachsen - wo die schönen Frauen wachsen ;)
|
|
| Nach oben |
|
|
studio
Anmeldungsdatum: 08.08.2005
Beiträge: 34
|
| Verfasst am: 01.09.2006, 12:17 Titel: |
|
|
Hallo und vielen Dank für Deine Hilfe.
Ich musste den Code noch etwas anpassen.
| Code: |
DIM p$(7) '(1 TO 7) geht leider bei BHT-Basic nicht
preis$ = "34.95"
x% = 0
FOR i% = 1 TO 7 STEP 1
IF i% > LEN(preis$) THEN
p$(i%) = " "
ELSE
p$(i%) = MID$(preis$,LEN(preis$)-x%,1)
x% = x% + 1
END IF
NEXT i%
....
'Aufbereitung für Etikett
"EUR "+p$(7)+p$(6)+p$(5)+p$(4)+p$(3)+p$(2)+p$(1)
|
Gruß
studio
_________________
Entwicklungsumgebung:
---------------------------
Hardware: Denso BHT 300 / SATO Etikettendrucker (MB 200)
Software: BHT-Basic (Ähnlichkeiten zu MSDOS-Basic)
Infos: ftp://www.denso-id.de/Documents/Manuals/Programmers_Manuals/Denso_OS/BHT300_Programmers_Manual_E.pdf |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
