Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 240921 (2357)
  Suchen
 Zurück zur Übersicht
 AutorThema: DBF Datei
Eike Fremy
Datum:25.08.02 13:35 Antwortenals Email verschicken (eike-fremy@t-online.de) 


Wenn ich jetzt zahlen aus einer DBF datei mit Drawtext anzeigen lassen möchte dann stehen die zahlen nicht untereinder wie kann ich es machen das die zahlen genau untereinder stehen ?????

Danke
Gruß Eike


Thomas Ungerböck
Datum:25.08.02 15:55 Antwortenals Email verschicken (Kerzenlicht@chello.at) 


Hallo

Erst mal vorweg hab ich überhaupt keine Ahnung von DBF, aber ich denke, dein Problem hat was mit der formatierten Zahlenausgabe auf dem Bildschirm zu tun.
Wennst mal in der ProfanHilfe unter @Format$ nachsiehst, das ist glaub ich was du suchst.

Gruß Thomas


Eike Fremy
Datum:25.08.02 16:42 Antwortenals Email verschicken (eike-fremy@t-online.de) 


Das habe ich schon gemacht aber ich steige da nicht durch
hat einer mal ein beispiel???


Thomas Ungerböck
Datum:25.08.02 16:51 Antwortenals Email verschicken (Kerzenlicht@chello.at) 


Hallo

Text$=@Format$("000",Zahl%)

000 bedeutet mind. 3 Stellen. Ist also Zahl% 5, würde Text$ 005 sein.
Die anderen Formatierungsmöglichkeiten solltest in der Hilfe nachschlagen und experimentieren.

Gruß Thomas


Gerhard Putschalka
Datum:25.08.02 17:13 Antwortenals Email verschicken (g.putschalka@utanet.at) 


Hallo Eike,
auf meiner HP
http://members.telering.at/g.putschalka/index.html
unter Prozeduren gibt es ein Beispiel QTxtWeit. Das müßte Dir genug Hilfe geben.
Mfg
Gerhard.


Bernhard Künzel
Datum:25.08.02 17:57 Antwortenals Email verschicken (b.kuenzel@chello.at) 


Hallo Eike,
versuchs mal damit
CLS
Def SetTextAlign(2) !"GDI32","SetTextAlign"
Def SetLText(0) SetTextAlign(%HDC,0)'--->Text linksbündig
Def SetRText(0) SetTextAlign(%HDC,2)'--->Text rechtsbündig
Def SetCText(0) SetTextAlign(%HDC,6)'--->Text centriert
Declare z1$,z2$,z3$,z4$
'z.B. Zahlen von Datenbank
z1$="00000025.40"
z2$="00013025.00"
z3$="00000000.15"
z4$="12300025.80"
SetRText()
DrawText 150,120,Format$("#####,##0.00' EUR'",Val(z1$))
DrawText 150,135,Format$("#####,##0.00' EUR'",Val(z2$))
DrawText 150,150,Format$("#####,##0.00' EUR'",Val(z3$))
DrawText 150,165,Format$("#####,##0.00' EUR'",Val(z4$))
WaitInput

Gruß
Bernhard



Eike Fremy
Datum: 26.08.02 06:43 Antwortenals Email verschicken (eike-fremy@t-online.de) 


Danke für eure Beispiele


 Zurück zur Übersicht