Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[k22]

I cannot get sendrf to work on Windows XP Pro SP2 using the CM19A and VB.net.  What am I doing wrong?  I can receive commands flawlessly and am using the most updated driver that I can find.

Code: [Select]

Imports ActiveHomeScriptLib
Public Class Form1
    Dim WithEvents ActiveHomeObj As ActiveHomeScriptLib.ActiveHome
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ActiveHomeObj = New ActiveHome
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ActiveHomeObj.SendAction("sendrf", "a2 off")
    End Sub
End Class


[Tuicemen]

I cannot get sendrf to work on Windows XP Pro SP2 using the CM19A and VB.net.  What am I doing wrong?  I can receive commands flawlessly and am using the most updated driver that I can find.

Code: [Select]

Imports ActiveHomeScriptLib
Public Class Form1
    Dim WithEvents ActiveHomeObj As ActiveHomeScriptLib.ActiveHome
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ActiveHomeObj = New ActiveHome
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ActiveHomeObj.SendAction("sendrf", "a2 off")
    End Sub
End Class


Heres what works for me:

Code: [Select]

Option Strict Off
Option Explicit On
Imports ActiveHomeScriptLib
Public Class Form1
 Dim WithEvents X10Obj As ActiveHomeScriptLib.ActiveHome
 Dim trx10 As Transx10Class

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Try
            X10Obj = New ActiveHome
        Catch
            MsgBox("This program requires X10's ActiveHomePro SDK software for X10 remote control operation!", MsgBoxStyle.Information)
        End Try
End sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 trx10.Intialize(X10Obj)
 trx10.transmit("A2", "SendRF", "ON)
End sub
End Class
Hope this is helpful!

[k22]

What's "Transx10Class"?

[Tuicemen]

I pulled the code quickly from a Program,that uses X10 code over the phone line!
It was a Class I had to make to enable! Sorry for the confusion!
Your send action code should be:

Code: [Select]

dim housecode as string="a2"
dim power as string="off"
ActiveHomeObj.SendAction("sendrf", housecode + " " + power)Sending house code and power as one has never worked for me!

[PrimeGuild]

Well, the RF is normally received by a Transreceiver module which in turn sends a PLC over the lines, so if it works for you, you could try sending a PLC instead of an RF.