  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hello, > Darf ich bitte diese Testprogramm haben, habe auch Proplemme mit DCF Empfang > Gruß Martin Greetings, H.J. Windt '-----------------------------------------------------------------------------' '******************************************************' '* WINDT SYSTEMS *' '* DCF SIGNAL MONITOR v1.2 for CCIUM2.0 with CCIAB2.0 *' '* 2005/ H.J. WINDT *' '******************************************************' '-----------------------------------------------------------------------------' 'Use this software to monitor and or aim your DCF antenna.' 'The DCF signal is shown as a bar graph on the LCD.' 'A beep will sound when the DCF signal is good.' 'Feel free to use and share this software!' '-----------------------------------------------------------------------------' '*************** INS and OUTS **************' define signal freq define lcd_light_off port[16] '*******************************************' '**************** VARIABLES ****************' define loop byte[1] define bar_graph_length byte[2] define signal_monitor word[2] '*******************************************' '**************** CONSTANTS ****************' '*******************************************' '****************** SETUP ******************' print"#ON_LCD#"; : print"#INIT#"; : print"#CLR#"; : print" DCF SIGNAL "; : lcd_light_off = 0 signal_monitor = 0 '*******************************************' '***************** PROGRAM *****************' #start if signal = 1 then goto signal_received signal_monitor = signal_monitor - 2 if signal_monitor < 0 then signal_monitor = 0 #display_bar_graph bar_graph_length = signal_monitor / 100 print"#L201#"; for loop = 0 to bar_graph_length if loop > 0 then put &hff next print" "; if bar_graph_length = 16 then beep 4,2,4 goto start #signal_received signal_monitor = signal_monitor + 1 if signal_monitor > 1600 then signal_monitor = 1600 goto display_bar_graph |
| Antwort schreiben |