Scripts

Hola los NeoBooKeRs siguen creando.
Sam Cox ha creado un Script que calcula el pago mensual

Math "[NumberOfPayments]" "0" "[N]"
Math "1+[MonthlyInterestRate]" "9" "[A]"
Gosub "IntNegPower"
Math "[LoanAmount]*[MonthlyInterestRate]/(1-[IntNegPower])" "2" "[MonthlyPayment]"


Un generador de claves sencillas que usted puede utilizar la hora de distribuir sus proyectos de NeoBook. Sólo utiliza código nativo NeoBook. El nombre de usuario y código de desbloqueo se almacena en un archivo llamado "program.dat". Se puede enviar el archivo al usuario, o mediante la adición de código un poco más, encriptar y hacer que el programa comprueba el archivo cada vez que se puso en marcha el programa. Ligero, pero perfecto para la distribución de libros electrónicos.

Generador de claves

Subrutinas creadas por Sam Cox, para la conversión entre grados decimales y grados, minutos, segundos de arco. Estas subrutinas utilizar el previamente publicado DIVMOD y subrutinas FRACTINTSIGN. A PUB pequeña muestra se proporciona.


SetVar "[Args]" "DegValue,MinValue,SecValue,ResultVarName,OptionalDecimals"
Gosub "DMSToDegrees"
EXAMPLE
SetVar "[Args]" "47,7,23,Deg,4"
Gosub "DMSToDegrees"
CODE
:D MSToDegrees
StrParse "[Args]" "," "[Arg]" "[Argc]"
If "[Argc]" "=" "4"
   SetVar "[Arg5]" "9"
Endif
If "[Arg1]" "<" "0"
   Math "[Arg1]-(((60*[Arg2])+[Arg3])/3600)" "[Arg5]" "[[Arg4]]"
Else
   Math "[Arg1]+(((60*[Arg2])+[Arg3])/3600)" "[Arg5]" "[[Arg4]]"
Endif
Return



Creacion de Redondeo por Sam Cox

..round up
Math "[N]+0.499999999999999" "0" "[N]"
..round down
Math "[N]-0.499999999999999" "0" "[N]"
..round up or down to nearest integer
Math "[N]" "0" "[N]"


Subrutina Factorial creada por Sam Cox

..DEFINITION
..factorial (0) = 1
..factorial (1) = 1
..factorial (N) = N * factorial (N-1)
..USAGE
..SetVar "[N]" "integer 0..170"
..Gosub "Factorial"
..SetVar "[Result]" "[Factorial]"
..INPUT
..[N] = integer 0 .. 170
..OUTPUT
..[Factorial] = exact for [N] = 0..20; approximate for [N] >= 21
..[N] = input value of [N] converted to integer
..[N] = "Error" if input value of [N] is not a number
..NO ERROR HANDLING
..does not complain about invalid input (but see OUTPUT)
..returns [Factorial] = 1 for input [N] < 0
..runtime "floating point overflow error" for input [N] > 170
:Factorial
..make sure [N] is an integer
Math "[N]" "0" "[N]"
SetVar "[Factorial]" "1"
If "[N]" ">" "1"
Loop "2" "[N]" "[FactTemp]"
Math "[FactTemp]*[Factorial]" "0" "[Factorial]"
EndLoop
EndIf
Return


Conversor de Farenheit a Celsius creado por Sam Cox
.convert Farenheit to Celsius
Math "([F]-32)/1.8" "2" "[C]"
..convert Celsius to Farenheit
Math "([C]*1.8)+32" "2" "[F]"
..e = Euler’s number (base of natural logarithms)
SetVar "[e]" "2.718281828"
..phi = golden ratio
SetVar "[phi]" "1.618033989"
..pi = ratio of circle circumference and diameter
SetVar "[pi]" "3.141592654"
..useful multiples of pi
Math "2.00*[pi]" "9" "[twopi]"
Math "0.50*[pi]" "9" "[halfpi]"
Math "0.25*[pi]" "9" "[quarterpi]"
..area of circle from radius
Math "[pi]*[Radius]*[Radius]" "9" "[Area]"
..area of circle from diameter
Math "[quarterpi]*[Diameter]*[Diameter]" "9" "[Area]"
..circumference of circle from radius
Math "[twopi]*[Radius]" "9" "[Circumference]"
..circumference of circle from diameter
Math "[pi]*[Diameter]" "9" "[Circumference]"
..degrees per radian
..useful for converting angles in degrees to work with NeoBook trig functions
Math "180.0/[pi]" "9" "[DegreesPerRadian]"


Suma los valores numéricos en un ListBox deNeoBook por Sam Cox.

SetVar "[SumListBox]" "ListBox1"
SetVar "[Decimals]" "2"
Gosub "SumListBox"
SetVar "[MyResult]" "[Total]"

Una versión mejor que saltar los valores no numéricos en la lista por Sam Cox:
:SumListBox
…Returns [Total] = sum of values in [SumListBox] object
Math "0" "[Decimals]" "[Total]"
ListBoxSize "[SumListBox]" "[Count]"
While "[Count]" ">" "0"
ListBoxGetItem "[SumListBox]" "[Count]" "[Item]"
  Math "[Total]+[Item]" "[Decimals]" "[Total]"
  Math "[Count]-1" "0" "[Count]"
EndWhile
Return

Estos ejemplos los podéis encontrar en una magnifica pagina llamada highdesertsoftware.com

Visto  NeoVeces