program Afficheur_001;

var LectureVcons : Word;

procedure init();
begin
TRISA:= %00000001; // Configuration de la broche RA0 comme entrée
PORTA:= %00000000; // On met toutes les sorties du PORTA à "0"


TRISB:= %00000000; // Configuration du PORTB comme sortie
PORTB:= %00000000; // On met toutes les sorties du PORTB à "0"

ANSEL:= %00000001; // Configuration de l'entrée RA0 en analogique

ADC_Init; // Initialisation du convertissuer Analogique /numérique (A/N)
end;

procedure Lecture_Vcons();
begin
LectureVcons := ADC_Get_Sample(0);
  begin
    if (LectureVcons > 102) then PORTA.1 := 1 else PORTA.1:=0;
    if (LectureVcons > 204) then PORTA.2 := 1 else PORTA.2:=0;
    if (LectureVcons > 306) then PORTA.3 := 1 else PORTA.3:=0;
    if (LectureVcons > 408) then PORTA.4 := 1 else PORTA.4:=0;
    if (LectureVcons > 510) then PORTB.0 := 1 else PORTB.0:=0;
    if (LectureVcons > 612) then PORTB.1 := 1 else PORTB.1:=0;
    if (LectureVcons > 714) then PORTB.2 := 1 else PORTB.2:=0;
    if (LectureVcons > 816) then PORTB.3 := 1 else PORTB.3:=0;
    if (LectureVcons > 918) then PORTB.4 := 1 else PORTB.4:=0;
    if (LectureVcons > 1020) then PORTB.5 := 1 else PORTB.5:=0;
  end;
end;

begin
init;
 while true do
   begin
    Lecture_Vcons();
   end;
end.