Giao tiếp RS232 trên PC bằng Visual Basic.

[controlufo]

tui sưu tầm các hướng dẫn của mr maneger(ngohaibac) đem áp dụng sài không được trong form access
form nhap
texbox vao

tui có gửi file access kèm theo mong manager box """"design"""" lại dùm ....giúp tui đi tui chuyển sang dề tài khác ngâm cứu chứ cái vụ này lấy của tui mất hơn 1 tháng rùi ngohaibac ui...

Dim x As Variant

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
x = MSComm1.Output
Forms!nhap!vao = x
End If
End With
End Sub

mong hồi âm
xin chân thành cám ơn....chúc công việc vui vẻ

[nguyenchituyen]

code co day du thong tin wa cong M trong VB va co API do tim cong COM

namqn: đề nghị bạn viết tiếng Việt có dấu.

[bengan]

thanks các bạn nhiều, có bạn nào có tài liệu lập trình pic bằng vb.net ko?

[namqn]

Nguyên văn bởi bengan

thanks các bạn nhiều, có bạn nào có tài liệu lập trình pic bằng vb.net ko?

Tôi tin rằng hiện thời chưa có trình biên dịch VB.net nào cho PIC, do đó có lẽ không tồn tại tài liệu mà bạn hỏi.

Thân,

[phandinh]

Em đang viết VB 6. khi em vào File --> save project as --> lưu 1 tên khác , khi mở lại thì
tất cả các file trước đều bị đè lên.
Em cũng thử tạo 1 folder mới rồi "save project as" vào folder vừa tạo, nhưng cũng bị như vậy
Ví dụ nhé : mở Project 1 --> chỉnh sửa --> lưu lại thành tên khác Project 2 . khi mở
Project 1 thì nội dung lại giống Project 2 .
Giúp em với

[tungtot_vl]

Nguyên văn bởi phandinh

Em đang viết VB 6. khi em vào File --> save project as --> lưu 1 tên khác , khi mở lại thì
tất cả các file trước đều bị đè lên.
Em cũng thử tạo 1 folder mới rồi "save project as" vào folder vừa tạo, nhưng cũng bị như vậy
Ví dụ nhé : mở Project 1 --> chỉnh sửa --> lưu lại thành tên khác Project 2 . khi mở
Project 1 thì nội dung lại giống Project 2 .
Giúp em với

thi vấn đề bạn nói là đúng chứ có sai đâu.
bạn muốn Project 1 # Project 2. thì mở Project 1 rồi "save project as" thành Project 2 sau đó chỉnh sửa rồi save lại thì lúc đó Project 1 # Project 2. bạn cũng nên save form as file1 thành file2 nhé

[phandinh]

em đã làm dc giao tiếp ADC 8 bit, nhưng ADC 10 bit thì loay hoay chưa biết xử lí thế nào.
em làm thế này:
float val_adc;
.......
val_adc = read_adc();
printf("%u",val_adc);
Em tăng biến trở từ nhỏ nhất lên lớn nhất, thì trên VB giá trị chạy từ 00-->ff 4 lần.
Tức là thế này 00-->ff -->00 -->ff-->00-->ff -->00 -->ff.
Em không biết làm sao để truyền 10 bit lên PC ?
Mong các bác cho em lời khuyên

[ngohaibac]

Forms!nhap!vao = x

là cái gì đó hả bạn?

Nếu là editbox thì phải gán vào thuộc tính text của nó chứ nhỉ ? Bạn xem lại nhé.
Sao bạn k upload của project của bạn lên để mình xem chứ.

Đề nghị viết tất cả code trong tag code cho dễ nhìn nhé.

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

[stupid11]

Mình vừa viết xong chương trình giao tiếp với VB qua cổng COM ảo và Proteus bạn nào hứng thú với chương trình này thì mình sẽ hướng dẫn.

đây là clip mô phỏng.Các bạn xem qua.

[truong1993]

Nguyên văn bởi stupid11

Mình vừa viết xong chương trình giao tiếp với VB qua cổng COM ảo và Proteus bạn nào hứng thú với chương trình này thì mình sẽ hướng dẫn.

đây là clip mô phỏng.Các bạn xem qua.

bi của a rất hữu ích.mong a giúp đỡ.e cũng dang làm cái đề tài điều khiển thiết bị qua tin nhắn dùng sim 900.cần a giúp phần giao tiếp này với ạ.mail của e. xuantruongdt2@gmail.com

[tranbahung80]

Chào tất cả mọi người!
Ngày sưa mình làm về VĐK, điện tử cơ bản nhiều. Nhưng lay đã bỏ sang làm điện công nghiệp, nói chung là sửa mọi thứ cả công ty và sửa thuê.
Mình cũng đac thử một số thiết bị công nghiệp được thay thế bằng VĐk để làm nhưng không hiệu quả vì giá thành cao.
Anh em lào mà làm điện tử để biết thì không sao.. nhưng để cạnh tranh thì phải có hệ thống... Ít nhất như Addmin Bình Anh thì mới ổn một là dòng sản phẩm mới hai là độc chiếm một lãnh vực nào...
Cũng như mình phải nói sau 2,5 năm làm trong ngành gạch Ceramic thì độc chiếm về dòng máy Phân loại SACMI, LÒ NUNG CÁC HÃNG, MÁY ÉP CỦA SACMI loại chạy máy vi tính.
Thì cũng khá dù còn làm điện tử thấy kém quá.
Hi vọnh một ngày gần đay mình sẽ Pot các bài ví dụ về Pic16f877A, mình có ý là những ai daoloatd thì ủng hộ vào quỹ nào đó....vd chất độc da cam ..
Hi vong cửa mình sẽ thành hiện thực.

[signin]

Kính gởi: anh Hải Bắc !

Em tên là Trung, học ngành cơ khí. Em đang làm đồ án tốt nghiệp, hiện em đang gặp sự cố ở khâu truyền dữ liệu từ máy tính xuống vi điều khiển 89S52. Em đã làm đi làm lại nhiều lần nhưng không được.

Mong anh Hải Bắc xem giúp source code và hướng dẫn dùm em. Vào ngày 18 tháng 7 em bảo vệ đồ án tốt nghiệp, chỉ còn trục trặc ở khâu này thôi !

Anh có thể chỉ em:
• viết code cho visual basic truyền được khoảng 10 byte hex mà vi điều khiển nhận được
• viết code cho vi điều khiển 89S52 nhận đươc 10 byte hex do visual basic gởi
Và cho em hỏi :
• Khi vi điều khiển gởi đi nội dung “0FFh” thì máy tính nhận được ký tự gì, và ngược lại.

Cảm ơn anh Hải Bắc nhiều, thật sự em rất ngưỡng mộ anh, chúc anh luôn vui vẻ và hạnh phúc !

Code:

org 	000h
		ljmp	main
	
		org	0023h
		ljmp	ngat_noitiep

		org	0030h

main:		mov	p1,#0
		mov	TMOD,#20h			; bo dinh thoi 1 che do 2
		mov	TH1,#-3			; gia tri nap lai
		setb	Tr1				; bo dinh thoi hoat dong
		mov	SCON,#01010010b		
		mov	IE,#90h			; cho phep ngat noi tiep
		sjmp	$

ngat_noitiep:
		mov	p1,#0ffh
		clr	TI
reti
end

Code:
	Private Sub cmdPause_Click()
MSComm1.Output = "0"
End Sub

Private Sub cmdPlay_Click()
MSComm1.Output = "1"
End Sub

Private Sub Form_Load()
With MSComm1
.Settings = "9600,N,8,1"
.RThreshold = 1
.SThreshold = 0
.InBufferSize = 1024
.OutBufferSize = 1024
.InputMode = comInputModeText
.ParityReplace = ""
.CommPort = 2
If .PortOpen = False Then
.PortOpen = True
End If
End With
End Sub
Private Sub MSComm1_OnComm()
    Dim Buffer As String
    Dim size As Byte
    Dim c As Integer
    Dim i As Integer
    Dim chay As Integer
    Text1.Text = ""
              
        If MSComm1.CommEvent = comEvReceive Then ' n?u là s? ki?n truy?n
            Buffer = MSComm1.Input
            Text1.Text = Mid(Buffer, 1, 1)
        End If
 End Sub

[ngohaibac]

Khi vi điều khiển gởi đi nội dung “0FFh” thì máy tính nhận được ký tự gì, và ngược lại.

Nếu bạn hiển thị kí tự đó thì nó sẽ tương ứng với kí tự có mã ASCII = 0xFF. Thực tế giá trị này sẽ được lưu vào 1 byte nên bạn có thể không cần quan tâm nó là kí tự gì mà vãn truyền nhận đúng giá trị.

ngat_noitiep:
mov p1,#0ffh
clr TI
reti
end

Code trên vi điều khiển thế này là hỏng rùi. Vì bạn biết ngắt truyền, khi thanh ghi bộ đệm truyền rỗng thì sẽ nhảy vào ngắt nối tiếp. Khi truyền xong nó lại nhảy vào đây. Vậy không nên dùng ngắt truyền.

Bạn chỉ nên dùng ngắt nối tiếp khi nhận dữ liệu mà thôi. Nhớ xóa cờ nhớ RI nhé.

Còn chương trình trên PC chắc OK rùi. Bạn xem thếm code tại đây:
http://dientuvietnam.net/forums/showthread.php?t=5281

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

[controlufo]

bạn ngohaibac biết thì chỉnh dùm tui lun đi
chương trình tui gửi kèm theo lun đó
mình bên trường tự nhiên nên cái khoản truyền thông qua thiết bị này các thày cô cũng chẳng giúp gì cho tui được đành phải nhờ bạn thui


bạn bung file codedum.rad chỉnh lại đoạn code dùm nhe
form trong acess khác trong vb
nếu bạn biết giúp tui trọn bộ nhe

form chỉ có 1 ô textbox "vao" liệu tui có lấy được số liệu cân từ đầu dọc toledo được không


mong hùi âm

thank

[ngohaibac]

To controlufo:

Chào bạn.

Mình đã hướng cho bạn suy nghĩ và tìm hiểu rùi mà. Như thế này nhé, bạn sẽ làm như sau:

- Đầu tiên test xem module UART của 8051 có hoạt động ok không bằng cách đầu tiên gửi lên PC, sau đó tiếp tục là PC gửi xuống và vi điều khiển nhận được gì thì gửi lại luôn. Bạn dùng Hyper Terminal để debug. Bạn cần đọc lại module UART trong 8051, cái này thì rất đơn giản rùi, sách vở nào cũng nói cả.

Bạn đọc thêm 8051 Tutorial: Serial Communication tại đây:
http://www.8052.com/tutser.phtml nói quá dễ hiểu và đơn giản. Hoặc search google với từ khóa 8051 uart

- Sau khi xong code trên 8051 bạn làm lại trên PC gửi dữ liệu xuống 8051. Sau đó mới phát triển lên là gửi 10 kí tự và đọc 10 kí tự.


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