AmpHour Calculator

1. program amphour;
2. {$APPTYPE Console}
3. {$RESource ahres.res}
4. uses
5. windows,
6. SysUtils,urlmon,math,
7. Classes;
9. type TNL5=record
10. FirstValue,LastValue:extended;
11. HError:hresult;
12. data:string;
13. end;
14. var CONST_HOUR_VALUE,hdt:TDateTime;
15. ah,a,h:extended;
16. sh,sah,sa,sd:string;
17. dd,mIndex,i:integer;
18. nl5opt:tstringlist;
19. nl5:tnl5;
20. function StrToFloatDef(const S:String; def:extended):extended;
21. begin
22. try result:=strtofloat(s) except result:=def; end;
23. end;
25. function nl5requestoutput(nl5opt:tstringlist;param:string;outp:extended):TNL5;
26. var nl5filen,nl5url:array[0..max_path]of char;
27. nl5ans:tstringlist;
28. begin
29. result.HError:=urldownloadtocachefile(nil,strfmt(nl5url,
30. 'http://localhost:%u/?%s=%g',[strtointdef(nl5opt.values['nl5port'],80),
31. nl5opt.values[param],outp]),nl5filen,max_path+1,0,nil);
32. if nl5.HError=s_ok then begin
33. nl5ans:=tstringlist.Create;
34. nl5ans.LoadFromFile(nl5filen);
35. result.data:=nl5ans.Text;
36. nl5ans.Free;
37. end;
38. end;
40. function nl5requestinput(nl5opt:tstringlist;param:string;intype:char):tnl5;
41. var nl5filen,nl5url:array[0..max_path]of char;
42. nl5ans:tstringlist;
43. begin
44. result.HError:=urldownloadtocachefile(nil,strfmt(nl5url,
45. 'http://localhost:%u/?%s(%s)',[strtointdef(nl5opt.values['nl5port'],80),intype,
46. nl5opt.values[param]]),nl5filen,max_path+1,0,nil);
47. if nl5.HError=s_ok then begin
48. nl5ans:=tstringlist.Create;
49. nl5ans.LoadFromFile(nl5filen);
50. result.data:=nl5ans.Text;
51. nl5ans.CommaText:=nl5ans[0];
52. result.FirstValue:=strtofloatdef(nl5ans[0],0);
53. result.LastValue:=strtofloatdef(nl5ans[nl5ans.count-1],0);
54. nl5ans.Free;
55. end;
56. deletefile(nl5filen);
57. end;
58. label mysub;
59. begin
60. if paramstr(1)='/?'then begin
61. writeln('Usage: ',extractfilename(paramstr(0)),' [nl5port=port nl5options]');
62. writeln('nl5port=port Spefifies the HTTP Link port.(default port 80)');
63. writeln;
64. writeln('NL5 Options:');
65. writeln('bat_loadinp= Spefifies the NL5 component to get its battery load current from');
66. writeln('bat_loadout= NL5 Current Source to set the amphour load.');
67. exitprocess(0);
68. end;
69. SetConsoleTitle('AmpHour Calculator');
70. const_hour_Value:=EncodeTime(1,0,0,0);
71. nl5opt:=tstringlist.Create;
72. for i:=1to paramcount do nl5opt.Add(paramstr(i));
73. mysub:
74. sh:='0';sa:='0';sah:='';sd:='0';hdt:=0;
75. writeln('Leave one answer blank');
76. write('Enter Discharge time(hh:mm:ss):');
77. readln(sh);
78. if sh<>'' then begin
79. write('Enter discharge days(optional):');
80. readln(sd);
81. if sd='' then sd:='0';
82. end;
83. write('Enter AmpHour rating(in Amphours):');
84. readln(sah);
85. if(nl5opt.Values['bat_loadinp']='')and(nl5opt.Values['bat_loadout']='') then begin
86. write('Enter current draw in Amps:');
87. readln(sa);
88. end else begin if nl5opt.Values['bat_loadinp']<>''then begin nl5:=nl5requestinput(
89. nl5opt,'bat_loadinp','I');
90. sa:=floattostr(nl5.LastValue);
91. if nl5.herror<>s_ok then begin writeln('URLErr:',inttohex(nl5.herror,0));
92. exitprocess(1);end;
93. end;
94. end;
95. if sa='' then sa:='0';
96. if sah='' then sah:='0';
97. a:=StrTofloat(sa);
98. ah:=strtofloat(sah);
99. if ((sh='')and(ah=0))or((ah=0)and(a=0))or((sh='')and(a=0))then begin
100. writeln('Error in one or more variables, please check to make sure only numbers are entered and only one answer is blank');
101. write('Try Again(Yes/no)? ');
102. readln(sh);
103. if pos('Y',Uppercase(sh))>0 then goto mysub else exitprocess(0);
104. end;
105. if sh<>'' then
106. try
107. hdt:=dd+StrToTime(sh);
108. except on e:exception do begin
109. writeln('Error:',e.message);
110. write('Try Again(Yes/No)?');
111. readln(sh);
112. if pos('Y',uppercase(sh))>0 then sh:= 'TRY_AGAIN' else sh:= 'EXIT';
113. end;
114. end;
115. if sh='TRY_AGAIN' then goto mysub;
116. if sh='EXIT' then exitprocess(0);
117. if a*ah*hdt<>0 then begin
118. writeln('You didnt leave any answer blank');
119. write('Try Again(Yes/No)?');
120. readln(sh);
121. if pos('Y',uppercase(sh))>0 then goto mysub else exitprocess(0);
122. end;
123. if sh='' then
124. hdt :=(ah/a)*const_hour_value;
125. h:=hdt/const_hour_value;
126. if a=0 then a:=ah/h;
127. if ah=0 then
128. ah:=a*h;
129. nl5:=nl5requestoutput(nl5opt,'bat_loadout',a);
130. if nl5.HError<>s_ok then writeln('URLErr:',inttohex(nl5.HError,0));
131. Writeln('Duration: ',Trunc(hdt),' days ',formatdatetime('hh:mm:ss',hdt));
132. writeln('AmpHour Rating:',floattostr(ah));
133. writeln('Current Draw:',floattostr(a),' Amps');
134. write('Do you want to try again(Yes/No)?');
135. readln(sh);
136. if pos('Y',Uppercase(sh))>0 then goto mysub;
137. end.

