Đăng Ký
Kết quả 1 đến 6 của 6
  1. #1
    Thành viên cấp 2
    Ngày tham gia
    Jun 2011
    Bài viết
    80
    Thanks
    8
    0 lượt trong 0 bài viết

    Kết nối VB6.0 với PLC Omron thông qua OPC Server Omron.

    Hiện tại mình đang dùng VB6.0 để kết nối PLC Omron , OPC mình đang dùng là của Omron luôn.
    Ai có kinh nghiệm về vấn đề này xin chia sẻ giúp mình, mình kết nối hoài mà vẫn không được.:|
    Thanks nhiều!!!

  2. #2
    Thành viên cấp 1
    Ngày tham gia
    Jul 2011
    Bài viết
    14
    Thanks
    1
    0 lượt trong 0 bài viết
    Bạn cho mình hỏi mục đích của bạn để làm gì thế? nếu để làm HMI hoặc SCADA thì bạn có thể dùng chương trình CX_supervisor của omron để làm việc đó. Nếu không bạn có thể dùng soft SCADA của một hãng khác (Ví dụ Wincc siemens, RSview32 và Factory talk View của Rockwell) kết hợp với 1 OPC server (Như KepserverEX hoặc Top server) để làm việc đó.

  3. #3
    Thành viên cấp 2
    Ngày tham gia
    Jun 2011
    Bài viết
    80
    Thanks
    8
    0 lượt trong 0 bài viết
    Trích dẫn Gửi bởi Cung_api Xem bài viết
    Bạn cho mình hỏi mục đích của bạn để làm gì thế? nếu để làm HMI hoặc SCADA thì bạn có thể dùng chương trình CX_supervisor của omron để làm việc đó. Nếu không bạn có thể dùng soft SCADA của một hãng khác (Ví dụ Wincc siemens, RSview32 và Factory talk View của Rockwell) kết hợp với 1 OPC server (Như KepserverEX hoặc Top server) để làm việc đó.
    Mình dùng VB6.0 để làm HMI cho plc Omron và OPC của Omron , mình ko dùng thằng khác là vì VB6.0 mình đã viết được code để điều khiển sẻvo motor. Hiện tại mình đã điều khiển được nhưng tốc độ hơi chậm , đang tìm cách tăng tốc độ điều khiển của nó.

  4. #4
    Thành viên cấp 1
    Ngày tham gia
    Aug 2011
    Bài viết
    12
    Thanks
    0
    0 lượt trong 0 bài viết
    anh tonyluong có thể up phần code viết trên VB6.0 cho anh e tham khảo với được không? e cũng đang viết cái này mà chưa biết viết thế nào ah.

  5. #5
    Thành viên cấp 9
    Ngày tham gia
    Apr 2011
    Bài viết
    954
    Thanks
    22
    124 lượt trong 97 bài viết
    Trích dẫn Gửi bởi tranhuy84 Xem bài viết
    anh tonyluong có thể up phần code viết trên VB6.0 cho anh e tham khảo với được không? e cũng đang viết cái này mà chưa biết viết thế nào ah.
    đúng rồi biết thì cho anh em học hỏi ,anh em biết cái khác chỉ lại cho ,chẳng mất cái gì hết

  6. #6
    Thành viên cấp 2
    Ngày tham gia
    Jun 2011
    Bài viết
    80
    Thanks
    8
    0 lượt trong 0 bài viết
    Trích dẫn Gửi bởi daocongdabl Xem bài viết
    đúng rồi biết thì cho anh em học hỏi ,anh em biết cái khác chỉ lại cho ,chẳng mất cái gì hết
    Đây là code mình viết để đọc file và thực thi lệnh từ 1 phần mềm lập trình máy căt CNC ( vd như mình cần đục lỗ bao
    có hình dạng như thê nào, khoảng cách ra sao và bô tri trên tấm tole thê nào...), đoạn code này có nv đọc từng dòng do phần mềm này xuạt ra và điều khiển sẻvo chạy. Các bac xem và cho ý kiến:
    Public Sub StartEuromac_NC(NCStep)
    Dim Step, Code As String
    'Set Focus on NC code list
    With MainForm.MSF
    .Row = NCStep
    .Col = 0
    Step = .Text
    .Col = 1
    Code = .Text
    .SetFocus
    End With
    'Display NC code
    MainForm.NCCode_Line = "Step " & Step & " : " & Code
    '************************************************* *********
    'Process NC code
    '************************************************* *********
    'Round tool
    If InStr(Code, "TONDO") <> 0 Then
    Tool = RoundTool(Code) 'get tool and toolAngle
    Call LoadTool(Tool, ToolAngle)
    'Square tool
    ElseIf InStr(Code, "QUADRO") <> 0 Then
    Tool = SquareTool(Code) 'get tool and toolAngle
    Call LoadTool(Tool, ToolAngle)
    'Oblong tool
    ElseIf InStr(Code, "ASOLA") <> 0 Then
    Tool = OblongTool(Code) 'get tool and toolAngle
    Call LoadTool(Tool, ToolAngle)
    'Rectangle tool
    ElseIf InStr(Code, "RETTANGOLARE") <> 0 Then
    Tool = RectangleTool(Code) 'get tool and toolAngle
    Call LoadTool(Tool, ToolAngle)

    '-------------Move and punch-------------------
    'COLPO X,Y (Move and Punch Function)
    ElseIf InStr(Code, "COLPO") <> 0 Then
    '-------------- X co-ordinator---------
    X = Get_X(Code)
    DeltaX = X - Xtmp
    Xtmp = X
    Call ServoXDirection(DeltaX)
    XPulse = Abs(DeltaX) / 0.058 'Absolute Value
    XPulse = Round(XPulse, 0)
    MainForm.LabelX = "X = " & (X)
    MainForm.LabelDeltaX = "Delta X : " & (DeltaX)
    '-------------- Y co-ordinator---------
    Y = Get_Y(Code)
    DeltaY = Y - Ytmp
    Ytmp = Y
    Call ServoYDirection(DeltaY)
    YPulse = Abs(DeltaY) / 0.025 'Absolute Value
    YPulse = Round(YPulse, 0)
    MainForm.LabelY = "Y = " & (Y)
    MainForm.LabelDeltaY = "Delta Y : " & (DeltaY)
    Punch = True 'cOULPO = PUNCH
    PunchDownLimit = 200
    PunchUpLimit = 1500
    Call MoveandPunch
    'End COPO function
    '-------------Reposition---------------
    ElseIf InStr(Code, "RIPOSIZIONA") <> 0 Then
    X = Get_X(Code)
    DeltaX = X
    MainForm.LabelDeltaX = "Delta X : " & (DeltaX)
    Y = Get_Y(Code)
    DeltaY = Y
    MainForm.LabelDeltaY = "Delta Y : " & (DeltaY)
    Call MessageBox("REPOSITIONING")

    '---------------Load material------------------
    ElseIf InStr(Code, "CARICO") <> 0 Then
    X = 200 'XPIN
    DeltaX = X - Xtmp
    Xtmp = X
    MainForm.LabelX = "X = " & (X)
    MainForm.LabelDeltaX = "Delta X : " & (DeltaX)
    Y = Get_Y(Code)
    DeltaY = Y - Ytmp
    Ytmp = Y
    MainForm.LabelY = "Y = " & (Y)
    MainForm.LabelDeltaY = "Delta Y : " & (DeltaY)
    Call MessageBox("LOAD MATERIAL")
    End If
    End Sub

Đánh dấu

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Back to Top