|
mấy Pro cho mình hỏi tí: chương trình mình điêu khiển 1 led đơn nối đến chân RD0 mà không biết sai chỗ nào. nó không giao tiếp để điều khiển được.
code viết trên CCS C
#INCLUDE <16F887.H>
#FUSES NOWDT,PUT,HS,NOPROTECT,NOLVP
#USE DELAY(CLOCK=20000000)
#USE RS232(BAUD=9600,XMIT=PIN_C6,RCV=PIN_C7)
INT NHAN=0;
#INT_RDA
VOID NGAT_RDA()
{
NHAN=GETC();
IF(NHAN==1)
{OUTPUT_HIGH(PIN_D0);}
IF(NHAN==2)
{
OUTPUT_LOW(PIN_D0);
}
}
VOID MAIN()
{
SET_TRIS_D(0X00);OUTPUT_LOW(PIN_D0);//PORTD=0x00;
SET_TRIS_C(0X80);
enable_interrupts(INT_RDA);
enable_interrupts(GLOBAL);
WHILE(TRUE)
{
}}
code VB6:
Private Sub Command1_Click()
MSComm1.Output = Chr(1)
End Sub
Private Sub Command2_Click()
MSComm1.Output = Chr(2)
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub
****************
|