Giao tiếp RS232 trên PC

[kiethnt]

mình quên upload file đính kèm. Xin lổi nha

[namqn]

Bạn nên tìm hiểu thuật toán hiện thực giao thức trong mã nguồn (không quá khó khăn với mã nguồn C), sau đó tìm hiểu cách thực hiện những công việc liên quan đến cổng RS-232 (serial port) cho Windows NT/2000/XP, vì những hệ điều hành này không cho phép truy xuất trực tiếp phần cứng theo cách mà chương trình mẫu đã sử dụng. Về giao tiếp RS-232 trên Windows thì box này chính là nơi bạn có thể tìm thông tin, ngohaibac đã giới thiệu cho một số ngôn ngữ rồi.

Thân,

[vdt]

Có ai lập trình điều khiển bằng Delphi không? Do lịch sử để lại, thời mình đi học chỉ đựoc dạy Pascal, thế nên sau này cũng vẫn theo con đường cũ mà dùng Delphi.
Mình thấy viết chương trình điều khiển bằng VB thì đơn giản thật, nhưng khi dân kỹ thuật dùng thì vẫn thấy thế nào ấy. Dùng VC thì là Pro nhất, nhưng với mình thì sẽ mất rất nhiều thời gian để học. Thế nên mình phải sử dụng Delphi.
Hiện mình có một số thư viện để viết cho cổng RS232 bằng Delphi, đây cũng là những thư viện free và mình download trên net cả thôi, nhưng mình thấy dùng khá ổn định và dễ dàng. Mình xin đóng góp lên đây để mọi ngừoi tham khảo nhé.
Chúc mọi người vui vẻ

[hochoi2006]

Nguyên văn bởi vdt

Có ai lập trình điều khiển bằng Delphi không? Do lịch sử để lại, thời mình đi học chỉ đựoc dạy Pascal, thế nên sau này cũng vẫn theo con đường cũ mà dùng Delphi.
Mình thấy viết chương trình điều khiển bằng VB thì đơn giản thật, nhưng khi dân kỹ thuật dùng thì vẫn thấy thế nào ấy. Dùng VC thì là Pro nhất, nhưng với mình thì sẽ mất rất nhiều thời gian để học. Thế nên mình phải sử dụng Delphi.
Hiện mình có một số thư viện để viết cho cổng RS232 bằng Delphi, đây cũng là những thư viện free và mình download trên net cả thôi, nhưng mình thấy dùng khá ổn định và dễ dàng. Mình xin đóng góp lên đây để mọi ngừoi tham khảo nhé.
Chúc mọi người vui vẻ

Thank! Thank! Thank!

[hoangthongd]

chao cac bac!
em chi moi tap tanh ve VC++ va dung MScomm de giao tiep voi vdk 89s52.
truyen du lieu thi ca hai ben dieu nhan duoc. khi truyen kieu CString thi du lieu truyen khong co sai sot. tuy nhien, em muon truyen theo kieu so, chang han nhu truyen con so nguyen 234 thi lai truyen sai het ca ben vdk va PC.
em thay cac bac kha ranh ve van de nay nen xin cac bac giup em voi
dieu nay rat can thiet cho em vi em dang lam de tai mon hoc.
xin bac nao biet giup em voi

[salem_tdh1]

Nguyên văn bởi hoangthongd

chao cac bac!
em chi moi tap tanh ve VC++ va dung MScomm de giao tiep voi vdk 89s52.
truyen du lieu thi ca hai ben dieu nhan duoc. khi truyen kieu CString thi du lieu truyen khong co sai sot. tuy nhien, em muon truyen theo kieu so, chang han nhu truyen con so nguyen 234 thi lai truyen sai het ca ben vdk va PC.
em thay cac bac kha ranh ve van de nay nen xin cac bac giup em voi
dieu nay rat can thiet cho em vi em dang lam de tai mon hoc.
xin bac nao biet giup em voi

Mình chạy bài của Bắc thì thấy đúng tuốt nhưng mình định áp dụng thì vấp phải vấn đề giống hoangthongd. Mình muốn truyền và nhận dữ liệu dạng số để thực hiện tính toán sau này chứ không chỉ hiển thị mà không biết làm thế nào để chuyển đổi từ dạng string sang số cả. Rất mong mọi người giúp đỡ.

[thanhlam220582]

Nguyên văn bởi salem_tdh1

Mình chạy bài của Bắc thì thấy đúng tuốt nhưng mình định áp dụng thì vấp phải vấn đề giống hoangthongd. Mình muốn truyền và nhận dữ liệu dạng số để thực hiện tính toán sau này chứ không chỉ hiển thị mà không biết làm thế nào để chuyển đổi từ dạng string sang số cả. Rất mong mọi người giúp đỡ.

bạn có chạy thử bài của anh Bắc viết bằng vb ko?mình chạy ko báo lỗi gì nhưng ko nhận đc dữ liệu về.mình ko bit có sai chỗ nào ko nữa.bạn chạy thử rồi chỉ cho mình với nhé.cám ơn nhiều
ah đây là link http://www.picvietnam.com/forum/showthread.php?t=869

[ngohaibac]

Thám à,

Cậu xem về đọc ghi file trong VC++ nhé, mở MSDN ra mà xem. Thư viện với VC++ là fstream.h.

Còn việc hiển thị dữ liệu lên figure thì tìm component của VC++ ấy. Mình tìm cho sau nhé.

