Projet PFE

[invite19e28531]

bonsoir tout le monde
je veux convertieur ce programme en MIKROC
est ce que il ya quelqu'un qui peux m'aider

program programmme;
var x,vitesse,i:integer;
const PAS : array[4] of byte = (%0001,%0010,%0100,%1000) ;
begin
intcon:=$80; // activation du convertisseur
TRISb:=0;
while (true) do
begin
x:=adc_read(0);
if portc.7=0 then
begin
vitesse:= 512 - (x div 2);
vdelay_ms(vitesse);
portb:=PAS[i];
i:=i+1;
if i>3 then i:=0;
end
else
begin
vitesse:= 512 - (x div 2);
vdelay_ms(vitesse);
portb:=PAS[i];
i:=i-1;
if i<0 then i:=3;
end;


end;
end.

merci d'avance
-----

[Jack]

Je ne vois pas où est la difficulté, le pascal et le C étant tellement proches.

[JPL]

Un programme doit être indenté pour être lisible.

[invitee8935433]

salut je suppose tu deja la solution
begin={
end=}
then =rien
var x,vitesse,i:integer;=unsigned int x; vitesse

je crois pas que ton programme marche en pascal mais puisque je l'ai jamais utiliser je supose qu ça te va je comprend pas if portc.7=0 then begin je vois une affectation dans un test pour moi ça sera toujour vrai bon c'est du pascal en mikroc on peux ecrir if(portc.f7=0) {

c'est quoi div2 et les dollar je suppose que c'est de l'hex je prefere en mikroc 0x80 les valeur avec pourcentage franchement je n'ai aucune idée

[A voir en vidéo sur Futura]

[Jack]

je comprend pas if portc.7=0 then begin je vois une affectation dans un test pour moi ça sera toujour vrai

Non, en pascal = est un opérateur relationnel, l'opérateur d'affectation étant :=

Quant à portc.7, soit c'est une syntaxe "maison" non standard, soit c'est un record, mais comme on n'en a pas la la définition, difficile d'en dire plus.

en mikroc on peux ecrir if(portc.f7=0)

Et là, du coup, l'expression serait toujours fausse et l'instruction suivant le if ne serait jamais exécutée.

A+

[invitee8935433]

program programmme;
var x,vitesse,i:integer;
const PAS : array[4] of byte = (%0001,%0010,%0100,%1000) ;
begin
intcon:=$80; // activation du convertisseur
TRISb:=0;
while (true) do
begin
x=adc_read(0);
if portc.7==0 then
begin
vitesse= 512 - (x div 2);
vdelay_ms(vitesse);
portb:=PAS[i];
i:=i+1;
if i>3 then i:=0;
end
else
begin
vitesse:= 512 - (x div 2);
vdelay_ms(vitesse);
portb:=PAS[i];
i:=i-1;
if i<0 then i:=3;
end;


end;
end.


unsigned int  x,vitesse,i;
unsigned short PAS[ ]; tu met les val comme tu veux c'est du langage c 

main() 
     {
        intcon:=0x80; // activation du convertisseur
       TRISb:=0x00;
        while(1)
             {
              x:=adc_read(0);
              vitesse= 512 - (x / 2);
              vdelay_ms(vitesse);
              portb=PAS[i];
               i++;
             if (i>3 ) {
               i=0;
              }

              .le reste du code
             .
              . 
      }        .
}

[invitee8935433]

affectation c'est egal = et egallité deux fois egales ==