Giao tiếp S7-200 với PC

[megatronVN]

Anh nào làm về truyền nhận VB với S7-200 rồi gửi em cái sample với,đơn giản cũng được,chả bít con LPC nhận truyền với khung truyền ra sao hết

[megatronVN]

Quên mail của em: ngvanlinhqn@yahoo.com

[megatronVN]

CHƯƠNG TRÌNH PLC
Chương trình OB1
Network 1 //
LD SM0.0
O T32
= SM30.0
= Q0.3
Network 2 //
LD SM0.1
MOVB 16#09, SMB30
ATCH INT0, 8
ENI
Network 3 //
LD Q0.1
O Q0.2
O I0.1
O I0.2
CALL SBR2, 1, 9600, 16#1, Q0.0, VB1
Network 4 //
LDN I0.1
LD I0.0
O Q0.1
ALD
AN I0.2
= Q0.1
Network 5 //
LDN I0.1
LD I0.4
O Q0.2
ALD
AN I0.2
= Q0.2
Network 6 //
LD SM0.0
= L60.0
LD Q0.1
= L63.7
LD I0.1
= L63.6
LD I0.2
= L63.5
LD I0.3
= L63.4
LD Q0.2
= L63.3
LD L60.0
CALL SBR5, L63.7, L63.6, L63.5, L63.4, L63.3, 0, 1, VD52, M0.0, VB2, VW4, VD6, M20.0, M20.1, M20.2, M20.3
Network 7 //
LD SM0.5
= L60.0
LD SM0.5
EU
= L63.7
LD L60.0
CALL SBR8, L63.7, 0, 755, 0, &VB20, M20.4, VB10, VW12
Network 8//
LD Q0.1
O Q0.2
O I0.1
AN T32
TON T32, 1
Chương trình xl ngắt
Network 1 //
LDB= SMB2, 16#41
S Q0.1, 1
= Q0.4
Network 2//
LDB= SMB2, 16#42
= I0.1
= Q0.5
R Q0.1, 1
Network 3//
LDB= SMB2, 16#43
= Q0.2
= Q0.6
Network 4//
LDB= SMB2, 16#44
= I0.2
= Q0.7
CHƯƠNG TRÌNH VB
'***************** MO CONG VA SU DUNG BAY LOI***************

Private Sub cmdconnect_Click()
On Error GoTo OpenFalse
cmdconnect.Enabled = False
cmdsend.Enabled = True
Command2.Enabled = True
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Exit Sub
OpenFalse:
MsgBox err.Description & vbLf + vbCr + "Loi, khong the mo cong. Hay dong cac ung dung dang su dung cong COM"
End Sub
' *********** THOAT KHOAI CHUONG TRINH *********************
Private Sub cmdexit_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End
End Sub
' ********** GUI DATA RA CONG **************
Private Sub cmdsend_Click()
On Error GoTo sendfalse
MSComm1.Output = Text1.Text
Exit Sub
sendfalse:
MsgBox err.Description & vbLf + vbCr + "Loi, Cong COM chua duoc mo, nhan Connect"
End Sub

