kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 2, 2020 13:26:52 GMT
Attached is some code for a BAC program. It is still a work in progress, but works. Enjoy and please let me know what you think. BAC2.bas (16.77 KB) insert code here Attachments:BAC2.bas (16.77 KB)
|
|
kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 2, 2020 13:43:02 GMT
Here is another version the was mostly written by Ron (admin here) and modified some by me to enhance the calculations (he did not have the full info when he created the original code) Rons BAC modified.bas (8.32 KB)
|
|
|
Post by tsh73 on Mar 2, 2020 14:17:13 GMT
Just to report - I run it once and got similar results with some online BAC test. The only problem (?) is that information you select after selecting type of drink don't shows anywhere.
|
|
kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 2, 2020 14:24:31 GMT
Printing might not work.
The sub called when you hit print is [hardcopy] and the actual sub is [Hardcopy] so it is not recognized. Just change the H to h in the sub and it will work fine.
|
|
kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 2, 2020 14:27:18 GMT
Just to report - I run it once and got similar results with some online BAC test. The only problem (?) is that information you select after selecting type of drink don't shows anywhere. Which program are you using? The 'BAC2' or the 'Rons BAC modified' ?
|
|
kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 2, 2020 14:29:54 GMT
OK, I have made some mods to the BAC2 because I was told it had to many pop-up type windows. Did a little consolidation. BAC3.bas (14.99 KB)
|
|
|
Post by tsh73 on Mar 2, 2020 17:09:30 GMT
I was checking Rod's interface Now I tried your last, BAC3
1) when selecting vine, it complains of missing label
[getwine]
2) then selecting spirits, size of portion does not reported. So I can select 3.5 ounces or 1 ounce - and have report with same data shown but completely different result number.
|
|
kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 2, 2020 19:01:33 GMT
I was checking Rod's interface Now I tried your last, BAC3 1) when selecting vine, it complains of missing label [getwine] 2) then selecting spirits, size of portion does not reported. So I can select 3.5 ounces or 1 ounce - and have report with same data shown but completely different result number. Do a Find/Replace to change getwine to winetype I have never considered displaying the volume of ounces You are welcome to try incorporate that if you want. I will look at it when I get a chance
|
|
kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 2, 2020 20:08:47 GMT
I was checking Rod's interface Now I tried your last, BAC3 1) when selecting vine, it complains of missing label [getwine] 2) then selecting spirits, size of portion does not reported. So I can select 3.5 ounces or 1 ounce - and have report with same data shown but completely different result number. Here is an updated version BAC4.bas (15.08 KB)
|
|
kerry
Member in Training
Posts: 21
|
Post by kerry on Mar 3, 2020 12:41:27 GMT
Updated version of BAC Fixed bugs in the Change info section BAC4.bas (15.38 KB)
|
|