Quarz misst falsche Zeit

[ThomasKopsch]

Also, ich habe das Programm mit Bascom geschrieben. MIttlerweile habe ich auch ein bisschen weitergemacht, so dass es jetzt keinen Taster, der noch was macht, gibt.
Es ist auch noch nicht fertig.

Aber das "Waitms 10000" kommt nur an einer Stelle vor und es sind immer 13 - 15s, statt 10s!!

Hier der Code:

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


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

Config Pina.7 = Input
Porta.7 = 1

Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.6 = 0


Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte

A = 0
B = 0
C = 0
D = 0
E = 0

Do
Waitms 10000

If A = 5 Then
A = 0
Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1

   If B = 9 Then
   B = 0
   End If










Else
A = A + 1
End If

If A = 0 Then
End If

If A = 1 Then
Porta.0 = 0
End If

If A = 2 Then
Porta.1 = 0
End If

If A = 3 Then
Porta.2 = 0
End If

If A = 4 Then
Porta.3 = 0
End If

If A = 5 Then
Porta.4 = 0
End If




Loop Until Pina.7 = 0


End

Was macht den ein Quarz, wenn er keine Zeitintervalle misst?

Danke,
Thomas