Gracias por contestar tendre presente LO DE MAYUSCULAS
esto es lo que tengo en pbp envio el dato en decimal y en vbasic solo veo puras cosas raras me imagino k codigo ascii
INCLUDE"modedefs.bas"
DEFINE ADC_BITS 8 ; NÚMERO DE BITS
DEFINE ADC_CLOCK 3 ; USAR CLOCK INTERNO DEL AD
DEFINE ADC_SAMPLEUS 50 ; TIEMPO DE MUESTREO EN 50US
ch0 VAR WORD
an0 var byte
DATOS VAR BYTE
TRISA = %11111111 ;todo el puerto A como entrada
TRISB =%10000000
PULSA VAR PORTB.0
PAUSE 500
ADCON0 = %11000001 ;
ADCON1 = %00001110 ; CANAL COMO ANALÓGICO
CONVERTIR:
ADCIN 0, ch0
an0 = 2 * ch0
serout portb.1,n9600,[#AN0] ; envio de dato en forma seriall
Pause 2000
GOTO CONVERTIR
END
y esto en visual basic
esta biem basico
Dim textout, textin As String
Private Sub conex_Click() ; para conectarme al com1 "ya esta seteado por defecto a 9600bd"
puerto.CommPort = 1
puerto.PortOpen = True
End Sub
Private Sub Command1_Click() ; para mostrar los datos en un label
textin = puerto.Input
MOSTRAR.Caption = textin
End Sub
estes es el codigo solo reccivo cosas raras
eso es amigos si me pueden dar lus a esto k me tiene lokooooo hace ya un ratoooo