Page 1 of 1
TVGIDS VOOR HS3
Posted: Wed Jun 03, 2015 2:20 pm
by Keessie
Ik heb een script gemaakt dat de programma gegevens van tv zenders in een devicestring zet.
Het script kan deze gegevens ook bijwerken waarbij programma's die al zijn afgelopen worden verwijderd.
Tot slot kun je het script ook laten vertellen wat er nu op een zender bezig is en welk programma daarna begint.
dropbox.com/s/2gr9t1n3nw270as/TV%20GIDS ... 3.zip?dl=0
Installatie instructie zit als pdf bestand bij het script.
Kees
Re: TVGIDS VOOR HS3
Posted: Thu Jun 04, 2015 8:14 am
by mdecharon
Dank je wel Kees!
Re: TVGIDS VOOR HS3
Posted: Thu Jun 04, 2015 11:30 am
by bartbakels
Kees,
Thanks voor het script. Heb het na wat uitzoekwerk aan de praat. Het is nl ook van belang met jou script dat de Room en Floor TVGIDS heten. Ik heb dit aangepast. Wekt nu Super thnx.
Wellicht verstandig om het script zelf devices aan te laten maken. dit kun je met deze script statements makkelijk implementeren;
dim variablen:
Code: Select all
' Use these values to create new device(s)
Dim dv As Scheduler.Classes.DeviceClass = Nothing
Dim Graphic
Dim DevExists
Dim GPair = New VGPair
Dim Ref
en dan:
Code: Select all
' Device Creation if not exists
DevExists = hs.DeviceExistsAddress("FileMonitor" & strRoads(i), False)
If DevExists = -1 Then
dv = hs.NewDeviceEx(strRoads(i))
dv.Location(hs) = strDeviceFloor
dv.Location2(hs) = strDeviceRoom
dv.Address(hs) = "FileMonitor" & strRoads(i)
dv.Device_Type_String(hs) = strDeviceType
dv.Image(hs) = "/images/FileFlitserMonitor/file.png"
Ref = hs.GetDeviceRef("FileMonitor" & strRoads(i))
GPair = New VGPair
GPair.PairType = VSVGPairType.Range
GPair.RangeStart = 0
GPair.RangeEnd = 0
GPair.Graphic = "/images/FileFlitserMonitor/OK.png"
hs.DeviceVGP_AddPair(ref, GPair)
GPair = New VGPair
GPair.PairType = VSVGPairType.Range
GPair.RangeStart = 1
GPair.RangeEnd = 100000000
GPair.Graphic = "/images/FileFlitserMonitor/Pasop.png"
hs.DeviceVGP_AddPair(ref, GPair)
hs.WriteLog("device creation", strRoads(i))
End If
Ref = hs.GetDeviceRef("FileMonitor" & strRoads(i))
hs.SetDeviceString(Ref, strOutput , True)
hs.SetDeviceValueByRef(Ref, count , True)
hopelijk heb je hier iets aan
MVG
Bart
Re: TVGIDS VOOR HS3
Posted: Thu Jun 04, 2015 11:50 am
by Keessie
Hey Bart,
Dat is idd al iets wat ik wilde toevoegen... had idd al naar het filemonitor script gekeken hoe je dat voor elkaar had gekregen
Bedankt voor je uitleg, zal het zo snel mogelijk aan mn script toevoegen.
Maar dit weekend eerst even genieten van het mooie weer
Re: TVGIDS VOOR HS3
Posted: Thu Jun 04, 2015 11:52 am
by bartbakels
Precies!! Was ik ook al van plan.
Veel plezier
Re: TVGIDS VOOR HS3
Posted: Sat Jun 06, 2015 9:35 am
by Phaeton
Hallo Keessie.
mooi script! Ik heb het net geinstalleerd. Helaas krijg ik RTL7 niet werkend. Werkt die toevallig bij jou wel?
Re: TVGIDS VOOR HS3
Posted: Sat Jun 06, 2015 4:37 pm
by Keessie
Hallo Harry, ik heb het even getest en RTL7 werkt hier.
Controleer even of de devicename in hoofdletters is geschreven en geen spatie bevat. Dus RTL7
Ik werk inmiddels aan de volgende versie van het script en die zal zelf de devives aan maken als deze niet bestaan.
Re: TVGIDS VOOR HS3
Posted: Sun Jun 07, 2015 2:53 pm
by mdecharon
Ontzettend blij met het script!
Ik ben nu aan het uitvogelen hoe ik het ga presenteren in HSTouch.
Zou het mogelijk zijn om ook een voortgangsbalk te maken?
Re: TVGIDS VOOR HS3
Posted: Tue Jun 09, 2015 4:11 pm
by mdecharon
Eén zender blijft "hangen" bij het ophalen van de TVgids, namelijk veronica:
18:00 Dumbest Stuff on Wheels
18:05 The Big Bang Theory
18:35 According to Jim
19:00
Alle andere zenders halen netjes meerdere tijden en programma's binnen.
Re: TVGIDS VOOR HS3
Posted: Thu Feb 25, 2016 12:16 pm
by mdecharon
Keessie,
Sinds een aantal maanden werkt je script niet meer, heb jij ook hetzelfde probleem?
Zo ja, heb je ook al een oplossing?
Bij voorbaat dank voor je antwoord.