Hallo,
ich möchte ein PWM Signal auswerten was auch gut klappt, aber wenn ich dann einen Ausgang setze leuchtet die LED am Ausgang nur schwach.

Wenn ich mit
PORTD = &B11111111
die Ausgänge setze Leuchten die LED´s ordentlich (gemessener strom 1,5mA! LED mit Vorwiderstand für 5V)

Wenn ich das mit dem Programm (unten) versuche habe ich 5V am Ausgang Bis ich die LED anschließe! Dann geht die Spannung auf 1,7V runter und die LED glimmt nur!


'Konfiguration µC:
$regfile = "2313def.dat" 'AT90S2313-Deklaration
$crystal = 3686400 'Quarz: 3.6864 MHz

' Ein- und Ausgänge

Ddrd.2 = 0 'Eingang setzen Empfängersignal



'===============================================
' Variablen
'===============================================
Dim Pulsbreite1 As Word 'Knüppelstellung von Knüppel 1

Dim Kanal1o As Bit 'Speicher von Knüppel 1 OBEN


'-------------------------------------------------------------------------------

Do

Pulsein Pulsbreite1 , Pind , 2 , 1 'Pulsbreite auslesen (1=High Impuls)


If Pulsbreite1 > 140 And Kanal1o = 0 Then 'Wenn Impuls lang genug
Toggle Portd.3 'PD3 schalten
Kanal1o = 1 'Merker kanal1o setzen
End If

If Pulsbreite1 < 140 Then 'Wenn Impuls zu kurz
Kanal1o = 0 'Merker kanal1o RÜCKsetzen
End If


Loop
End