Wait wartet über 10x so lang.

[Merew]

Nachdem ich von der blinkenden LED weg wollte und einen 7-segment display aus meinem cybot ausgebaut habe (siehe thread im bausatz forum), habe ich mich entschlossen ein kleines testprogramm zu schreiben. Welches in etwa so aussieht:

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000

$baud = 9600

Declare Sub Zahlanzeigen(byval Zahl As Byte)

Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Porta.7 = Output

Dim I As Byte
Dim J As Byte

Do
   I = I + 1
   Call Zahlanzeigen(i)
   Waitms 50
   If I = 19 Then
      I = 0
   End If
Loop

Sub Zahlanzeigen(byval Zahl As Byte)
   Porta.0 = 1
   Porta.1 = 1
   Porta.2 = 1
   Porta.3 = 1
   Porta.4 = 1
   Porta.5 = 1
   Porta.6 = 1
   Porta.7 = 1

   If Zahl >= 10 Then
      Porta.4 = 0
   End If
   J = Zahl Mod 10
   If J = 1 Then
      'cb
      Porta.0 = 0
      Porta.7 = 0
   Elseif J = 2 Then
      'abged
      Porta.6 = 0
      Porta.7 = 0
      Porta.2 = 0
      Porta.3 = 0
      Porta.1 = 0
   Elseif J = 3 Then
      'abgcd
      Porta.6 = 0
      Porta.7 = 0
      Porta.2 = 0
      Porta.0 = 0
      Porta.1 = 0
   Elseif J = 4 Then
      'fgbc
      Porta.5 = 0
      Porta.2 = 0
      Porta.7 = 0
      Porta.0 = 0
   Elseif J = 5 Then
      'afgcd
      Porta.6 = 0
      Porta.5 = 0
      Porta.2 = 0
      Porta.0 = 0
      Porta.1 = 0
   Elseif J = 6 Then
      'fgecda
      Porta.5 = 0
      Porta.2 = 0
      Porta.3 = 0
      Porta.0 = 0
      Porta.1 = 0
      Porta.6 = 0
   Elseif J = 7 Then
      'abc
      Porta.6 = 0
      Porta.7 = 0
      Porta.0 = 0
   Elseif J = 8 Then
      'alles ausser 4
      Porta.0 = 0
      Porta.1 = 0
      Porta.2 = 0
      Porta.3 = 0
      Porta.5 = 0
      Porta.6 = 0
      Porta.7 = 0
   Elseif J = 9 Then
      Porta.0 = 0
      Porta.1 = 0
      Porta.2 = 0
      Porta.5 = 0
      Porta.6 = 0
      Porta.7 = 0
   Else
      Porta.0 = 0
      Porta.1 = 0
      Porta.3 = 0
      Porta.5 = 0
      Porta.6 = 0
      Porta.7 = 0
   End If
End Sub

Man bemerke, dass ich nur 50ms warte. Tatsächlich, wartet der Controller aber knapp unter einer sekunde.

Benutze ich eine Sekunde, so wartet er ~16 sekunden.

Woran liegt das?

Fusebits sind auf standart gelassen und ich verwende kein Quarz.

Danke schonmal,
Merew

[for_ro]

$crystal = 16000000

Fusebits sind auf standart gelassen und ich verwende kein Quarz.

Warum steht dann in deinem Programm, dass ein 16MHz Quarz angeschlossen ist?
Stell mal auf 1MHz, das ist meistens der Standard bei Auslieferung.

[Merew]

Gute frage...

Hat das Problem gelöst. Danke dir.
Hat aber sonst gut funktioniert...

Das dürfte wohl auch erklären, warum es immer ungefähr 16 mal so schnell war.

Merew