Wie VBA Scripte mit der S7 verbinden

[Rabi]

Du müsstest versuchen wie genau der EventHandler funktioniert, leider bekomme ich vom Object Model dafür keine genauere Information.

Ich denke das Event löst nur einmal aus wenn sich mehrere Variablen in deinem OnlineContainer im gleichen Moment ändern.
Dann kannst du alle abfangen und in einem Aufruf abarbeiten.

Das normale _Changed Event wird für jede einzelne Variable aufgerufen.


Da du ja nur 2 Variablen verwendest auf die du immer reagieren musst reicht dir sicherlich der normale _SingleChanged.
Der BulkMode macht eigentlich nur Sinn wenn du wirklich sehr sehr viele Variablen hast die gleichzeitig den Wert ändern könnten.

Wie viele Tasks gleichzeitig gestartet werden können hängt von deiner Prozessorleistung und dem Vorgang innerhalb der Tasks ab.
In deinem Fall sind die Tasks ja sofort wieder beendet da keine langen Prozeduren durchlaufen werden. Eine Datei ist sofort erstellt und auch sofort kopiert.

Mit deinem Programm sollten auch mehrere 100 Tasks parallel laufen können ohne dass du etwas davon merkst.

[tommylik]

Hallo Rabi,

Vielen Dank für deine Antwort.

Ich habe das AddIn mal ausprobiert. Es funktioniert nicht.
Ich kann aber auch nicht sagen ob das Projekt Service Extension überhaupt läuft.
Man sieht ja gar nichts.
Wie kann ich überprüfen ob das Extension mit der RT mit geladen wurde.
Wie kann ich überhaupt prüfen ob der Code funktioniert.

Ich habe einfach mal auf die Play Taste gedrückt im Visual Studio und habe in der Ausgabe folgendes bekommen:

Anmerkung 2021-01-12 135149.jpg

So wie ich das verstehe blockiert sich da was gegenseitig.


Mfg Tommylik

[tommylik]

Hallo Rabi,

Ich habe noch nicht viel erreicht aber so viel das folgendes fehlte:

DefaultStartMode=DefaultStartupModes.Auto

Damit der Service automatisch startet.

Dann habe ich mal das ausprobiert:

            // configure all the variables
            ExportPath = @"D:\S7_Export\AppData";
            // String 12 für den Ordnernamen
            strOrdner = String.Format((string)SPSVariables[1].GetValue(0), "############");


            MessageBox.Show(strOrdner);
            MessageBox.Show(ExportPath);

Die MessageBox hat schonmal funktioniert somit ist klar das der OnlineContainer funktioniert.
Und die richtigen Variable wurden auch übergeben.

Was noch nicht funktioniert ist das der Ordner erstellt wird.
Weil der Service nicht dauerhaft läuft.

Um das zu Testen musste ich den Service manuell über einen Button starten.

Was fehlt hier noch?

Mfg Tommylik

[Rabi]

Hallo,

ich habe festgestellt dass anscheinend die Start-Funktion früher aufgerufen wird als die Variablen initialisiert sind.
Dadurch läufst du relativ früh in deine Exception. Ebenfalls hab ich mit dem Foreach einen kleinen Gedankenfehler gehabt und habe dort jetzt die Objekte auf != null geprüft.

Im Anhang findest du die gesamte Extension. Das erstellen der Ordner habe ich getestet, für Testzwecke habe ich die Messageboxes noch drinnen gelassen.

Ev. kannst du damit noch etwas anfangen.

[tommylik]

Hallo Rabi,

Super vielen Dank für deine tolle Unterstützung.

Wenn du mal Zeit hast kannst du mir das mit der VariableSubscription erklären. Wofür ist die.
Du hattest ja am Anfang schon gesagt das es mit einer Klasse am Besten wäre.
Wie Hängen diese beiden Skripte zusammen ProjectServiceExtension.cs und TommyClass.cs??
Wie ist von der Reihenfolge der Ablauf. In beiden Dateien ist eine Start Methode.

Vielen Dank nochmal für deine super Hilfe.

Mfg Tommylik

[tommylik]

Hallo Rabi,

Also der Service ist zwar jetzt gestartet aber es passiert nichts wenn ich z. B. den Trigger für Ordner erstellen setze.
Dann ist mir aufgefallen das die RT sehr sehr lange brauch bis sie gestartet ist. >1 Min. Vorher war sie in ca. 20s gestartet.
Ist das so wenn AddIns mit an Board sind das die RT langsamer startet oder deutet das noch auf einen Fehler hin??

Dann wäre es gut wenn wir mal abgleichen wie Du die Variablen in der SPS nutzt und wie Du Sie in Zenon angelegt hast.
Denn du sagtest das es bei dir funktioniert bei mir leider nicht.

So sind sie bei mir angelegt.

