'****************************************************************
'* Name : lcd1.BAS *
'* Author : Miguel Angel Borbolla Bonomi *
'* Notice : Copyright (c) 2012 CIBERTLAN *
'* : All Rights Reserved *
'* Date : 31/05/2012 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Device = 16F628
Xtal = 16
Declare LCD_ENPin PORTB.0
Declare LCD_RSPin PORTB.1
Declare LCD_DTPin PORTB.4
Symbol lcdw PORTB.2 ' la linea se utiliza para poner en 0 la linea RW del LCD
LCD_Interface=4
LCD_Lines=2
LCD_Type=0
Declare LCD_DataUs 255 ' comado que da un tiempo de espera al enviar datos al display
Declare Sonyin_Pin = PORTB.3
Dim SONYIN_WORD As Word
Dim SONY_COMMAND As SONYIN_WORD.LowByte
Dim SONY_SYSTEM As SONYIN_WORD.HighByte
All_Digital = On
Low lcdw ' la linea se utiliza para poner en 0 la linea RW del LCD
Print $FE, 1
DelayMS 500
Print At 1,1, "Hola"
While 1 = 1
Repeat
SONYIN_WORD = SonyIn '
Until SONY_COMMAND<> 255
DelayMS 500
Print At 2,1," "
Print At 2,1,"Valor recibido=",Dec SONY_COMMAND
Print At 3,1," "
If SONY_COMMAND=21 Then Print At 3,1,"Power "
If SONY_COMMAND=20 Then Print At 3,1,"Muting "
If SONY_COMMAND=18 Then Print At 3,1,"Vol + "
If SONY_COMMAND=19 Then Print At 3,1,"Vol - "
If SONY_COMMAND=16 Then Print At 3,1,"Chan + "
If SONY_COMMAND=17 Then Print At 3,1,"Chan - "
If SONY_COMMAND=96 Then Print At 3,1,"Menu "
If SONY_COMMAND=54 Then Print At 3,1,"Sleep "
If SONY_COMMAND=58 Then Print At 3,1,"Dispaly "
If SONY_COMMAND=22 Then Print At 3,1,"Reset "
If SONY_COMMAND=11 Then Print At 3,1,"Enter "
If SONY_COMMAND=116 Then Print At 3,1,"Flecha arriba"
If SONY_COMMAND=117 Then Print At 3,1,"Flecha abajo "
If SONY_COMMAND=52 Then Print At 3,1,"Flecha izq "
If SONY_COMMAND=51 Then Print At 3,1,"Flecha Der "
If SONY_COMMAND=101 Then Print At 3,1,"Centro "
If SONY_COMMAND=59 Then Print At 3,1,"Jump "
If SONY_COMMAND=23 Then Print At 3,1,"MTS/SAP "
If SONY_COMMAND=37 Then Print At 3,1,"TV/Video "
Wend