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

[steinche]

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 .... bitte um Hilfe.

Viele Grüße
steinche

 

[Zipfelklatscher]

Poste mal deinen C-Code

 

[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:

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

 

[Thomas_v2.1]

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.

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