Article View: comp.lang.pascal.borland
Article #214TP 6 + TV --> refresh values every 100ms ?
From: Manuel Fischer
Date: Thu, 30 Dec 1999 00:00
Date: Thu, 30 Dec 1999 00:00
49 lines
2825 bytes
2825 bytes
Hi...
I'm writing a software in Turbo Pascal 6 to control a tranceiver
over the UART RS-232 Interface. Just in TP it works really fine,
but without any graphical layout. So I have been interessted in
Turbo Vision for Turbo Pascal 6 and I allready begone to struct
a menu toolbar design.
My question is now how to integrate the TP 6 Source, that means
how to write an oject or else in Turbo Vision that is able to
display values in an array format and refresh them every 50ms or 100ms.
My tranceiver sends every 50-100 ms a hex code that is proceded
and calculated by an Interrupt Service Routine and aferwerds
the values will be saved in normal Turbo Pascal Arrays.
It looks like that:
TYPE
VFOs = RECORD
Rq : Boolean; { VFOs request
decleration }
PO : Byte; { PO/ALC for
VFOs }
SM : Byte; { S-Meter for
VFOs }
QRG : Array[1 ..4] of Byte; { QRQ 10MHz of VFOs to
display }
Mode : Byte; { Modes for
VFOs }
ModeBez : String[3]; { Mode Bezeichnung for
VFOs }
PTT : Boolean; { PTT
Status }
END;
(VFO means Voltage Frequency Oscillator...)
How to determine now an object if needed to get every 1/10 seconds
such values from the TP array or pointers of them and display
in an Static text field or else...?
If anybody is able to help me, please send me a mail to:
manfischer@swissonline.ch
Thanks...
and happy MILLENIUM
Manuel Fischer
Switzerland
Technical Details
Message-ID:
<386BDCFB.455B8B17@swissonline.ch>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 10c470,2c04962a837fe56e,start X-Google-Attributes: gid10c470,public X-Google-Thread: fd1d1,2c04962a837fe56e,start X-Google-Attributes: gidfd1d1,public X-Google-Thread: 108ebd,2c04962a837fe56e,start X-Google-Attributes: gid108ebd,public X-Google-Thread: 111659,2c04962a837fe56e,start X-Google-Attributes: gid111659,public X-Google-Thread: 10cc59,2c04962a837fe56e,start X-Google-Attributes: gid10cc59,public From: Manuel Fischer <manfischer@swissonline.ch> Subject: TP 6 + TV --> refresh values every 100ms ? Date: 1999/12/30 Message-ID: <386BDCFB.455B8B17@swissonline.ch> X-Deja-AN: 566759513 Content-Transfer-Encoding: 7bit X-Accept-Language: de,en Content-Type: text/plain; charset=us-ascii X-Complaints-To: abuse@swissonline.ch X-Trace: news.swissonline.ch 946593158 2457 195.24.94.223 (30 Dec 1999 22:32:38 GMT) Organization: Swiss Online (Cablecom Media), Zurich, Switzerland Mime-Version: 1.0 NNTP-Posting-Date: 30 Dec 1999 22:32:38 GMT Newsgroups: comp.lang.pascal.borland,comp.lang.pascal,borland.public.turbopascal,it.comp.lang.pascal,de.comp.lang.pascal