PLC Rockwell

[nguyenphong]

Bạn có thể nói rõ được hơn được không?,mình đang rất cần cái này,dùng OPC chuyển qua như thế nào nhỉ,nếu bạn có yahoo thì gửi cho mình với,có gì mình hỏi bạn qua yahoo,thank thật nhiều

Bật mí cho bạn 1 chút nhé:

Public excel As excel.Application
Public book1 As Workbook
Public sheet1 As Worksheet
Public sheet9 As Chart
Public HANG As Integer
Public COTSHEET1 As Integer
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Dim tensheet
Set tensheet = gTagDb("tensheet")
Select Case tensheet
Case 1
sheet1.Range("a1", "e" & HANG).Borders.LineStyle = 1
sheet1.PrintOut

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
sheet1.Cells(HANG, COTSHEET1 - 4) = Val(sheet1.Cells(HANG - 1, COTSHEET1 - 4)) + 1
sheet1.Cells(HANG, COTSHEET1 - 3) = gTagDb("system\DateAndTimeString")
sheet1.Cells(HANG, COTSHEET1 - 2) = a / 10
sheet1.Cells(HANG, COTSHEET1 - 1) = b
sheet1.Cells(HANG, COTSHEET1) = c

Mấy đoạn code trên trích từ luận văn của mình, chỉ mang tính tham khảo code. Bạn có thể dựa vào mấy đoạn code đó mà phát triển thêm.

[NoFear87]

Bật mí cho bạn 1 chút nhé:

Public excel As excel.Application
Public book1 As Workbook
Public sheet1 As Worksheet
Public sheet9 As Chart
Public HANG As Integer
Public COTSHEET1 As Integer
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Dim tensheet
Set tensheet = gTagDb("tensheet")
Select Case tensheet
Case 1
sheet1.Range("a1", "e" & HANG).Borders.LineStyle = 1
sheet1.PrintOut

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
sheet1.Cells(HANG, COTSHEET1 - 4) = Val(sheet1.Cells(HANG - 1, COTSHEET1 - 4)) + 1
sheet1.Cells(HANG, COTSHEET1 - 3) = gTagDb("system\DateAndTimeString")
sheet1.Cells(HANG, COTSHEET1 - 2) = a / 10
sheet1.Cells(HANG, COTSHEET1 - 1) = b
sheet1.Cells(HANG, COTSHEET1) = c

Mấy đoạn code trên trích từ luận văn của mình, chỉ mang tính tham khảo code. Bạn có thể dựa vào mấy đoạn code đó mà phát triển thêm.

Bạn có thể nói rõ hơn được không,có thể hướng dẫn mình luôn với,vì sắp hoàn thành đồ án rồi,mình còn thiếu mỗi phần này nữa thôi.Thank nhiều

[nguyenphong]

Bạn có thể nói rõ hơn được không,có thể hướng dẫn mình luôn với,vì sắp hoàn thành đồ án rồi,mình còn thiếu mỗi phần này nữa thôi.Thank nhiều

Bạn chịu khó vọc đi nhé, mình ko thể giúp hết được vì nhiều lý do tế nhị. Mình giúp bạn thêm 1 số code nữa, hãy viết chúng trong phần VBA.

book1.SaveAs (duongdanluu & ngaytemp & ".xls")
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Open gProject.Path & "\lanluu" For Random As #1 Len = Len(kiemtra)
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
' "kiemtrangay" = False
kiemtrangay = False
Open gProject.Path & "\lanluu" For Random As #1 Len = Len(kiemtra)
kiemtra.nam = Year(Date)
kiemtra.thang = Month(Date)
kiemtra.ngay = Day(Date)
kiemtra.lanluu = solanluu
Put #1, 1, kiemtra
Close #1
Else
book1.SaveAs (duongdanluu & ngaytemp & "." & solanluu & ".xls")
solanluu = solanluu + 1
Open gProject.Path & "\lanluu" For Random As #1 Len = Len(kiemtra)
kiemtra.nam = Year(Date)
kiemtra.thang = Month(Date)
kiemtra.ngay = Day(Date)
kiemtra.lanluu = solanluu
Put #1, 1, kiemtra
Close #1