************* XOA TEXT ******************
Private Sub cmdclear_Click()
If cmdconnect.Enabled = False Then
On Error GoTo loi
Text1.Text = ""
Text2.Text = ""
Form2.Text1.Text = ""
Else
loi: MsgBox "Ban chua connect"
End If
End Sub
Private Sub cmdstart_Click()
If cmdconnect.Enabled = False Then
On Error GoTo loi
Dim datasend As String
datasend = "A"
MSComm1.Output = datasend
Shape2.Visible = True
Shape1.Visible = False
Else
loi: MsgBox "Ban chua connect"
End If
End Sub
Private Sub cmdstop_Click()
If cmdconnect.Enabled = False Then
On Error GoTo loi
Dim datasend1 As String
datasend1 = "B"
MSComm1.Output = datasend1
Shape2.Visible = False
Shape1.Visible = True
Else
loi: MsgBox "Ban chua connect"
End If
End Sub
Private Sub Command1_Click()
If cmdconnect.Enabled = False Then
On Error GoTo loi
Form1.Hide
Form2.Show
Else
loi: MsgBox "Ban chua connect"
End If
End Sub
Private Sub Command2_Click()
On Error GoTo err
cmdconnect.Enabled = True
Command2.Enabled = False
cmdsend.Enabled = False
'cmdreset.Enabled = False
MSComm1.PortOpen = False
err:
End Sub
'******* THIET LAP CAC THONG SO CHO VIEC TRUYEN NHAN DATA**
Private Sub Form_Load()
Text2.FontBold = True
Shape2.Visible = False
Shape1.Visible = False
Timer3.Interval = 1000
Timer3.Enabled = True
Text3.Text = Now()
Me.Caption = "CHAO CAC BAN TRONG DIEN DAN DIENTUVIETNAM.NET CHUC CA NHA VUI CHIA SE SE DUOC CHIA SE "
Timer1.Interval = 300
Timer1.Enabled = True
Text1.Text = ""
Text2.Text = ""
With MSComm1
.Settings = cmbBaudRate.Text + "N,8,1"
.RThreshold = 1
.SThreshold = 0
'.InBufferSize = 1024
'.OutBufferSize = 1024
.InputMode = comInputModeText
.ParityReplace = ""
.CommPort = Switch(cmbComPort.Text = "COM 1", 1, cmbComPort.Text = "COM 2", 2, cmbComPort.Text = "COM 3", 3, cmbComPort.Text = "COM 4", 4)
End With
End Sub

Viết thật nhiều,ý nghĩa chẳng được bao nhiêu

[nodiesun]

Chương trình của nonumber.ksd viết khá đầy đủ. Tuy nhiên bạn có thể cho mình tham khảo một ví dụ mẫu về việc xử lý Timeout được ko? Ví dụ như máy tính truyền dữ liệu xuống cho PLC hoặc VĐK nếu PLC hoặc VĐK không nhận được dữ liệu ta thử gửi thêm một vài lần nữa. Nếu vẫn không được thì máy tính sẽ đưa ra một cảnh báo. Chân thành cảm ơn!

[thuongtanluc]

Chương trình của nonumber.ksd viết khá đầy đủ. Tuy nhiên bạn có thể cho mình tham khảo một ví dụ mẫu về việc xử lý Timeout được ko? Ví dụ như máy tính truyền dữ liệu xuống cho PLC hoặc VĐK nếu PLC hoặc VĐK không nhận được dữ liệu ta thử gửi thêm một vài lần nữa. Nếu vẫn không được thì máy tính sẽ đưa ra một cảnh báo. Chân thành cảm ơn!

Bài viết của bạn rất hay.
về PLC thì mình biết, nhưng VB thì chưa hiểu lắm. theo mình nghĩ thì trên VB có cái form gì nữa chứ, để khi mình kích cái đầu vào I0.0 chẳng hạn thì mới có hiển thị lên form về thời gian gì đó, phải không bạn. thật sự là ko rõ, bạn thông cảm nhé.
cảm ơn !

[thuongtanluc]

Viết thật nhiều,ý nghĩa chẳng được bao nhiêu

bài viết hay quá.
bạn có thể chỉ cho mình làm sao cho nó chạy trên máy tính. về phần PLC thì mình biết, nhưng cái VB thì mù tịt,
cảm ơn.

[honglinhatqn]

Các Bro cho hỏi chút.Hiện mình đang làm truyền nhận giữa VB và S7-200 (CPU 226).Hiện giờ mình đã truyền nhận được nhưng có chút khó khăn thế này:
Dữ liệu nhận xuống từ PC là dạng mã ASCII,mình dùng lệnh ATH để chuyển qua Hex,giờ không biết làm sao để chuyển qua số để sử dụng.
Ai biết xin chỉ với,xin cảm ơn trước

