MikroElektronika Forum

Code: Select all

'Pulse-in LCD 8 x 2
'16F684
program pulse
dim count1 as word
dim bar as byte
dim border as byte
dim location as byte
dim text3 as string[4]
    text4 as string[4]
dim counter,
    msec,
    num_impulse as word
    text1 as word
    txt         as char[30]

sub procedure interrupt
   inc(counter)                               ' Increment value of counter on every interrupt
   if counter = 1 then                        ' Has 1ms elapsed?
     counter = 0                              ' Clear the counter
     inc(msec)                                ' Increment msec on every 1 ms
   end if
   TMR0 = 5
   ClearBit(INTCON, T0IF)                     ' Clear the TMR0IF flag
   SetBit(INTCON, T0IE)                       ' Enable TMR0 interrupt
end sub

sub function Pulse_In(dim byref port as byte, dim pin, state as byte, dim duration as word)as word
dim tmp as word                               ' Temporary variable
    old as byte                               ' Previous pin state value

  while TestBit(port, pin) = state            ' Wait for pulses
  wend                                        ' Note that the program will stop here
                                              '   if there are no pulses

  while TestBit(port, pin) <> state           ' Wait for rising (falling) edge
  wend                                        ' Note that the program will stop here
                                              '   if there are no pulses

  tmp  = 0                                    ' Clear temporary variable
  msec = 0                                    ' Clear number of ms
  old  = TestBit(port, pin)                   ' Get current pin state

  while duration > msec                       ' Check if duration is reached
     if (TestBit(port, pin)) <> old then      ' Check if pin state has changed
        inc(tmp)                              ' Increment number of pulses
        old = TestBit(port, pin)              ' Get current pin state
     end if
  wend

    result = (tmp >> 1) + 1                   ' Assign result value
end sub
sub procedure LCD_BarGraph_Init
      bar = 0
     for location = 64 to 104 step 8
     Lcd_Cmd(location)
     border = bar or 21
     LCD_Chr_CP(0)
     LCD_Chr_CP(border)
     LCD_Chr_CP(bar)
     LCD_Chr_CP(bar)
     LCD_Chr_CP(bar)
     LCD_Chr_CP(bar)
     LCD_Chr_CP(border)
     LCD_Chr_CP(0)
     bar = bar or 32
     bar = bar >> 1
     next location
end sub
sub procedure LCD_BarGraph_Draw(dim Row as byte, dim Column_Start as byte, dim Column_End as byte, dim Value as byte)
    while Value >= 5
          Lcd_Chr(Row, Column_Start, 5)
          Column_Start = Column_Start + 1
          Value = Value - 5
    wend
    while Column_Start <> Column_End + 1
          Lcd_Chr(Row, Column_Start, Value)
          Value = 0
          Column_Start = Column_Start + 1
     wend
     end sub

main:
  ANSEL = 0                                   'mods by DDJ
  OPTION_REG = 2                              ' Assign prescaler to TMR0 (1:8)
  TRISC  = $00                                ' Designate PORTC as output
  PORTC  = $FF                                ' Initialize PORTC
  CMCON0 = 7
  TRISA  = $FF                                ' Designate PORTA as input (for signal)

  counter= $00                                ' Initialize the counter
  TMR0  = 5
  INTCON = $A0                                ' Enable TMRO interrupt

  msec = 0                                    ' Clear msec
  num_impulse = 0                             ' Clear num_impulse


  'ADCON1 = $FF                               'mod by DDJ  PORTB all digital
  'CMCON  = $06                               'mod by DDJ  Comparators off
  
  text3 = "E"
  text4 = "F"
  Lcd_Config(PORTC,3,2,1,0,PORTC,4,7,5)       ' Initialize LCD connected to PORTC
  LCD_BarGraph_Init()
  Lcd_Cmd(LCD_CLEAR)                          ' Send command to LCD "clear display"
  Lcd_Cmd(LCD_CURSOR_OFF)                     ' Send command "cursor off"

  while 1 = 1

  num_impulse = Pulse_In(PORTA, 2, 1, 2000)   ' Count HI pulses on PORTA.2, for 1000ms

  count1 = num_impulse

     WordToStr(count1, txt)                 ' Convert results to string for LCD output
     lcd_out(1,1,txt)

     LCD_BarGraph_Draw(2, 2, 7, 6)    'value scale = 1 to 30 for 0 to full bar

     Lcd_Out(2, 8, text4)
     Lcd_Out(2, 1, text3)



    wend
  
  
  

  'lcd_Out(1, 1, "Pulses")           ' Print txt to LCD
 ' Lcd_Out(1, 1, txt)                          ' Print number of pulses to LCD

  'wend                                        ' Wait forever (stop)
end.

Code: Select all

procedure interrupt;
begin
   inc(counter);                                // Increment value of counter on every interrupt
   if counter = 1 then                          // Has 1ms elapsed?
     begin
        counter := 0;                           // Clear the counter
        inc(msec);                              // Increment msec on every 1 ms
     end;
   TMR0 := 5;
   ClearBit(INTCON, T0IF);                      // Clear the TMR0IF flag
   SetBit(INTCON, T0IE);                        // Enable TMR0 interrupt
end;

Code: Select all

 
  lcd_Out(1, 1, "Pulses")           ' Print txt to LCD
  WordToStr(num_impulse, txt)
  Lcd_Out(1, 1, txt)                          ' Print number of pulses to  
LCD

Code: Select all

count1 = num_impulse

     WordToStr(count1, txt)                 ' Convert results to string for LCD output
     lcd_out(1,1,txt) 

Code: Select all

count1 = num_impulse
     WordToStr(count1, txt)                 ' Convert results to string for LCD output
     Lcd_out(1,1,txt)
     LCD_BarGraph_Draw(2, 2, 7, count1)    'value scale = 1 to 30 for 0 to full bar