Hi Ken,
I have no remote instances and not sure. How do they show up in the plugin config?
Thanks
Al
I have no remote instances and not sure. How do they show up in the plugin config?
Thanks
Al
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Sub Main(ByVal Parms As object) 'Tag Description 'transition This is the transition of the text on the sign. ' Valid values are: rotate, hold, rollup, rolldown, rollleft, rollright, wipeup, wipedown, wipeleft, wiperight, scroll, ' auto, rollin, rollout, wipein, wipeout, compressedrotate, twinkle, sparkle, snow, interlock, switch, spray, starburst, ' welcome, slotmachine, newsflash, trumpet, cyclecolors, thankyou, nosmoking, dontdrink, animal, fish, fireworks, balloon, turbocar, cherrybomb 'font This is the font of the text on the sign. Valid values are: five, fivebold, fivewide, fivewidebold, ' seven, sevenserif, sevenbold, sevenboldserif, sevenshadow, sevenshadowserif, sevenwide, sevenwidebold, sevenwideboldserif, sevenwideserif 'color This is the color of the text on the sign. Some signs will not show all colors. Valid values are: red, green, amber, dimred, dimgreen, brown, orange, yellow, ' rainbow1, rainbow2, colormix, auto 'flash This will cause the text to flash or stop flashing. Valid values are: on, off, 1, 0, true, false, yes, no 'extchar This is an external character you can add to the text on the sign. Some signs will not show these characters. ' Valid values are: enterkey, ykey, uparrow, downarrow, leftarrow, rightarrow, pacman, sailboat, baseball, telephone, heart, car, handicap, rhino, mug, satellite, copyright Dim ParmArray() as String ParmArray = Parms.tostring.split(",") Dim sign = CInt(ParmArray(0)) Dim loc = ParmArray(1) Dim message = ParmArray(2) Dim logName = "BetaBrite" Dim debug = False If message = "Temperature" Then Dim nTemp As String = CStr(hs.DeviceValueEx(1501)) & "°" hs.PluginFunction("BLLED", "", "SetString", new Object(){sign,"1",nTemp}) Exit Sub Else If message = "CurrentCond" Then hs.PluginFunction("BLLED", "", "SetString", new Object(){sign,"2", CStr(hs.DeviceString(2438))}) Exit Sub ElseIf message = "Breaking" Then Dim nBreaking As String = CStr(hs.DeviceString(2439)) message = "{speed=1}{transition=hold}{color=dimred}News Update: " & nBreaking & "{transition=rotate}" ElseIf message = "WW" Then Dim nAlert As String = CStr(hs.DeviceString(2407)) & " for " & CStr(hs.DeviceString(2406)) message = "{speed=1}{transition=rotate}{color=dimred}*** " & nAlert & " ***{transition=rotate}" ElseIf message = "LMS" Then Dim nLMS As String = CStr(hs.DeviceString(2395)) message = "{speed=1}{transition=hold}{color=dimgreen}LMS-" & nLMS & "{transition=rotate}" ElseIf message = "LISD" Then Dim nLISD As String = CStr(hs.DeviceString(2393)) message = "{speed=1}{transition=hold}{color=dimgreen}LISD-" & nLISD & "{transition=rotate}" ElseIf message = "Forecast" Then Dim nForecast As String = CStr(hs.DeviceString(1514)) message = "{speed=1}{transition=rotate}{color=dimgreen}" & nForecast & "{transition=rotate}" End If If debug Then hs.writelog(logname, CStr(sign) & " - " & loc & " - " & message) hs.PluginFunction("BLLED", "", "QueueMessage", new Object(){sign,loc,40,False,message}) End Sub
ElseIf message = "Caller" Then dim calleridname, calleridnumber As String calleridname = hsp.CIDName(1) calleridnumber = hsp.CIDNumber(1) If calleridname = "" Then calleridname = "Unknown Caller" If calleridnumber = "" Then calleridnumber = "" message = "Call From " & calleridname & "(" & calleridnumber & ")" hs.PluginFunction("BLLED", "", "QueueMessage", new Object(){sign,loc,15,False,message})
Comment