Dim Cadena As String
Private Sub Conectar_Click()
MSComm1.CommPort = 5 ' esto variaaa segun
MSComm1.PortOpen = True
MSComm1.Settings = "1200,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.RTSEnable = True
Siempre_Encima Form1, True
Me.Caption = "Conectado"
End Sub
Private Sub Desconectar_Click()
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
Me.Caption = "Desconectado"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Desconectar_Click
End Sub
Private Sub MSComm1_OnComm()
Dim i As Integer
Dim Valor As String
Valor = MSComm1.Input
i = InStr(Valor, Chr(13))
If i = 0 Then
Cadena = Cadena & Valor
Else
Cadena = Cadena & Left(Valor, i - 1)
Rx.Text = Rx.Text & vbCrLf & Cadena
Rx.SelStart = Len(Rx.Text)
Cadena = ""
End If
End Sub
#include <16F876a.h>
#device adc = 8 /// must be improved to 10 bites
#fuses XT, NOWDT,NOPROTECT
#use delay(clock=4000000)
#use rs232(baud=1200,xmit=PIN_C6)
//#use rs232(baud=1200,parity=N,xmit=PIN_C6,rcv=PIN_C7,bits=8,stop=2) /// framentos de mil pruebas
//#use RS232(BAUD=1200,XMIT=PIN_C6,RCV=PIN_C7,PARITY=N,BITS=8,STREAM=STR_PC)
int trace;
void main () {
setup_adc(ADC_CLOCK_INTERNAL);
setup_adc_ports(AN0) ;
set_adc_channel(0);
while(1){
set_tris_A(0x01);
set_tris_B(0x00);
set_tris_C(0x00);
trace= read_adc();
putc(trace);
// putc(PUTCHAR(65)); // mas pruebas
delay_ms(500);
}
}En el virtual terminal sale el dato adquirido por el ADC, no obstante , no consigo que haga salto de linea, ni que se conecte con VB6 como lo hace el otro programa de picbasicPro
Muchas gracias por tu ayuda!