Private Sub SendBytes()
 
OPENCOM "COM2,9600,N,8,1"
 
    'Sensor 1
    Programming 0
    Sleep 500
    IsChipThere 8
    Sleep 500
    Programming 0
    Sleep 500
    IsChipThere 4
    Sleep 500
    Programming 0
    Sleep 500
    IsChipThere 2
    Sleep 500
    Programming 0
    Sleep 500
    IsChipThere 1
    Sleep 500
    Programming 0
    Sleep 500
    IsChipThere 16
    Sleep 500
    Programming 0
    Sleep 500
    IsChipThere 32
    Sleep 500
    Programming 0
    Sleep 500
    IsChipThere 64
    Sleep 500
    Programming 0
    Sleep 500
    IsChipThere 128
    Sleep 500
    Programming 0
    Sleep 500
 
    CLOSECOM
 
    SendBytes
 
End Sub
 
Private Sub IsChipThere(Wert As Byte)
    Dim zeit As Long
    Dim Stelle As Variant, n As Integer
    Dim text As String
    Stelle = 1
 
    For n = 1 To 8
        If Wert = Stelle Then
            TXD 1
        Else
            TXD 0
        End If
        DoEvents
        DELAYUS 100
        DTR 1
        Stelle = Stelle * 2
        DoEvents
        DELAYUS 100
        DTR 0
    Next n
 
    RTS 1
 
    REALTIME True
    TIMEINITUS
    While (DSR() = 0) And (TIMEREADUS() < 9000)
        DoEvents
    Wend
    zeit = (TIMEREADUS())
 
        If Wert = 128 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(8) = True
                DebugPrint "Sensor 8 available! " & zeit
            Else
                DebugPrint "Sensor 8 isn't available! " & zeit
            End If
            DebugPrint "++++++++++++++++"
            DebugPrint "Checking electronic chip!"
            If ChipIsThere(8) = True Or ChipIsThere(7) = True Or ChipIsThere(6) _
              = True Or ChipIsThere(5) = True Or ChipIsThere(4) = True Or _
              ChipIsThere(3) = True Or _
                ChipIsThere(2) = True Or ChipIsThere(1) = True Then
                DebugPrint "Electronic termal measurment chip is available!"
            Else
                DebugPrint "No electronic termal measurment chip installed!"
            End If
        ElseIf Wert = 64 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(7) = True
                DebugPrint "Sensor 7 available! " & "(" & zeit & " " & mue & _
                  "s)"
            Else
                DebugPrint "Sensor 7 isn't available! " & "(" & zeit & " " & _
                  mue & "s)"
            End If
        ElseIf Wert = 32 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(6) = True
                DebugPrint "Sensor 6 available! " & "(" & zeit & " " & mue & _
                  "s)"
            Else
                DebugPrint "Sensor 6 isn't available! " & "(" & zeit & " " & _
                  mue & "s)"
            End If
        ElseIf Wert = 16 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(5) = True
                DebugPrint "Sensor 5 available! " & "(" & zeit & " " & mue & _
                  "s)"
            Else
                DebugPrint "Sensor 5 isn't available! " & "(" & zeit & " " & _
                  mue & "s)"
            End If
        ElseIf Wert = 1 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(4) = True
                DebugPrint "Sensor 4 available! " & "(" & zeit & " " & mue & _
                  "s)"
            Else
                DebugPrint "Sensor 4 isn't available! " & "(" & zeit & " " & _
                  mue & "s)"
            End If
        ElseIf Wert = 2 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(3) = True
                DebugPrint "Sensor 3 available! " & "(" & zeit & " " & mue & _
                  "s)"
            Else
                DebugPrint "Sensor 3 isn't available! " & "(" & zeit & " " & _
                  mue & "s)"
            End If
        ElseIf Wert = 4 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(2) = True
                DebugPrint "Sensor 2 available! " & "(" & zeit & " " & mue & _
                  "s)"
            Else
                DebugPrint "Sensor 2 isn't available! " & "(" & zeit & " " & _
                  mue & "s)"
            End If
        ElseIf Wert = 8 Then
            If zeit > 0 And zeit < 9000 Then
                ChipIsThere(1) = True
                DebugPrint "Sensor 1 available! " & "(" & zeit & " " & mue & _
                  "s)"
            Else
                DebugPrint "Sensor 1 isn't available! " & "(" & zeit & " " & _
                  mue & "s)"
            End If
        End If
 
    Form2.txtDebug.SelStart = Len(Form2.txtDebug.text)