Hallo,
danke erstmal für eure Tips.
Leider bekomme ich für den Timer0 immer noch keinen Wert zurück.
Bitwait und so fuktioniert. Es muss am Timer liegen, denn der hat immer
den Wert 0, egal welchen Prescale benutze.
Muss ich vielleicht noch einen Pin der MCs auf GND oder VCC legen?
Ich habe mom nur RST mit 10kOhm auf VCC gelegt und Betriebsspannung
angelegt.
Code:$regfile = "attiny12.dat" ' Controller = ATtiny12 $crystal = 1200000 ' Takt 1,2MHz $noramclear ' RAM nicht initialisieren $tiny ' Stack nicht initialisieren '$hwstack = 32 ' Stackinitialisierung wird durch $TINY unterdrückt $swstack = 0 ' Software 0 $framesize = 0 ' Framesize = 0 '################################################################################################################################# '# '# Hardware initialisieren '# '################################################################################################################################# Config Timer0 = Timer , Prescale = 64 'Timer0 geht gut Config Portb.0 = Output Config Pinb.4 = Input Portb.0 = 1 '################################################################################################################################# '# '# Variablen '# '################################################################################################################################# Dim Rc As Iram Byte ' Variablen als IRAM definieren '################################################################################################################################# '# '# Hauptprogramm '# '################################################################################################################################# Do 'Geberweg des Senders Minimum = 65 / Maximum = 110 / Mitte = 87 If Pinb.4 = 0 Then Bitwait Pinb.4 , Set 'Auf positive Flanke warten Timer0 = 1 'Zaehler starten Bitwait Pinb.4 , Reset 'Auf negative Flanke warten Rc = Timer0 Else End If If Rc > 1 Then Portb.0 = 0 Loop







Zitieren

Lesezeichen