Mit Tastenkombination Inpubox, Bildwechsel und Variablenwert ausführen WinCC7.0

steinche

Level-2
Beiträge
112
Reaktionspunkte
2
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo zusammen,

bin so langsam am verzweifeln. Komme weder mit C noch mit VBS weiter. Folgendes habe ich vor.
Beim drücken einer F-Taste soll ein Abfragefenster kommen und nach Eingabe einer Zahl soll ein Bildwechsel stattfinden und der eingegebene Zahlenwert in eine Variable geschrieben werden.

Mit C bekomme ich keine Inputbox hin und bie VBS komme ich mit dem Bildwechsel und der Variablenzuweisung nicht weiter :confused: .... bitte um Hilfe.

Viele Grüße
steinche
 
Zuviel Werbung?
-> Hier kostenlos registrieren
32
Hallo Zipfelklatscher,

C-Code ist bei mir gleich 0, da es mir hier schon beim Aufruf der InputBox scheitert :(

In VBS habe ich bisher folgendes:

Code:
Dim TN

Do Until TN >= "1" And TN <= "13" Or TN >= "21" And TN <= "25"
	TN = InputBox("Tank", "Bitte Tanknummer eingeben")
Loop

Hiermit habe ich die eingegeben Zahl in der Variable TN und diese auch nur in einem zulässigen Bereich.

Viele Grüße
steinche
 
Hier mal ein Beispiel, ich würde mir das mit der Loop-Schleife nochmal überlegen.
Du kannst eine Messagebox mit Schaltflächen für OK und Abbrechen versehen. Dann kann der Bediener eine Aktion auch noch abbrechen.
Code:
Dim TN
Dim obj1, obj2, PicName

TN = InputBox("Tank", "Bitte Tanknummer eingeben")
If (IsNumeric(TN)) Then
	If TN >= 1 And TN <= 13 Or TN >= 21 And TN <= 25 Then
		HMIRuntime.Tags("TestInternInt16_1").Write TN	
		PicName = "Bild_in_das_gewechselt_werden_soll"
		If( HMIRuntime.ActiveScreen.ObjectName = HMIRuntime.BaseScreenName ) Then
			HMIRuntime.BaseScreenName = PicName
		Else
			Set obj1 = HMIRuntime.ActiveScreen.Parent
			Set obj2 = HMIRuntime.Screens(HMIRuntime.ActiveScreen.Parent.Parent.AccessPath).ScreenItems(obj1.objectname)
			obj2.screenname = PicName
		End If
	Else
		MsgBox "Ungültige Tanknummer" & vbNewLine & "Erlaubte Werte: 1..13, 21..25", 48, "Fehler!"
	End If
Else
	MsgBox "Die Eingabe war keine gültige Ziffer!", 48, "Fehler!"
	
End If
 
Zurück
Oben