à mình làm được rồi nhưng đang vướn ở chỗ, mình muốn hiển thị giá trị ADC và Voltage lên VB nhưng làm mãi vẫn ko hiện lên ô text được :((

la sao van chua hieu ban

Mình đã thực hiện giống hệt cách bạn chỉ nhưng nếu nhấn giao diện trên VB thì led hiện nhưng nếu chỉnh ngược lại từ SW thì led hiện nhưng VB thì không hiện ra được, tại sao dzậy???

chi mình hỏi: ở đầu bài thì dùng phần mêm tạo cổng COM ảo rồi nối cổng 4 với cổng 5.
Đến khi thiết lập cổng COM cho VB thì đặt "Comport = 1"?
Và trong 2 cổng 4, 5 thì cổng COM nào là của Proteus?

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
****************

sao không thấy file proteus bạn nhỉ?