Overblog Suivre ce blog
Editer l'article Administration Créer mon blog

Dans le dernier article , j'avais aborté la partie connexion. Maintenant nous allons passer au programme.

Descriptif du programme

Après la séquence d'initialisation , le programme va affiché le message 'Debut test USART CC7107_76' dans la fenêtre du terminal. Ensuite il y a une boucle qui nous permet de tester l'état des 2 entrées RA0 et RA1. L'appui sur les boutons génère un message sur le terminal.

Voici l'algorithme du programme.

 

Diagramme1

Le code programme commenté :

 

program comm1;

// Programme de test USART

// OSCILLATOR XT 4Mhz

// CC7107_76 mai 2012

{ Declarations section }

 

procedure retour();

begin

  UART1_Write(13);        // retour chariot

  UART1_WRITE(10); // saut de ligne

end;

 

begin     // Programme principal

ADCON1:=0x06; //Port A I/O digital

 

  PortA:=0; // init port A

  Trisa:=%00111111;   // Port A en entrées de RA0 à RA5

 

  UART1_INIT(9600);   // Vitesse de transmission

 

  UART1_WRITE_Text('Debut Test UART CC7107_76');// Envoi message

  retour(); // Appel de la procédure retour

  While (true) do 

  begin

  if button(PortA,0,50,0)  then    // Attente impulsion sur RA0

    begin

       UART1_WRITE_Text('Ra0'); // Si RA0 est appuyé  --> Envoi message 'RA0' vers le port série

       retour();

  end;

 

  if button(PortA,1,50,0) then

  begin

       UART1_WRITE_Text('Ra1');   // Si RA0 est appuyé  --> Envoi message 'RA0' vers le port série

       retour();

  end;

end;

end. // Fin programme

 

Voici le résultat :

mkropascalusart

Voilà pour le principe de fonctionnement. Au niveau de mon projet je vais continuer à approndir ce sujet . Le programme du pic demande à être modifié afin de traiter plus facilement tout les cas de figures et gérer les infos au coup par coup. 

A la date d'aujourd'hui, le programme du pic pour la scutation des PORTA à E du 16f877 est terminé et opérationnel. Il me reste la partie de traitement d'information à gérer dans le programme en DELPHI qui gère mon réseau.

Ces essais m'ont permit de découvrir une autre facette du fonctionnement des PICS. Je me demande si je ne pourrais pas aller encore plus loin. Mais là je vais faire une petite pause pour me consacrer à la décoration de mon réseau.....

 

Tag(s) : #Autour des PIC