Grillmeister Markus
13.11.2005, 15:41
hallo
ich bin gerade dabei mir einen rc5 sender zu bauen. Das teil soll 4 "kanäle" haben um eben 4 verschiedene dinge damit zu schalten. Die Schaltung und das programm funktioniert auch prizipell, aber es läuft nich sehr "stabiel". manchmal wird das signal sofort vom fernseher erkannt, manchmal muss man aber auch ca. 5 sec. auf der taste bleiben, bis der fernseher dem signal entsprechend umschaltet. verwendent habe ich einen at90s2313 und die LD 274. Diesen code hab ich jetzt:
$regfile = "2313def.dat"
$crystal = 3686400
Ddrd = &B0111100
Ddrb = &B00000000
Portd = &B0111100
Do
If Pind.2 = 0 Then
Rc5send 0 , 0 , 32
Waitms 200
End If
If Pind.3 = 0 Then
Rc5send 0 , 0 , 33
Waitms 200
End If
If Pind.4 = 0 Then
Rc5send 0 , 0 , 16
Waitms 200
End If
If Pind.5 = 0 Then
Rc5send 0 , 0 , 17
Waitms 200
End If
Loop
End
hat jemand von euch eine idee was daran falsch ist?
mfg Maggus
ich bin gerade dabei mir einen rc5 sender zu bauen. Das teil soll 4 "kanäle" haben um eben 4 verschiedene dinge damit zu schalten. Die Schaltung und das programm funktioniert auch prizipell, aber es läuft nich sehr "stabiel". manchmal wird das signal sofort vom fernseher erkannt, manchmal muss man aber auch ca. 5 sec. auf der taste bleiben, bis der fernseher dem signal entsprechend umschaltet. verwendent habe ich einen at90s2313 und die LD 274. Diesen code hab ich jetzt:
$regfile = "2313def.dat"
$crystal = 3686400
Ddrd = &B0111100
Ddrb = &B00000000
Portd = &B0111100
Do
If Pind.2 = 0 Then
Rc5send 0 , 0 , 32
Waitms 200
End If
If Pind.3 = 0 Then
Rc5send 0 , 0 , 33
Waitms 200
End If
If Pind.4 = 0 Then
Rc5send 0 , 0 , 16
Waitms 200
End If
If Pind.5 = 0 Then
Rc5send 0 , 0 , 17
Waitms 200
End If
Loop
End
hat jemand von euch eine idee was daran falsch ist?
mfg Maggus