Das deutsche QBasic- und FreeBASIC-Forum

[mokus]

Hi
Ich versuche gerade in Qbasic einen Taschenrechner zu Programmieren. Und das Problem ist das ich leider nicht weiß wie ich , oder . setzung an größeren zahlen hinbekomme. Kann mir wer helfen ?

BSP: [jetzt:1000000|wunsch:1.000.000]

[MisterD]

schau ma in der online-hilfe nach PRINT USING, ich weiß nich obs da unter QB geht, unter FB kann man das da einstellen..
_________________
"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

[Markus]

Formatieren kannst du mit Beistrichen bei "print using". Allerdings wird dann am Bildschirm statt dem gewünschten Punkten ein Beistrich ausgegeben, Punkt ist das Komma.
Das kann man aber umwandeln (hier reichlich unelegant, aber es funktioniert - sogar mit einem abgrundtief häßlichen GOTO)
Sagen wir mal, Z ist dein Ergebnis:

CLS
z = 100000000,000
LOCATE 3, 1: PRINT USING "###,###,###,###.###"; z
'LOCATE 3, 1 'wenn LOCATE aktiv ist, wird die Zahl überschrieben
FOR I = 1 TO 20
FOR j = 1 TO 200000: NEXT j 'das ist nur eine Verzögerungsschleife - löschen
zeichen = SCREEN(3, I) 'Zeichen am Bildschirm eingelesen
zeichen$ = CHR$(zeichen 'Ziffer in Zeichen umwandeln
IF zeichen$ = "." THEN zeichen$ = ",": GOTO weiter:
IF zeichen$ = "," THEN zeichen$ = "."
weiter:
PRINT zeichen$; 'Zeichen am Bildschirm ausgeben
NEXT I

Gruß
Markus

[SpionAtom]

Oder mache eine Stringoperation, indem du die Zahl mit STR$(zahl) in einen String umwandelst....
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[Michael Frey]

@Markus
So wird man das GOTO loss: