zahlen nur teilweise auslesen

Übersicht

BlitzBasic

Allgemein

	onkelz89 Betreff: zahlen nur teilweise auslesen	Sa, Jul 02, 2005 10:57 Antworten mit Zitat
hi ist es möglich variaben nur teilweise auszulesen? beispiel: var1=1000000 [befehl den ich suche] var2=1.000.000 kann man sowas machen? weil anders gehts ja nur so: (ungetestet) zb: var1=3040 If var1>1000 And var1<2000 Then var1=var1-1000 Print"1."+var1 If var1>2000 And var1<3000 Then var1=var1-2000 Print"2."+var1 If var1>3000 And var1<4000 Then var1=var1-3000 Print"3."+var1 EDIT hab gerade eine halbwegs akzeptable lösung gefunden: Code: [AUSKLAPPEN] [EINKLAPPEN] var1=624679 zahl=1000 While fertig=0 If var1>zahl And var1<zahl+1000 Then var1=var1-zahl Print zahl/1000+"."+var1 fertig=1 zahl=zahl+1000 Wend WaitKey() End klappt biss 999.999 danach kommt dann 1000.000 naja besser als nix EDIT 2 Code: [AUSKLAPPEN] [EINKLAPPEN] ;######### gibt fehler ab 1.000.000.000 var1=522524864 zahl=0 zahl2=1000000 While fertig=0 zahl=zahl+1000 If var1>zahl And var1<zahl+1000 Then var1=var1-zahl fertig=1 Wend If zahl>zahl2 Then While fertig2=0 If zahl>zahl2 And zahl<zahl2+1000000 Then zahl=zahl-zahl2 fertig2=1 zahl2=zahl2+1000000 Wend zahl2=zahl2-1000000 Print zahl2/1000000+"."+zahl/1000+"."+var1 Else Print zahl/1000+"."+var1 EndIf WaitKey() End ich un meine selbstgespräche... so jetzt gehts bis 999.999.999 das reicht also frage hat sich erledigt wer jedoch diesen befehl findet kann ihn hier bitte posten weil es muss doch kürzer gehen...

onkelz89

Betreff: zahlen nur teilweise auslesen

Sa, Jul 02, 2005 10:57
Antworten mit Zitat

hi

ist es möglich variaben nur teilweise auszulesen?

beispiel:

var1=1000000

[befehl den ich suche]

var2=1.000.000

kann man sowas machen?

weil anders gehts ja nur so:

(ungetestet)
zb: var1=3040
If var1>1000 And var1<2000 Then var1=var1-1000 Print"1."+var1
If var1>2000 And var1<3000 Then var1=var1-2000 Print"2."+var1
If var1>3000 And var1<4000 Then var1=var1-3000 Print"3."+var1

*EDIT*
hab gerade eine halbwegs akzeptable lösung gefunden:

Code: [AUSKLAPPEN]

var1=624679
zahl=1000

While fertig=0
If var1>zahl And var1<zahl+1000 Then var1=var1-zahl Print zahl/1000+"."+var1 fertig=1
zahl=zahl+1000
Wend

WaitKey()
End

klappt biss 999.999 danach kommt dann 1000.000
naja besser als nix

*EDIT 2*

Code: [AUSKLAPPEN]

;######### gibt fehler ab 1.000.000.000
var1=522524864
zahl=0
zahl2=1000000

While fertig=0
zahl=zahl+1000
If var1>zahl And var1<zahl+1000 Then var1=var1-zahl fertig=1
Wend
If zahl>zahl2 Then
While fertig2=0
If zahl>zahl2 And zahl<zahl2+1000000 Then zahl=zahl-zahl2 fertig2=1
zahl2=zahl2+1000000
Wend
zahl2=zahl2-1000000
Print zahl2/1000000+"."+zahl/1000+"."+var1
Else
Print zahl/1000+"."+var1
EndIf

WaitKey()
End

ich un meine selbstgespräche... so jetzt gehts bis 999.999.999 das reicht also frage hat sich erledigt wer jedoch diesen befehl findet kann ihn hier bitte posten weil es muss doch kürzer gehen...

	Mr.Keks	Sa, Jul 02, 2005 12:54 Antworten mit Zitat
hehe, hättest es auch in strings umwandeln und ann mit right machen können...
MrKeks.net

Mr.Keks

Sa, Jul 02, 2005 12:54
Antworten mit Zitat

hehe, hättest es auch in strings umwandeln und ann mit right machen können...

MrKeks.net

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Jul 02, 2005 14:02 Antworten mit Zitat
Einfacher geht mit einer Function BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Print Pointing$ (20000000) var1=522524864 Print Pointing$ (var1) WaitKey Function Pointing$ (a$) PosKomma%= Instr(a$,\".\") If PosKomma% Then c$=\",\"+Mid(a$,PosKomma%+1) a$ = Left (a$,PosKomma%-1) End If While Len (a$) > 3 b$ = \".\" + Right (A$,3) + b$ a$ = Left (A$,Len (A$) - 3) Wend Return a$ + b$ + c$ End Function
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Jul 02, 2005 14:02
Antworten mit Zitat

Einfacher geht mit einer Function

BlitzBasic: [AUSKLAPPEN]

Print Pointing$ (20000000)
var1=522524864 
Print Pointing$ (var1)
WaitKey


Function Pointing$ (a$)
    PosKomma%= Instr(a$,\".\") 
    If PosKomma% Then 
        c$=\",\"+Mid(a$,PosKomma%+1) 
        a$ = Left (a$,PosKomma%-1) 
    End If 

    While Len (a$) > 3 
        b$ = \".\" + Right (A$,3) + b$ 
        a$ = Left (A$,Len (A$) - 3) 
    Wend 
    Return a$ + b$ + c$ 
End Function

[BB2D | BB3D | BB+]