Announcement

Collapse
No announcement yet.

HSTV - Watch Control Script Error

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • HSTV - Watch Control Script Error

    When executing a quick watch from the TV Listing or Grid, the script for the Control Item logs the following error and never executes.

    Control Item
    Script: ChangeChannel.vbs
    Script Function: ChangeChannel
    Script Parameters: #chanNum#
    Start: 12:00 AM
    End: 11:59 PM

    Error Log
    8/2/2009 8:59:30 PM HSTV Error PPC Event Create: Object variable or With block variable not set.


    ChangeChannel.vbs
    PHP Code:
    sub ChangeChannel(chanNum)
                    
        
    dim bc4 
        set bc4 
    hs.Plugin("BC4 Plugin")
            
        if 
    bc4 is nothing then
           hs
    .WriteLog "ChangeChannel""Plug in not found"
        
    Else
                 
            
    select case chanNum            
                
    case "1"
                    
    bc4.SendBC4IR 1,2,9
                
    case "2"
                    
    bc4.SendBC4IR 1,2,10
                
    case "3"
                    
    bc4.SendBC4IR 1,2,11
                
    case "4"
                    
    bc4.SendBC4IR 1,2,12
                
    case "5"
                    
    bc4.SendBC4IR 1,2,13
                
    case "6"
                    
    bc4.SendBC4IR 1,2,14
                
    case "7"
                    
    bc4.SendBC4IR 1,2,15
                
    case "8"
                    
    bc4.SendBC4IR 1,2,16
                
    case "9"
                    
    bc4.SendBC4IR 1,2,17
                
    case "0"
                    
    bc4.SendBC4IR 1,2,18
            end select    
        end 
    if
        
        
    set bc4 nothing

     end sub 
    Any suggestions?

    Dan

  • #2
    Here's a .vb script that may help. Not sure what was wrong with yours, but this works fine from here. Notice some differences. The way you had it wouldn't have worked for anything other than single-digit channel numbers.

    Code:
    Sub ChangeChannel(ByVal chanNum As String)
    
        Dim bc4 As Object = hs.Plugin("BC4 Plugin")
    
        If bc4 Is Nothing Then
            hs.WriteLog("ChangeChannel", "BC4 Plug in not found")
            Exit Sub
        Else
            For i As Integer = 0 To chanNum.Length - 1
                Dim chan As String = ChanNum.substring(i, 1)
                hs.WriteLog("ChangeChannel", "Send Digit: " & chan)
                Select Case chan
    
                    Case "0"
                        bc4.SendBC4IR(1, 2, 18)
                    Case Else
                        bc4.SendBC4IR(1, 2, val(chan) + 8)
    
                End Select
            Next
    
        End If
    
        bc4 = Nothing
    
    End Sub
    Attached Files

    Comment


    • #3
      Mark -

      Thanks for sending the script over. I was hoping to get something working before adding in the additional digits, but you've saved me the extra step!

      I'm still getting the error when triggering the Control item (clicking on the eyes icon?):

      Code:
      8/4/2009 8:04:25 PM 	HSTV 	Error PPC Event Create: Object variable or With block variable not set.
      I don't think it's an issue with the script as I've been able run it from an Event without any problems. It must be something wrong with my set up or configuration. Is there other information I can provide to help troubleshoot it? Is there a configuration file or maybe I'm using the UI wrong?

      Dan

      Comment


      • #4
        Go to HSTV admin on the general tab and set the debugging level to High Level. Then go do whatever causes the error. Grab the entries from your log and post them here.
        Make sure you change the error level back after triggering the error or your log will get filled with tons of entries.
        --
        Jeff Farmer
        HS 3, HSPhone
        My HS3 Plugins: CFHSExtras, Random, Restart, Tracker, WeatherXML, PanaBluRay
        Other Plugins In Use: APCUPSD, BLOnkyo, Device History, EasyTrigger, HSTouch Server, PHLocation2, Pushover, RFXCom, UltraGCIR3, UltraMon3, UltraPioneerAVR3, X10, Z-Wave

        Hardware: GoControl Irrigation Controler, Schlage Lever Lock, Schlage Deadbolt, Way2Call Hi-Phone, RFXCom RFXrec433 Receiver, WGL 800, TI-103, Z-Net, Pioneer 1120, Pioneer 1021, Pioneer LX302, Panasonic BDT-110, Panasonic BDT-210 x2

        Comment


        • #5
          Below is a list of the HSTV events leading up to the error until I turned off the logging.

          Code:
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: ref_page = value:hstv
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: SaveAdmGeneral = value:Save
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: useVR = value:0
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: numdaysevents1 = value:3
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: numdayshistory1 = value:1
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: dbname1 = value:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\HomeSeer HS2\data\hstv\hstv.mdb
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: dbtype1 = value:Access
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: defuser = value:dshue
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: showSQLSvr = value:0
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: playQuote = value:1
          8/7/2009 8:16:34 PM 	HSTV 	PagePut: name: debug1 = value:1
          8/7/2009 8:16:27 PM 	HSTV 	SELECT UserID FROM userOptions WHERE OptionName = 'pgprivtvadmin' AND OptionValue = '1'
          8/7/2009 8:16:27 PM 	HSTV 	GenPage: name: pg = value: admin
          8/7/2009 8:16:07 PM 	HSTV 	sql=UPDATE tvListings SET scheduledEvent = 2 WHERE channelID = '' AND starttime = #8/7/2009 6:00:00 PM#
          8/7/2009 8:16:07 PM 	HSTV 	SELECT DeviceType, DeviceName FROM devices WHERE deviceID = 10
          8/7/2009 8:16:07 PM 	HSTV 	SELECT deviceID, title, channelID, starttime, repeattype, intSun, intMon, intTue, intWed, intThu, intFri, intSat, matchtype, priorityLevel, keywords, keymatch, notkeyword, notmatch, notmatchtitle, nottitle, creditstype, creditname, yeardir, yearmade, creditsmatch, episodetext, episodeMatch, episodeNotText, episodeNotMatch, isActive, userID FROM userFavs WHERE favID = 0
          8/7/2009 8:16:07 PM 	HSTV 	Error PPC Event Create: Object variable or With block variable not set.
          8/7/2009 8:16:07 PM 	HSTV 	SELECT channelID, title FROM tvListings WHERE channelID = '' AND starttime = #8/7/2009 6:00:00 PM#
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: watch.x = value:1
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evPageSpecific = value:
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evPageFrom = value:grid
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evChannelID = value:
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evStartTime = value:8/7/2009 6:00:00 PM
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: ref_page = value:hstv
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: evRepeats = value:0
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: quickevent = value:Create
          8/7/2009 8:16:07 PM 	HSTV 	PagePut: name: deviceid = value:10
          8/7/2009 8:16:05 PM 	HSTV 	SELECT deviceID, deviceName, isDefault FROM devices WHERE isActive = 1 AND deviceType = 2 ORDER BY deviceName
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evPageSpecific = value:
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evPageFrom = value:grid
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evChannelID = value:
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: evStartTime = value:8/7/2009 6:00:00 PM
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: pg = value:pgeventadd
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: ref_page = value:hstv
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: watch.y = value:10
          8/7/2009 8:16:05 PM 	HSTV 	PagePut: name: watch.x = value:6
          8/7/2009 8:16:02 PM 	HSTV 	SELECT top 1 c.channelID, c.channelNickName, c.channelName, c.channelNumber, s.starttime, l.endtime, l.title, l.episode, l.category, l.description FROM scheduledFavs s, tvListings l, tvChannels c WHERE s.starttime > Now() And s.channelID = l.channelID And s.starttime = l.starttime And l.channelID = c.channelID And s.isActive = 1 ORDER BY s.starttime
          8/7/2009 8:16:01 PM 	HSTV 	Checking for Scheduled Actions
          8/7/2009 8:15:49 PM 	HSTV 	SELECT t.channelNumber, t.channelName, t.channelNickName, t.channelID FROM tvchannels t WHERE t.channelID = '1'
          8/7/2009 8:15:49 PM 	HSTV 	SELECT l.starttime, l.endtime, l.title, l.episode, l.description, l.category, l.episodenum, l.audio, l.subtitles, l.ratingsystem, l.rating, l.videoaspect, l.videocolor, l.starrating, l.scheduledevent, l.actors, l.guests, l.director, l.producers, l.hosts, l.repeatshowing, l.programyear, l.ratingadvisory, t.channelNumber, t.channelID FROM tvListings l, userChannels u, tvChannels t WHERE l.channelID = t.channelID AND l.channelID = u.channelID AND u.isAllowed = 1 AND u.isSelected = 1 AND u.userID ='dshue' AND starttime >= #2009/08/07 0:00:00# AND starttime < #2009/08/14 0:00:00# AND u.sortOrder = (SELECT Min(c.sortOrder) FROM userChannels c WHERE c.isAllowed = 1 AND c.isSelected = 1 AND c.userID = 'dshue') ORDER BY l.starttime
          8/7/2009 8:15:49 PM 	HSTV 	SELECT t.channelID, t.channelNumber, t.channelName, t.channelNickName FROM tvchannels t, userChannels u WHERE t.channelID = u.channelID AND u.userid = 'dshue' AND t.viewhide = 0 AND u.IsAllowed = 1 AND u.IsSelected = 1 ORDER BY t.channelNickName, t.channelName
          8/7/2009 8:15:49 PM 	HSTV 	SELECT OptionValue, OptionName FROM UserOptions WHERE UserID = 'dshue' AND OptionName IN ('intShowNameNum','intUseNickName','intDispShowLength','intShowYear','intShowRepeat','strShowAudio','strShowSubtles','strShowRating','strShowEPNum','strShowCat','intShowVideo','intShowActor','intShowGuest','intShowHost','intShowDirector','intShowProducer','intChanSortOrder', 'intHoursWide','intJumpWhen','intRepeatHours','intShowCatLegend','intShowWeekDay','intShowGrid','tuneItem','gridChanSortOrder')
          8/7/2009 8:15:49 PM 	HSTV 	SELECT UserID FROM userOptions WHERE OptionName = 'pgprivtvadmin' AND OptionValue = '1'
          8/7/2009 8:15:49 PM 	HSTV 	GenPage: name: pg = value: hstvgridweek

          Comment

          Working...
          X