Hi,
mal abgesehen davon dass bei der Fernbedienung die Tasten doppelt gedrückt werden müssen wäre ist hier mein Quellcode. Der Quellcode bezieht sich auf Visual Basic 2005
Zuerst den Verweis für die X10 Komponenten hinzufügen....
dannach kannst du nach folgendem Schema dein Programm aufbauen.
Imports X10
Imports System.Windows.Forms
Public Class Form1
Dim WithEvents x10 As New X10.X10Control
Private Sub x10_X10Command(ByVal bszCommand As String, ByVal eCommand As X10.EX10Command, ByVal lAddress As Integer, ByVal EKeyState As X10.EX10Key, ByVal lSequence As Integer, ByVal eCommandType As X10.EX10Comm, ByVal varTimestamp As Object) Handles x10.X10Command
TextBox1.Text = bszCommand.ToString
TextBox2.Text = eCommand.ToString
TextBox3.Text = lAddress.ToString
TextBox4.Text = EKeyState.ToString
TextBox5.Text = lSequence.ToString
TextBox6.Text = eCommandType.ToString
TextBox7.Text = varTimestamp.ToString
If EKeyState = EX10Key.X10KEY_ON Then
Me.txtCommandolist.Text = Me.txtCommandolist.Text & vbCrLf & bszCommand.ToString
Me.BringToFront()
'If bszCommand = "Record" Then Shell("shutdown.exe -s -f -t 01")
Select Case bszCommand
Case "Zero" : SendKeys.Send("{0}")
Case "One" : SendKeys.Send("{1}")
Case "Two" : SendKeys.Send("{2}")
Case "Three" : SendKeys.Send("{3}")
Case "Four" : SendKeys.Send("{4}")
Case "Five" : SendKeys.Send("{5}")
Case "Six" : SendKeys.Send("{6}")
Case "Seven" : SendKeys.Send("{7}")
Case "Eight" : SendKeys.Send("{8}")
Case "Nine" : SendKeys.Send("{9}")
Case "Up" : SendKeys.Send("{UP}")
Case "Down" : SendKeys.Send("{DOWM}")
Case "Left" : SendKeys.Send("{RIGHT}")
Case "Right" : SendKeys.Send("{right}")
Case "VolumeDown" : SendKeys.Send("{+}")
Case "VolumeUp" : SendKeys.Send("{-}")
Case "A" : SendKeys.Send("{M}")
Case ("ChannelUp") : SendKeys.Send("{F8}")
Case ("ChannelDown") : SendKeys.Send("{F7}")
Case ("OK") : SendKeys.Send("{ENTER}")
' hier weitere Befehle eingeben
End Select
End If
End Sub
Private Sub cmdListelöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdListelöschen.Click
Me.txtCommandolist.Text = ""
End Sub
End Class
Den Tasten kann man noch Shell befehle mitgeben zb. zum Rechner runterfahren....
Hat eigentlich auch geklappt nur. Habe dann zwecks instabilem Media Center eine Weiterentwicklung abgebrochen unter Windows abgebrochen und dann die Kiste mit Ubuntu bestückt....
gruss
frank
