PureBoard

Code: Alles auswählen

Dim zahl.f(6)
zahl(1) = 100.1234
zahl(2) = 100.1230
zahl(3) = 100.1200
zahl(4) = 100.1000
zahl(5) = 100.0000
zahl(6) = 100
stellen = 4

For i = 1 To 6
Debug ReplaceString(ReplaceString(RTrim(ReplaceString(StrF(zahl(i), stellen), "0", " ", stellen)), " ", "0", stellen) , ".", "", 0, Len(ReplaceString(RTrim(ReplaceString(StrF(zahl(i), stellen), "0", " ", stellen)), " ", "0", stellen)))
Next

Code: Alles auswählen

Procedure.s StrF_Ex(Float.f, NbDecimals)
  Result1.s = StrF(Float, NbDecimals)
  Result2.s = ""
  For k=Len(Result1) To 1 Step -1
    Char.s = Mid(Result1, k, 1)
    If Char <> "0" And c = 0
      Result2 = Char+Result2
      c = 1
    ElseIf c = 1
      Result2 = Char+Result2
    EndIf
  Next
 
  ProcedureReturn Result2
EndProcedure

Debug StrF_Ex(13.4504889, 4)

Code: Alles auswählen

OpenWindow(0,0,0,606,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_minimizeGadget|#PB_Window_maximizeGadget,"") 
CreateGadgetList(WindowID(0))

TextGadget(1,200,100,100,20,"",#PB_text_border)

h.f = 1.700

Repeat
  y.f = (h.f  - Int(h.f))
  If y.f = 0
    x = 0
    Goto A
  EndIf

  y.f = (h.f * 10  - Int(h.f * 10))  
  Debug(y.f)  
  If y.f = 0
    x = 1
    Goto A
  EndIf

  y.f = (h.f * 100  - Int(h.f * 100))
  If y.f = 0
    x = 2
    Goto A
  EndIf

  y.f = (h.f * 1000  - Int(h.f * 1000))
  If y.f = 0
    x = 3
    Goto A
  EndIf

  y.f = (h.f * 10000  - Int(h.f * 10000))
  If y.f = 0
    x = 4
    Goto A
  EndIf

  A:
  SetGadgetText(1,StrF(h.f,x))

  EventID = WaitWindowEvent()
Until EventID = #PB_EventCloseWindow