Servomoteur pic 16f628

[dvb_gsm]

Salut a tous...

Helas j'ai aucune idee sur les servomoteurs .

Mon Projet est un Bariere automatique en utlisant un servomoteur commande par pic 16f628.

-Il sagit de faire tourner un servomoteur 5V nomme 9g de 0° ---90°

Apres avoir actionne sur un bouton poussoir BP le servomoteur commence a tourner de 0--90 °(lentement) et il reste a cette position un temps de 5s, apres il revient a l'etat initiale qui est 0°.

Remarque:

Puisque le bouton poussoir BP est actionne le servomoteur ne revient plus a sa position initiale sans que le bouton poussoir BP est relache.

Je m'adresse a ceux qui peuvent m'aider à programmer le pic 16F628 avec Mikropascal, et 1000 merci d'avance.

Voila le montage
-----

[dvb_gsm]

Hi..

Aucune reponse ???????

[LABTOOL48]

salut frère

tu parle de Servomoteur mais il n'existe plus sur le schéma ,comment tu pense qu'on peux t'aider de programmer un pic sans connaitre ton Servomoteur! ,en moins sa référence pour qu'on puisse le chercher sur google pour t'aider et ton schéma personne ne va le comprendre car il ne contient rien ,donne nous le type de Servomoteur que tu va l'utiliser dans ton projet

[inviteede7e2b6]

et , encore une fois, nous ne faisons pas les devoirs

[A voir en vidéo sur Futura]

[Pierrre]

bonjour
je suppose qu'il s'agit d'un servomoteur de modele reduit: suffit de chercher sur le net , il y a une multitude de sites qui en parlent.

[dvb_gsm]

salut

voila le servomoteur 3 fils

-1 +5v
-2 gnd
-3 commande

[Pierrre]

et ben voila, on progresse...

[invite3a1051d7]

bonjour,
premiere etape
tu allumes une LED pendant 1ms tu l’éteins pendant 19 ms et tu fais ça 30 fois
quand ça marche tu fais signe
si tu as un probleme pour faire ça tu" post" le code qui marche pas
cordialement
Alain

[Pierrre]

tu allumes une LED pendant 1ms tu l’éteins pendant 19 ms et tu fais ça 30 fois

... LOL ça va etre difficile a voir sans oscillo ...

[invite3a1051d7]

tu va la voire alluméfaiblement pendant un "certain temps "
tu peux modifieer le temps pour "voir "
ce qu'il faut verifier c 'est que ce mini programme fonctionne avant d'aller plus loin

[LABTOOL48]

bonjour,
premiere etape
tu allumes une LED pendant 1ms tu l’éteins pendant 19 ms et tu fais ça 30 fois
quand ça marche tu fais signe
si tu as un probleme pour faire ça tu" post" le code qui marche pas
cordialement
Alain

bonjour

pwm avec période fixé loll , mais c'est bon il peut tourne le moteur avec ça


@dvb_gsm

tu peux faire comme il t'a dit "alainav1"

[dvb_gsm]

Hi..

Voila j'ai travaille tous le montage complet et j'ai exige tous mes conditions....

Seul le fonctionnement du servomoteur est un peut rapide

J'aime bien avoir juste ralentir un peut le fonctionnement du Servomoteur c tout

1000 Merci pour tous vos reponses

Voila le progamme:

program servo_2;

var
servo1   : sbit at RA0_bit ;
i,j : byte ;
BP1 : sbit at portA.0 ;
BP2 : sbit at portA.1 ;
M1 : sbit at portB.0 ;
M2 : sbit at portB.1 ;
D1 : sbit at portB.2 ;
D2 : sbit at portB.3 ;
begin
trisa := $FF ;    // PortA configuré en entrées
trisb := $00 ;    // PortB configuré en sorties
CMCON:=$07; // Désactivation des comparateurs
D1:=0;D2:=0;//Initialesation des sorties;
while true do
    begin
    if BP1=1 then
    begin
    for i:=1 to 30 do
    begin
  M1:=1 ;
  delay_ms(1);
  M1:=0 ;
  delay_ms(19);
  end;
  if BP1=0 then
  begin
  delay_ms(3000);
  for j:=1 to 30 do
    begin
  M1:=1 ;
  delay_us(1500);
  M1:=0 ;
  delay_us(18500);
  end;
  D1:=1;
  delay_ms(1000);
  D1:=0;
  end;

  end;
    if BP2=1 then
    begin
    for i:=1 to 30 do
    begin
  M2:=1 ;
  delay_ms(1);
  M2:=0 ;
  delay_ms(19);
  end;
  if BP2=0 then
  begin
  delay_ms(3000);
  for j:=1 to 30 do
    begin
  M2:=1 ;
  delay_us(1500);
  M2:=0 ;
  delay_us(18500);
  end;
  D2:=1;
  delay_ms(1000);
  D2:=0;
  end;
  end;
 End;

