INFO - FAQ - CC2-Forum - CCPro-Forum |
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 |