PIC Vietnam

Go Back   PIC Vietnam > Truyền thông > Giao tiếp cổng COM và LPT

Tài trợ cho PIC Vietnam
Trang chủ Đăng Kí Hỏi/Ðáp Thành Viên Lịch Bài Trong Ngày Vi điều khiển

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...

Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 29-11-2011, 05:48 PM   #1
hoivienmoi
Nhập môn đệ tử
 
Tham gia ngày: Oct 2011
Bài gửi: 1
:
Lưu dữ liệu nhận từ cổng com vào file txt

- Chào các anh chị.
- Em nhận tín hiệu từ cổng com hiển thị lên vb 6.0 được rồi.Giờ em muốn lưu dữ liệu này vào file txt.Anh chị nào có thể hướng dẫn giúp em nhé.
- Cám ơn các anh chị.
hoivienmoi vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 09-01-2012, 03:57 PM   #2
ThanhPhuc
Đệ tử 2 túi
 
Tham gia ngày: Jul 2005
Bài gửi: 35
:
Bạn chuyển dữ liệu thu được sang dạng string , tạo file.txt và ghi chuổi string đó vào
ThanhPhuc vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 11-01-2012, 01:00 AM   #3
shindo216
Nhập môn đệ tử
 
Tham gia ngày: May 2010
Bài gửi: 9
:
Trích:
Nguyên văn bởi hoivienmoi View Post
- Chào các anh chị.
- Em nhận tín hiệu từ cổng com hiển thị lên vb 6.0 được rồi.Giờ em muốn lưu dữ liệu này vào file txt.Anh chị nào có thể hướng dẫn giúp em nhé.
- Cám ơn các anh chị.
cái này bạn giùm thư viện commondialog nhe.
Open "filename.txt" for append as #1
Print #1, , data
close #1
shindo216 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 19-06-2012, 05:54 PM   #4
nguyenducdktd13
Nhập môn đệ tử
 
Tham gia ngày: Aug 2011
Bài gửi: 7
:
tạo một dao diện có textbox1, 2, 3 , 4, nút command1, command2 rồi dùng code này"'Ky su tu dong hoa Nguyen Van Duc
'Phone 0975553791
'chuong trinh tao file txt luu ket qua
'-----------------------------------------------------------------------
Dim savefile As Long
Private Sub Command1_Click()
savefile = FreeFile
Index = Text1.Text
nameofthefile = Text2.Text
Path = Text3.Text
On Error GoTo error
Open ("" + "C:\" + "" + (nameofthefile) + ".txt") For Output As #savefile 'neu thay "C:\"=(path) thi cai cho do lam duong dan
Print #savefile, Index
Close #savefile
Exit Sub
error:
MsgBox " clgthe"
End Sub

Private Sub Command2_Click()
Dim contenfile As String
Open "C:\file.txt" For Input As #1
Input #1, contenfile
Text4.Text = contenfile
Close #1
End Sub" -->kết quả nhìn trong ổ C sẽ hiểu, luu và lấy dữ liệu từ file text.
nguyenducdktd13 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Trả lời


Quyền Sử Dụng Ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến


Múi giờ GMT. Hiện tại là 06:41 AM.


Được sáng lập bởi Đoàn Hiệp
Powered by vBulletin®
Page copy protected against web site content infringement by Copyscape
Copyright © PIC Vietnam