Hallo!
Ich habe in Visual Basic folgenden Code geschrieben:

Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte
Dim var1 As Integer

Private Sub Command1_Click()
PortOut (88, 128
End Sub

Private Sub Command10_Click()
PortOut (88, 255
End Sub

Private Sub Command11_Click()
var1 = PortIn(88
Text1.Text = var1
End Sub

Private Sub Command2_Click()
PortOut (88, 64
End Sub

Private Sub Command3_Click()
PortOut (88, 32
End Sub

Private Sub Command4_Click()
PortOut (88, 16
End Sub

Private Sub Command5_Click()
PortOut (88, 8
End Sub

Private Sub Command6_Click()
PortOut (88, 4
End Sub

Private Sub Command7_Click()
PortOut (88, 2
End Sub

Private Sub Command8_Click()
PortOut (88, 1
End Sub

Private Sub Command9_Click()
PortOut (88, 0
End Sub

Das heißt auf Button1 ist D0 gleich +5V , auf Button2 ist D1 gleich +5V!
Also ich spreche damit die Datenleitungen des parallelPorts an!
NUR: Wenn ich PortOut(88,255 setze (Alle Datenleitungen auf high(+5V)), leuchten bei mir zwar ALLE Leds, aber nach einer Zeit gehen sie wieder aus, OHNE das ich was mache!
Also ich hab für jede Datenleitung (0-7) eine Led, und die leuchten auf Kommando alle.
Nur nach zufälliger Zeit leuchtet auf einmal nur noch die 3. Led (Port ist statt 255 auf einmal auf 32)
Ich habe mir gedacht, dass vielleicht irgendein anderes Programm auf den port zugreift, aber welches?
Ich habe ihn noch nie benutzt!
Könnt ihr mir helfen?
Mfg,
ShadowPhoenix