erstmal danke für die schnelle antwort
Also an pin 1 habe ich 1,3V mit 14,5 ampeere halt von 5V über 330OHM
An pin 2 klar gnd
an pin 3 ebenfals klar gnd
an pin 4 habe ich nichts da ich keine drehrichtung bestimmen möchte
an pin 5 habe ich klar 2,3 V
und an pin 6 habe ich VCC vom mc 4,78V
Die LED war blau 
das einzige was nach entfernen der led noch auf der leitung liegt ist ein 10k Ohm wiederstand der als pull down wiederstand fungiert damit ich ein klares signal erhalte könnte es vielleicht daran liegen.
hier noch unser genauer code :
Code:
$regfile = "m328pdef.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
Config Portd.2 = Input
Dim Ist As Word
Dim Soll As Word
'Interrupt Messung
Const Timervorgabe = 3036
Const Markierungenproscheibe = 60
Dim Zaehlerirq0 As Long
Dim Impulseprosekunde As Long
Dim Impulseprominute As Long
Dim Umdrehungenprominute As Integer
Dim Umdrehungenprosekunde As Integer
'LCD
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
'Interrupt Messung
Config Int0 = Falling
Config Timer1 = Timer , Prescale = 256
Zaehlerirq0 = 0
On Int0 Irq0
Enable Int0
On Timer1 Timer_irq
Enable Timer1
Enable Interrupts
Cls
Do
'Umrechnen der Messgrößen
Impulseprominute = Impulseprosekunde * 60
Umdrehungenprominute = Impulseprominute / Markierungenproscheibe
Umdrehungenprosekunde = Impulseprosekunde / Markierungenproscheibe
Locate 1 , 1
Lcd "Min" ; Umdrehungenprominute
Locate 2 , 1
Lcd "Impuls" ; Impulseprominute
Loop
End 'end program
Irq0:
Incr Zaehlerirq0 'Pro Impuls (Markierung auf Scheibe) ein Aufruf
Return
Timer_irq: 'Pro Sekunde ein Aufruf
Timer1 = Timervorgabe
Impulseprosekunde = Zaehlerirq0
Zaehlerirq0 = 0
Return
)
Zitieren
Lesezeichen