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
-
Trả lời cho Suy ngẫmbởi HTTTTHBao giờ cho đến tháng ba,
Ếch cắn cổ rắn tha ra ngoài đồng.
Hùm nằm cho lợn liếm lông,
Một chục quả hồng nuốt lão tám mươi.
Bánh đúc nuốt trẻ lên mười,
Con gà, be rượu nuốt người lao đao.
Lươn nằm cho...-
Channel: Tâm tình dân kỹ thuật
Hôm qua, 23:06 -
-
Trả lời cho Suy ngẫmbởi kehuydiet092Kehuydiet092 chào các bác!nghe bác nguyendinhvan nói em lại nhớ bài Vè nói ngược khi xưa bé học.Hùm nằm cho lợn liếm lông....ếch cắn cổ rắn tha ra ngoài đồng...
-
Channel: Tâm tình dân kỹ thuật
Hôm qua, 20:40 -
-
bởi Nexus 6PCó mạch nào điện vào là 1 viên 18650 để lái bóng led công suất, ứng dụng để thắp sáng, làm đèn pin k bác thớt...
-
Channel: Điện tử công suất
Hôm qua, 15:57 -
-
Trả lời cho Dùng MC34063 để làm driver lái led 1W, 3Wbởi Nexus 6PCảm ơn bác, sẵn bác giới thiệu giúp e mạch lái đèn led công suất chạy 1 viên 18650 để e chế đèn pin với...
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 15:55 -
-
bởi HieuvtXin chào mọi người.
Cho tôi hỏi cách đọc giá trị của diode dán (T3 B1) là bao nhiêu?
mọi người xem hình và chỉ giáo.. xin cảm ơn
và đây là vị trí diode nguồn PC . có thể thay thế bằng con khách như thế nào?
...-
Channel: Điện tử dành cho người mới bắt đầu
30-05-2024, 23:54 -
-
Trả lời cho Kiểm tra biến ápbởi nguyendinhvanĐại ý là máy có các bộ phận như thế này. Nó hiệu quả với mô hình sản xuất nhỏ, nhưng cũng dễ bỏ sót nếu kỹ thuật viên làm việc không tập trung.
Trong các nhà máy lớn, hệ thống đồng hồ được thay bằng máy tính và phần mềm, nó sẽ hỗ trợ, quản lý, hỗ trợ, giám sát luôn cả kỹ thuật viên.
...-
Channel: Điện tử dành cho người mới bắt đầu
30-05-2024, 02:10 -
-
Trả lời cho Kiểm tra biến ápbởi nguyendinhvanChào mọi người,
1 e làm trong cty về biến áp
2 toàn mấy con nhỏ nhỏ,
3 làm sao để mình có thể kiểm tra nhanh số vòng dây của mỗi cuộn
4 đầu vào đầu ra của dây
có thiết bị gì nhỏ gọn hỗ trợ việc này không...-
Channel: Điện tử dành cho người mới bắt đầu
30-05-2024, 01:36 -
-
bởi Trắng bạchem đang làm cái đồ án sử dụng pid để điều khiển Động Cơ DC Servo Giảm Tốc GA25 12v/280rpm, dùng winform truyền xuống pic16f877a các thông số vận tốc, ki, kd, kp. hiện tại em đã truyền xuống được nhưng truyền xuống vài lần là giao diện...
-
Channel: Hỗ trợ học tập
28-05-2024, 23:46 -
Comment