Jag har dock aldrig upplevt det som ett problem då jag nästan alltid matar mina byggen via labbagget när jag programmerar, och om
jag inte gör det klickar jag i den just då

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