Chao cac bac! Em dang viet chuong trinh nhan du lieu lieu truyen ve tu dau can bang VB6. Nhung dang gap chut van de mong cac bac ra tay giup do. Khi truyen ve indicator weight truyen 10 bít vi du : -0.000kgCrLF . Nho cac bac ra tay chi giup em lam sao lay duoc chuoi du lieu : 0.000kg. Vi vao thoi diem nhan connect ta co the nhan duoc ky tu thu nhat hoac ky tu thu 6.
Thông báo
Collapse
No announcement yet.
Lay du lieu tu bo chi thi so can?
Collapse
X
-
Nguyên văn bởi phamhoangdunChao cac bac! Em dang viet chuong trinh nhan du lieu lieu truyen ve tu dau can bang VB6. Nhung dang gap chut van de mong cac bac ra tay giup do. Khi truyen ve indicator weight truyen 10 bít vi du : -0.000kgCrLF . Nho cac bac ra tay chi giup em lam sao lay duoc chuoi du lieu : 0.000kg. Vi vao thoi diem nhan connect ta co the nhan duoc ky tu thu nhat hoac ky tu thu 6.
dùng so sánh ký tự tìm ra đầu chuỗi và cuối chuỗi
sau đó dùng
Trim(), Left(), Right() của vb mà cắt bỏ những phần lôi thôi--------------------------------------------------------------
Bán các loại UPS Online công suất từ 1KVA đến 800 KVA và Accu cho UPS + Ôtô
--------------------------------------------------------------
-
Nếu sử dụng Timer , bạn nên nhận chuỗi dữ liệu và lưu vào bộ đệm , sau đó kiểm tra và lọc lấy dữ liệu đúng để hiển thị.
Giả sử bạn nhận khung dữ liệu : 1 byte bắt đầu+4 byte data + 1 byte kết thúc
VD :
Buffer$=Buffer$ + MSComm1.Input
sau đó kiểm tra byte bắt đầu và kết thúc (dùng lệnh Instr ), nếu đúng thì lọc 4 byte data ra hiển thị.
Comment
-
Minh da su dung timer nhung do du lieu truyen lien tuc nen khi minh nhan Connect thi co khi hien thi dung va co khi hien thi sai. Vi du minh co mot chuoi sau --0.000kgCr
minh viet doan code nhu sau :
im str As String
Private Sub Command1_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.InputLen = 10
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
if MSComm1.PortOpen = True then mscomm1.portOpen = False
End
End Sub
Private Sub Timer1_Timer()( interval=10)
If MSComm1.InBufferCount = 10 Then
str = MSComm1.Input
lblnhan.Caption = Mid(str, 3, 5)
End If
End Sub
Ket qua neu nhu dung thoi diem thi no hien thi = 0.000
Neu khong dung thoi diem thi no hien thi = .000 hoac .00 hoac 0 hoac khogn co gi het
Mong cac bac chi dum.
Comment
-
Ban thu dung su kien oncom xem !Tuy nhien de 1 du lieu chac chan hon le thi so byte nan ve phai lon hon so byte trong chuoi format.Thi du 1 chuoi format la 18 byte thi nen lay ve 38 byte va dung ham Instr de tim ra ma dau (vit du NET+chr$(10)+chr$(13)) .chuoi can lay la 7 byte ke tiep.
If MSComm1.CommEvent = comEvReceive Then
sss = MSComm1.Input
chuoidau=NET+chr$(10)+chr$(13)
pos = InStr(sss, chuoidau)
KL=Val(Mid$(sss, pos + 1, 4))
txtKl=Mid$(sss, pos + 1, 7)Thiết bị định vị ,hộp đen :
Comment
-
Như mình đã nói ở trên, không nên chỉ nhận một lần bằng lệnh str=MSComm1.Input , vì như vậy dễ bị sai dữ liệu.
Bạn nên nhận liên tục cả một chuỗi dài : str=str+MSComm1.Input
Sau đó kiểm tra , lọc lấy dữ liệu cần cho đến khi chắc chắn nhận đúng dữ liệu.
Comment
-
Minh da lam nhu the nay ma van ko duoc.
Private Sub Command1_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.InputLen = 20
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
if MSComm1.PortOpen = True then mscomm1.portOpen = False
End
End Sub
Private Sub Timer1_Timer()( interval=10)
If MSComm1.InBufferCount =0 Then
str = MSComm1.Input + mscomm1.Input
chuoicuoi = chr(Cr)
pos = InStr(str, chuoicuoi)
lblnhan.Caption = Mid$(str, pos - 2, 5)
End If
End Sub
Mong cac bac chi dum em.
Comment
-
Nguyên văn bởi phamhoangdunMinh da lam nhu the nay ma van ko duoc.
Private Sub Command1_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.InputLen = 20
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
if MSComm1.PortOpen = True then mscomm1.portOpen = False
End
End Sub
Private Sub Timer1_Timer()( interval=10)
If MSComm1.InBufferCount =0 Then
str = MSComm1.Input + mscomm1.Input
chuoicuoi = chr(Cr)
pos = InStr(str, chuoicuoi)
lblnhan.Caption = Mid$(str, pos - 2, 5)
End If
End Sub
Mong cac bac chi dum em.
MSComm1.InputLen = 20
thành MSComm1.InputLen=0 ' xóa bộ đệm nhận
và :
If MSComm1.InBufferCount >=1 Then
str = str + MSComm1.Input ' chú ý biến str khai báo global
....
end if
Comment
-
mình nghĩ bạn nên làm theo phương án của trung, nhớ điều chỉnh timer sao cho có thể đồng bộ với tốc độ baud, thường mình để 10ms với 9600, có những lần đã đau đầu vì timer và baud rate rồi.
bạn hãy chọn một baudrate cụ thể sau đó điều chỉnh interval của timer sao cho phù hợp.
chúc thành công.--------------------------------------------------------------
Bán các loại UPS Online công suất từ 1KVA đến 800 KVA và Accu cho UPS + Ôtô
--------------------------------------------------------------
Comment
-
minh da chinh timer voi interval = 10 voi baud la 9600 nhung neu su dung su kien OnCom thi no chi lay duoc chuoi minh can lan dau tien. Lan thu hai thi khong the duoc no khong lien tuc nhan. Neu dat vao trong timer thi chay duoc nhung van lay chuoi sai. Mong cac bac giup em voi.
Neu minh ko dung su kien Oncom ma de su kien kien nhan dât ve tu com trong timer thi van chay duoc nhung nhu phan tren minh da noi no van ko the lay du lieu chinh xac theo minh mong muon. Doan code sau minh viet tren timer nho cac ban chi giup :
Private Sub Command1_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.InputLen = 10
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
if MSComm1.PortOpen = True then mscomm1.portOpen = False
End
End Sub
Private Sub Timer1_Timer()( interval=10)
If MSComm1.InBufferCount = 10 Then
str = MSComm1.Input
lblnhan.Caption = Mid(str, 3, 5)
End If
End Sub
Neu su dung mscomm1.iputlen = 20 nhu bac trung thi du lieu lay ve van bi sai .Last edited by phamhoangdun; 30-11-2005, 13:37.
Comment
-
Thế thì tốt nhất là nên nhận vào một mảng string
rồi xử lý kiểm tra cắt xén string đó thôi
rồi mới đưa ra hiển thị
bạn dùng win Terminal kiểm tra coi thử xem dữ liệu nhận về fomat có chuẩn không.
khi dùng nó thì mỗi gói sẽ được hiển thị trên một dòng
ví dụ :
-00000kg
-00001kg
............
-00009kg
phương án là bạn tóm được ký tự gửi về là LF - Line Feed rồi dò theo độ dài của gói tin đó ( ví dụ này là 8 ký tự ) và gán vào một string. theo tôi cách này sẽ chíhn xác hơn.
chúc thành công--------------------------------------------------------------
Bán các loại UPS Online công suất từ 1KVA đến 800 KVA và Accu cho UPS + Ôtô
--------------------------------------------------------------
Comment
-
Đây là đoạn code trích ra trong chương trình mình làm để đọc số liệu từ bộ Indicator MettLer-Toledo :
Private Sub Form_Load()
On Error Resume Next
With MSComm1
If .PortOpen = True Then .PortOpen = False
.CommPort = 2
.Settings = "9600,N,8,1"
.InBufferSize = 2000
.InputLen = 0
.OutBufferSize = 64
.PortOpen = True
End With
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
MSComm1_OnComm
Timer1.Enabled = True
End Sub
Private Sub MSComm1_OnComm()
With MSComm1
If .InBufferCount >= 1 Then
Dulieu = Dulieu + .Input
txtDulieu.Text=Dulieu ' TextBox kiểm tra xem dữ liệu truyền lên như thế nào
End If
End With
End Sub
*Bạn thử kiểm tra xem phần dữ liệu truyền lên hộp Text txtDulieu có liên tục không ?
Nếu đúng thì lọc lấy dữ liệu cần để hiển thị.
Comment
Bài viết mới nhất
Collapse
-
bởi AaaabbbbbEm chào các anh chị ,cô chú . Em đang có 1 đề tài: Mô phỏng điều khiển động cơ 1 chiều và bộ điều khiển điện áp tự động (AVR) sử dụng MATLAB/Simulink và Arduino . Anh chị có thế giải thích hoặc định hướng giúp em với được không ạ . Em xin cảm ơn !!...
-
Channel: Vi điều khiển AVR
30-10-2024, 16:38 -
-
bởi 2embeyeuem mới nhập môn, bác nào có sơ đồ của mạch này và cách cắm mạch trên panel cho em xin với, em cảm ơn ạ
-
Channel: Điện tử dành cho người mới bắt đầu
30-10-2024, 15:52 -
-
bởi dqt21091997Hi mọi người,
Team mình hiện là đối tác phân phối cho 1 dịch vụ Proxy US chuẩn bị mở mang tên Proxy Compass. Mọi người có thể trải nghiệm ở đây: https://proxycompass.com/vi/free-trial/
Điểm mạnh của Proxy Compass là:
- 50 địa chỉ IP proxy
...-
Channel: Tổng quan về ngành viễn thông
30-10-2024, 14:46 -
-
Trả lời cho Thắc mắc về kiến thức điện xoay chiềubởi SteinsKMình nhớ là do điện AC không có chia cực cố định như DC, thêm vào đó thì ổ điện loại mà 2 lỗ thì cũng không có phân biệt chiều cắm, thành ra mình cắm chiều nào cũng được. Đây là em hiểu như vậy, có bác nào có ý kiến khác không ạ....
-
Channel: Điện tử dành cho người mới bắt đầu
30-10-2024, 09:57 -
-
bởi tivungvechào mọi người, em là sinh viên mới tìm hiểu về điện em có thắc mắc là tại sao điện AC ở nhà dùng có phích cắm khi cắm vào ổ điện thì cắm chiều nào cũng được, mà em đọc trên mạng thấy điện AC có dây trung tính và dây pha mà nhỉ...
-
Channel: Điện tử dành cho người mới bắt đầu
27-10-2024, 14:25 -
-
Trả lời cho ccs - 1 nút nhấn điều khiển 2 led - cần giúp ahbởi Truong2005Cám ơn nhiều! Code đẫ chạy
-
Channel: từ PIC tới dsPIC
26-10-2024, 21:21 -
-
bởi Manh.n.trCó ai từng thiết kế mạch cảm biến EC chưa ạ, cho em xin kinh nghiệm với ạ, em đang làm đề tài này bị mông lung quá
-
Channel: Hỗ trợ học tập
25-10-2024, 07:55 -
-
Trả lời cho Em muốn hỏi mọi người về nguyên lý hoạt động, tần số của mạch công suất trong máy rửa siêu âm ạ.bởi matnetgia99bạn giảm con C4, C5 (và giặt R song song với chúng) xem tần số tăng lên không
-
Channel: Hỗ trợ học tập
24-10-2024, 18:58 -
-
Trả lời cho Em muốn hỏi mọi người về nguyên lý hoạt động, tần số của mạch công suất trong máy rửa siêu âm ạ.bởi SteinsKEm cập nhật xíu nha mọi người, thì bữa trước em có mượn cái ossiloscope để đo lại thì mạch có tần số ngõ ra là 35kHz, sau khi em thay đổi L1=L2=1,5mH thì tần số có giảm xuống còn xấp xỉ 34kHz. Đổi L4=4.6mH và TR1 em có thay thành 1 con biến...
-
Channel: Hỗ trợ học tập
24-10-2024, 11:22 -
Comment