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

Ergebnis 1 bis 2 von 2

Thema: suche dringend Hilfe ( OPC DA Client,Excel, VBA)

  1. #1
    Registriert seit
    12.06.2013
    Beiträge
    1
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Unglücklich


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo Leute,
    Ich habe ein OPC DA Client geschrieben. Irgendwie läuft es einfach nicht. Könnte jemand es mal sich anschauen? Es wäre nett.



    Dim MyItem(300) As OPCItem
    Dim MyItems As OPCItems
    Dim MyGroup As OPCGroup
    Dim MyGroups As OPCGroups
    Dim MyOPCServer As OPCServer





    Dim isserverstarted As Boolean
    Dim isgroupadded As Boolean
    Dim isitemadded(2) As Boolean


    Dim MyOPCItemID(300) As String
    Dim addItemCount As Long
    Dim MyOPCItemIDs(300) As String


    Dim clienthandles(300) As Long
    Dim serverhandles(300) As Long


    Dim Source As Integer
    Dim Value(300) As Variant
    Dim Quality(300) As Variant
    Dim Timestamp(300) As Variant
    Dim Errors() As Long


    Dim allopcservers As Variant




    Dim i As Integer








    Public Sub Probe()
    Set MyOPCServer = New OPCServer


    allopcservers = MyOPCServer.GetOPCServers


    For i = 1 To UBound(allopcservers)
    Cells(i, 1) = "gefundener Server Nr. " + CStr(i) + ":" + (allopcservers(i))
    Next i
    MyOPCServer.Connect (allopcservers(1))

    Dim MyOPCServerBrowser As OPCBrowser
    Set MyOPCServerBrowser = MyOPCServer.CreateBrowser
    MyOPCServerBrowser.ShowBranches
    MyOPCServerBrowser.MoveDown (MyOPCServerBrowser.item(1))
    MyOPCServerBrowser.DataType = vbInteger
    MyOPCServerBrowser.ShowLeafs
    Cells(1, 2) = MyOPCServerBrowser.Count & " Register"
    Dim name As Variant
    For i = 1 To MyOPCServerBrowser.Count
    MyOPCItemIDs(i) = MyOPCServerBrowser.item(i)
    Cells(i + 10, 10) = MyOPCItemIDs(i)
    Cells(i + 10, 3) = ""
    Next i



    Dim mygroupname As String
    mygroupname = "random"

    Set MyGroups = MyOPCServer.OPCGroups
    Set MyGroup = MyGroups.Add(mygroupname)

    MyGroup.UpdateRate = 1000
    MyGroup.IsActive = True
    MyGroup.IsSubscribed = True

    Set MyItems = MyGroup.OPCItems



    Source = OPC_DS_Cache

    For i = 1 To MyOPCServerBrowser.Count
    clienthandles(i) = i
    serverhandles(i) = i

    Set MyItem(i) = MyGroup.OPCItems.additem(MyOPCItemIDs(i), clienthandles(i))

    'serverhandles(i) = MyItem(i).ServerHandle

    'Set OPCItem = OPCItems.GetOPCItem(serverhandles(i))
    'Cells(i + 10, 14) = MyItem(i).ItemID

    Next i

    Cells(i + 10, 1) = serverhandles(i)





    Dim NumItems As Long
    NumItems = MyOPCServerBrowser.Count





    Call MyGroup.SyncRead(OPCCache, NumItems, serverhandles(), Value(), Errors(), Quality(), Timestamp())


    Cells(i + 10, 2) = MyOPCItemIDs(i)
    Cells(10 + i, 7) = Value(i)
    Cells(10 + i, = Timestamp(i)
    Cells(10 + i, 9) = Quality(i)




    End Sub


    Gruß
    Zitieren Zitieren suche dringend Hilfe ( OPC DA Client,Excel, VBA)  

  2. #2
    Registriert seit
    13.07.2011
    Ort
    nähe Köln
    Beiträge
    172
    Danke
    25
    Erhielt 38 Danke für 25 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Kommentare im Quellcode sind ne tolle Erfindung so könnte man schneller verstehen was du da machen möchtest.

Ähnliche Themen

  1. Siemens S7 kommunikation mit EXCEL VBA OPC Client
    Von bobby765 im Forum Hochsprachen - OPC
    Antworten: 4
    Letzter Beitrag: 01.08.2011, 15:54
  2. OPC Client (Excel & VBA)
    Von WinCCPapst im Forum Programmierstrategien
    Antworten: 5
    Letzter Beitrag: 22.07.2011, 20:45
  3. Excel OPC Client über Netzwerk auf OPC Server
    Von magmaa im Forum Hochsprachen - OPC
    Antworten: 29
    Letzter Beitrag: 27.02.2010, 17:52
  4. OPA AE Client in Excel VBA 2007
    Von MarkusMA im Forum Hochsprachen - OPC
    Antworten: 4
    Letzter Beitrag: 14.11.2008, 23:39
  5. Brauche dringend Hilfe OPC Excel
    Von Anonymous im Forum Hochsprachen - OPC
    Antworten: 12
    Letzter Beitrag: 18.08.2005, 16:06

Stichworte

Lesezeichen

Berechtigungen

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