Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: DCF SIGNAL MONITOR v1.0 for CC1M2.01 Kategorie: C-Control I V1.2/2.0 (von Windt H.J. - 20.10.2004 14:04)
 Als Antwort auf Re: DCF SIGNAL MONITOR v1.0 for CC1M2.01 von DIE HARD - 20.10.2004 11:53
To DIE HARD
This one is a better design and uses less basic bytes.
Feel free to host this tool.
H.J. Windt

'-----------------------------------------------------------------------------'
'***********************************************************************'
'*                         WINDT SYSTEMS                               *'
'*        DCF SIGNAL MONITOR v1.1 for C-Control 1 Unit M2.01           *'
'*                           H.J. WINDT                                *'
'*                             2004                                    *'
'***********************************************************************'
'-----------------------------------------------------------------------------'
'This program monitors the DCF signal.'
'The DCF signal is shown as a bar graph on the LCD display.'
'Use this program to aim the DCF antenna.'
'When the DCF signal is good the bar graph will be full and a beep will sound.'
'-----------------------------------------------------------------------------'
'*************** INS and OUTS **************'
define signal freq
define lcd_light_off port[16]
'*******************************************'
'**************** VARIABLES ****************'
define signal_strength word[1]
define loop byte[3]
define signal_number byte[4]
'*******************************************'
'**************** CONSTANTS ****************'

'*******************************************'
'****************** SETUP ******************'
signal_strength = 0
print"#ON_LCD#";
print"#INIT#";
print"#CLR#";
print"   DCF SIGNAL   ";
lcd_light_off = 0
'*******************************************'
'***************** PROGRAM *****************'
#start
if signal = 1 then goto signal_received
if signal_strength = 0 then goto pass1
signal_strength = signal_strength - 1
#pass1
signal_number = signal_strength / 100
print"#L201#";
for loop = 0 to signal_number
if loop > 0 then put &hff
next
print"                ";
if signal_number = 16 then beep 4,2,4
goto start
#signal_received
if signal_strength = 1600 then goto pass1
signal_strength = signal_strength + 1
goto pass1

'*******************************************'
'****************** DATA *******************'

'*******************************************'

 Antwort schreiben

Bisherige Antworten:

Re: DCF SIGNAL MONITOR v1.0 for CC1M2.01 (von DIE HARD - 20.10.2004 16:26)