' **************************************************************** ' ** File: Hello_it.bas - Ver. 1.1 ** ' ** Compilatore: PIC Basic PRO ** ' ** IDE: MicroCode Studio Plus ** ' ** Versione Compilatore: 2.45 ** ' ** Scheda: GMM 4620 ** ' ** GRIFO(R) via Dell'Artigiano 8/6 ** ' ** 40016 S. Giorgio di Piano (BO) ** ' ** Tel. +39 051 892052 Fax. +39 051 893661 ** ' ** http://www.grifo.com http://www.grifo.it ** ' ** by Graziano Gaiba del 31.01.2006 ** ' **************************************************************** ' ' Hello_it.BAS - Rel. 1.1 - 31.01.2006 by Graziano Gaiba ' Programma precaricato nei mini moduli. ' Effettua il lampeggiamento dei LEDs di bordo. ' ' ' **************** Definizioni del compilatore ****************** ' DEFINE OSC 10 ' Frequenza oscillatore 9,8304 MHz 'DEFINE HSER_RCSTA 90h ' Abilita il ricevitore 'DEFINE HSER_TXSTA 20h ' Abilita trasmettitore 'DEFINE HSER_BAUD 19200 ' Baud Rate ' ' '************************** Programma principale ******************************* ' main: ' Imposta le linee di controllo dei LEDs come uscite TRISB.4=0 TRISA.3=0 ADCON1=$0f ' Imposta come I/O digitale i pin AN0..12 CMCON=$07 ' Imposta come I/O digitale RA0..4 ' Alternanza di circa due lampeggi al secondo for_ever: ' Accende DL1 e spegne DL2 PORTA.3=1 PORTB.4=0 pause 200 ' Spegne DL1 e accende DL2 PORTA.3=0 PORTB.4=1 pause 200 goto for_ever end