Giao diện VB 6 điều khiển LED

[tuanhvhq2011]

Cái này đơn giản mà! Tạo một Project trên vb. Tạo một HScroll với giá trị max là 1. chọn giao tiếp cổng com giống như caremlanh nhưng không viết code. trong mục form1 load khởi tạo cho cổng com để cổng com bắt đầu hoạt động. Trong mục HScroll_change viết lệnh
mscomm1.output=chr(HScroll.value).
Code vdk chỉ cần viết lệnh nhận dữ liệu sau đó nếu bằng 0 thì xuất tín hiệu tắt led nếu bằng 1 thì xuất tín hiệu mở led. thế là ok

[khangfet]

à 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 (

[rongbattuvl]

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

[vtking]

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?

[dungspkt117]

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

[minhducbachkhoa]

Nguyên văn bởi caremlanh

Bài viết có tham khảo từ trang http://www.hocavr.com/index.php/app/gtmt/gtmt2#laptrinh

Dùng phần mềm tạo cổng com ảo
http://www.4shared.com/file/ygCSieKa...ver691134.html
add pair COM4 và COM5 để mô phỏng
COM4 dùng cho Proteus, COM5 dùng cho VB.

Link download
http://www.mediafire.com/download.php?nr9ngswev4je6td

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