Форум РадиоКот

Код: Выделить всё

Device 12F629
Declare  Reminders = OFF    
Xtal = 4
Config INTOSCIO, CP_OFF, CPD_OFF, PWRTE_On, MCLRE_OFF, WDT_ON 
CMCON = 7                  
TRISIO =%00001100           
Dim k As Byte
Dim a As Byte
'*******************************
main:
    If GPIO.3 = 1 Then GoSub led1
    If GPIO.2 = 1 Then GoSub led2
GoTo main
'*******************************
led1:
GPIO.1 = 0
    For k = 0 To 49
        GPIO.0 = 1
            For a = 0 To 5
                DelayMS 10
                If GPIO.2 = 1 Then GoTo main
            Next a    
        GPIO.0 = 0
            For a = 0 To 5
                DelayMS 10
                If GPIO.2 = 1 Then GoTo main
            Next a         
    Next k
Return
'*******************************
led2:
GPIO.0 = 0
    For k = 0 To 49
        GPIO.1 = 1
            For a = 0 To 5
                DelayMS 10
                If GPIO.3 = 1 Then GoTo main
            Next a    
        GPIO.1 = 0
            For a = 0 To 5
                DelayMS 10
                If GPIO.3 = 1 Then GoTo main
            Next a         
    Next k
Return
'*******************************
End

Код: Выделить всё

#include <pic.h>
// pic12f629

__CONFIG (INTIO & UNPROTECT & BOREN & MCLRDIS & PWRTEN & WDTDIS);

// === используемые функции
void podgot (void); // подготовка МК
void Left (void);
void delay (void);

void main (void){ 
podgot(); 
while(1){ 


Left();
GPIO0=1;
//if(GPIO2==1) L(); //L


//if(GPIO3==1) L(); //R
//else GPIO0=0;


} //конец бесконечного цикла
} 


// === подготовка МК
void podgot (void)
{
INTCON = 0; // запрет прерываний
CMCON  = 7; // отключаем аналоговый компаратор
TRISIO = 0b001100;
GPIO = 0; // чистим
GPPU = 0; // все подтягивающие R: 1 - откл., 0 - вкл.

}

void Left (void)
{
unsigned char x;
x=0;
while(x<5)
{
GPIO1=1;
delay();
GPIO1=0;
delay();
x++;
}
}

void delay (void)
{
unsigned int delay = 999;
while (delay-->0);
}