Also ich werde dein code etwas bearbeiten, und jemand guckt, ob das so richtig ist:



Dim Sek As Byte
Dim Ms As Integer
Dim Zaehler As Byte

Config Pinb.0 = Input


Alarmeing Alias Pinb.0


Do


Alarmeing = Alarmeing + 1

If Alarmeing = 3 Then
Gosub Alarm
End If


Loop
End


Alarm:
wait 1
print 'ausgabe über UART
Input "atd+49xxxxxxxx;"
wait 40
print 'zur Sicherheit, falls handy Handy nicht gewählt hat
Input "atd+49xxxxxxxx;"
wait 10

Return

kann das so funktionieren?