|
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 |
28-03-2011, 10:33 AM | #1 |
Nhập môn đệ tử
Tham gia ngày: Mar 2011
Bài gửi: 5
: |
Help!!! Truyền dữ liệu từ đầu cân điện tử lên máy tính.
Em đang làm đồ án giao tiếp với máy tính như sau: đọc số liệu từ đầu cân hiển thị lên máy tính,em dùng VB6, em cho số liệu hiển thị trên TEXTBOX thì nó chỉ hiện mấy dấu chấm hỏi :????? KG em rối quá không biết làm sao nữa!
Đầu cân em dùng là YH-T3 ,mã truyền lên lên máy tính là mã ASCII các sư huynh giúp em với !!! code em viết như sau: Private Sub Form_Load() If MSComm1.PortOpen = True Then MSComm1.PortOpen = False MSComm1.CommPort = 1 'chon cong de giao tiep la cong 1 MSComm1.InputLen = 0 'doc het noi dung cua bo dem MSComm1.Settings = "4800,N,8,1" 'cac thong so mo cong MSComm1.RThreshold = 4 MSComm1.InputMode = comInputModeBinary 'chon kieu du lieu nhan theo kiêu nhi phan MSComm1.PortOpen = True Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive Dim nhandulieu As Variant nhandulieu = MSComm1.Input text1.Text = nhandulieu text1.Text = nhandulieu & "KG" End Select End Sub |
|
|