Bạn hãy tự kiểm tra các code đó nhé. Chúc vui.

[NoFear87]

Bạn chịu khó vọc đi nhé, mình ko thể giúp hết được vì nhiều lý do tế nhị. Mình giúp bạn thêm 1 số code nữa, hãy viết chúng trong phần VBA.

book1.SaveAs (duongdanluu & ngaytemp & ".xls")
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Open gProject.Path & "\lanluu" For Random As #1 Len = Len(kiemtra)
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
' "kiemtrangay" = False
kiemtrangay = False
Open gProject.Path & "\lanluu" For Random As #1 Len = Len(kiemtra)
kiemtra.nam = Year(Date)
kiemtra.thang = Month(Date)
kiemtra.ngay = Day(Date)
kiemtra.lanluu = solanluu
Put #1, 1, kiemtra
Close #1
Else
book1.SaveAs (duongdanluu & ngaytemp & "." & solanluu & ".xls")
solanluu = solanluu + 1
Open gProject.Path & "\lanluu" For Random As #1 Len = Len(kiemtra)
kiemtra.nam = Year(Date)
kiemtra.thang = Month(Date)
kiemtra.ngay = Day(Date)
kiemtra.lanluu = solanluu
Put #1, 1, kiemtra
Close #1

Bạn hãy tự kiểm tra các code đó nhé. Chúc vui.

Dù sao mình cũng cảm ơn bạn.
Mình có 1 tài liệu nói về phần này,nhưng mình không làm được.Cho mình hỏi bạn có làm theo cách này chưa,có gì giúp mình với.Thank bạn

[nguyenphong]

Dù sao mình cũng cảm ơn bạn.
Mình có 1 tài liệu nói về phần này,nhưng mình không làm được.Cho mình hỏi bạn có làm theo cách này chưa,có gì giúp mình với.Thank bạn

Ko, mình ko làm theo cách này, trong view32 có phần viết VBA và phần viết visual basic, thì nhằm 2 thằng này mà viết thôi.
Bật mí 1 tí, có sự kiện event trong view32, hãy tạo nó, việc tạo sự kiện event rất có ích cho việc lưu trữ dữ liệu theo từng phút, nhưng để làm được điều này mà ko bị đứng máy (vì sao đứng máy thì bạn phải tự tìm hiểu) thì cần phải có trợ giúp bên PLC 1 ít.
Trong visual basic có hỗ trợ hết các công cụ giúp và giao diện thân thiện giúp ích cho việc lưu trữ dữ liệu. Hãy đọc lệnh trong thư mục 1033.
Những điều trên ko phải ngày 1 ngày 2 bạn có thể mò được,mà phải mất nhiều ngày, nhiều ngày, mò mò mò, mò mãi... Cố gắng mò nhé.

[NoFear87]

cám ơn mọi người nhé,đã xong vụ đồ án rồi,chính thức thất nghiêp,her her.nếu các bạn muốn tham khảo đồ án của mình,mai mình sẽ post mô hình lên,dùng thiết bị của Rockwell nhé

[nhoccodon]

bạn post lên mình tham khảo với,công ty mình (P&G) cũng toàn xài bọn AB này,kể cả Inverter.

[tuankeuqn]

các hãng PLC khác nhau, nhưng nếu bạn đã kinh qua lập trình cho siemen rồi thì cũng chẳng có gì khó khăn cả. Mình đã từng lập trình cho Controllogix,S7-300, S7-200, Mits, IDEC, Logo. Chung quy lại, cái khó của người lập trình là biết sử dụng tối đa tài nguyên trong library và có khả năng sáng tạo thôi....

[gia thinh]

Ko, mình ko làm theo cách này, trong view32 có phần viết VBA và phần viết visual basic, thì nhằm 2 thằng này mà viết thôi.
Bật mí 1 tí, có sự kiện event trong view32, hãy tạo nó, việc tạo sự kiện event rất có ích cho việc lưu trữ dữ liệu theo từng phút, nhưng để làm được điều này mà ko bị đứng máy (vì sao đứng máy thì bạn phải tự tìm hiểu) thì cần phải có trợ giúp bên PLC 1 ít.
Trong visual basic có hỗ trợ hết các công cụ giúp và giao diện thân thiện giúp ích cho việc lưu trữ dữ liệu. Hãy đọc lệnh trong thư mục 1033.
Những điều trên ko phải ngày 1 ngày 2 bạn có thể mò được,mà phải mất nhiều ngày, nhiều ngày, mò mò mò, mò mãi... Cố gắng mò nhé.

