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

Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 14 von 14

Thema: Hilfe in Sachen VB

  1. #11
    Move ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    30.01.2009
    Beiträge
    440
    Danke
    25
    Erhielt 48 Danke für 44 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hi,

    da bin ich wieder
    Das müsste am Ende passieren:

    Private Sub worksheet_change(ByVal Selection As Range)
    '----------- Only if cell "B3" changes, write this value
    If Selection <> Range("B2") Then Exit Sub
    Values(1) = Selection.Cells.Value
    '----------- Write the new value in synchronous mode
    MyOPCGroup.SyncWrite 1, ServerHandles, Values, Errors
    End Sub

    Ok der Kommentar passt nicht, ursprünglich wurde der Wert in B3 geändert, dann wurde der Wert B3 übegeben und in B2 wieder ausgegeben.
    Das habe ich geändert, ich ändere jetzt den Wert in B2 und er landet dann in der Variable.
    Gruß
    Move

  2. #12
    Registriert seit
    22.03.2007
    Ort
    Detmold (im Lipperland)
    Beiträge
    11.718
    Danke
    398
    Erhielt 2.400 Danke für 2.000 Beiträge

    Standard

    Hallo ... ich bin auch wieder da ...

    OK ... wenn das so ist dann würde ich den letzten Teil mal so ändern :
    Code:
    Private Sub worksheet_change(ByVal Selection As Range)
      Values(1) = Range("B2").Value
       Values(2) = Range("B3").Value  'ich habe deinen nächsten Wert hier einfach mal in B3 verwiesen ...
        MyOPCGroup.SyncWrite 2, ServerHandles, Values, Errors
    ' die IF-Geschichte kannst du dir hier jetzt sparen - war sowieso "fragwürdig"
    End Sub
    versuch das mal ...
    Vorausetzung ist aber, dass die schon genannte ItemID(2) auf die entsprechende andere Variable verweist ...

    Schreib mal, was dabei heraus gekommen ist ...
    Gruß
    Larry

  3. #13
    Move ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    30.01.2009
    Beiträge
    440
    Danke
    25
    Erhielt 48 Danke für 44 Beiträge

    Standard

    Hi,

    danke für deinen Einsatz, ich werde das ganze mal in den nächsten Tagen austesten und melde mich dann wieder was dabei rausgekommen ist.
    Gruß
    Move

  4. #14
    Registriert seit
    27.10.2009
    Beiträge
    317
    Danke
    0
    Erhielt 64 Danke für 54 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    das sollte so klappen:
    1) Deklaration, die DIM Arrays entsprechend der Anzahl der Items vergrößern (schöner wäre hier die Spalte "A" zu durchsuchen ob sie <>"" ist und entsprechend mitzählen ob eine ItemID existiert. Diesen "NumberOfItems" kann man dann für Redim der Arrays nutzen und auch als Obergrenze in den for-Schleifen und in den OPC-Mengenaufrufen "AddItems" und "SyncWrite")
    Code:
    Dim ClientHandles(10) As Long
    Dim Values(10) As Variant
    Dim ItemIDs(10) As String
    2) vor dem AddItems die ClientHandles und die ItemIDs zuweisen
    Code:
    Dim i as integer
    for i=1 to 10
     ClientHandles(i) = i
     ItemIDs(i) = Range("A" & i+1).Value
    next
    3) dann den eigentlichen AddItems anpassen
    Code:
    MyOPCItemColl.AddItems 10, ItemIDs, ClientHandles, ServerHandles, Errors
    4) im event handler erst alle Werte zuweisen und dann alle schreiben
    Code:
    Dim i as integer
    for i=1 to 10
      Values(i) = Range("B" & i+1).Value
    next
    MyOPCGroup.SyncWrite 10, ServerHandles, Values, Errors
    ACHTUNG: geschrieben wird nun ALLES (egal welche Zelle einen neuen Wert bekommen hat)

  5. Folgender Benutzer sagt Danke zu Dr. OPC für den nützlichen Beitrag:

    Move (28.02.2011)

Ähnliche Themen

  1. 2 Sachen Aufeinmal^^
    Von TechnikFreak10 im Forum Simatic
    Antworten: 6
    Letzter Beitrag: 01.05.2010, 19:15
  2. S5 - komische Sachen in Querverweisliste
    Von Hucky im Forum Simatic
    Antworten: 2
    Letzter Beitrag: 23.02.2010, 06:18
  3. Verk. div. S5-115U Sachen
    Von iselber im Forum Suche - Biete
    Antworten: 2
    Letzter Beitrag: 21.08.2009, 09:10
  4. Div. S7 Sachen günstig zu verkaufen!
    Von IBN_Christian im Forum Suche - Biete
    Antworten: 1
    Letzter Beitrag: 27.05.2007, 21:35
  5. sachen gibts, bei ebay
    Von SICHEL im Forum Stammtisch
    Antworten: 3
    Letzter Beitrag: 13.04.2006, 18:41

Lesezeichen

Berechtigungen

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