Screenshot 2021-01-16 080006.png

Die SPS funktioniert bei mir so:

Mit einem Merker wird aus einem Typverwaltungs-DB mit 2 BLKMOV der Prägecode in 2 Strings in den DB2280 kopiert.
Und für den Ordnername noch ein L oder R extra. Deswegen String 12 für den Ordnernamen.
Nach einer kurzen ASV wird der Merker gesetzt der dann das Ordnererstellen auslösen soll.
Ist der Ordner erstellt setzt Zenon den Merker wieder zurück. Wenn nicht gibt es einen Hinweis mit PDE_NoFolder.

Vielen Dank nochmal für deine Hilfe.

Mfg Tommylik

[Rabi]

Hallo,

wie gesagt du müsstest nochmal prüfen ob das Object Model von der 8.20 (die ich verwende) und der 7.60 (die du hast) ident sind.
Sonst könnte es sein dass wir bereits beim definieren von irgendwelchen Methoden in den try-catch Block laufen.

Jetzt wird es für mich leider sehr schwierig das Problem so ausfindig zu machen.
Bitte prüfe noch einmal ob deine Variablen wirklich alle auf "Extern Visible" gestellt sind unter den Externen Einstellungen jeder Variable.

Ggf. könntest du noch prüfen welche diese Eigenschaft alle haben, da zu Start der Runtime alle Variablen mit dieser Eigenschaft automatisch in die VariableCollection geschoben werden.
Das könnte eventuell deinen RT-Start verzögern, oder eben die falschen Aufrufe in deinem AddIn.


Ich würde dir dazu empfehlen dass du das Kapitel "Debugging" für die AddIns in dem Copa-Data Handbuch anschaust und prüfst wo genau das AddIn nicht mehr funktioniert:
http://download.copadata.com/fileadm...ittstellen.pdf
P.S.: Du kannst auch ein VBA AddIn erstellen, wäre für dich vielleicht einfacher da du ja mit C# nicht wirklich Erfahrung hast (findest du ebenfalls beim Projekt erstellen unter SCADA).
Dort kannst du das gewohnte VBA Object Model verwenden. Auch wenn das VBA und C# Object Model fast ident sind, gibt es doch kleine aber feine Unterschiede.

Wie genau der Ablauf von deiner Steuerung ist, sollte in diesem Sinne relativ egal sein.


Zwecks der vorherigen Frage:
Die ProjectExtension ist einfach eine Klasse die vom Interface IProjectServiceExtension erbt. Würde die nicht implementiert sein würde das AddIn einfach nicht aufgerufen werden.
Innerhalb dieser Klasse wird eben dann die Klasse "TommyClass" deklariert und dementsprechend Werte zugewiesen.
Ebenfalls abonniert die TommyClass auch noch das Event "_Changed" und "_BulkChanged" von der Klasse ProjectExtension.

Hier wird es bald kompliziert das ganze zu erklären weil dir dort leider das Grundwissen fehlt was genau ein Event ist und wieso es abonniert werden muss.


Hoffe ich konnte dir trotzdem noch etwas weiterhelfen.

[tommylik]

Hallo Rabi,


Vielen Dank für deine Antwort.


Also wenn es für dich jetzt schon schwer wird dann gute Nacht für mich.
Wie kann ich den das Object Model 7.60 mit 8.20 vergleichen ich habe ja kein 8.20?

Ok habe ich gefunden Siehe unten.


Ich habe alle Variablen auf Extern Visible gestellt keine Änderung mit dem Laden immer noch sehr langsam.
Also die Eigenschaften der Variablen sind soweit gleich bis auf den Unterschied zwischen den beiden String Variablen den vier Bool Variablen.


Das Debugging werde ich mir mal anschauen.
Also jetzt das ganze von vorne mit VB.net muss nicht sein. Vor allem gibt es da keine Beispiele ProjectServiceExtension von Copa Data.


Ich habe mal Debuggen gestartet kannst du mit diesen Fehlermeldungen etwas anfangen??


Screenshot 2021-01-18 203218.jpg


Du hast anscheinend Recht das eine Methode oder mehrere in den try-catch Block laufen.


Weil im I-Net steht das 0x80070057 darauf Hinweist das Eigenschaften oder Argumente nicht stimmen.


Ein Beispiel AddIn Beispiel für 7.60


https://onlinehelp.copadata.com/help...er-Changed.htm


und eins für 8.20


https://onlinehelp.copadata.com/help...er-Changed.htm


Ich werde mal versuchen das Beispiel von 7.60 umsetzen vielleicht erstmal ohne Task.


Hier gibt es auch noch ein Beispiel mit Task für die 7.60.


https://onlinehelp.copadata.com/help...Collection.htm




Vielen Dank nochmal für deine Hilfe.


Mfg Tommylik