Svenska ElektronikForumet

Kod: Markera allt

program LCDtest

' Lcd module connections
dim LCD_RS as sbit at RC4_bit
    LCD_EN as sbit at RC5_bit
    LCD_D4 as sbit at RC0_bit
    LCD_D5 as sbit at RC1_bit
    LCD_D6 as sbit at RC2_bit
    LCD_D7 as sbit at RC3_bit

    LCD_RS_Direction as sbit at TRISC4_bit
    LCD_EN_Direction as sbit at TRISC5_bit
    LCD_D4_Direction as sbit at TRISC0_bit
    LCD_D5_Direction as sbit at TRISC1_bit
    LCD_D6_Direction as sbit at TRISC2_bit
    LCD_D7_Direction as sbit at TRISC3_bit
' End Lcd module connections

dim txt1 as char[16]
    txt2 as char[16]
    txt3 as char[8]
    txt4 as char[8]
    oldstate as byte
    summa as integer
    i    as byte                    ' Loop variable

main:
  TRISC = 0                         ' Set PORTC all to output
  TRISA.0 = 1                       ' Set PORTA.0 to input
  ANSEL  = 0                        ' Configure AN pins as digital I/O
  ANSELH = 0

  txt1 = "Nytt:"
  txt2 = "Skriv, tryck OK"
  txt3 = "    23"
  summa = 56

  Lcd_Init()                        ' Initialize Lcd
  Lcd_Cmd(_LCD_CLEAR)               ' Clear display
  Lcd_Cmd(_LCD_CURSOR_OFF)          ' Cursor off
  Lcd_Out(1,1,txt1)                 ' Write text in first row
  Lcd_Out(2,1,txt2)                 ' Write text in second row
  Delay_ms(500)                     ' Wait 0,5 sec

  while TRUE                        ' Endless loop

  if Button(PORTA, 0, 1, 1) then
    Lcd_Out(1,6,txt3)               ' Write text in first row
    oldstate = 255
  end if
  if oldstate and Button(PORTA, 0, 1, 0) then
    summa = summa + 1
    IntToStr(summa,txt4)
    Lcd_Out(1,6,txt4)               ' Write text in first row
    oldstate = 0
  end if

  wend
end.