1. Tutorial 1.2
- Posted by Irv Mullins <irv at ELLIJAY.COM>
Oct 23, 1998
-
Last edited Oct 24, 1998
The client now wants the pay program to write out paychecks:
Output should be:
DATE:10/22/98
PAY TO THE ORDER OF: Jose
Three hundred sixty dollars $360.00
This should complicate matters.
Actually, in Euphoria, this is pretty easy to implement.
Let's see a few different methods of arriving at the solution.
Regards,
Irv
2. Re: Tutorial 1.2
Hi
I tried to incorporate Hawke's abhorance of abort()into my attempt at
a "validate" function. Unlike Ad, I've decided that I won't allow
direct user input into the program - I'm assuming that pay.ex gets
called by a dos batch file that passes it parameters in the command
line. What I've done is make the output into nothing if the data isn't
right rather than either seeking correction or aborting execution. My
guess was that the data would then be passed to some book keeping
function next. Imagine my surprise and delight when I find the next
routine is the cheque writer, without even letting the book-keeper
know. Yeah! That's my kind of accounting!(
-- Start of Euphoria Code
--This is a version 1.1 of PAY.ex by Martin Hunt
global constant ISVALID=1
global constant ISNOTVALID=0
global atom Validation
Validation=ISVALID
sequence cmd, name, titleline
atom taxrate, hours, payrate, takehome, gross, tax
titleline={"Name","Hours worked","Gross pay","Tax","Net pay"}
include get.e
function validate(sequence Thisthinghere, sequence Range, sequence
Errprompt) sequence valresult valresult=value(Thisthinghere)
if valresult[1] != GET_SUCCESS
then Validation=ISNOTVALID
printf(1, "*ERROR in %s: Not a number*\n",{Errprompt})
else if (valresult[2] < Range[1]) or (valresult[2] > Range[2])
then Validation=ISNOTVALID
printf(1, "*ERROR in %s: should be between %3.1f and
%3.1f*\n", {Errprompt, Range[1], Range[2]})
end if
end if
return (valresult[2])
end function
cmd=command_line()
if length(cmd) !=5 then printf(1, "Data entry error at command
line",{}) abort(0) end if
name=cmd[3]
hours=validate(cmd[4],{1,80},"Hours")
payrate=validate(cmd[5],{5.50,35.00},"Payrate")
taxrate=0.25
if Validation = ISVALID
then
gross=hours*payrate
tax=gross*taxrate
takehome=gross-tax
printf(1, "%9s %12s %12s %12s %12s\n", titleline)
printf(1, "%9s %12d %12.2f %12.2f %12.2f\n", {name, hours,
gross, tax, takehome})
else
gross=0
tax=0
takehome=0
printf(1, "Data error: Nothing done",{})
end if
-- End of Euphoria Code
Bye
Martin
