Hallo,
leider hat sich mein Problem nun ein wenig geändert und zwar ist es folgendes. Folgender Code funktioniert leider nicht so wie ich es gerne hätte und ich weiß nicht wieso. Die gegenseite ist okay. Denn wenn ich das über ein Terminal versuche dann klappt es einwandfrei:
leider hat sich mein Problem nun ein wenig geändert und zwar ist es folgendes. Folgender Code funktioniert leider nicht so wie ich es gerne hätte und ich weiß nicht wieso. Die gegenseite ist okay. Denn wenn ich das über ein Terminal versuche dann klappt es einwandfrei:
Code:
Sub Button1Click(sender As Object, e As EventArgs) Dim Bytes(8) As Byte Dim status As Integer Bytes(0) = &H00 Bytes(1) = &H00 Bytes(2) = &H00 Bytes(3) = &H00 Bytes(4) = &H00 Bytes(5) = &H00 Bytes(6) = &H00 Bytes(7) = &H00 Dim anz As Integer For i = 0 To 39 If lbl(i).BackColor = System.Drawing.Color.Black Then status = 1 Else status = 0 End If If i < 5 Then Bytes(1) = Bytes(0) Or (status << (5-(i+1))) ElseIf i < 10 Then Bytes(2) = Bytes(1) Or (status << (10-(i+1))) ElseIf i < 15 Then Bytes(3) = Bytes(2) Or (status << (15-(i+1))) ElseIf i < 20 Then Bytes(4) = Bytes(3) Or (status << (20-(i+1))) ElseIf i < 25 Then Bytes(5) = Bytes(4) Or (status << (25-(i+1))) ElseIf i < 30 Then Bytes(6) = Bytes(5) Or (status << (30-(i+1))) ElseIf i < 35 Then Bytes(7) = Bytes(6) Or (status << (35-(i+1))) ElseIf i < 40 Then Bytes(8) = Bytes(7) Or (status << (40-(i+1))) End If Next lbl_anz8.Text = "Byte8: " & Bytes(0).ToString("X2") lbl_anz.Text = "Byte1: " & Bytes(1).ToString("X2") lbl_anz2.Text = "Byte2: " & Bytes(2).ToString("X2") lbl_anz3.Text = "Byte3: " & Bytes(3).ToString("X2") lbl_anz4.Text = "Byte4: " & Bytes(4).ToString("X2") lbl_anz5.Text = "Byte5: " & Bytes(5).ToString("X2") lbl_anz6.Text = "Byte6: " & Bytes(6).ToString("X2") lbl_anz7.Text = "Byte7: " & Bytes(7).ToString("X2") serialPort1.WriteLine("data") serialPort1.Write(Bytes(0)) serialPort1.Write(Bytes(1)) serialPort1.Write(Bytes(2)) serialPort1.Write(Bytes(3)) serialPort1.Write(Bytes(4)) serialPort1.Write(Bytes(5)) serialPort1.Write(Bytes(6)) serialPort1.Write(Bytes(7)) End Sub
Comment