Slechts een gedeelte van de ganse set van commando's zijn beschikbaar via deze classe
(zie documentatie voor de codes in de Notes ICT documentatie - Alfa LED-display magazijn, software version 1.0)
Code snippet voor klok
Set Device=##class(TECH.LedDisplay.TCPDevice).OpenDisplay("HALUX Lichtkrant L1")
Set Writer=##class(TECH.LedDisplay.Writer).%New(Device)
Do Writer.ZetDisplayMode( ... ) ; optional
Do Writer.ZetDubbeleBreedte( ... ) ; optional
Do Writer.ZetKleur( ... ) ; optional
Do Writer.ZetKlok()
Do Writer.ToonKlok()

Code snippet voor tekst
Set Device=##class(TECH.LedDisplay.TCPDevice).OpenDisplay("HALUX Lichtkrant L1")
Set Writer=##class(TECH.LedDisplay.Writer).%New(Device)
Do Writer.ZetDisplayMode( ... ) ; optional
; eeste deel
Do Writer.ZetDubbeleBreedte( ... ) ; optional
Do Writer.ZetKleur( ... ) ; optional
Do Writer.Write( ... )
; tweede deel
Do Writer.ZetDubbeleBreedte( ... ) ; optional
Do Writer.ZetKleur( ... ) ; optional
Do Writer.Write( ... )
Do Writer.Toon()]]> %RegisteredObject %IO.DeviceStream Drie statussen Leeg = Niet wegschrijven 1 = Knipperen activeren 0 = Knipperen deactiveren %String 1 TECH.LedDisplay.enu.Kleur 1 TECH.LedDisplay.enu.Kleur 1 Drie statussen Leeg = Niet wegschrijven 1 = Knipperen activeren 0 = Knipperen deactiveren %String 1 TECH.LedDisplay.enu.DisplayMode 1 %String 1 Device:%String="" %Status Device De display heeft een aantal ingebouwde bewegingen (HOLD, FALSH, WIPE , ROLL, ...) Deze mode wordt globaal, voor alle tekst dat op het display staat, ingesteld DisplayMode:TECH.LedDisplay.enu.DisplayMode Knipper:%Boolean=1 Kleur:TECH.LedDisplay.enu.Kleur="" Dubbel:%Boolean=1 lbHexBytes:%List Tekst:%String String:%String String:%String De interne klok van het LedDisplay juist zetten volgens de interne klok van Cache 1 1 ") ]]> ") ]]> 1 ") ]]> 1 ") ]]> 1 1 1 ") Set ..VorigKleur="" } elseIf ..VolgendKleur=##class(TECH.LedDisplay.enu.Kleur).Geel() { Do ..Write("") Set ..VorigKleur="" } elseIf ..VolgendKleur=##class(TECH.LedDisplay.enu.Kleur).Oranje() { Do ..Write("") Set ..VorigKleur="" } elseIf ..VolgendKleur=##class(TECH.LedDisplay.enu.Kleur).Rood() { Do ..Write("") Set ..VorigKleur="" } elseIf ..VolgendKleur=##class(TECH.LedDisplay.enu.Kleur).DimGroen() { Do ..Write("") Set ..VorigKleur="" } elseIf ..VolgendKleur=##class(TECH.LedDisplay.enu.Kleur).DimRed() { Do ..Write("") Set ..VorigKleur="" } elseIf ..VolgendKleur=##class(TECH.LedDisplay.enu.Kleur).Amber() { Do ..Write("") Set ..VorigKleur="" } elseIf ..VolgendKleur=##class(TECH.LedDisplay.enu.Kleur).Bruin() { Do ..Write("") Set ..VorigKleur="" } Set ..VolgendKleur="" ]]> 1