Version 6.007 problem

rogerh

I'm working on an old program and keep getting error messages referring me to a character in a blank line.

Also I get failure due to bad type when data is passed from sub to sub even though the data is the same in both subs.

Any ideas? Please?!

Roger

xbones

Try to delete the blank line because it might contain invisible control characters.

Show us the relevant parts of your subs and the error message, please.

rogerh

How can I do that?

Roger

xbones

You can use any text editor (even Notepad) to change the *.TRU file.

rogerh

I've been using TrueBasic for many years and never had these sort of errors until now.

Errors on blank lines threw me but deleting them fixed that. Invisible characters indeed!
Now it's a type error on a call to sub unjdn where all the parameters are defined as real or integer
in the sub and the calling program.

Roger

xbones

Might you publish a small example program?

rogerh

You would need the whole thing to see the problem. As I understand it, a type error is when a float variable is referenced as an integer (or vice versa) but that isn't happening as far as I can tell.

Roger

rogerh

``i don't see a way to insert the code

the button below only lets me type code in here and that's impractical.

rogerh

The problem is with these two subs

sub jdn(y,m,d,h,m,sec,jdn) to compute the jdn number
and
sub unjdn(jdn,y,m,d,h,m,sec) to get the date/time from jdn

Roger

xbones

What's the specific error message?

The manual states that a "type error" might be caused by the wrong type or count of arguments.

"Wrong type.
You’re trying to use a string where a number is needed, or a number where a string is needed. Check to make sure you’re not trying to assign a number to a string variable, or vice versa. Remember, too, that string concatenation is written using an ampersand (&) in True BASIC, and not a plus sign (+)."

rogerh

I know that's what it means but it isn't true in this case but still gives the error message.

That's why I'm stumped.

xbones

Might you send me the *.TRU file?

frank (at) reibold-online.de

xbones

Did you use a variable twice or a system variable? Maybe using say "myh" instead of "h" works.

rogerh

xbones, I'll check and reply

rogerh

!*********************************************************************
sub jdn (y,m,d,h,min,jd)
local a,b,c,e,f,tim
let = y
let mv = m
if mv = 1 or mv = 2 then
let yv = yv-1
let mv = m+12
end if
let a = int(yv/100)
let b = int(a/4)
let c = 2-a+b
let e = int(365.25(yv+4716))
let f = int(30.6001(mv+1))
let jd = c+d+e+f-1524
let tim = h/24 + min/1440
let jd = jd+tim
end sub

!***************************************************
sub unjdn(fjd,y,m,d,hr,mn)
local i,j,jd
let jd = int(fjd)
let fd = fjd-jd
let fhr = fd24
let hr = int(fhr)
let fh = fhr - hr
let mn = round(fh60,0)
let l = jd + 68569
let n = int((4l)/146097)
let l = 1 - int((l+1))/1461001)
let i = int((4000(l+1))/1461001)
let l = 1 - int((80l)/2447j)/80)
let l = int(j/11)
let m = int(j+2-(12l))
let y = int(100(n-49)+i+l)
end sub

All this with one hand!

sub unjdn is even longer.

Roger

rogerh

All this with one hand!

sub unjdn is even longer.

Roger

toml12953

rogerh What is this line?
let f = int(30.6001(mv+1))

If you're trying to multiply 30.6001 times (mv+1) you have to include the multiplication symbol, * thus:

let f = int(30.6001*(mv+1))

There is no implied multiplication in BASIC. Of course, if your intent is something else, then I'm lost.

rogerh

[unknown]

AHA! You may have found the problem. See, I didn't write this routine, I just incorporated it into my program
so was not wanting to change anything and didn't look closely. I'll change it and see. Thanks!

rogerh

No such luck. The error was mine in copying the sub to this page. The version in the program is correct
so that isn't the problem.

Roger

xbones

!*********************************************************************
SUB jdn (y,m,d,h,min,jd)
LOCAL a,b,c,e,f,tim
LET let = y
LET mv = m
IF mv = 1 or mv = 2 then
LET yv = yv-1
LET mv = m+12
END IF
LET a = int(yv/100)
LET b = int(a/4)
LET c = 2-a+b
LET e = int(365.25 * (yv+4716))
LET f = int(30.6001 * (mv+1))
LET jd = c+d+e+f-1524
LET tim = h/24 + min/1440
LET jd = jd+tim
END SUB

!***************************************************
SUB unjdn(fjd,y,m,d,hr,mn)
LOCAL i,j,jd
LET jd = int(fjd)
LET fd = fjd-jd
LET fhr = fd * 24.0
LET hr = int(fhr)
LET fh = fhr - hr
LET mn = round(fh60,0)
LET l = jd + 68569
LET n = int((4 * l)/146097)
LET l = 1 - int((l+1)/1461001)
LET i = int((4000 * (l+1))/1461001)
LET l = 1 - int(((80 * l)/2447 * j)/80)
LET l = int(j/11)
LET m = int(j+2-(12 * l))
LET y = int(100 * (n-49)+i+l)
END SUB

END

This compiles without any problem.