Subject: Temperture data acq RS232 network system.
From: ACRE NL
Date: 11/15/2002, 4:48 PM

Ed how do you feel about booting your notebook with
a DOS 5.0 boot disk I can send you? Omega sent me a lot
of DOS software. Much easier to use than windows stuff.
Also way faster. Furthermore I can knock out very small
comm programs in Quick BASIC lickity split. 

In fact we can start with this one that reads your NEMA 0183
GPS and saves the data to hard disk every  2 seconds.
Will work with any GPS that has a RS232 interface.
This gives you an exact history of where you have flown
down to 15 feet and what heading to the nearest tenth of a degree
you used and how fast you went to the nearest tenth of a knot.. not
to mention the Zulu time to the nearest nano second.
AND a crude altitude reading no less.
Will also measure take off acceleration.

We can modify this to read the temps and store them along
with the GPS data.

Totally stand alone and automatic. You start the program when you 
take off and stop it after you land. No buttons to push.
Generates an ASCII file on your hard disk that can be read
by almost anything.

Paul Lamar
 
The AirCraft Rotary Engine NewsLetter.  Powered by Linux.
ACRE NL web site. http://home.earthlink.net/~rotaryeng/            
Copyright 1998-2002 All world wide rights reserved.

CLS
OPEN "output.dat" FOR APPEND AS #2

OPEN "com1:4800,N,8,1,OP5,RS,RB2048,CD0,DS0,CS0" FOR INPUT AS #1
TIMER ON
ON TIMER(2) GOSUB doit

start:
x = x + 1: LOCATE 1, 1: PRINT x
LOCATE 1, 60: PRINT TIME$;
LOCATE 1, 10: PRINT "Number of characters in buffer "; LOC(1);
'IF LOC(1) > 200 THEN GOSUB doit
GOTO start


'problem here is there has to be exactly 200 characters in the file
'and there is apparently nothing you can do about it.
'adding IF EOF(1) THEN RETURN seems to find end of file

doit:
x = 0
GOSUB clearscr
temp$ = INPUT$(LOC(1), #1)
LOCATE (x2 + 4), 1: PRINT temp$;
PRINT #2,
PRINT #2, temp$
RETURN

'$GPRMC,221842,A,3455.98,N,11823.17,W,089.0,000.0,261092,014.2,E*6A        

clearscr:
FOR z = 1 TO 17
LOCATE (z + 4), 1: PRINT "                                                                        "
NEXT z
RETURN