Problème compilation

[marcuccio19]

Bonjour à tous, j'ai un problème pour compiler un programme en langage micro-pascal, enfaite mon projet est un variateur de vitesse à courant continu , le problème c'est qu'il n'affiche pas la vitesse du moteur et je pense qu'il manque une instruction du moteur et j'ai aussi un problème à la ligne 46 '' if vitesse>=50 and vitesse<100 then lcd_out(1,10,' 40% '); '' et je ne vois vraiment pas d'où vient l'erreur.

Svp si quelqu'un a une idée ce serait bien aimable de votre part .

le programme en micro-pascal : prog micro-pascal variateur de vitesse.txt
-----

[JPL]

Le plus simple est de poster le code dans un message en utilisant les balises [Code]...[/Code] (# dans la barre d'outil de l'éditeur en mode étendu).

[marcuccio19]

Svp , c'est mon projet de fin d'année , je ne vous demande pas de m'écrire un tout nouveau programme , j'ai quelques erreurs pour compiler et je ne sais pas les résoudre.

[jiherve]

Bonsoir
en mode text c'est pas le top!.

if vitesse>=200 and vitesse<200 then lcd_out(1,10,' 80% ');

çà va pas le faire
JR

[A voir en vidéo sur Futura]

[jiherve]

re
x est déclaré en byte donc : if x < 512 est toujours vrai.
Bonne chasse aux bug car il doit y en avoir d'autres.
JR

[marcuccio19]

Voilà le programme :

    program variatmot01;


var x : byte;  sens,vitesse : integer;
txt: string[10];
 begin
intcon:=$80;  // activation du convertisseur
//LCD_config(portb,6,5,4,3,portb,0,1,2); // configuration de l'afficheur LCD
lcd_cmd(_LCD_CURSOR_OFF);
TRISC:=0;
lcd_out(1,1,'Consigne:');
lcd_out(2,1,'Sens    :');
pwm1_init(500);   //  activation du MLI
pwm2_init(500);   //  activation du MLI
pwm1_set_duty(0); // changement du rapport cyclique
pwm2_set_duty(0); // changement du rapport cyclique
pwm1_start;
pwm2_start;
while (true) do
begin
x:=adc_read(0);
if x < 512 then
           begin
           vitesse:= 255- (x div 2);
           pwm2_stop;
           pwm1_start;
           pwm1_set_duty(vitesse);
           vitesse:=(vitesse * 100)div 255;
           sens := 1;
           end
else
           begin
           pwm1_stop;
           pwm2_start;
           vitesse:=(x-512)div 2;
           pwm2_set_duty(vitesse);
           vitesse:=(vitesse * 100)div 255;
           sens := 2;
           end;
longinttostr(vitesse,txt);
lcd_out(1,10,txt);
if sens = 1 then   lcd_out(2,10,'   1  ');
if sens = 2 then   lcd_out(2,10,'   2  ');

if vitesse<50                       then   lcd_out(1,10,'   20%  ');
if vitesse>=50  and vitesse<100     then   lcd_out(1,10,'   40%  ');
if vitesse>=100 and vitesse<150     then   lcd_out(1,10,'   60%  ');
if vitesse>=200 and vitesse<200     then   lcd_out(1,10,'   80%  ');
if vitesse>=200                     then   lcd_out(1,10,'   100%  ');


end;
end.

[marcuccio19]

@Jiherve : Merci pour ta réponse

[jiherve]

re

vitesse:=(vitesse * 100)div 255;

pourquoi est ce faire ?
JR

[marcuccio19]

Je pense c'est le rapport cyclique de la vitesse , le rapport à 255 c'est 100%

[jiherve]

Bonjour
Ok donc vitesse vaut au max 255 avant la mise à l’échelle et 100 ensuite, les 3 derniers if ne servent a rien!
Est ce toi qui as écrit ce code ?
JR

[marcuccio19]

@jiherve : non, je l'ai pris d'internet car je ne connaissait pas ce langage de programmation