Forums

Re: BasicX-24 X10Cmd Command for XM10E-120, TW523 or PSC05 Two Way X10 Interfac

Started by Patrick Gouardo January 18, 2009
Hello Chris,

Thanks for your reply.
I am sorry if you did not received my message but I send all at support@basicx.com which is the address I found on the Netmedia Internet Site , I think.
It was on 12 January 2009 at 23H53 and on the 15 January 2009 at 03H34 and 09H19 and I did not received any Undelivred Error message.

Anyway, I have in your below message the answers to my questions, very very usefull and I will try it now.

Thanks for your help and best regards.

Patrick.


________________________________
From: robotlogic
To: b...
Sent: Thursday, January 15, 2009 11:03:06 PM
Subject: [BasicX] Re: BasicX-24 X10Cmd Command for XM10E-120, TW523 or PSC05 Two Way X10 Interfac
Patrick,

I can tell you that NetMedia support never received your emails. When did you send them?

What is your question? Are you using this code? :

'House ID
Const X10_A As Byte = &H6
Const X10_B As Byte = &HE
Const X10_C As Byte = &H2
Const X10_D As Byte = &HA
Const X10_E As Byte = &H1
Const X10_F As Byte = &H9
Const X10_G As Byte = &H5
Const X10_H As Byte = &HD
Const X10_I As Byte = &H7
Const X10_J As Byte = &HF
Const X10_K As Byte = &H3
Const X10_L As Byte = &HB
Const X10_M As Byte = &H0
Const X10_N As Byte = &H8
Const X10_O As Byte = &H4
Const X10_P As Byte = &HC

'Unit ID
Const X10_1 As Byte = &HC
Const X10_2 As Byte = &H1C
Const X10_3 As Byte = &H4
Const X10_4 As Byte = &H14
Const X10_5 As Byte = &H2
Const X10_6 As Byte = &H12
Const X10_7 As Byte = &HA
Const X10_8 As Byte = &H1A
Const X10_9 As Byte = &HE
Const X10_10 As Byte = &H1E
Const X10_11 As Byte = &H6
Const X10_12 As Byte = &H16
Const X10_13 As Byte = &H0
Const X10_14 As Byte = &H10
Const X10_15 As Byte = &H8
Const X10_16 As Byte = &H18

'Commands
Const X10_AllUnitsOff As Byte = &H1
Const X10_AllLightsOn As Byte = &H3
Const X10_On As Byte = &H5
Const X10_Off As Byte = &H7
Const X10_Dim As Byte = &H9
Const X10_Bright As Byte = &HB
Const X10_AllLightsOff As Byte = &HD
Const X10_ExtendedCode As Byte = &HF
Const X10_HailRequest As Byte = &H11
Const X10_HailAcknowledge As Byte = &H13
Const X10_PreSetDim0 As Byte = &H15
Const X10_PreSetDim1 As Byte = &H17
Const X10_ExtendedData As Byte = &H19
Const X10_StatusOn As Byte = &H1B
Const X10_StatusOff As Byte = &H1D
Const X10_StatusRequest As Byte = &H1F

Const Clock_Pin As Byte = 8
Const X10_Out As Byte = 7
Const X10_In As Byte = 6

Sub Main()

Call sleep(512)

Call x10cmd(7, 8, X10_P, X10_1, 2)

Do
Call putpin(12, 0)
Call x10cmd(X10_Out, Clock_Pin, X10_P, X10_On, 2)
Call sleep(30)
Call x10cmd(X10_Out, Clock_Pin, X10_P, X10_Off, 2)
Call putpin(12, 1)
Call sleep(30)
Loop

End Sub