Continue to Site
your original code.
Private Sub cmdK1_Click()
If MSComm1.PortOpen = True Then
MSComm1.Output = "K"
Text1.Text = "K" & vbCrLf
End If
End Sub ' Wait for the data to come back to the serial port.
Do
Buffer = Buffer & MSComm1.Input
[B]DoEvents[/B]
Loop Until InStr(Buffer, "OK" & vbCrLf)
' Read the "OK" response data in the serial port.
' Close the serial port.hi,
So you say you are now able to communicate between the PC and PIC via the RN41's..ok???
The data sheet says you must respond within a limited time period. ie 60seconds.
Tell me what commands you want to send, also post your modified VB program and I will try to add the setup codes that you tell me.
Dont fuss about your English, its just fine..
Do this RESET when you restart...look at this image
//==============================================================================================
// TX and RX Function
//==============================================================================================
unsigned char a;
void init(void) // subroutine to initialize
{
SPBRG=0x0A; // set baud rate as 115200 baud
INTCON.BRGH=1;
INTCON.TXEN=1;
INTCON.CREN=1;
INTCON.SPEN=1;
TRISD = 0b00000000;
}
void display(unsigned char c) // subrountine to display the text on the screen
{
while (TXIF == 0);
TXREG = c;
}
unsigned char receive(void) // subrountine to receive text from PC
{
while (RCIF == 0);
a = RCREG;
return a;
}
//================================================================================================
// Main Function
//================================================================================================
void main(void)
{
init();
do {
a = receive();
if (a == 'K')
{
portb.f7=1;
display("X");
}
a = receive();
if(a == 'A')
{
portb.f6=1;
display("Y");
}
}while(1) ;
}
