TVGIDS VOOR HS3

[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

[mdecharon]

Dank je wel Kees!

[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

[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

[bartbakels]

Precies!! Was ik ook al van plan.

Veel plezier

[Phaeton]

Hallo Keessie.

mooi script! Ik heb het net geinstalleerd. Helaas krijg ik RTL7 niet werkend. Werkt die toevallig bij jou wel?

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

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

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

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