Page 1 of 2
Nu & straks op tv script
Posted: Fri Jun 15, 2012 3:20 pm
by Keessie
Vorig jaar wilde ik graag dat homeseer mij vertelde welk programma er op tv bezig is en wat er daarna begint.
Na veel geklooi met xml grabbers kreeg ik dit maar niet voor elkaar.
Zo is het volgende script ontstaan.
In homeseer gebruik ik de nederlandstalige stem Claire, een spraakopdracht moet nog wel in het engels.
Een spraakopdracht voor bijvoorbeeld rtl 4 kijken ziet er als volgt uit:
Homeautomation voice command
Ja zegt u het maar...
Television channel 4
U Kijkt naar RTL 4, nu bezig RTL Weer straks om 8 uur begint goede tijden slechte tijden.
Als je m'n script ook eens wilt testen sla dan volgende script op als tvgids.vb
Code: Select all
Sub main(ByVal Mode As String)
' Nu & Straks op tv
' (c) Keessie 2011
Dim page
Dim tekst
Dim nubezig
Dim straks
Dim begintijd
Dim zender
Dim uur
Dim min
zender = hs.stringitem(mode,1,"|")
' Lees Tvgids in van nuoptv.nl
page = hs.GetURL("nuoptv.nl","",FALSE,80)
if len(page) = 0 then hs.writelog ("TVGIDS","Site niet gevonden")
tekst = hs.stringitem(page,2,zender)
tekst = hs.stringitem(tekst,2,"tit wit")
tekst = mid(tekst,19,30)
nubezig = hs.stringitem(tekst,1,"<")
tekst = hs.stringitem(page,3,zender)
tekst = hs.stringitem(tekst,2,"tit wit")
tekst = mid(tekst,19,30)
straks = hs.stringitem(tekst,1,"<")
tekst = hs.stringitem(page,3,zender)
tekst = hs.stringitem(tekst,2,"beg grs")
begintijd = mid(tekst,19,5)
' Maak begin tijd geschikt om uit te spreken.
uur = cint(left(begintijd,2))
min = cint(mid(begintijd,4,2))
if min < 15 and uur < 13 then begintijd = cstr(min) + " over " + cstr(uur)
if min < 15 and uur > 12 then begintijd = cstr(min) + " over " + cstr(uur-12)
if min = 0 and uur < 13 then begintijd = cstr(uur) + " uur"
if min = 0 and uur > 12 then begintijd = cstr(uur-12) + " uur"
if min = 15 and uur < 13 then begintijd = "kwart over " + cstr(uur)
if min = 15 and uur > 12 then begintijd = "kwart over " + cstr(uur-12)
if min > 15 and uur < 12 then begintijd = cstr(30-min) + " voor half " + cstr(uur+1)
if min > 15 and uur > 11 then begintijd = cstr(30-min) + " voor half " + cstr(uur-11)
if min = 30 and uur < 12 then begintijd = "half " + cstr(uur+1)
if min = 30 and uur > 11 then begintijd = "half " + cstr(uur-11)
if min > 30 and min < 45 and uur < 12 then begintijd = cstr(min-30) + " over half " + cstr(uur+1)
if min > 30 and min < 45 and uur > 11 then begintijd = cstr(min-30) + " over half " + cstr(uur-11)
if min = 45 and uur < 13 then begintijd = "kwart voor " + cstr(uur+1)
if min = 45 and uur > 12 then begintijd = "kwart voor " + cstr(uur-11)
if min > 45 and uur < 13 then begintijd = cstr(min-45) + " voor " + cstr(uur+1)
if min > 45 and uur > 12 then begintijd = cstr(min-45) + " voor " + cstr(uur-11)
if zender="een.be" then zender="Belgie 1"
hs.speak ("U kijkt naar " + zender)
hs.speak ("Nu bezig " + nubezig + ", straks om " + begintijd + " begint " + straks)
hs.Setdevicestring ("z5","Nu bezig "+nubezig,true)
end sub
Je kunt het script met hs.runex("TVGids.vb","main","RTL4") dan de programma's van rtl4 voor laten lezen.
Het script plaatst het huidige programma ook devicestring (z5) dit gebruik ik óm weer te geven in het display van Jonn00 control interface."
Inplaats van rtl 4 kun je ook het programma van de volgende zenders ophalen:
"Nederland 1"
"Nederland 2"
"Nederland 3"
"RTL4"
"RTL5
"SBS6"
"Veronica"
"RTL8"
"Net5"
"een.be"
"Ketnet/Canvas"
"Discovery"
"NGC"
Re: Nu & straks op tv script
Posted: Sat Jun 16, 2012 9:23 am
by AshaiRey
Even een snelle tip
Ook ik gebruik een Nederlandse stem maar sommige dingen komen in het Engels binnen. Omdat ik niet weet welke tekst dat er komt kan ik het ook niet vantevoren vertalen. Engels door een Nederlandse stem uitlaten spreken is waardelos dus die tekst moet je gewoon in het Engels laten doen met een Engelse stem. Dit kan je als volgt doen.
In het speak command kan je van stem wisselen. Het volgende wordt in Engels uitgesproken en gaat automatisch weer terug naar de default.
<voice required='Name=Microsoft Anna'>Do you want me to something?
Re: Nu & straks op tv script
Posted: Sun Jun 17, 2012 6:49 pm
by Keessie
Bedankt da's wel handige tip
Maar wel lastig om vooraf te bepalen welke taal er uitgesproken gaat worden.
Zat nog ff te denken om op bijvoorbeeld imdb te kijken in welke taal een film of serie is maar vaak geven omroepen een buitenlandse serie een nederlandse naam zo wordt Keeping Up Appearances op de nederlandse tv aangekondigd als schone schijn.
Re: Nu & straks op tv script
Posted: Mon Aug 27, 2012 7:48 pm
by Harry
krijg hem niet aan de praat , wat vul ik bij
Optional parameters (function,param)
in ?
Re: Nu & straks op tv script
Posted: Tue Aug 28, 2012 11:14 pm
by Keessie
Hallo Harry,
Bij optional parameters kun je bijvoorbeeld ("main","RTL4") invullen.
Wat je ook kunt doen is alle velden leeg maken en dan bij OR script statement volgende opdracht zetten:
&hs.runex("TVGids.vb","main","RTL4")
Ik hoop dat het je nu wel lukt.
Groeten,
Kees
Re: Nu & straks op tv script
Posted: Wed Aug 29, 2012 9:17 pm
by Harry
bedankt kees , de opt par versie werkt
als ik de optie OR script statement gebruik niet.
ga nu even kijken hoe ik hem gebruik en toe ga passen .
Re: Nu & straks op tv script
Posted: Sat May 09, 2015 5:02 pm
by mdecharon
Mooie en vooral simpele oplossing!
Ook ik heb de laatste tijd veel geprutst met xml gabbers en met weinig succes.
Je script werkt perfect, alleen nu ik ben overgestapt naar Homeseer HS3 blijkt het script niet meer te werken ondanks de aanpassing van &hs.runex naar &hs.RunScriptFunc.
Als ik het volgende uitvoer in HS3: &hs.RunScriptFunc("TVGids.vb","main","RTL4") dan krijg ik onderstaande foutmelding.
Running script(1) &hs.RunScriptFunc("TVGids.vb","main","RTL4"), init error: Kan geen aanhalingstekens gebruiken bij het aanroepen van een Sub-waarde
Is er iemand die mij op weg kan helpen om het script aan te passen voor HS3?
Ik zit er aan te denken om dit script te gebruiken als afstandbediening voor HStouch zodat je per zender kan zien wat er nu en straks op is en op basis daarvan je gewenste programma (lees; zender) aanklikt, waardoor middel ir-signalen er wordt geswitched naar de juiste zender.
Doe ik er dan goed aan om per zender een vb script te maken waarbij elke device (lees; zender) wordt gevuld met de programma informatie en bij het oproepen van mijn scherm in HStouch alles laat verversen of heeft iemand betere suggesties?
Re: Nu & straks op tv script
Posted: Tue May 12, 2015 1:57 am
by Keessie
Ik heb zelf ook net Hs3 geinstalleerd, helaas er weinig tijd door drukte op het werk maar zal dit script zo snel mogelijk geschikt maken voor hs3.
Je idee om de gids gegevens te gebruiken voor hs touch lijkt mij ook wel wat zal me daar ook eens in verdiepen.
Re: Nu & straks op tv script
Posted: Tue May 12, 2015 12:24 pm
by mdecharon
In de tussentijd heb ik de tvgids.tv (
http://www.tvgids.tv/nu-en-straks) ontdekt waar naast meer zenders er ook nog eens een tijdsbar is opgenomen.
Als we nou voor elke zender een virtual device (laten) aanmaken met wat nu te zien is met daaronder de tijdsbalk en daar weer onder wat er straks op komt? Elke device activeert weer een event met de juiste ir-codes.
Misschien ook nog wel een leuk idee, een favorietenlijst (favoriete series, documentaires, etc) maken en zodra er een match wordt gevonden met wat er straks op komt 3 min voor aanvang van je favoriete programma automatisch laten zappen naar de juiste zender.
Re: Nu & straks op tv script
Posted: Wed May 13, 2015 10:26 pm
by Keessie
Een script dat tvgids inleest en dan elke zender in een virual device zet heb ik al eens gemaakt in hs2.
Re: Nu & straks op tv script
Posted: Thu May 14, 2015 1:06 am
by bakkerac1
Is het niet mogelijk om een Android app om te zetten naar hs3?
BV. SMART TV REMOTE.
Verzonden vanaf mijn iPad met Tapatalk
Re: Nu & straks op tv script
Posted: Thu May 14, 2015 10:02 am
by mdecharon
Keessie wrote:Een script dat tvgids inleest en dan elke zender in een virual device zet heb ik al eens gemaakt in hs2.
Is het dan niet makkelijker om dat script om te bouwen voor HS3?
Of zou het script willen delen?
Re: Nu & straks op tv script
Posted: Thu May 14, 2015 12:15 pm
by mdecharon
Re: Nu & straks op tv script
Posted: Thu May 28, 2015 8:19 pm
by Keessie
De eerste versie van mijn tvgids voor HS3 is bijna klaar.
Het script pikt de gegevens van
www.tvgids24.nl
Deze site biedt van alle nederlandse en vlaamse zenders de programma gegevens en ook van een groot aantal regionale omroepen, sportkanalen en themakanalen.
Het script haalt de gegevens op van de hele dag en zet deze in een devicestring.
Een tweede functie is het verwijderen van programma's uit de lijst die al zijn uitgezonden, zo staat altijd de huidige uitzending bovenaan.
De derde functie is het oplezen van de huidige uitzending en de volgende uitzending zoals ook de nu en straks op tv hs2 versie van mn script.
Ik ben het script nog aan het testen en moet nog handleiding schrijven dus nog even geduld
Re: Nu & straks op tv script
Posted: Mon Jun 01, 2015 2:03 pm
by mdecharon
Keessie wrote:De eerste versie van mijn tvgids voor HS3 is bijna klaar.
Het script pikt de gegevens van
http://www.tvgids24.nl
Deze site biedt van alle nederlandse en vlaamse zenders de programma gegevens en ook van een groot aantal regionale omroepen, sportkanalen en themakanalen.
Het script haalt de gegevens op van de hele dag en zet deze in een devicestring.
Een tweede functie is het verwijderen van programma's uit de lijst die al zijn uitgezonden, zo staat altijd de huidige uitzending bovenaan.
De derde functie is het oplezen van de huidige uitzending en de volgende uitzending zoals ook de nu en straks op tv hs2 versie van mn script.
Ik ben het script nog aan het testen en moet nog handleiding schrijven dus nog even geduld
Ik wacht het geduldig af en ben benieuwd naar het reslutaat