Eric said:
Folks:
I've posted the full source code to C# Programmable Calculator at my
website:
http://www.personalmicrocosms.com/html/cspcalc.html
C# Programmable Calculator is a Reverse Polish Notation (RPN) calculator
with custom buttons programmable in C#.
You might be interested in boo (
http://boo.codehaus.org/ ), which would
let people use the calculator who do not have the .NET SDK installed.
You would just need to include the boo dlls with your application. You
can use the boo compiler, plus the scripts are easier to write than C#.
//see booc for an example of using boo compiler from C#
import Boo.Lang.Compiler
import Boo.Lang.Compiler.IO
import Boo.Lang.Compiler.Pipelines
compiler = BooCompiler()
compiler.Parameters.Input.Add(StringInput("<script>",
sourcetext))
compiler.Parameters.Pipeline = CompileToMemory()
result = compiler.Run()
if len(result.Errors):
print "errors compiling"
assembly = result.GeneratedAssembly
// result.GeneratedAssemblyEntryPoint.Invoke(null, (null,))
I converted Funcs.cs to boo using the C# to boo converter for SharpDevelop.
namespace NS
import System
import System.Collections
import System.IO
import CSPCUtil
import ICSPCAPI
import System.Drawing
import System.Text
import System.Windows.Forms
import System.Diagnostics
class Functions(IAPIUser):
private static _globals as (Object) = array(Object, 1024)
private static _iapi as IAPI
def constructor():
pass
def SaveAPI(iapi as IAPI):
Functions.iapi = iapi
[Button('Main')]
static def FloatingPoint():
_iapi.DisplayFormat = ''
[Button('Main')]
static def FixedPoint(digits as int):
if digits >= 0 and digits < 100:
_iapi.DisplayFormat = 'N' + digits
[Button('Math', '|x|')]
static def AbsoluteValue(x as double) as double:
return Math.Abs(x)
private static def CalcFib(x as int, memo as (long)) as long:
result as long
if x == 1 or x == 2:
result = 1
else:
if memo[x - 2] == 0:
memo[x - 2] = CalcFib(x - 2, memo)
if memo[x - 1] == 0:
memo[x - 1] = CalcFib(x - 1, memo)
result = memo[x - 2] + memo[x - 1]
return result
[Button('Math')]
static def Fib(x as int) as long:
return CalcFib(x, array(long, x))
[Button('Trig')]
static def Sin(x as double) as double:
return Math.Sin(x)
[Button('Trig')]
static def Cos(x as double) as double:
return Math.Cos(x)
[Button('Trig')]
static def Tan(x as double) as double:
return Math.Tan(x)
[Button('Trig')]
static def ASin(x as double) as double:
return Math.Asin(x)
[Button('Trig')]
static def ACos(x as double) as double:
return Math.Acos(x)
[Button('Trig')]
static def ATan(x as double) as double:
return Math.Atan(x)
[Button('Trig')]
static def Cosh(x as double) as double:
return Math.Cosh(x)
[Button('Trig')]
static def Sinh(x as double) as double:
return Math.Sinh(x)
[Button('Trig')]
static def Tanh(x as double) as double:
return Math.Tanh(x)
[Button('Trig')]
static def ACosh(x as double) as double:
return Math.Log(x + Math.Sqrt(x + 1) * Math.Sqrt(x - 1))
[Button('Trig')]
static def ASinh(x as double) as double:
return Math.Log(x + Math.Sqrt(1 + x * x))
[Button('Trig')]
static def ATanh(x as double) as double:
return (Math.Log(1 + x) - Math.Log(1 - x)) / 2
[Button('Math', 'n!')]
static def Factorial(n as int) as long:
result as long = 1
checked:
if n > 1:
result = n * Factorial(n - 1)
return result
[Button('Main', '%')]
static def Percent(x as double) as double:
return x / 100
[Button('Main')]
static def SciNot(n as double, PowerOf10 as double) as double:
return n * Math.Pow(10, PowerOf10)
[Button('Math', 'Pi')]
static def Pi() as double:
return Math.PI
[Button('Memory')]
static def Store(o as Object, index as int):
_globals[index] = o
[Button('Memory')]
def Recall(index as int) as Object:
return _globals[index]
[Button('Angles')]
static def Radians(degrees as double) as double:
return degrees * Math.PI / 180
[Button('Angles')]
static def Degrees(radians as double) as double:
return radians * 180 / Math.PI
[Button('Angles')]
static def DMS2Decimal(Degrees as double, Minutes as double, Seconds as
double) as double:
return Degrees + Minutes / 60 + Seconds / 3600
[Button('Angles')]
static def AngleBetweenLocations(Lat1Degrees as double, Lon1Degrees as
double, Lat2Degrees as double, Lon2Degrees as double) as double:
Lat1Radians as double = Radians(Lat1Degrees)
Lon1Radians as double = Radians(Lon1Degrees)
Lat2Radians as double = Radians(Lat2Degrees)
Lon2Radians as double = Radians(Lon2Degrees)
a as double = Lon1Radians - Lon2Radians
if a < 0:
a = -a
if a > Math.PI:
a = 2 * Math.PI - a
return Math.Acos(Math.Sin(Lat2Radians) * Math.Sin(Lat1Radians) +
Math.Cos(Lat2Radians) * Math.Cos(Lat1Radians) * Math.Cos(a))
[Button('Angles')]
static def DistanceBetweenLocations(Lat1Degrees as double, Lon1Degrees
as double, Lat2Degrees as double, Lon2Degrees as double) as double:
Angle as double = AngleBetweenLocations(Lat1Degrees, Lon1Degrees,
Lat2Degrees, Lon2Degrees)
Circumference as double = 24830
return Circumference * Angle / (2 * Math.PI)
[Button('Math')]
static def LN(x as double) as double:
return Math.Log(x)
[Button('Math', 'e^X')]
static def eToX(x as double) as double:
return Math.Pow(Math.E, x)
[Button('Math')]
static def e() as double:
return Math.E
[Button('Math')]
static def Log(x as double) as double:
return Math.Log(x) / Math.Log(10)
[Button('Math', '10^X')]
static def TenToX(x as double) as double:
return Math.Pow(10, x)
[Button('Math')]
static def FindFraction(Fraction as double, NumberOfTries as int) as
String:
Prefix as String = ''
if Fraction < 0:
Prefix = '-'
Fraction = Math.Abs(Fraction)
Numerator as int = 0
Denominator as int = 1
BestNumerator as int = 0
BestDenominator as int = 0
Error as double = 0
i as int = 0
while i < NumberOfTries:
TmpFraction as double = cast(double, Numerator) / cast(double,
Denominator)
TmpError as double = Math.Abs(TmpFraction - Fraction)
if i == 0 or TmpError < Error:
Error = TmpError
BestNumerator = Numerator
BestDenominator = Denominator
if TmpFraction < Fraction:
++Numerator
else:
++Denominator
++i
return Prefix + BestNumerator.ToString() + '/' +
BestDenominator.ToString() + '=' + cast(double, BestNumerator) /
cast(double, BestDenominator)
[Button('Math')]
static def Random() as double:
r as Random = Random()
return cast(double, r.Next()) / cast(double, int.MaxValue)
[Button('Main')]
static def IntegerPart(d as double) as double:
sign as int = Math.Sign(d)
return (sign * Math.Floor(Math.Abs(d)))
[Button('Main')]
static def FractionalPart(d as double) as double:
return d - IntegerPart(d)
[Button('Main')]
static def Round(d as double) as double:
return Math.Round(d)
[Button('Main')]
static def Floor(d as double) as double:
return Math.Floor(d)
[Button('Main')]
static def Ceiling(d as double) as double:
return Math.Ceiling(d)
private static def FormatMoney(amount as double) as String:
return amount.ToString('C')
[Button('Finance')]
static def Amortize(principal as double, interestRatePercent as double,
lengthOfLoanInYears as int):
html as StringBuilder = StringBuilder()
monthlyPrincipalPayment as double
try:
monthlyPrincipalPayment = cast(double, Util.Prompt(_iapi.TheMainForm,
'Extra Monthly Principal Payment', 'Extra monthly principal payment:',
'0.00', typeof(double)))
except exception as Exception:
monthlyPrincipalPayment = 0
html.Append('<HTML>')
J as double = interestRatePercent / (12 * 100)
N as int = lengthOfLoanInYears * 12
D as double = 1 - Math.Pow(1 + J, -N)
M as double = principal * (J / D)
T as double = M * N
html.Append('<BODY>')
html.Append('Details:<BR/><BR/>')
html.Append('<TABLE border=\'1\'>')
html.Append('<TR><TD>Principal</TD><TD>' + FormatMoney(principal) +
'</TD></TR>')
html.Append('<TR><TD>Term in Years</TD><TD>' + lengthOfLoanInYears +
'</TD></TR>')
html.Append('<TR><TD>Interest Rate</TD><TD>' + interestRatePercent +
'%</TD></TR>')
html.Append('<TR><TD>Monthly Normal Payment</TD><TD>' + FormatMoney(M)
+ '</TD></TR>')
html.Append('<TR><TD>Monthly Extra Principal Payment</TD><TD>' +
FormatMoney(monthlyPrincipalPayment) + '</TD></TR>')
html.Append('<TR><TD>Monthly Total Payment</TD><TD>' + FormatMoney(M +
monthlyPrincipalPayment) + '</TD></TR>')
html.Append('<TR><TD>Total Payments</TD><TD>' + FormatMoney(T) +
'</TD></TR>')
html.Append('</TABLE><BR/>')
html.Append('Schedule:<BR/><BR/>')
html.Append('<TABLE border=\'1\'>')
html.Append('<THEAD>')
html.Append('<TH>Month</TH>')
html.Append('<TH>Principal</TH>')
html.Append('<TH>Interest</TH>')
html.Append('<TH>Balance</TH>')
html.Append('</THEAD>')
totalMonths as int = 0
Month as int = 1
while Month <= N and principal > 0:
H as double = principal * J
C as double = M - H
newPrincipal as double = principal - C - monthlyPrincipalPayment
Q as double = newPrincipal
html.Append('<TR>')
html.Append('<TD>' + Month + '</TD>')
html.Append('<TD>' + FormatMoney(C) + '</TD>')
html.Append('<TD>' + FormatMoney(H) + '</TD>')
html.Append('<TD>' + FormatMoney(Q) + '</TD>')
html.Append('</TR>')
principal = Q
++totalMonths
++Month
html.Append('</TABLE>')
if monthlyPrincipalPayment > 0:
savedMonths as int = N - totalMonths
html.Append('<P>')
html.Append('Your monthly prepayment of ' +
FormatMoney(monthlyPrincipalPayment) + ' reduced the term of your loan
by ' + savedMonths + ' months or ' + (savedMonths / 12).ToString('N') +
' years.')
html.Append('</P>')
html.Append('</BODY>')
html.Append('</HTML>')
Util.DisplayBrowser(_iapi.TheMainForm, 'USA Amortization Schedule',
html.ToString(), true)
[Button('Dates & Times')]
def Now() as date:
return DateTime.Now
[Button('Dates & Times')]
def Today() as date:
return DateTime.Today
[Button('Dates & Times')]
def ToUniversalTime(dateTime as date) as date:
return dateTime.ToUniversalTime()
[Button('Dates & Times')]
def ToLocalTime(dateTime as date) as date:
return dateTime.ToLocalTime()
[Button('Dates & Times')]
def GetDate() as object:
return Util.GetDate(_iapi.TheMainForm, 'Select Date', DateTime.Today)
[Button('Dates & Times')]
def GetDateRange() as object:
return Util.GetDateRange(_iapi.TheMainForm, 'Select Date',
DateTime.Today, 365)
[Button('Dates & Times')]
def AddDays(date as date, days as int) as date:
return date.AddDays(days)
[Button('Dates & Times')]
def SubtractDays(date as date, days as int) as date:
return date.AddDays(-days)
[Button('Dates & Times')]
def SubtractDates(date1 as date, date2 as date) as TimeSpan:
return date1.Subtract(date2)
[assembly: Tab('Main', 1)]
[assembly: Tab('Math', 2)]
[assembly: Tab('Trig', 3)]
[assembly: Tab('Angles', 4)]
[assembly: Tab('Memory', 5)]
[assembly: Tab('Finance', 6)]
[assembly: Tab('Dates & Times', 7)]