Chúc mày ok .

[Attiny]

Sao em down cai link http://luckytoki.com/haibac/download...C/Terminal.zip

chương trình TERMINAL

của anh HẢI BẮC ko dược nhỉ nhờ các bác chi ZUM THANK!

[ngohaibac]

Chương trình Terminal đây, các bạn download về nhà dùng nhé.

Chúc anh em luôn luôn ok .

[signin]

Chương trình nhận dữ liệu từ máy tính của vi điều khiển

org	000h

	;  khoi tao UART
	; Thiet lap SMOD = 1, nghia la chia cho 16
		mov	a,87h		; 87h chinh la dia chi cua thanh ghi PCON
		setb	ACC.7		; SMOD =1, nghia la chia cho 32
		mov	87h,a	
	
		mov	SCON,#01010010b
					; SM0_SM1_SM2_REN_TB8_RB8_TI_RI
					;     0        1         0         1          0         0      1    0
					; UART 8 bit , cho phep nhan ki tu, set co ngat phat

		mov	TMOD,#00100000b
					; GATE_C/T_M1_M0_GATE_C/T_M1_M0
					;       0         0      1       0          0         0      0       0
					; Timer 1, mode 2 ( auto load )
		mov	TH1,#-3		; toc do thuc 19200 baud
		setb	TR1		; cho phep timer hoat dong
		
td:		mov	r0,#40h		; vi tri o nho bat dau luu
		
td1:		jnb	RI,$
		clr	RI
		mov	@r0,SBUF
		inc	r0
		jmp	td1

		
end

Chương trình gởi dữ liệu từ máy tính tới vi điều khiển:

Private Sub Form_Load()

RX_Counter = 0
' init for comport

With MSComm1
    .CommPort = 2               'chose COM2
    .Settings = "19200,N,8,1"    'baud 9600bps, none parity, 8 bit data, 1 bit stop
    .InBufferSize = 1024
    .InputLen = 0
    .RThreshold = 1
    .SThreshold = 1
    .OutBufferSize = 512
    .InputMode = comInputModeBinary
    '.InputMode = comInputModeText
    .PortOpen = True
End With

'init for edit boxes
For i = 0 To 10
    Text1.Item(i).Text = i
    Text1.Item(i).Alignment = 2
Next

End Sub

Private Sub cmdSend_Click()

Dim BytesToSend(10) As Byte

'Store the data in a byte array
For i = 0 To 10
    BytesToSend(i) = Val("&h" & Text1.Item(i).Text)
Next

'Send the data to the port
MSComm1.Output = BytesToSend()

End Sub

Em có download chương trình Giao tiếp RS232 trên PC bằng Visual Basic ( do anh Hải Bắc viết ) về dùng!


Em truyền dữ liệu từ vi điều khiển 89S52 lên máy tính thì nhận đúng nhưng gởi dữ liệu từ máy tính xuống vi điều khiển thì vi điều khiển không nhận được!

Kính mong anh Hải Bắc xem dùm source code của Visual Basic, vi điều khiển của em viết đúng không? Nhờ anh Hải Bắc chỉ giúp!

Hiện nay em đang làm đồ án tốt nghiệp nhưng gặp sự cố ở khâu truyền dữ liệu từ máy tính xuống vi điều khiển.

Em hiện đang học ngành cơ khí.

@ngohaibac: em nhớ để code giữa 2 tag code nhé. Cho người đọc dễ nhìn em ạ.

[ngohaibac]

Nguyên văn bởi signin

Chương trình nhận dữ liệu từ máy tính của vi điều khiển
.................................................. .........

1. Về chương trình truyền trên PC em không có hàm ngắt OnComm à ?Thế thì làm sao xử lý được dữ liệu truyền lên nhỉ ?

SThreshold = 0 để không xảy ra sự kiện ngắt truyền. RThreshold = 1 là khi có 1 byte trong bộ đệm nhận thì sẽ xảy ra sự kiện nhận dữ liệu.

2. Còn chương trình ở VĐK làm sao em biết là vi điều khiển nhận được hay chưa ? vì khi em nhận được dữ liệu thì chỉ có ghi dữ liệu vào trong RAM thôi mà. Em có thể test bằng cách cho một cổng nối với Led để test. Khi nhận được dữ liệu thì setb để led sáng.

Chương trình của em là hoàn toàn dùng kiểu Polling, chờ khi cờ RI = 1 thì ghi dữ liệu. Cách này không tối ưu, sao em không dùng ngắt nhỉ ? như thế sẽ làm được nhiều việc hơn.

Chương trình cũng không có đoạn lệnh gửi dữ liệu lên PC mà?

Chúc em thành công.

[master_boot]

Anh ơi anh có thể cho em code của trương trình không?em đang làm đề tài cơ sở về "viết chương trình đường truyền file giữa 2 máy tính bằng ngôn ngữ C" em muốn tham khảo thêm anh giup em trong thời gian ngắn nhất nhé em mới vào nghề mà nếu được anh mail vào hòm thư: virus_batdiet_k5d@yahoo.com cảm ơn anh nhiều

[ngohaibac]

Source code ngay trong file đính kèm của bài 1 mà bạn:
http://www.picvietnam.com/forum//sho...47&postcount=1

Chúc bạn thành công.

[signin]

Cam on anh Hai Bac nhieu!