So habs noch nen bissele Verbessert ( siehe Pulses und Sek )
Code:
$regfile = "2313def.dat"
Config Portb = Output
Config Portd = Output
Config Pind.5 = Input
Dim Var1 As Byte
Dim Freq As Long
Dim S As String * 5
Dim X As Byte
Dim Pos As Byte
Dim Z As String * 1
Dim L As Byte
Dim W As Long
Config Timer1 = Counter , Edge = Rising
Enable Interrupts
Enable Timer1
Portd.5 = 0
Timer0 = 216 ' Constante zum erzeugen einer "Exacten" Sek.
Timer1 = 0
Start Timer0
Start Timer1 'Auf die Pins, Fertig, Messen!
On Timer0 Sek
On Timer1 Pulses ' Anzeige Schlaufe
Do
S = Str(freq)
L = Len(s)
For X = 1 To L
S = Str(freq)
Pos = L - X
Pos = Pos + 1
Z = Mid(s , Pos , 1)
If Z = "0" Then Portb = 63
If Z = "1" Then Portb = 34
If Z = "2" Then Portb = 94
If Z = "3" Then Portb = 118
If Z = "4" Then Portb = 99
If Z = "5" Then Portb = 117
If Z = "6" Then Portb = 125
If Z = "7" Then Portb = 38
If Z = "8" Then Portb = 127
If Z = "9" Then Portb = 119
If X = 1 Then Portd = 1
If X = 2 Then Portd = 2
If X = 3 Then Portd = 4
If X = 4 Then Portd = 8
If X = 5 Then Portd = 16
Waitms 2
Next X
Loop
Sek:
Incr Var1
If Var1 = 39 Then 'Wenn Timer0 39 überlief (1 Sek) dann:
Freq = W + Counter1
Var1 = 0
Timer0 = 216
Timer1 = 0
End If ' Wenn Timer0 (Gatetimer) voll, dann Var1 + 1
Return
Pulses:
W = W + 65536
Return
Das ist der Komplete Code inklusive Multiplex Ausgabe!!!
Zitieren
).
)
Lesezeichen