TVGIDS VOOR HS3

Forum over Homeseer scripts (DUTCH forum)

Moderators: TANE, Ruud

Post Reply
Keessie
Starting Member
Starting Member
Posts: 20
Joined: Wed Dec 09, 2009 2:38 pm
Location: Netherlands

TVGIDS VOOR HS3

Post 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
mdecharon
Starting Member
Starting Member
Posts: 20
Joined: Sat May 09, 2015 2:51 pm

Re: TVGIDS VOOR HS3

Post by mdecharon »

Dank je wel Kees!
bartbakels
Advanced Member
Advanced Member
Posts: 515
Joined: Tue May 31, 2011 6:44 pm
Contact:

Re: TVGIDS VOOR HS3

Post 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
Software: HS3, HStouch, Plugwise , BLBackup, BLLatestImage, Zwave, JowiHUE, PHlocation, Netcam, Harmony Plugin, ThinkingCleaner, HSPhone, Eneco Toon Script, Pushover, Visonic Powermax LV Interface

(ON ESXI )on NUC
Keessie
Starting Member
Starting Member
Posts: 20
Joined: Wed Dec 09, 2009 2:38 pm
Location: Netherlands

Re: TVGIDS VOOR HS3

Post 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 :)
bartbakels
Advanced Member
Advanced Member
Posts: 515
Joined: Tue May 31, 2011 6:44 pm
Contact:

Re: TVGIDS VOOR HS3

Post by bartbakels »

Precies!! Was ik ook al van plan.

Veel plezier
Software: HS3, HStouch, Plugwise , BLBackup, BLLatestImage, Zwave, JowiHUE, PHlocation, Netcam, Harmony Plugin, ThinkingCleaner, HSPhone, Eneco Toon Script, Pushover, Visonic Powermax LV Interface

(ON ESXI )on NUC
User avatar
Phaeton
Advanced Member
Advanced Member
Posts: 573
Joined: Wed May 19, 2010 12:44 pm
Location: Wassenaar
Contact:

Re: TVGIDS VOOR HS3

Post by Phaeton »

Hallo Keessie.

mooi script! Ik heb het net geinstalleerd. Helaas krijg ik RTL7 niet werkend. Werkt die toevallig bij jou wel?
groeten,
Harry
Keessie
Starting Member
Starting Member
Posts: 20
Joined: Wed Dec 09, 2009 2:38 pm
Location: Netherlands

Re: TVGIDS VOOR HS3

Post 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.
mdecharon
Starting Member
Starting Member
Posts: 20
Joined: Sat May 09, 2015 2:51 pm

Re: TVGIDS VOOR HS3

Post 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?
mdecharon
Starting Member
Starting Member
Posts: 20
Joined: Sat May 09, 2015 2:51 pm

Re: TVGIDS VOOR HS3

Post 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.
mdecharon
Starting Member
Starting Member
Posts: 20
Joined: Sat May 09, 2015 2:51 pm

Re: TVGIDS VOOR HS3

Post 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.
Post Reply

Return to “Homeseer Scripts Forum”