Trong Rs view có sự kiện Even và macro có thể lưu trữ dữ liệu,bạn Nguyen Phong cho mình hỏi nếu chúng ta liên kết nhiều computer qua mạng Ethernet thì cách khai báo như thế nào?vai trò của tagser v e r như thế nào trong Rs view.mình lấy ví dụ một Macro File chẳng hạn,không biết đây là ngôn ngữ gì?

!===== Macro File created 06/13/06 ===============================
! Macros are lists of commands, with one command per line
! See Help or the manual for a list of commands and their parameters
!================================================= ===========
Pause 2
display systembar_G
display MAIN
SUPPRESSON * ;SUPPRESSOFF G1\* ;SUPPRESSOFF CL\*;SUPPRESSOFF G2\*;SUPPRESSOFF G3\*
ALARMON
DataLogOn OIL2;DataLogOn G;

mình có rất nhiều thắc mắc qua rs view,việc truy xuất dữ liệu ra file e x cel thông qua sử dụng công cụ Recipe như thế nào?

[gia thinh]

Recipe trong Rs view

mình có rất nhiều thắc mắc qua rs view,việc truy xuất dữ liệu ra file e x cel thông qua sử dụng công cụ Recipe như thế nào?[/QUOTE]
ví dụ như đoạn code này mình xem mà không hiểu gì hết
1,3002 ! E\F\N51
10,2305 ! E\F\N60
11,"-" ! E\F\N61
12,70 ! E\F\N62
13,3002 ! E\F\N63
14,"A" ! E\F\N64
15,86 ! E\F\N65
16,1003 ! E\F\N66
17,"-" ! E\F\N67
18,60 ! E\F\N68
19,3008 ! E\F\N69
2,"-" ! E\F\N52
20,"-" ! E\F\N70
21,8 ! E\F\N71
22,3007 ! E\F\N72
23,"A" ! E\F\N73
24,5 ! E\F\N74
25,3009 ! E\F\N75
26,"A" ! E\F\N76
27,8 ! E\F\N77
28,4100 ! E\F\N78
29,"A" ! E\F\N79
3,297.5 ! E\F\N53
30,5 ! E\F\N80
31,4003 ! E\F\N81
32,"-" ! E\F\N82
33,3 ! E\F\N83
34,4213 ! E\F\N84
35,"-" ! E\F\N85
36,0.5 ! E\F\N86
37,1000 ! E\F\N87
38,"B" ! E\F\N88
39,50 ! E\F\N89
4,2001 ! E\F\N54
40,0 ! E\F\N90
41,"-" ! E\F\N91
42,0 ! E\F\N92
43,0 ! E\F\N93
44,"-" ! E\F\N94
45,0 ! E\F\N95
46,0 ! E\F\N96
47,"-" ! E\F\N97
48,0 ! E\F\N98
49,0 ! E\F\N99
5,"B" ! E\F\N55
50,"-" ! E\F\N100
51,0 ! E\F\N101
52,0 ! E\F\N102
53,"-" ! E\F\N103
54,0 ! E\F\N104
55,0 ! E\F\N105
56,"-" ! E\F\N106
57,0 ! E\F\N107
58,0 ! E\F\N108
59,"-" ! E\F\N109
6,297 ! E\F\N56
60,0 ! E\F\N110
61,0 ! E\F\N111
62,"-" ! E\F\N112
63,0 ! E\F\N113
64,0 ! E\F\N114
65,"-" ! E\F\N115
66,0 ! E\F\N116
67,0 ! E\F\N117
68,"-" ! E\F\N118
69,0 ! E\F\N119
7,3012 ! E\F\N57
70,0 ! E\F\N120
71,"-" ! E\F\N121
72,0 ! E\F\N122
73,0 ! E\F\N123
74,"-" ! E\F\N124
75,0 ! E\F\N125
76,0 ! E\F\N126
77,"-" ! E\F\N127
78,0 ! E\F\N128
79,0 ! E\F\N129
8,"C" ! E\F\N58
80,"-" ! E\F\N130
81,0 ! E\F\N131
82,0 ! E\F\N132
83,"-" ! E\F\N133
84,0 ! E\F\N134
85,0 ! E\F\N135
86,"-" ! E\F\N136
87,0 ! E\F\N137
88,0 ! E\F\N138
89,"-" ! E\F\N139
9,140 ! E\F\N59
90,0 ! E\F\N140
91,"2006/06/14" ! RP\rp_date
92," d (7703)" ! E\ST10_20

