WELLOG BLACK BOX LISTING
Software Listing:
The following listing
is an example of a program written in BASIC.
Development of
software can be done using tools provided by companies like PowerBASIC
www.powerbasic.com
‘====================================================================
' BLKBOX.BAS 03-21-2005 (C)
WELLOG 2004-2005
'
'
' Receives serial data from Black Box
Logger at 57600 baud
' Displays data and
writes data to file d:/logger.las
cls
input "How many channels";c
print
print "What are the following channels used for?
print
for l = 1 to c
print "Channel ";l-1
input c$(l-1)
next l
cls
print "Press any key to quit"
print "waiting for encoder..."
open "com1:57600,n,8,1,cs0,ds0,cd0,rs"for random as
#1 'com port
open "d:\logger.las" for output as
#2 'file
output
print #1, c
print #2, " WELLOG BLACK BOX LOGGING
SYSTEM"
print #2, date$, time$
print #2, "Channels are assigned as follows:"
print #2, "Channel 0:",ch$(0)
print #2, "Channel 1:",ch$(1)
print #2, "Channel 2:",ch$(2)
print #2, "Channel 3:",ch$(3)
print #2, "Channel 4:",ch$(4)
print #2, "Channel 5:",ch$(5)
print #2, "Channel 6:",ch$(6)
print #2, "Channel 7:",ch$(7)
print #2,
print #2,"time ";"
";"depth";" ";ch$(0);"
";ch$(1);" ";ch$(2);"
";ch$(3);" ";ch$(4);"
";ch$(5);" ";ch$(6);"
";ch$(7)
print #2,
top:
input #1, b$
locate 12,1
print time$;" ";b$
print #2, time$;" ";b$
a$ = inkey$
if a$ = "" then goto top
print #2, "End of logging ";Date$,time$
close #1
close #2
print "press enter"
end
‘=============================================================
ALL RIGHTS RESERVED © 2018-2020, WELLOG, LLC