program amphour;
{$APPTYPE Console}
{$RESource ahres.res}
uses
windows,
  SysUtils,urlmon,math,
  Classes;

type TNL5=record
FirstValue,LastValue:extended;
HError:hresult;
data:string;
end;
var CONST_HOUR_VALUE,hdt:TDateTime;
ah,a,h:extended;
sh,sah,sa,sd:string;
dd,mIndex,i:integer;
nl5opt:tstringlist;
nl5:tnl5;
function StrToFloatDef(const S:String; def:extended):extended;
begin
try result:=strtofloat(s) except result:=def; end;
end;

function nl5requestoutput(nl5opt:tstringlist;param:string;outp:extended):TNL5;
var nl5filen,nl5url:array[0..max_path]of char;
nl5ans:tstringlist;
begin
result.HError:=urldownloadtocachefile(nil,strfmt(nl5url,
'http://localhost:%u/?%s=%g',[strtointdef(nl5opt.values['nl5port'],80),
nl5opt.values[param],outp]),nl5filen,max_path+1,0,nil);
if nl5.HError=s_ok then begin
nl5ans:=tstringlist.Create;
nl5ans.LoadFromFile(nl5filen);
result.data:=nl5ans.Text;
nl5ans.Free;
end;
end;

function nl5requestinput(nl5opt:tstringlist;param:string;intype:char):tnl5;
var nl5filen,nl5url:array[0..max_path]of char;
nl5ans:tstringlist;
begin
result.HError:=urldownloadtocachefile(nil,strfmt(nl5url,
'http://localhost:%u/?%s(%s)',[strtointdef(nl5opt.values['nl5port'],80),intype,
nl5opt.values[param]]),nl5filen,max_path+1,0,nil);
if nl5.HError=s_ok then begin
nl5ans:=tstringlist.Create;
nl5ans.LoadFromFile(nl5filen);
result.data:=nl5ans.Text;
nl5ans.CommaText:=nl5ans[0];
result.FirstValue:=strtofloatdef(nl5ans[0],0);
result.LastValue:=strtofloatdef(nl5ans[nl5ans.count-1],0);
nl5ans.Free;
end;
deletefile(nl5filen);
end;
label mysub;
begin
if paramstr(1)='/?'then begin
writeln('Usage: ',extractfilename(paramstr(0)),' [nl5port=port nl5options]');
writeln('nl5port=port     Spefifies the HTTP Link port.(default port 80)');
writeln;
writeln('NL5 Options:');
writeln('bat_loadinp=     Spefifies the NL5 component to get its battery load current from');
writeln('bat_loadout=     NL5 Current Source to set the amphour load.');
exitprocess(0);
end;
SetConsoleTitle('AmpHour Calculator');
const_hour_Value:=EncodeTime(1,0,0,0);
nl5opt:=tstringlist.Create;
for i:=1to paramcount do nl5opt.Add(paramstr(i));
mysub:
sh:='0';sa:='0';sah:='';sd:='0';hdt:=0;
writeln('Leave one answer blank');
write('Enter Discharge time(hh:mm:ss):');
readln(sh);
if sh<>'' then begin
write('Enter discharge days(optional):');
readln(sd);
if sd='' then sd:='0';
end;
write('Enter AmpHour rating(in Amphours):');
readln(sah);
if(nl5opt.Values['bat_loadinp']='')and(nl5opt.Values['bat_loadout']='') then begin
write('Enter current draw in Amps:');
readln(sa);
end else begin if nl5opt.Values['bat_loadinp']<>''then begin nl5:=nl5requestinput(
nl5opt,'bat_loadinp','I');
sa:=floattostr(nl5.LastValue);
if nl5.herror<>s_ok then begin writeln('URLErr:',inttohex(nl5.herror,0));
exitprocess(1);end;
end;
end;
if sa='' then sa:='0';
if sah='' then sah:='0';
a:=StrTofloat(sa);
ah:=strtofloat(sah);
if ((sh='')and(ah=0))or((ah=0)and(a=0))or((sh='')and(a=0))then begin
writeln('Error in one or more variables, please check to make sure only numbers are entered and only one answer is blank');
write('Try Again(Yes/no)? ');
readln(sh);
if pos('Y',Uppercase(sh))>0 then goto mysub else exitprocess(0);
end;
if sh<>'' then
try
 hdt:=dd+StrToTime(sh);
