Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 7 von 7

Thema: S7 200 mit Netlink (? Lan) an PC

  1. #1
    Registriert seit
    13.03.2007
    Ort
    Nürnberg
    Beiträge
    563
    Danke
    56
    Erhielt 51 Danke für 46 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo Gemeinde,

    ich müsste eine S7 200 mit Netlink mit einem PC verbinden um z.b. ein paar Worte im V speicher zu ändern.
    (Mit Netlink Lite und S7 300, geht es bereits, eigenes kleines VB-Programm).
    (Mit VB und Libnodave und einem PPI-Adapter komme ich auch an die S7 200)

    Aber per Lan an die 200, muss ich dafür echt den Netlink pro für ca. 550 Euro kaufen?
    Gehts günstiger? (S7 224 mit ein paar I/O sonst nix)

    gruss
    Kabelsalat ist Gesund
    (vom CCC abgekupfert)

    Prognosen sind schwierig,
    besonders wenn sie die Zukunft betreffen.
    (Ursprung nicht wirklich bekannt)


    Zitieren Zitieren S7 200 mit Netlink (? Lan) an PC  

  2. #2
    Registriert seit
    27.10.2005
    Ort
    Schwäbisch Gmünd
    Beiträge
    5.224
    Danke
    630
    Erhielt 955 Danke für 769 Beiträge

    Standard

    Das sollte doch auch mit den NetLink lite gehen.
    Rainer Hönle
    DELTA LOGIC GmbH

    Ein Computer kann das menschliche Gehirn nicht ersetzen. Engstirnigkeit kann unmöglich simuliert werden. (Gerd W. Heyse)

  3. #3
    Registriert seit
    13.03.2007
    Ort
    Nürnberg
    Beiträge
    563
    Danke
    56
    Erhielt 51 Danke für 46 Beiträge

    Standard

    Zitat Zitat von Rainer Hönle Beitrag anzeigen
    Das sollte doch auch mit den NetLink lite gehen.
    habe ich gestern ausprobiert.
    man kann das PPI statt MPI einstellen. jedoch kommt weder Mikrowin, noch LibNoDave online.
    habs mit verschiedenen einstellungen probiert.
    (zur s7-300 mit MPI geht alles.)

    kann eigentlich LibNoDave mit einem USB/PPI zur S7-200 connecten?

    anbei die Verbindungsversuche

    Code:
    Public Const CONNECTION_TYP_AS511 = 0
    Public Const CONNECTION_TYP_MPI = 1
    Public Const CONNECTION_TYP_MPI_IBH = 2
    Public Const CONNECTION_TYP_PPI_IBH = 3
    Public Const CONNECTION_TYP_PPI = 4
    
    ...
    Function StartUp() As String
    Dim Verbindung As String
    
        Connected = False
        
        Verbindung = "COM" + CStr(ComPortNr)
        ConnTyp = CONNECTION_TYP_PPI
        If TEST_S7_300 Then
            ConnTyp = CONNECTION_TYP_PPI_IBH ' geht nicht
            ConnTyp = CONNECTION_TYP_MPI_IBH ' geht
        End If
        
        If ONLINEMODE Then
            StartUp = Connect(ConnTyp, Verbindung)
        End If
        
    End Function
    
    
    Function Connect(iTyp As Integer, Verbindung As String) As String
    Dim RetCode As Long
    Dim l As Long
    
        Select Case iTyp
        Case 0:
            ' here MyParam have to edit
            MyParam.sIP = Verbindung ' "COM1"
            MyParam.iDaveCOMPORT = Right(Verbindung, 1) ' 1
            MyParam.iDaveProtoll = daveProtoAS511
            MyParam.iDaveLocaleMPI = 0
            MyParam.iDaveSpeed = daveSpeed187k
            MyParam.iDaveMPI = 2
            MyParam.iDaveRACK = 0
            MyParam.iDaveSLOT = 0
        Case 1:
            ' here MyParam have to edit
            MyParam.sIP = Verbindung ' "192.168.0.62"
            MyParam.sIP = "192.168.0.62"
            MyParam.iPort = 1099
            MyParam.iDaveProtoll = daveProtoMPI
            MyParam.iDaveLocaleMPI = 2
            MyParam.iDaveSpeed = daveSpeed187k
            MyParam.iDaveMPI = 2
            MyParam.iDaveRACK = 0
            MyParam.iDaveSLOT = 0
        Case 2:
            ' here MyParam complet
            MyParam.sIP = Verbindung ' "192.168.0.62"
            MyParam.sIP = "192.168.0.62"
            MyParam.iPort = 1099
            MyParam.iDaveProtoll = daveProtoMPI_IBH
            MyParam.iDaveLocaleMPI = 2
            MyParam.iDaveSpeed = daveSpeed187k
            MyParam.iDaveMPI = 2
            MyParam.iDaveRACK = 0
            MyParam.iDaveSLOT = 0
        Case 3:
            ' here MyParam have to edit
            MyParam.sIP = Verbindung ' "192.168.0.62"
            MyParam.sIP = "192.168.0.62"
            MyParam.iPort = 1099
            MyParam.iDaveProtoll = daveProtoPPI_IBH
            MyParam.iDaveLocaleMPI = 2
            MyParam.iDaveSpeed = daveSpeed19k
            MyParam.iDaveMPI = 2
            MyParam.iDaveRACK = 0
            MyParam.iDaveSLOT = 0
            
        Case 4:
            ' here MyParam have to edit
            MyParam.sIP = Verbindung ' "COM1"
            MyParam.iDaveCOMPORT = ComPortNr ' Right(Verbindung, 1) ' 1
            MyParam.iDaveProtoll = daveProtoPPI
    '            MyParam.iDaveProtoll = daveSpeed19k
            MyParam.iDaveLocaleMPI = 0
            MyParam.iDaveSpeed = daveSpeed9k
            MyParam.iDaveMPI = 2
            MyParam.iDaveRACK = 0
            MyParam.iDaveSLOT = 0
        End Select
    
        DoEvents
        
        
        If iTyp = 0 Or iTyp = 4 Then ' serial AS511, PPI
            hSocket = setPort("COM" + CStr(MyParam.iDaveCOMPORT), "9600", Asc("E"))
        Else
            '    hSocket = openSocket(102, S7_IP) ' for ISO over TCP, siehe Doku zu libnodave
            ' 102 geht nicht bei NetLink Lite
            hSocket = openSocket(MyParam.iPort, MyParam.sIP)
        End If
        
        If hSocket > 0 Then
            
            hInterface = daveNewInterface(hSocket, hSocket, "Roberts_Verbindung", MyParam.iDaveLocaleMPI, MyParam.iDaveProtoll, MyParam.iDaveSpeed)
            
            l = daveGetTimeout(hInterface)
            Debug.Print "daveGetTimeout a "; l
            Call daveSetTimeout(hInterface, 2 * l)
            l = daveGetTimeout(hInterface)
            Debug.Print "daveGetTimeout b "; l
            
    '        RetCode = daveInitAdapter(hInterface)
            RetCode = daveResOK
            If RetCode = daveResOK Then
           
    '            lblConnect.Caption = "connection to " & MyParam.sDaveProtoll & " Adapter ok"
    '            lblConnect.BackColor = vbYellow
                DoEvents
                
                hConnection = daveNewConnection(hInterface, MyParam.iDaveMPI, MyParam.iDaveRACK, MyParam.iDaveSLOT)
                
                RetCode = daveConnectPLC(hConnection)
                If RetCode = daveResOK Then
                    Connect = "OK"
                    Connected = True
                Else
                    Connect = "Error Connection"
                End If
                        
            End If
        Else
            Connect = "Error Protokoll / Socket / ComPort"
        End If
        
    End Function
    Kabelsalat ist Gesund
    (vom CCC abgekupfert)

    Prognosen sind schwierig,
    besonders wenn sie die Zukunft betreffen.
    (Ursprung nicht wirklich bekannt)



  4. #4
    Registriert seit
    08.08.2007
    Ort
    Dresden
    Beiträge
    9.648
    Danke
    1.059
    Erhielt 2.046 Danke für 1.627 Beiträge

    Standard

    habe gute Erfahrungen mit dem IBH Link S7 Plus gemacht
    Liste unter 500,- europ. Mark
    [SIGNATUR]
    Ironie setzt Intelligenz beim Empfänger voraus.
    [/SIGNATUR]

  5. #5
    Registriert seit
    27.11.2011
    Beiträge
    43
    Danke
    3
    Erhielt 0 Danke für 0 Beiträge

    Standard

    SPS Daten zum PC senden über eine Socket Schnittstelle aber wie???Hallo zusammen,ich hab ein kleines Problem, da komme ich irgendwie nicht weiter. Ich möchte mit C++ eine TCP Socket Schnittstelle programmieren, die mit einer CP 343-1 von Siemens kommuniziert soll. Das Problem ist das ich nicht weiß wie ich das Protokoll verarbeiten soll, da Siemens keine Anleitung für die Socket Schnittstelle zur Verfügung stellt. Es wird immer von den Send\Recv und fetch\write Bausteinen gesprochen.Habt Ihr eine Idee wie ich das angehen soll?Würde mich über eine Antwort freuen. Vielen Dank.

  6. #6
    Registriert seit
    10.03.2009
    Ort
    Verl
    Beiträge
    596
    Danke
    268
    Erhielt 133 Danke für 112 Beiträge

    Standard

    Wieso das Rad neu erfinden, wenn es bereits fertige Bibliotheken gibt? Libnodave, Prodave oder ACCON-AGLink...
    Viele Grüße

    Sven Rothenpieler


    Es gibt 3 Arten von Menschen - die, die zählen können und die, die es nicht können!


  7. #7
    Registriert seit
    27.11.2011
    Beiträge
    43
    Danke
    3
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ich weiß das es mit Libnodave geht, dies ist allerdings eine nicht kommerzielle Bibliothek eines Programmierers.
    Die muss ich mit C++ machen

Ähnliche Themen

  1. Netlink
    Von stricky im Forum Simatic
    Antworten: 7
    Letzter Beitrag: 26.08.2009, 17:58
  2. netLink 50 MPI 416 CPU
    Von röhrengertl im Forum Simatic
    Antworten: 8
    Letzter Beitrag: 13.02.2009, 13:52
  3. Netlink und OP3
    Von Chi im Forum HMI
    Antworten: 7
    Letzter Beitrag: 24.04.2007, 14:17
  4. Antworten: 8
    Letzter Beitrag: 19.09.2006, 12:50
  5. Die neue NetLink-Generation: NetLink-PRO und NetLink-USB
    Von Gerhard Bäurle im Forum Werbung und Produktneuheiten
    Antworten: 17
    Letzter Beitrag: 28.02.2006, 07:46

Stichworte

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •