4 Led´s unabhängig per Zufall blinken lassen?

[Richard]

@Richard: Das hört sich gut an. Der Atmel in meiner Anwendung, kriegt ne Menge EM-Strahlung ab. Er liegt in der nähe eines 2,4Ghz RC-Empfängers (inkl. Rückkanal) und eines 50A Brushlessreglers.

Sollte ich die "Antenne" dann so lang machen, wie eine 2,4Ghz Antenne sein sollte? Das wäre ja nicht besonders lang und würde die Platzverhältnisse nicht zu arg in Anspruch nehmen.

Wie lang kann ich auch nicht sagen, ganz ohne b,.z.w. Irgend ein Ganzzahliger (Anteil) der zu Filternden Wellenlänge würde sich aber anbieten. Auch verschiedene Längen Pro Kanal, Auch interessant könnte ein Serien Schwingkreis LC sein, wobei der ADC dann zwischen L und C abgegriffen wird. Damit, bei richtiger Berechnung, kann auf bestimmte "Sender" gefiltert werden. Ob ich die Formel für die Resonanz Frequenz nuch zusammen bekomme? (1/2* Pi * √ (L*C)) "oder ähnlich".

Gruß Richard

[DanielSan]

Das komische an meinem Programm, ist das es im Simulator sauber durchläuft. Die Zeiten stimmen die Led blinkt wie sie soll etc.
Warum klappt es dann nicht wenn ich das Programm in den Atmega48 schreibe?

Jtag ist aus und die Clock steht auf 8Mhz so wie im Code angegeben...

Danke
Gruß Daniel

[radbruch]

Bei mir funktioniert das wie erwartet:

$regfile = "m8def.dat"                                      'Setup asuro
$crystal = 8000000

Config Timer0 = Timer , Prescale = 64

Config Pind.2 = Output
Config Pind.3 = Output
Config Pind.4 = Output
Config Pind.5 = Output

Mg1 Alias Portd.2
Mg2 Alias Portd.3
Mg3 Alias Portd.4
Mg4 Alias Portd.5

Dim Mg1flag As Byte
Dim Mg2flag As Byte
Dim Mg3flag As Byte
Dim Mg4flag As Byte
Dim Mg1time As Integer
Dim Mg2time As Integer
Dim Mg3time As Integer
Dim Mg4time As Integer
Dim I As Integer

Const Timervorgabe = 131
On Timer0 Timer_irq
Enable Timer0
Enable Interrupts

Mg1flag = 0
Mg2flag = 0
Mg3flag = 0
Mg4flag = 0
Mg1time = 0
Mg2time = 0
Mg3time = 0
Mg4time = 0

Dim Led2 As Byte
Led2 = 0
Mg1 = 1                                                     'LEDs aus
Mg2 = 1
Mg3 = 1
Mg4 = 1

Do

Loop
End

Timer_irq:
Timer0 = Timervorgabe

If Mg1time = 0 Then
   If Mg1flag = 1 Then
      Mg1time = 250                                         ' Anzeit
      Mg1 = 1
      Mg1flag = 0
   Else
      Mg1time = 250                                         ' Auszeit
      Mg1 = 0
      Mg1flag = 1
   End If
End If
Decr Mg1time

If Led2 > 0 Then
   Decr Led2
Else
   Toggle Portd.3
   If Pind.3 = 0 Then
      Led2 = 249                                            ' Anzeit-1!
   Else
      Led2 = 249                                            ' Auszeit-1
   End If
End If
Return

[DanielSan]

Oh man alles klar DANKE!
Es lag an:

Mg1 Alias Pinb.1

Das muss natürlich:

Mg1 Alias Portb.1

heissen. Das müsste doch der Compiler eigentlich merken oder?

Danke
Gruß Daniel

[021aet04]

Ich weiß zwar nicht wie es in Bascom ist, aber bei C ist es egal, da er beides kennt (nicht genau die Befehle, aber auch mit Ein-/Ausgängen).
Wenn es so ist wie in C (AVR Studio mit GCC) ist PINB für Eingänge vom Port B und PORTB Ausgänge vom Port B.

MfG Hannes

[radbruch]

würgs:

Timer_irq:
Timer0 = Timervorgabe

If Mg1time = 0 Then
   If Mg1flag = 1 Then
      Mg1time = 250                                         ' Anzeit
      Mg1 = 1
      Mg1flag = 0
   Else
      Do                                                    ' Auszeit
         Mg1time = Rnd(500)
      Loop Until Mg1time < 500
      Mg1time = Mg1time + 250
      Mg1 = 0
      Mg1flag = 1
   End If
End If
Decr Mg1time

Return

[DanielSan]

Edit: Ah jetzt seh ich erst was du gemacht hast! Du Fuchs

Ok deine Lösung ist zwar "gepfuscht" aber sie funktioniert. Ich denke das Rnd() nicht richtig funktioniert ist ein Bug in Bascom.

Gruß Daniel