[gia thinh]

Rs View

các bạn cho mình hỏi cách đặt password cho từng project trong Rs View.ví dụ như mình làm một button để vào một project cần thiết thì đặt pass như thế nào?thanks!

[leo3886]

trong rsview chỉ hỗ trợ bạn đặt password cho User Account, bạn có thể thiết lập nhiều account khác nhau với các mức bảo mật từ A -->P, các trang đồ họa Graphic, các biến, các lệnh bạn có thể thiết lập bảo mật tương tứng từ A--->P, khi User Account mức bảo mật lớn hơn mới có thể truy cập biến, trang đồ họa, chạy lệnh mức bảo mật thấp hơn, không truy cập được các trang đồ họa, biến có mức bảo mật cao hơn

[gia thinh]

password trong Rs View

trong rsview chỉ hỗ trợ bạn đặt password cho User Account, bạn có thể thiết lập nhiều account khác nhau với các mức bảo mật từ A -->P, các trang đồ họa Graphic, các biến, các lệnh bạn có thể thiết lập bảo mật tương tứng từ A--->P, khi User Account mức bảo mật lớn hơn mới có thể truy cập biến, trang đồ họa, chạy lệnh mức bảo mật thấp hơn, không truy cập được các trang đồ họa, biến có mức bảo mật cao hơn

cảm ơn bạn đã trả lời mình,bạn có thể nói cụ thể hơn được không,mình có thể xây dựng các mức bảo mật từ A_P,như vậy trong một trang Graphic riêng lẻ nằm trong một user Account chuẩn thì mình có thể đặt Pasword được không?mình lấy ví dụ như ở trong rs view xây dựng các Recipe(thông thường các công thức chế biến này là quan trọng chỉ có cấp cao mới can thiệp và setting chẳng hạn)thì có cách nào để quản lý riêng không?mình có thể can thiệp từ start up không ?

[leo3886]

Bạn có thể vào Security Code để đặt mức bảo mật cho lệnh mà bạn dùng với Recipe, hoặc bạn đặt butto gọi lệnh Recipe trong 1 trang Graphic đã đặt mức bảo mật, ví dụ mức C. Khi đó người sử dụng có mức bảo vệ thấp hơn như A và B sẽ không thể vào được trang Graphic đó cũng như gọi lệnh được bảo mật mức C trở lên

[ngvanthao]

Chia sẽ cùng bạn

mình muốn kết nối giữa RSlogix và RSview 32 thì thông qua OPCserver đúng không,nhưng mình làm mãi mà khongdduiwocowcj,ai biết chi tiết kết nối thì nói cho mình biết với.Trường mình có 1 phòng thí nghiêm Rockwell ngon lắm,bây giờ mình toàn ngồi ở đó làm thôi

Nếu thực sự đồ án của bạn này yêu cầu giao tiếp giữa RS View và PLC AB qua OPC server thì bạn làm. Còn nếu không yêu cầu thì bạn cũng có thể dùng RS Link để truyền thông và giao tiếp với nhièu PLC AB thông qua mạng LAN .
Lúc trước mình đã làm qua và thậm chí còn nghỉ đến Web Server, nhưng thời gian không cho phép, nên mình chỉ làm xong được trang Web, còn truyền thông giao tiếp qua Web thì chưa thực hiện được, nhưng truyền thông giữa PC có RS View và 2 chương trình trên 2 PLC đã thực hiện thành công. Chỉ cần thủ thuật khai báo trong RS Link là bạn có thể truyền thông giữa 2 PLC AB và PC.
Mong bạn thành công.