XProfan

Français

E.T.

 {$IQ}
Declare A&
A& = 120
cls
Print "Berechne : 100/";@Str$(A&)+"*100 :"
Print ""
Print "Ergebnis XProfan :",Rechnen_1()
Print "=============================================="
Print "Ergebnis nProc : ",Rechnen_2()
waitinput
end

Proc Rechnen_1

    Return @str$(100/A&*100)

EndProc

nProc Rechnen_2

    Global A&
    Declare X&
    X& = 100/A&*100
    Return str(X&)

ENDPROC

égal comment je A& à nproc übergebe (comment ici global ou bien per paramètre), es venez toujours 0 raus

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

22.03.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Natives Profan ist typenecht et (bisher) sans automatische Typenumwandlung (aufpassen, übersieht on vieles vite!), avec XProfan rechnest Du dessus Float et dans qui NProc ganzzahlig Long, si Du dessus avec XProfan aussi ganzzahlig rechnest, kommts selbe raus. Könntest avec Nproc mais aussi Float le calcul, käme aussi selbe raus. ^ ^

Pour Ganzzahlige dans Proc simple / par ersetzen, dans nProc cependant gibt es mais (eigentlich) pas - qui Division richtet sich pour dem Datentyp.

"Global" brauchst aussi pas, braucht on selten ^ ^ - simple alles quoi on braucht comme paramètre transfert.

So wäres es "richtiger" et so funzt es aussi, ici la fois un paire Beispiele pour Long et Float:
Kompilieren Marque Séparation

Gemerkt/Separiert von http://xprofan.com/t/?8144
 {$IQ}
Declare A&,b!
A& = 120
B! = 120.0
cls
Print "Berechne : 100/";@Str$(A&)+"*100 :"
Print ""
Print "Ergebnis XProfan :",Rechnen_1(a&)
Print "=============================================="
Print "Ergebnis nProc : ",Rechnen_2(a&)
Print ""
Print "Ergebnis XProfan :",Rechnen_3(b!)
Print "=============================================="
Print "Ergebnis nProc : ",Rechnen_4(b!)
waitinput
end

Proc Rechnen_1

    parameters a&
    Return str$(100A&*100)

EndProc

nProc Rechnen_2

    parameters a&
    Return str$(100A&*100)

EndProc

Proc Rechnen_3

    parameters a!
    Return str$(int(100.0/A!*100.0))

EndProc

nProc Rechnen_4

    parameters a!
    Return str$(int(100.0/A!*100.0))

ENDPROC

attention: Floatkonstanten toujours avec Dezimalpunkt angeben, natives Profan hat (encore) aucun automatische Typenumwandlung.

comme String per Str$ müsstest zumindest pour Imprimer pas zurückgeben, könntest aussi direct a& ou bien a! zurückgeben - ist mais vlt. intention. ^ ^

23.03.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

merci, David. es comment toujours une grand Aider (hab arrêt avec dem Assembler-Zeugs (encore) nix am Hut).

si ensuite la fois XPSE encore qui restlichen Sachen (z.B. pour Gridboxen) peux, lernt sich aussi Assembler pas mal, là je mir gern la fois anschaue, quoi là so rauskommt...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

23.03.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

bien sûr, mais vergiss pas, dass es pas devoir de NProcs ist, Funktionalitäten des XProfan nachzubilden. plutôt ist es so, dass on sich avec cela Funktionen écrivons peux, qui pas im XProfan enthalten sommes. Andernfalls, si on z.B. SetText pour GridBoxen nécessaire, ensuite - so ists zumindest gedacht - programmiert on sich cet Funktion plan selbst - alors per NProcs et APIs et ASM wohin on es arrêt andenkt. Notwendig ist ASM cependant pas (plus) - peux on imho maintenant déjà "alles" avec NProcs programmieren - oui sogar Treiber.

23.03.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation