VB giao tiep voi PLC

[vandung]

Cảm ơn bác nhiều, em thử mà vẫn không được, em nghĩ chắc do cục chuyển đổi RS232/RS485 quá, cáp USB/COM em nối tắt RX và TX thử thì OK mà. Em chưa biết phải làm sao nữa, để em tham khảo thêm coi.

[anhlv.ddt]

Cảm ơn bác nhiều, em thử mà vẫn không được, em nghĩ chắc do cục chuyển đổi RS232/RS485 quá, cáp USB/COM em nối tắt RX và TX thử thì OK mà. Em chưa biết phải làm sao nữa, để em tham khảo thêm coi.

Đưa code lên coi nào

[vandung]

Chương trình PLC
main program

network 1
LD SM0.1
CALL SBR_0
R M0.0, 1
R M0.1, 1

network 2
LD M0.0
= Q0.0
R M0.1, 1
network 3
LD M0.1
= Q0.1
R M0.0, 1
network 4 // truyền kí tự A
LD I0.0
EU
XMT VB100, 0

//chương trình SBR_0 , vong quet dau config che do freeport va move ki tu A vao VB101 truyen
network1
LD SM0.0
MOVB 16#09, SMB30
network2
LD SM0.0
ATCH Rcv_comp_interrupt, 8
ENI
network3 // ki tu truyen la A
LD SM0.0
MOVB 1, VB100
MOVB 16#41, VB101

//chuong trinh ngat su kien 8
network 1 /neu ki tu truyen la A
LDB= SMB2, 16#41
S M0.0, 1
network 2 //neu ki tu nhan la B
LDB= SMB2, 16#42
S M0.1, 1

// Đây là code Vb,
//Cổng com
Private Sub MSComm1_OnComm()
Dim buffer As Variant
If MSComm1.CommEvent = comEvReceive Then
Text2.Text = Text2.Text + MSComm1.Input
End If
End Sub

//nút send
Private Sub Command1_Click()
MSComm1.Output = Hex$(41)
'hoặc
'buffer = Trim(Text1.Text)
'MSComm1.Output = buffer
End Sub

'cấu hình cổng com

Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
cmdsend.Caption = "&Send"
Text1.Text = ""
Text2.Text = ""
cmdexit.Caption = "&Exit"
With MSComm1
.Settings = "9600,N,8,1"
.CommPort = 2 'chon cong com 2
.RThreshold = 1

.SThreshold = 0
.InputMode = comInputModeText
.InputLen = 0
.Handshaking = comNone
.InBufferSize = 1024
.OutBufferSize = 1024
If .PortOpen = False Then
.PortOpen = True
End If
End With
End Sub

Bác xem giúp em. cảm ơn bác nhiều.

[anhlv.ddt]

Chương trình PLC
main program

network 1
LD SM0.1
CALL SBR_0
R M0.0, 1
R M0.1, 1

network 2
LD M0.0
= Q0.0
R M0.1, 1
network 3
LD M0.1
= Q0.1
R M0.0, 1
network 4 // truyền kí tự A
LD I0.0
EU
XMT VB100, 0

//chương trình SBR_0 , vong quet dau config che do freeport va move ki tu A vao VB101 truyen
network1
LD SM0.0
MOVB 16#09, SMB30
network2
LD SM0.0
ATCH Rcv_comp_interrupt, 8
ENI
network3 // ki tu truyen la A
LD SM0.0
MOVB 1, VB100
MOVB 16#41, VB101

//chuong trinh ngat su kien 8
network 1 /neu ki tu truyen la A
LDB= SMB2, 16#41
S M0.0, 1
network 2 //neu ki tu nhan la B
LDB= SMB2, 16#42
S M0.1, 1

// Đây là code Vb,
//Cổng com
Private Sub MSComm1_OnComm()
Dim buffer As Variant
If MSComm1.CommEvent = comEvReceive Then
Text2.Text = Text2.Text + MSComm1.Input
End If
End Sub

//nút send
Private Sub Command1_Click()
MSComm1.Output = Hex$(41)
'hoặc
'buffer = Trim(Text1.Text)
'MSComm1.Output = buffer
End Sub

'cấu hình cổng com

Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
cmdsend.Caption = "&Send"
Text1.Text = ""
Text2.Text = ""
cmdexit.Caption = "&Exit"
With MSComm1
.Settings = "9600,N,8,1"
.CommPort = 2 'chon cong com 2
.RThreshold = 1

.SThreshold = 0
.InputMode = comInputModeText
.InputLen = 0
.Handshaking = comNone
.InBufferSize = 1024
.OutBufferSize = 1024
If .PortOpen = False Then
.PortOpen = True
End If
End With
End Sub

Bác xem giúp em. cảm ơn bác nhiều.

đoạn code này bạn gửi kẻm cho tôi cái file vb nữa, để coi? dạo này mình bận quá nên không thể xem được chương trình ? bạn gửi kèm theo file VB để test nhé

[ngthanhluan06d2]

Bạn vandung nên gửi file lên để mọi người cùng tham khảo và thảo luận.

[vandung]

đây là các phần em test thử chế độ truyền freeport. Bác xem thử giúp mọi người trong diễn đàn.
thanks nhiều.

[vandung]

http://www.mediafire.com/?v81h0y51vmbtr7f
đây là những đoạn code e viết để thử, bác xem giúp em và mọi người trong diễn đàn