[buituan87]

Chào các bác. Có bác nào hiểu kĩ về plc thi cho em biet dc đểm mạnh yếu của s7200 và logo so với s7300 với

[thanhlbhn]

Tuỳ ứng dụng mình xây dựng thì lựa chọn thôi

[toild21]

Hi! mình có một ít kinh nghiệm như sau trong chế độ truyền tự do điểm - điểm
Phần 1- Truyền khoảng cách cở trên dưới 1200 m ( 1 PLC <-> 1 PC)
phần cứng bao gồm: CPU 22X, PC, cáp chuyển đổi rs232/rs485 ( phần rs485 chiếm độ dài chủ yếu).
Cách 1-: không sử dụng PC access.
phần mềm: ở PC bạn có thể dùng VB( visual basic) hoặc dùng NC …
Tự định nghĩa giao thức. Tuy nhiên bạn cần thực hiện các thủ tục sau ở PLC:
- Định nghĩa và khai báo khung truyền ( byte khởi đầu và độ dài của khung truyền)
- Chọn: tốc độ truyền( 9600bit/s…), byte dữ liệu (8 or 7 bit), bit start, stop, bit parity ..), chế độ truyền free port.
- Chuyển đổi dữ liệu: bạn cần mov dữ liệu vào địa chỉ dữ liệu đã xác định trong khung truyền đã định nghĩa phía trên.Lưu ý tất cả dữ liệu cần truyền ( integer. nhị phân, BCD, real, kí tự..) bạn cần chuyển sang mã ASCII. Tuy nhiên một số phiên bản step micro/Win củ chỉ cung cấp lệnh chuyển đổi có toán hạng là từ ( word) nếu dữ liệu cần truyền của bạn đủ lớn chứa trong từ kép (dW) thì cần phải viết chương trình con để chuyển đổi.
- Tiếp theo là thực hiện việc truyền thông bằng lệnh XMT ( bao gồm địa chỉ đầu của khung truyền và chọn cổng sẽ truyền, ví dụ nếu CPU 226 có 2 port)
- Sử dụng ngắt truyền thông để truyền và nhận dữ liệu
- Truyền dữ liệu: bạn có thể tự đặt 1 chu kì truyền theo vòng quét hoặc theo ngắt thời gian để định nghĩa chu kì truyền. Sau khi kết thúc bạn có thể sử dụng ngắt 2 để xác định việc truyền kết thúc ví dụ
ATCH INT_2 9 //Attach interrupt 2 to the transmit complete event.
ENI //Enable user interrupts
Nếu không cần thiết bạn có thể không sử dụng ngắt này.
- Nhận dữ liệu: Bạn phải bắt buộc sử dụng ngắt truyền thông 0 để nhận dữ liệu. Như vậy giã sử nếu khung truyền của bạn có 10 byte( mỗi kí tự được thể hiện dưới dạng mã ACSII(0-255) =1 byte) như vậy mỗi kí tự nhận được sẽ gây ra 1 ngắt truyền thông nhận dữ liệu. 10 byte tương ứng có 10 lần ngắt. Tuy nhiên do bô đệm truyền thông của S7200 chỉ có 1byte vì vậy trong chương trình xử lí ngắt bạn phải cất ngay byte dữ liệu vừa nhận được, sau đó lại biến đổi mã ASCII này sang số dạng dữ liệu của nguời sử dụng.Nếu bạn không xử lí vấn đề này thì các kí tự sau sẽ chèn lên kí tự trước đó trong bộ đệm. Chú ý các ngắt chỉ có hiệu lực khi bạn khai báo lệnh cho phép ngắt ENI.
- Ở PC bạn thực hiện tương tự ( sử dụng VB/MSCOMM,mình sẻ cấp tài liệu qua mail nếu bạn cần tham khảo)
- Quy tắc hỏi / đáp ở PC và PLC do bạn tự định nghĩa.
- Lưu ý khi đã kích hoạt chế độ ngắt truyền thông ở PLC và PLC ở chế độ RUN bạn không thể dùng chức năng chart status của micro win để giám sát online trạng thái các biến trong của PLC. Bạn cần chuyển PLC về STOP thì micro win mới test được PLC.
Để khai báo các thủ tục trên bạn có thể tham khảo các lệnh trong sách S7/200 của PGS. Phan Xuân Minh..hoặc đọc Help của micro win và cần nắm rỏ các ô nhớ đặc biết ví dụ:
‘SMB30 controls Freeport communication for port 0; SMB130 controls Freeport communication for port 1. You can read and write to SMB30 and SMB130. These bytes configure the respective communication port for Freeport operation and provide selection of either Freeport or system protocol support.’
-
Cách 2-: sử dụng PC access.
phần mềm: ở PC bạn có thể dùng WINCC. Như vậy toàn bộ công việc truyền thông do PC access và PLC tự động thực hiện. Mình có đủ các bộ cài cho PC access và WinCC.
Phần 1- Truyền khoảng cách trên 1200 m ( PLC <-> PC)
phần cứng bao gồm: CPU 22X, PC, .module Modem. … truyền qua mạng điện thoại sẽ bổ sung phần 2.

