Müsste es nicht ......
......heißen? Außerdem wird anscheinend nirgends ein Call Us_test ausgeführt?Code:Sub Burst(byval Imp_dauer As Long) For Us1 = 0 To Imp_dauer Portb.3 = 1 (Pinb.3 =1)? ----------------------------- Waitus 10 Portb.3 = 0 (Pinb.3 =0)? ------------------------------- Waitus 10 Next Us1 End Sub
Gruß Richard
Lesezeichen