end.

[invite3a1051d7]

pour ajuster la vitesse du servo l
connaitre sa position (memo de la position precedente)
puis decrementer ou incrementer de la position actuelle ver l'objectif
exemple
soit la position actuelle pos1
et aller ver la position pos2(si pos2 est superieur à pos 1)
pos= pos1
while pos < pos2
pos= pos +1
mettre le servo à pos
wend

faire de même de pos2 ers pos1
pos= pos2
while pos <pos1
pos= pos -1
mettre le servo à pos (faire une boucle plus ou moins longue )
wend
bien sur la syntaxe est à adapte au logiciel
cordialement
Alain

[dvb_gsm]

hi..

merci pour vos reponses..

je vais essaye de faire le programme

mais j'ai rencontre un autre probleme

Pour mon programme j'ai fait la simulation avec ISIS de proteus pour le fontionnemnt du montage et j'ai constate que je ne peut pas faire fonctionner les 2 servomoteurs en meme temps...
CAD soit je fait marcher M1 ou M2 pas les 2 en meme temp
Avez vous une idee pour resourdre ce probleme

[Pierrre]

2 servomoteurs ???? il n'y en a qu'un sur le schema ISIS du post #1...

[dvb_gsm]

merci Mr:Pierre pour vos reponses..

Le montage contient 2 Servomoteurs M1 M2

BP1 Commande M1
BP2 Commande M2

Le programme marche bien mais peuvent ont faire fontionner M1 et M2 separement ou en meme temps
Le programme fonctionne seur M1 ou M2 les 2 en meme remps ne marche pas
Pouvez Vous m'aider a faire le programme pour avoir les 2 en meme temps

[antek]

Tu fais le même programme pour chaque servo.
Il est censé se passer quoi lorsqu'on appuie sur un BP ?

[dvb_gsm]

Salut a tout Monde....

Voila le principe de fonctionnement:

Appui sur BP1 le Servo M1 fonctionne de 0--90° et reste un temps de 5 sec apres revient de 90--0° sa position initiale et apres la diode D1 s'allume pendant 1 sec apres s'éteint.

Tous ca le meme cas pour BP2 et M2 et D2.

J'ai envisage que:

Puisque les boutons BP1 ou BP2 restent actionnes et ne sont pas relaches les M1 et M2 ne fonctionnent plus et reviennent plus a leurs position initiale 0°.

Le montage fonctionne bien mais on ne peut plus faire fonctionner les M1 et M2 en même temps cad il faut faire fonctionner juste un seul servomoteur soit M1 ou M2

je cherche juste trouver une solution pour faire fonctionner les servo M1et M2 indépendant

Voila le programme:

program servo_2;

var
servo1   : sbit at RA0_bit ;
i,j : byte ;
BP1 : sbit at portA.0 ;
BP2 : sbit at portA.1 ;
M1 : sbit at portB.0 ;
M2 : sbit at portB.1 ;
D1 : sbit at portB.2 ;
D2 : sbit at portB.3 ;
begin
trisa := $FF ;    // PortA configuré en entrées
trisb := $00 ;    // PortB configuré en sorties
CMCON:=$07; // Désactivation des comparateurs
D1:=0;D2:=0;//Initialesation des sorties;
while true do
    begin
    if BP1=1 then
    begin
    for i:=1 to 30 do
    begin
  M1:=1 ;
  delay_ms(1);
  M1:=0 ;
  delay_ms(19);
  end;
  if BP1=0 then
  begin
  delay_ms(3000);
  for j:=1 to 30 do
    begin
  M1:=1 ;
  delay_us(1500);
  M1:=0 ;
  delay_us(18500);
  end;
  D1:=1;
  delay_ms(1000);
  D1:=0;
  end;

  end;
    if BP2=1 then
    begin
    for i:=1 to 30 do
    begin
  M2:=1 ;
  delay_ms(1);
  M2:=0 ;
  delay_ms(19);
  end;
  if BP2=0 then
  begin
  delay_ms(3000);
  for j:=1 to 30 do
    begin
  M2:=1 ;
  delay_us(1500);
  M2:=0 ;
  delay_us(18500);
  end;
  D2:=1;
  delay_ms(1000);
  D2:=0;
  end;
  end;
 End;

end.

et voila le hex: ****

[Pierrre]

si tu pouvais reecrire le code avec identation... je ne connais pas specialement le mikropascal et ca serait beaucoup plus lisible