Mouradnet (marmar_net**********fr)
Exercice 1
void onof(){
portb.f4=0;delay_ms(150);
portb.f4=1;delay_ms(150);
portb.f4=0;delay_ms(150);
portb.f4=1;
}
void main(){
trisa=255;trisb=0;
portb=0b00010000;
loop:
if(porta.f0==0)
{if(portb==0b00011001){portb=0b00010000;goto mm1;}else{portb.f4=0;portb=portb+1;portb.f4=1;mm1: if(porta.f0==1){goto loop;}goto mm1;}}
if(porta.f1==0)
{onof();mm2:if(porta.f1==1){goto loop;}goto mm2;}
if(porta.f2==0)
{if(portb==0b00010000){portb=0b00011001;onof();got o mm3;}else{portb.f4=0;portb=portb-1;portb.f4=1;onof();mm3:if(porta.f2==1){goto loop;}goto mm3;}}
if(porta.f3==0)
{portb=0b00010000;onof();mm4:if(porta.f3==1){goto loop;}goto mm4;}
goto loop;
}
Exercice 2
void onof(){
portb.f4=0;delay_ms(150);
portb.f4=1;delay_ms(150);
portb.f4=0;delay_ms(150);
portb.f4=1;
}
void main(){
trisa=255;trisb=0;
portb=0b00010000;
loop:
if(porta.f0==0)
{if(portb==0b00011001){portb=0b00010000;;}else{por tb.f4=0;portb=portb+1;portb.f4=1;}}
if(porta.f1==0)
{onof();}
if(porta.f2==0)
{if(portb==0b00010000){portb=0b00011001;onof();}el se{portb.f4=0;portb=portb-1;portb.f4=1;onof();}}
if(porta.f3==0)
{portb=0b00010000;onof();}
delay_ms(200);
goto loop;
}
Exercice 3
void mourad(char var){
portb=var;
delay_ms(1000);
portb=~portb;
delay_ms(1000);
}
void main()
{
trisb=0;
trisa=0xff;
while(1)
{
mourad(00000001);
mourad(00000010);
mourad(00000100);
mourad(00001000);
mourad(00010000);
mourad(00100000);
mourad(01000000);
mourad(10000000);
}
}
Exercice 4
int global;
void portest(){
if(porta.f0==0){if(global==20000){global=global;}e lse{global=global+5000;}delay_ms(250);}
if(porta.f1==0){if(global==5000){global=global;}el se{global=global-5000;}delay_ms(250);}
}
void main(){int x; global=5000;
trisa=255;trisb=0;
loop:
for(x=0;x<global;x++){portb=0b00010110;delay_ms(1) ;portest();}
for(x=0;x<global;x++){portb=0b00011001;delay_ms(1) ;portest();}
for(x=0;x<global;x++){portb=0b00100101;delay_ms(1) ;portest();}
goto loop;
}
وهدا الرابط لمن يود تحميل ملفات الهكس مع التجارب(simulation)
http://rapidshare.com/files/32670341...inRAR.rar.html