Popup mit ProTool / Wert Übernehmen

[nobby_nobbs]

Zuviel Werbung?
-> 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:

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

leider kann das Script so nich kompiliert werden. Wenn ich das Script so abändere funktionierts:

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

nur wie kriege ich so den Rückgabewert des Popuppes???

vielen dank für jedwedige hilfe

 

[nobby_nobbs]

Konnte mein Problem lösen...
Klammern um die Argumente und schon gehts... nur weis ich jetzt langsam nicht mehr wanns im protool klammern braucht und wann nicht...

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

 

[JesperMP]

Zuviel Werbung?
-> Hier kostenlos registrieren

Leider keine antwort. Nur eine frage an deine Lösung.

Wenn der Bediener Klicks außerhalb das Pop-up-Fenster, wird das Pop verlagert hinter dem normalen Fenster?
Oder kann das Pop-up-Fenster verriegelt werden in den Vordergrund?

Wenn der Pop-up wird verschiebt im Hintergrund, würde ich nicht wagen, es in meinen eigenen Programmen zu verwenden.

 

[nobby_nobbs]

Der Bediener kann zwar alle Sachen unterhalb bedienen, aber das Popup bleibt immer im Vordergrund. Der letzte Parameter der Popup-Methode (beim ersten Popup 4096+1 beim zweiten 4096) steht für vbSystemModal. Leider wird dies im Protool (im gegensatz zu WinCC flex) nicht erkennt. Daher muss mit den direkten Werten gearbeitet werden. Mit 1 wird noch der Abbrechen Button hinzugefügt...

Mehr dazu findet man in der Hilfe von WinCC flex...

 

[Waelder]

Bescheidene Frage..

War da mal nicht was mit Popups gehen unter WCflex (in CE) nicht ?
Oder hab ich mich verlesen ?

 

[nobby_nobbs]

Zuviel Werbung?
-> Hier kostenlos registrieren

geht bei manchen Geräten tatsächlich nicht. Auf den PanelPC's die wir einsetzten funktioniert es allerdings...