Help!!! Truyền dữ liệu từ đầu cân điện tử lên máy tính.

**dvkhoi06d1** · 28-03-2011, 10:33 AM

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

**pk178** · 28-03-2011, 01:40 PM

Hiển thị sai có thể do tốc độ baud cài đặt chưa đúng, để kiểm tra, bạn thử dùng terminal có sẵn trong window nhận xem, nếu nhận ok thì software (viết bằng VB6) bị lỗi, nếu nhận giống như bạn thấy ở phần mềm bạn viết thì chứng tỏ firmware bị lỗi !

**dvkhoi06d1** · 28-03-2011, 05:32 PM

Có thể chỉ cho em cách dùng TERMINAL gì đó được không ạ!?hi.Đây là lần đầu tiên em đụng tới mấy cái này còn gà mờ nên mấy anh thông cảm!!

**dvkhoi06d1** · 29-03-2011, 10:32 AM

sao chẳng thấy ai giúp mình vậy????hix

**pk178** · 08-04-2011, 11:48 AM

Bạn down ở đây nhé

http://www.mediafire.com/?4zel8dwjycpf9xq

Cái này chắc chẳng cần hướng dẫn cũng sử dụng được

**dvkhoi06d1** · 10-04-2011, 11:49 PM

hixhix.Em chạy chương trình hyperteminal cài đặt tốc độ xong -> CONNECT nhưng không nhận được tín hiệu gì nữa.
- chắc là đầu cân bị lỗi rồi a ah!mấy cái đầu cân Trung Quốc này chán quá.

**hoangcuibap** · 02-06-2011, 10:07 PM

Ban fai doc ky xem dau can cua ban gui ma ascii phai ko. Neu gui ma ascii thi ban phai thiet lap vb nhan ma sacii luon moi dc. Trong doan code minh thay ban thiet lap no la nhi phan nen no chi hieu dc "kg" thoi.
Dau can minh giao tiep nhieu roi no cung don gian ko kho dau.
Than.

**dvkhoi06d1** · 21-06-2011, 01:09 PM

Thanks các anh nhiều ! Đầu cân Yh-T3 đó cứ tưng tưng lúc nhận lúc không nhận tốt nhất là ko nên dùng đồ Trung Quốc nữa!hix
Đầu cân đó chỉ có chức năng truyền lên máy tính thôi ko có chức năng nhận thiệu từ máy tính!

28-03-2011, 10:33 AM	#1
dvkhoi06d1 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

10-04-2011, 11:49 PM	#6
dvkhoi06d1 Nhập môn đệ tử Tham gia ngày: Mar 2011 Bài gửi: 5 :	Cảm ơn!!! hixhix.Em chạy chương trình hyperteminal cài đặt tốc độ xong -> CONNECT nhưng không nhận được tín hiệu gì nữa. - chắc là đầu cân bị lỗi rồi a ah!mấy cái đầu cân Trung Quốc này chán quá.

28-03-2011, 01:40 PM	#2
pk178 Đệ tử 5 túi Tham gia ngày: Jan 2009 Bài gửi: 100 :	Hiển thị sai có thể do tốc độ baud cài đặt chưa đúng, để kiểm tra, bạn thử dùng terminal có sẵn trong window nhận xem, nếu nhận ok thì software (viết bằng VB6) bị lỗi, nếu nhận giống như bạn thấy ở phần mềm bạn viết thì chứng tỏ firmware bị lỗi !

28-03-2011, 05:32 PM	#3
dvkhoi06d1 Nhập môn đệ tử Tham gia ngày: Mar 2011 Bài gửi: 5 :	Có thể chỉ cho em cách dùng TERMINAL gì đó được không ạ!?hi.Đây là lần đầu tiên em đụng tới mấy cái này còn gà mờ nên mấy anh thông cảm!!

29-03-2011, 10:32 AM	#4
dvkhoi06d1 Nhập môn đệ tử Tham gia ngày: Mar 2011 Bài gửi: 5 :	sao chẳng thấy ai giúp mình vậy????hix

08-04-2011, 11:48 AM	#5
pk178 Đệ tử 5 túi Tham gia ngày: Jan 2009 Bài gửi: 100 :	Bạn down ở đây nhé http://www.mediafire.com/?4zel8dwjycpf9xq Cái này chắc chẳng cần hướng dẫn cũng sử dụng được

02-06-2011, 10:07 PM	#7
hoangcuibap Đệ tử 1 túi Tham gia ngày: Sep 2008 Bài gửi: 13 :	Ban fai doc ky xem dau can cua ban gui ma ascii phai ko. Neu gui ma ascii thi ban phai thiet lap vb nhan ma sacii luon moi dc. Trong doan code minh thay ban thiet lap no la nhi phan nen no chi hieu dc "kg" thoi. Dau can minh giao tiep nhieu roi no cung don gian ko kho dau. Than.

21-06-2011, 01:09 PM	#8
dvkhoi06d1 Nhập môn đệ tử Tham gia ngày: Mar 2011 Bài gửi: 5 :	Thanks các anh nhiều ! Đầu cân Yh-T3 đó cứ tưng tưng lúc nhận lúc không nhận tốt nhất là ko nên dùng đồ Trung Quốc nữa!hix Đầu cân đó chỉ có chức năng truyền lên máy tính thôi ko có chức năng nhận thiệu từ máy tính!