Moin!
Ich habe mir bei Ebay einen USB-Adapter - Infrarot-IR gekauft.
Leider passiert beim anschließen an dem Computer gar nichts.
Es wird nicht mal angezeigt das ein neues Gerät mit dem Computer verbunden worden ist(Geräte Manager).
Getestet unter Windows 2000/XP/11.
Ich habe bereits nach Treibern gesucht....
Leider ohne Erfolg!
Weiß jemand, wie ich das Gerät zum Laufen bekomme?
Ich möchte gerne meinen TV und meine Lampe fernsteuern per Fernbedienung.
Oder kennt jemand, ein Gerät das wirklich funktioniert auch unter Windows 11?
Hier unten habe ich einen VB.Net Code.
Link:
ebay.de/itm/226022541917
BIG THX
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
Ich habe mir bei Ebay einen USB-Adapter - Infrarot-IR gekauft.
Leider passiert beim anschließen an dem Computer gar nichts.
Es wird nicht mal angezeigt das ein neues Gerät mit dem Computer verbunden worden ist(Geräte Manager).
Getestet unter Windows 2000/XP/11.
Ich habe bereits nach Treibern gesucht....
Leider ohne Erfolg!
![;(](https://www.vb-paradise.de/wcf/images/smilies/crying.png)
Weiß jemand, wie ich das Gerät zum Laufen bekomme?
Ich möchte gerne meinen TV und meine Lampe fernsteuern per Fernbedienung.
Oder kennt jemand, ein Gerät das wirklich funktioniert auch unter Windows 11?
![:!:](https://www.vb-paradise.de/wcf/images/smilies/attention.png)
Hier unten habe ich einen VB.Net Code.
Link:
ebay.de/itm/226022541917
BIG THX
VB.NET-Quellcode
- Imports System.IO.Ports
- Public Class Form7
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- SerialPort1.PortName = "COM1"
- SerialPort1.BaudRate = 9600
- SerialPort1.Parity = Parity.None
- SerialPort1.DataBits = 8
- SerialPort1.StopBits = StopBits.One
- SerialPort1.Handshake = Handshake.None
- SerialPort1.Open()
- End Sub
- Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
- If SerialPort1 IsNot Nothing AndAlso SerialPort1.IsOpen Then
- SerialPort1.Close()
- End If
- End Sub
- Private Sub serialPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- Dim data As String = SerialPort1.ReadExisting()
- Me.Invoke(New Action(Sub() ReceivedData(data)))
- End Sub
- Private Sub ReceivedData(data As String)
- ' Hier können Sie den empfangenen Datenstring verarbeiten
- MessageBox.Show("Empfangene Daten: " & data)
- End Sub
- Private Sub SendData(data As String)
- If SerialPort1 IsNot Nothing AndAlso SerialPort1.IsOpen Then
- SerialPort1.Write(data)
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim data As String = TextBox1.Text
- SendData(data)
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- ' Alle verfügbaren seriellen Ports ermitteln
- Dim portNames As String() = SerialPort.GetPortNames()
- ' Portnamen ausgeben
- For Each port As String In portNames
- MsgBox(port)
- Next
- End Sub
- End Class
Visual Basic.NET
MS-SQL
![8o](https://www.vb-paradise.de/wcf/images/smilies/w00t.png)
MS-SQL
![8o](https://www.vb-paradise.de/wcf/images/smilies/w00t.png)