Rắc rối của em 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
mong mấy anh giup cho!!
Đầ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
mong mấy anh giup cho!!
Comment