Category : BASIC Source Code
Archive   : FUELGA.ZIP
Filename : TEST.BAS

ü
¨
Ò


0ÿÿ$ÿÿ
mÍÅVtˆf¢©°šæ
SetUpMonitorµRowºColNumMons
Title
i DoMonitorNowwTopÖMon

t
jðRunningTRUEFALSE CancelButtonSCREEN ControlpaneljunkCount—

J=—5
Test Program to demonstrate Fuel Gauges
 Jan 1993 —/
Needs Modules : MONITOR.BAS and MONITORF.FRM—
Runs in VBDOS—
Written By
 : Aidan CoyneS—'

 17, Percy Lane, Dublin 4, Ireland.T—

 Compuserve ID : 100014,2700—,

 Internet
 : [email protected]—

J=Dš
¢
©
D.V
f
m
t
Ö
#d
ÍÍt
Åd fd) m—+ Position of fuel gauge formd
—+ Text for each fuel gaugexm
Single Fuel Gauge Demod

—+ Text$(0) is form caption-m

Fuel Gauge #1"d
m

Fuel Gauge #2"d 
m

Fuel Gauge #3"d

—.--Single Fuel Gauge With No Cancel Button
#-d t—+ One Fuel GaugetÍ ֗+ No Cancel Button-fmtÖ7Vˆde
dVÿÿæˆe
dd 
—+ Update Fuel Gauge 
de
¸Vÿÿ´eÿÿ—"+ Delay e.g. while reading recordeÿÿ
d
d
d
d
7V—+ Remove Form—
L-m
Press A Key"È
Ç
Å
—.--Multiple Fuel Gauges With Cancel Button
#-m
(Multi Fuel Gauge Demo with Cancel Buttond

—8Change the titled
t—+ 3 Fuel Gauges this timefmtd7V—8Display FormÅ ºˆde
dVÿÿܺt
]xTÞ—#+ Running% is returned as FALSE if
+—)+ cancel button is pressed and confirmedˆe
b
]îˆe
d º—5 Update gauge #1ˆe
<b
]2ˆe
<d
 º—5 Update gauge #2ˆe
dd  º—5 Update gauge #3 
de
¸Vÿÿ†eÿÿ—+ Short Delay­
µ—++ Need a DOEVENTS() to catch cancel button eÿÿ
d
d
d
d
7V—+ Remove Form—
L- ÿÿÿÿÿÿÿÿ4