XProfan

Español

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

Egal Yo A& a nproc übergebe (como hier global oder por Parámetro), lo kommt siempre 0 fuera

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 Zitat

Absatzweise Cita Zeilenweise Cita

Natives Profano es typenecht y (bisher) sin automatische Typenumwandlung (aufpassen, übersieht uno vieles rápidamente!), con XProfan rechnest Usted oben Float y el NProc ganzzahlig Largo, si oben con XProfan auch ganzzahlig rechnest, kommts selbe fuera. Könntest con Nproc aber auch Float rechnen, käme auch selbe fuera. ^ ^

Für Ganzzahlige en Proc simplemente / por sustituir, en nProc sin embargo hay aber (eigentlich) no - el Division richtet se después de el Datentyp.

"Global" necesidad auch no, braucht uno selten ^ ^ - simplemente alles qué braucht como Parámetro transferencia.

So wäres lo "richtiger" y así funzt lo auch, hier veces unos pocos Beispiele para Largo y Float:
Kompilieren Marca Separación

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

Achtung: Floatkonstanten siempre con Dezimalpunkt angeben, natives Profano ha (todavía) no automatische Typenumwandlung.

Als String por Str$ müsstest zumindest fürs Imprimir no zurückgeben, könntest auch direkt a& oder a! zurückgeben - es aber vlt. Absicht. ^ ^

23.03.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Gracias, David. Bist como siempre una große Ayuda (tener sólo con el Ensamblador-Zeugs (todavía) nix al Hut).

Wenn entonces veces XPSE todavía el restlichen Sachen (z.B. para Gridboxen) kann, lernt se auch Ensamblador bastante bien, como Yo gern veces anschaue, qué como así 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 Zitat

Absatzweise Cita Zeilenweise Cita

Klar, aber vergiss no, dass no Tarea de NProcs es, Funktionalitäten des XProfan nachzubilden. Eher es así, dass uno se así Características escribir kann, el no en el XProfan enthalten son. Andernfalls, si uno z.B. SetText para GridBoxen benötigt, entonces - así ists zumindest pensamiento - programmiert uno se esta Función eben incluso - also por NProcs y APIs y ASM wo uno lo sólo andenkt. Notwendig es ASM sin embargo no (mehr) - puede ser imho ahora ya "alles" con NProcs programa - sí incluso Treiber.

23.03.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita