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

Ergebnis 1 bis 5 von 5

Thema: Libnodave und CP5512

  1. #1
    Registriert seit
    18.07.2006
    Beiträge
    115
    Danke
    36
    Erhielt 7 Danke für 7 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ich möchte aus Excel eine Kommunikation zu einer CPU315-2 DP über CP5512 aufbauen.

    Das ganze scheitert allerdings schon am starten / stoppen der CPU.

    Hab mich schon durch diverse Beiträge gelesen, komme aber nicht weiter.

    Habe folgendes geändert:
    Code:
    Private Declare Function openS7online Lib "libnodave.dll" (ByVal peer As String, ByVal handle As Long) As Long
    Code:
    Sub stopPLC()
    Cells(1, 2) = "Testing Start PLC"
    Dim ph As Long, di As Long, dc As Long
    res = initialize(ph, di, dc)
    If res = 0 Then
        res2 = daveStop(dc)
        Cells(14, 1) = "result:"
        Cells(14, 2) = res2
    Else
        e$ = daveStrError(res)
        Cells(9, 4) = "error:"
        Cells(9, 5) = e$
    End If
    Call cleanUp(ph, di, dc)
    End Sub
    Code:
    Private Function initialize(ByRef ph As Long, ByRef di As Long, ByRef dc As Long)
    ph = 0
    di = 0
    dc = 0
    Rem uncomment the daveSetDebug... line, save your sheet
    Rem run excel from dos box with: excel yoursheet >debugout.txt
    Rem send me the file debugout.txt if you have trouble.
    Rem call daveSetDebug(daveDebugAll)
    initialize = -1
    baud$ = Cells(3, 5)
    If (baud$ = "") Then Call initTable
    Cells(12, 2) = "Running"
    res = -1
    port = Cells(2, 5)
    baud$ = Cells(3, 5)
    parity$ = Cells(4, 5)
    peer$ = Cells(7, 5)
    acspnt$ = Cells(8, 5)
    'ph = setPort(port, baud$, Asc(Left$(parity$, 1)))
    ' Alternatives:
    Rem ph = openSocket(102, peer$)    ' for ISO over TCP
    Rem ph = openSocket(1099, peer$)' for IBH NetLink
    'ph = openS7online(acspnt$) ' to use Siemes libraries for transport (s7online)
    ph = openS7online(acspnt$, res)
    Cells(2, 1) = "port handle:"
    Cells(2, 2) = ph
    If (ph > 0) Then
        di = daveNewInterface(ph, ph, "IF1", 0, daveProtoMPI, daveSpeed187k)
    ' Alternatives:
    'di = daveNewInterface(ph, ph, "IF1", 0, daveProtoPPI, daveSpeed187k)
    'di = daveNewInterface(ph, ph, "IF1", 0, daveProtoMPI_IBH, daveSpeed187k)
    'di = daveNewInterface(ph, ph, "IF1", 0, daveProtoISOTCP, daveSpeed187k)
    'di = daveNewInterface(ph, ph, "IF1", 0, daveProtoS7online, daveSpeed187k)
    '
    'You can set longer timeout here, if you have  a slow connection
    '    Call daveSetTimeout(di, 500000)
        res = daveInitAdapter(di)
        Cells(3, 1) = "result from initAdapter:"
        Cells(3, 2) = res
        If res = 0 Then
            MpiPpi = Cells(6, 5)
    '
    ' with ISO over TCP, set correct values for rack and slot of the CPU
    '
            dc = daveNewConnection(di, MpiPpi, Rack, Slot)
            res = daveConnectPLC(dc)
            Cells(4, 1) = "result from connectPLC:"
            Cells(4, 2) = res
            If res = 0 Then
                initialize = 0
            End If
        End If
    End If
    End Function
    Wobei ich mir nicht wirklich sicher bin ob das hier so richtig ist:
    Code:
    ph = openS7online(acspnt$, res)
    Zitieren Zitieren Libnodave und CP5512  

  2. #2
    Registriert seit
    27.05.2004
    Ort
    Thüringen/Berlin
    Beiträge
    12.218
    Danke
    533
    Erhielt 2.696 Danke für 1.948 Beiträge

    Standard

    Mit excel habe ich das noch nicht gemacht, aber aus einem Delphi-Programm heraus hat das funktioniert. Du mußt dazu aber Step7 auf dem PC installiert haben, denn es wird mit der dort eingerichteten Schnittstelle gearbeitet. Dazu muß die PG-Schnittstelle im Step7 auf die CP5512 eingestellt werden.
    Gruß
    Ralle

    ... there\'re 10 kinds of people ... those who understand binaries and those who don\'t …
    and the third kinds of people … those who love TIA-Portal

  3. #3
    dirknico ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    18.07.2006
    Beiträge
    115
    Danke
    36
    Erhielt 7 Danke für 7 Beiträge

    Standard

    Hmmm,

    Step7 ist installiert, die PG/PC-Schnittstelle richtig eingestellt. Bekomme ja auch zugriff über Step7 auf die Steuerung. Nur mit Excel geht es irgdwie nicht

  4. #4
    Registriert seit
    17.06.2004
    Ort
    Offenau
    Beiträge
    3.745
    Danke
    209
    Erhielt 421 Danke für 338 Beiträge

    Standard

    Vielleicht kannst du ja mal das ganze Excel File anhängen?

    Was hast du denn in Zelle 8,5 stehen ? S7ONLINE?
    ---------------------------------------------
    Jochen Kühner
    https://github.com/jogibear9988/DotN...ToolBoxLibrary - Bibliothek zur Kommunikation mit PLCs und zum öffnen von Step 5/7 Projekten
    Zitieren Zitieren Excel File...  

  5. #5
    dirknico ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    18.07.2006
    Beiträge
    115
    Danke
    36
    Erhielt 7 Danke für 7 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ja, da setht "/S7ONLINE" drin.

    Hab das ganze file mal angehängt!
    Angehängte Dateien Angehängte Dateien

Ähnliche Themen

  1. Cp5512
    Von Rudi im Forum Simatic
    Antworten: 3
    Letzter Beitrag: 15.04.2010, 18:10
  2. Cp5512
    Von sps2407 im Forum Simatic
    Antworten: 2
    Letzter Beitrag: 15.10.2006, 18:25
  3. libnodave und cp5512
    Von Praseodym im Forum Simatic
    Antworten: 1
    Letzter Beitrag: 28.09.2006, 15:44
  4. Antworten: 0
    Letzter Beitrag: 23.05.2006, 10:56
  5. CP5512
    Von ReRo im Forum Feldbusse
    Antworten: 0
    Letzter Beitrag: 26.10.2003, 15:37

Lesezeichen

Berechtigungen

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