Svenska ElektronikForumet

Kod: Markera allt

program Lcd

' 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[9]
    txt3 as char[8]
    txt4 as char[7]
    i    as byte                    ' Loop variable

sub procedure Move_Delay()          ' Function used for text moving
  Delay_ms(500)                     ' You can change the moving speed here
end sub
  
main:
  TRISc = 0
  PORTc = 0xFF
  TRISc = 0xFF
  ANSEL  = 0                        ' Configure AN pins as digital I/O
  ANSELH = 0

  txt1 = "mikroElektronika"
  txt2 = "EasyPIC5"
  txt3 = "Lcd4bit"
  txt4 = "example"
  
  Lcd_Init()                        ' Initialize Lcd
  Lcd_Cmd(_LCD_CLEAR)               ' Clear display
  Lcd_Cmd(_LCD_CURSOR_OFF)          ' Cursor off
  Lcd_Out(1,6,txt3)                 ' Write text in first row
  Lcd_Out(2,6,txt4)                 ' Write text in second row
  Delay_ms(2000)
  Lcd_Cmd(_LCD_CLEAR)               ' Clear display

  Lcd_Out(1,1,txt1)                 ' Write text in first row
  Lcd_Out(2,5,txt2)                 ' Write text in second row
  Delay_ms(500)

  ' Moving text
  for i=0 to 3                      ' Move text to the right 4 times
      Lcd_Cmd(_LCD_SHIFT_RIGHT)
      Move_Delay()
  next i

  while TRUE                        ' Endless loop
    for i=0 to 7                    ' Move text to the left 8 times
      Lcd_Cmd(_LCD_SHIFT_LEFT)
      Move_Delay()
    next i

    for i=0 to 7                    ' Move text to the right 8 times
      Lcd_Cmd(_LCD_SHIFT_RIGHT)
      Move_Delay()
    next i
  wend
end.

Kod: Markera allt

Stift  PICkit
1      Vdd
2      GND
3      RC4 (RS)
4      NC
5      RC5 (E)
6      GND
7      GND
8      GND
9      GND
10     GND
11     RC1
12     RC0
13     RC3
14     RC2
23     GND
24     VDD

Kod: Markera allt

  txt1 = "V" + chr(228) + "rde:"      ' i Dec
  txt1 = "V" + chr(0xe4)  + "rde:"    ' i Hex