Device 16F876 Xtal 4 Config WDT_OFF, PWRTE_ON, LVP_OFF Declare LCD_DTPin = PORTB.4 Declare LCD_RSPin = PORTB.1 Declare LCD_ENPin = PORTB.3 Declare LCD_Interface = 4 Declare LCD_Lines = 2 Declare LCD_Type = 0 Declare LCD_CommandUs = 2000 Declare LCD_DataUs = 70 Dim i As Byte Dim j As Byte Low PORTB.2 DelayMS 200 TRISC.3 = 1 Symbol Kapcsolo = PORTC.3 Cls ;Print At 1,1, "---LCD Teszt---" ;Print At 2,1, Rep "*"\16 While 1 = 1 If Kapcsolo = 0 Then Cls Print At 1,1, "---LCD Teszt---" For i = 0 To 16 Print At 2,1, Rep "*"\i DelayMS 200 Next Else For j = 1 To 1 Cls Print At 1,1, "S" DelayMS 200 Print At 1,2, "." DelayMS 200 Print At 1,3, "A" DelayMS 200 Print At 1,4, "." DelayMS 200 Print At 1,5, "I" DelayMS 200 Print At 1,6, "." DelayMS 200 Print At 1,7, "N" DelayMS 200 Print At 1,8, "." DelayMS 200 Print At 1,9, "T" DelayMS 200 Print At 1,10, "." DelayMS 200 DelayMS 200 Print At 2,1, "O" DelayMS 200 Print At 2,2, "P" DelayMS 200 Print At 2,3, "E" DelayMS 200 Print At 2,4, "R" DelayMS 200 Print At 2,5, "A" DelayMS 200 Print At 2,6, "T" DelayMS 200 Print At 2,7, "I" DelayMS 200 Print At 2,8, "O" DelayMS 200 Print At 2,9, "N" DelayMS 200 Print At 2,10, "A" DelayMS 200 Print At 2,11, "L" DelayMS 200 Print At 2,12, "!" DelayMS 3000 Next EndIf Wend End