Onkel Dagobert
Level-3
- Beiträge
- 5.836
- Reaktionspunkte
- 1.455
-> Hier kostenlos registrieren
Ich habe einen Bildbaustein in dem u.a. mehrere E/A-Felder projektiert sind. Nun möchte ich die Hintergrundfarbe jeweils zweier E/A-Felder von grau auf grün wechseln lassen, und zwar in Abhängigkeit der eingegebenen Werte. Meine begrenzten Skript-Künste liessen mich folgenden Code (Skript im Bildbaustein) kreieren, der natürlich erst einmal nicht funktioniert . Die Werte sind Bytes, "SZP?_GUELTIG" sind Parameter. Es soll "nur" ein Farbwechsel innerhalb des BBS erfolgen. Wie macht man so etwas ohne großen Aufwand?
Gruß, Onkel
Code:
Dim EIN
Dim AUS
EIN = SmartTags("Properties\Schaltuhr.SZP1_EIN")
AUS = SmartTags("Properties\Schaltuhr.SZP1_AUS")
SZP1_GUELTIG = AUS-EIN > 0
EIN = SmartTags("Properties\Schaltuhr.SZP2_EIN")
AUS = SmartTags("Properties\Schaltuhr.SZP2_AUS")
SZP2_GUELTIG = AUS-EIN > 0
EIN = SmartTags("Properties\Schaltuhr.SZP3_EIN")
AUS = SmartTags("Properties\Schaltuhr.SZP3_AUS")
SZP3_GUELTIG = AUS-EIN > 0
EIN = SmartTags("Properties\Schaltuhr.SZP4_EIN")
AUS = SmartTags("Properties\Schaltuhr.SZP4_AUS")
SZP4_GUELTIG = AUS-EIN > 0
EIN = SmartTags("Properties\Schaltuhr.SZP5_EIN")
AUS = SmartTags("Properties\Schaltuhr.SZP5_AUS")
SZP5_GUELTIG = AUS-EIN > 0
Gruß, Onkel