Ok, bitte sehr (ist aber noch nicht optimiert ):
Code:
'
$regfile = "2343DEF.dat"
$crystal = 1000000
'
Config Portb = &B00011000 'Pinb.3 und .4 auf 'Ausgang', Rest auf 'Eingang' schalten
Portb = &B11100111 'Pullups zuschalten, außer für Pinb.3 und .4
'
Dim A As Byte
Dim Hell_dunkel As Bit
'
Do
'
Portb.3 = 0 'Portb.3 auf Masse schalten
Portb.4 = 1 'Portb.4 auf +Ub schalten, um die LED zu 'laden'
Waitms 1 'Ladezeit 1 ms
Config Portb.4 = Input 'Portb.4 nun zwecks Abfrage der LED-Ladung auf 'Eingang' schalten
Portb.4 = 0 'Pullup abschalten, sonst geht's nicht!
Waitms 1 'Entladezeit 1 ms - je kleiner, je unempfindlicher
Hell_dunkel = Pinb.4 'Ladezustand einlesen
Config Portb.4 = Output 'Portb.4 wieder auf Ausgang schalten
Portb.4 = 0 'Portb.4 auf Masse schalten
'
If Hell_dunkel = 0 Then
For A = 1 To 10
Portb.3 = 1
Waitms 50
Portb.3 = 0
Waitms 500
Next A
End If
'
Loop
'
End
Wird die LED kurz angeleuchtet, dann blinkt sie mit 10 gut sichtbaren Impulsen zurück.
Es grüßt...
...Radio Eriwan
Lesezeichen