Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 459 → Rev 460

/programy/C/PIC_C/test/PIC16F88/blik/blik.c
4,6 → 4,8
void main()
{
 
int i;
 
setup_adc_ports(NO_ANALOGS|VSS_VDD); // parametry
setup_adc(ADC_OFF);
setup_spi(FALSE);
17,9 → 19,25
while(true) // nekonecny cyklus
{
output_high(PIN_B0); // nastav B0 na 1
Delay_ms(700); // pockej 700ms
Delay_ms(50); // pockej 50ms
output_high(PIN_B1); // nastav B0 na 1
Delay_ms(50); // pockej 50ms
output_high(PIN_B2); // nastav B0 na 1
 
for(i=0;i<=100;i++)
{
Output_high(PIN_A2);
Delay_ms(1);
Output_low(PIN_A2);
Delay_ms(1);
}
output_low(PIN_B0); //nastav B0 na 0
Delay_ms(50); // pockej 50ms
} // opakuj cyklus
output_low(PIN_B1); //nastav B0 na 0
Delay_ms(50); // pockej 50ms
output_low(PIN_B2); //nastav B0 na 0
Delay_ms(50); // pockej 50ms
} // opakuj cyklus
 
}