Hola amigo,
ya probé el circuito en físico y funciona de maravilla, corregí unos errores que tenías en el programa respecto al ADC; además solo aclaro que tengo un GLCD con controlador SAMSUNG y como mencioné anteriormente mi compilador no me deja compilar con el pic18f4550, solo me compila con este pic.
Dejo el código:
Device = 16F877A
Xtal = 4
TRISA = %11111111
ADCON0 = %10000000
ADCON1 = %00001001
Adin_Res 8
Adin_Tad FRC
Adin_Stime 50
Dim lectura As Byte
Dim lectura1 As Byte
Dim amper As Float
Dim VOLT As Float
Declare LCD_DTPort PORTD
Declare LCD_RSPin PORTB.2
Declare LCD_ENPin PORTB.5
Declare LCD_RWPin PORTB.4
Declare LCD_CS1Pin PORTB.1
Declare LCD_CS2Pin PORTB.0
LCD_Type = graphic
Internal_Font = On
Font_Addr = 0
GLCD_CS_Invert = On
Declare GLCD_EXTERNAL_PRINT = PPRINT
Cls
DelayMS 100
Dim Xpos As Byte
Dim Ypos As Byte
Dim Addr As Word
Dim char As Byte
Symbol Conv = 5.0 / 255
For Ypos = 0 To 7
For Xpos = 0 To 127
Addr = (Ypos*128)+Xpos
char = CRead AAAA+Addr
LCDWrite Ypos,Xpos,[char]
Next
Next
DelayMS 1000
Cls
bucle:
lectura= ADIn 0
VOLT = lectura * Conv
Print Font Arial____8
Print At 0,10,"Volt "
Print Font ArialK____12
Print At 15,10, Dec1 VOLT, " "
lectura1= ADIn 1
amper = lectura1 * Conv
Print Font Arial____8
Print At 0,65,"Amper"
Print Font ArialK____12
Print At 15, 60,Dec1 amper, " "
DelayMS 50
GoTo bucle
End
Include "AAAA.inc"
Include "ARIAL8.txt"
Include "ARIALK12.txt"
No se que tipo de GLCD estés manejando, dependiendo del que manejes solo quita la instrucción GLCD_CS_Invert = On