![]() |
|
Tài trợ cho PIC Vietnam |
Giao tiếp cổng COM và LPT RS232, RS485 và LPT là những giao tiếp cơ bản và kinh điển khi mới học về vi điều khiển... |
![]() |
|
Ðiều Chỉnh | Xếp Bài |
|
![]() |
#1 |
Nhập môn đệ tử
Tham gia ngày: Nov 2009
Bài gửi: 3
: |
Chào anh Bắc!Em đang làm đồ án TN về bảng báo giá ngoại tệ.Giao diện VB em đã làm OK nhận đc dữ liệu từ Internet về rồi.Nhưng phần giao tiếp với VXL thì chưa làm đc.Dữ liệu truyền đc qua RS232 nhưng không hiểu sao không hiển thị ra Led 7 đoạn đc.Anh có mẹo gì ko chỉ em với^^.Nếu đc anh cho em xin nick yahoo của anh để em có thể hỏi kĩ hơn nha.Thanks!
|
![]() |
![]() |
![]() |
#2 |
Nhập môn đệ tử
Tham gia ngày: Jun 2010
Bài gửi: 7
: |
-Giúp mình Gửi dữ liệu dạng BINARY trong VB6 với !
-Em muốn gửi dữ liệu xuống VDK từ VB6 dạng binary nhưng send thì toàn bị lỗi cả,có ai bít giúp em với : Private Sub Command2_Click() On Error GoTo connectfalse If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If Exit Sub connectfalse: MsgBox "Loi Connect" End Sub Private Sub Command1_Click() On Error GoTo sendfalse Dim BytesToSend(0) As Byte Dim Buffer As Variant BytesToSend(0) = &H4A Buffer = BytesToSend(0) Text3.Text = Buffer MSComm1.Output = Buffer Exit Sub sendfalse: MsgBox "Loi Send" End Sub Private Sub Form_Load() With MSComm1 .Settings = "9600,N,8,1" .RThreshold = 2 .SThreshold = 0 .InBufferSize = 1024 .OutBufferSize = 1024 .InputMode = comInputModeBinary .ParityReplace = "" .CommPort = 1 End With End Sub Private Sub MSComm1_OnComm() Dim BytesReceived(0) As Byte Dim Buffer As Variant If MSComm1.CommEvent = comEvReceive Then Buffer = MSComm1.Input BytesReceived(0) = Buffer Text2.Text = BytesReceived(0) End If End Sub |
![]() |
![]() |
![]() |
Tags |
forms!nhap!vao = x |
|
|
![]() |
||||
Ðề tài | Người gửi | Chuyên mục | Trả lời | Bài mới |
Giao tiếp RS232 trên PC | ngohaibac | Giao tiếp cổng COM và LPT | 193 | 18-02-2025 09:11 AM |
Cho hỏi về giao tiếp RS232 của PIC16F877A | enti | Giao tiếp cổng COM và LPT | 31 | 25-03-2016 10:14 PM |
Giao tiếp RS232 trên PC qua Matlab | ngohaibac | Giao tiếp cổng COM và LPT | 47 | 18-11-2015 03:51 PM |
cần mua bộ thu GPS có giao tiếp RS232 | kienvq | Tìm mua sản phẩm | 15 | 17-03-2011 11:25 PM |
Help! Dùng C để giao tiếp RS232 | dandiennang | Các ngôn ngữ lập trình khác (CCS C, HT PIC,...) | 6 | 15-03-2009 06:41 PM |