except on e:exception do begin
writeln('Error:',e.message);
write('Try Again(Yes/No)?');
readln(sh);
if pos('Y',uppercase(sh))>0 then sh:= 'TRY_AGAIN' else sh:= 'EXIT';
end;
end;
if sh='TRY_AGAIN' then goto mysub;
if sh='EXIT' then exitprocess(0);
if a*ah*hdt<>0 then begin
writeln('You didnt leave any answer blank');
write('Try Again(Yes/No)?');
readln(sh);
if pos('Y',uppercase(sh))>0 then goto mysub else exitprocess(0);
end;
if sh='' then
hdt :=(ah/a)*const_hour_value;
h:=hdt/const_hour_value;
if a=0 then a:=ah/h;
if ah=0 then
ah:=a*h;
nl5:=nl5requestoutput(nl5opt,'bat_loadout',a);
if nl5.HError<>s_ok then writeln('URLErr:',inttohex(nl5.HError,0));
Writeln('Duration: ',Trunc(hdt),' days ',formatdatetime('hh:mm:ss',hdt));
writeln('AmpHour Rating:',floattostr(ah));
writeln('Current Draw:',floattostr(a),' Amps');
write('Do you want to try again(Yes/No)?');
readln(sh);
if pos('Y',Uppercase(sh))>0 then goto mysub;
end.