MikroElektronika Forum

Code: Select all

var ch: byte;
    t : word;
    Text : array[17] of char;
    tlong: longint;

begin
  PORTB  := 0;                      // clear PORTB
  TRISB  := 0;                      // designate PORTB  as output (LCD is connected to PORTB)
  INTCON := 0;                      // disable all interrupts

                                       //Lcd_Init(PORTB);                  // initialize  (4-bit interface connection)
Lcd_Config(PORTB,7,6,5,4,PORTB,1,3,0);

                                       

  Lcd_Cmd( LCD_CURSOR_OFF);         // send command to LCD (cursor off)
  Lcd_Cmd(LCD_CLEAR);



  Text := 'Inicializacia';       // assign text to string a
  Lcd_Out(1,1, Text);               // print string a on LCD, 1st row, 1st column
  OPTION_REG := $80;
  ADCON1     := $82;                // configure VDD as Vref, and analog channels
  TRISA      := $FF;                // designate porta as input
  Delay_ms(2000);
  Text  := 'voltage:';              // assign text to string a
  Lcd_Out(2, 1, Text);              // print string a on LCD, 2nd row, 1st column
  Lcd_Chr(2, 14, 'V');
  while true do
    begin
      t     := ADC_read(0);         // get ADC value from 2nd channel
      tlong := t*5000;
      t     := tlong shr 10;
      ch    := t div 1000;          // prepare value for diplay

      Lcd_Chr(2, 9, 48+ch);         // write ASCII at 2nd row, 9th column
      Lcd_Chr(2, 10, '.');

      ch    := (t div 100) mod 10;
      Lcd_Chr(2, 11, 48+ch);

      ch    := (t div 10) mod 10;
      Lcd_Chr(2, 12, 48+ch);

      ch    := t mod 10;
      Lcd_Chr(2, 13, 48+ch);

      delay_ms(1);
    end;
end.

Code: Select all

var ch: byte;
    t : word;
    Text : array[17] of char;
    tlong: longint;

begin
  PORTB  := 0;                      // clear PORTB
  TRISB  := 0;                      // designate PORTB  as output (LCD is connected to PORTB)
  INTCON := 0;                      // disable all interrupts

                                       //Lcd_Init(PORTB);                  // initialize  (4-bit interface connection)
 Lcd_Config(PORTB,7,6,5,4,PORTB,1,3,0);
                                      
  Lcd_Cmd( LCD_CURSOR_OFF);         // send command to LCD (cursor off)
  Lcd_Cmd(LCD_CLEAR);
  Text := 'Inicializacia';       // assign text to string a
  Lcd_Out(1,1, Text);               // print string a on LCD, 1st row, 1st column
  OPTION_REG := $80;
  ADCON1     := $82;                // configure VDD as Vref, and analog channels
  TRISA      := $FF;                // designate porta as input
  Delay_ms(2000);
  Text  := 'voltage:';              // assign text to string a
  Lcd_Out(2, 1, Text);              // print string a on LCD, 2nd row, 1st column
  Lcd_Chr(2, 14, 'V');

end.