nobby_nobbs
Level-1
- Beiträge
- 31
- Reaktionspunkte
- 3
-> Hier kostenlos registrieren
Hallo Zusammen
Auf meiner Visu möchte ich über einen Button einen Wert in die Steuerung übernehmen. Allerdings möchte ich zuerst eine Abfrage mache: "Wollen Sie die neue Position übernhemen??"
Mit WinCC flex klappt das auch ganz gut. Alledings müsste ich jetzt noch alte Anlagen aufrüsten die noch mit einer Protool RT laufen. Ich habe folgendes Script erstellt:
leider kann das Script so nich kompiliert werden. Wenn ich das Script so abändere funktionierts:
nur wie kriege ich so den Rückgabewert des Popuppes???
vielen dank für jedwedige hilfe
Auf meiner Visu möchte ich über einen Button einen Wert in die Steuerung übernehmen. Allerdings möchte ich zuerst eine Abfrage mache: "Wollen Sie die neue Position übernhemen??"
Mit WinCC flex klappt das auch ganz gut. Alledings müsste ich jetzt noch alte Anlagen aufrüsten die noch mit einer Protool RT laufen. Ich habe folgendes Script erstellt:
Code:
Dim ausgabe,abfrage,meldung,hilfsvariable
Dim positionswert
positionswert = CStr(wert_new)
Set ausgabe = CreateObject("WScript.Shell")
Set meldung = CreateObject("WScript.Shell")
abfrage=ausgabe.Popup "Wollen Sie die Position "+zusatz+" auf "+positionswert+" ändern?", , "Neuer Positionswert", 4096+1
If abfrage = 1 Then
If auto = true Then
meldung.Popup "Anlage muss im Handbetrieb sein um Servopositionen zu ändern", , "Anlage nicht im Handbetrieb", 4096
Else
wert_uebernehmen=wert_new
End If
End If
If abfrage = 2 Then
wert_uebernehmen=wert_old
End If
Code:
Dim ausgabe,abfrage,meldung,hilfsvariable
Dim positionswert
positionswert = CStr(wert_new)
Set ausgabe = CreateObject("WScript.Shell")
Set meldung = CreateObject("WScript.Shell")
ausgabe.Popup "Wollen Sie die Position "+zusatz+" auf "+positionswert+" ändern?", , "Neuer Positionswert", 4096+1
If abfrage = 1 Then
If auto = true Then
meldung.Popup "Anlage muss im Handbetrieb sein um Servopositionen zu ändern", , "Anlage nicht im Handbetrieb", 4096
Else
wert_uebernehmen=wert_new
End If
End If
If abfrage = 2 Then
wert_uebernehmen=wert_old
End If
vielen dank für jedwedige hilfe