Em không hiểu rõ chỗ này lắm: (bôi đỏ ấy), anh có thể nói rõ hơn không ạ? hay anh post code một ví dụ đơn giản không ạ? cho dễ hiểu. em cảm ơn anh!

[trungnguyen]

Đây là chương trình Bộ đếm của S7-200. được điều khiển và giám sát trên PC. Giao diện được viết bằng Visual Basic 6.0. Bạn cần phải có phần mềm sau để hỗ trợ:
1- PC Access v1.0 của SIEMENS.
2- Visual basic 6.0
3- Measurement Studio của bọn National Instruments (NI), Phần này có cũng được không cũng được. Code tôi gửi có sử dụng phần mềm Measurement Studio.
*Note: Nút lệnh, Nhãn hiển thị giá trị PV-SV & Ledout tôi sử dụng điều khiển của NI. Nếu bạn không có phần mềm này thì cần sửa lại các câu lệnh cho các đối tượng này sao cho phù hợp

chao ban cho minh xin code tren s7200 duoc ko minh dang gap rac roi khi truyen du lieu len pc trungnguyenkdd06@gmail.com cam on nhieu!

[trungnguyen]

Đây là chương trình Bộ đếm của S7-200. được điều khiển và giám sát trên PC. Giao diện được viết bằng Visual Basic 6.0. Bạn cần phải có phần mềm sau để hỗ trợ:
1- PC Access v1.0 của SIEMENS.
2- Visual basic 6.0
3- Measurement Studio của bọn National Instruments (NI), Phần này có cũng được không cũng được. Code tôi gửi có sử dụng phần mềm Measurement Studio.
*Note: Nút lệnh, Nhãn hiển thị giá trị PV-SV & Ledout tôi sử dụng điều khiển của NI. Nếu bạn không có phần mềm này thì cần sửa lại các câu lệnh cho các đối tượng này sao cho phù hợp

Bạn xem file đính kèm code của VB6 và PLC S7-200, test rồi, chế độ freeport....

phien ban up lai code vb duoc ko minh ko mo duoc. thieu file roi.hay ban gui cho minh trungnguyenkdd06@gmail.com. cam on nhieu

[trphat]

luckystar oi! sao Em làm giống vậy nhưng Q0.0 không sáng j hết vậy Bác.

[trphat]

ban nhphong ơi! sao VB Em tải vè mở len không được vậy Bạn. Ban xem lai roi gui cho mình với.

[thongtinvinh]

Có bác nào đã làm kết nối PLC 200 với modem gprs chưa? post lên cho anh em hoc hỏi với