hmm.. irgendwie bin ich gerade leicht ueberfordert... gebe ein 5V rechtecksignal auf den icp ... (
die gesammtlänge des signals is 20 ms und wiederholt sich dann, leicht modifiziert )programm sieht so aus:
Code:
$regfile = "m644def.dat"
$regfile = "m644def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 20000000
$baud = 9600
Config Timer1 = Timer , Prescale = 8 , Edge = Rising
Start Timer1
Dim Kanal(9) As Word
Dim X As Word
Dim Y As Word
On Capture1 Get_kanal Nosave
Config Pind.6 = Input ' icp pin
Enable Capture1
Enable Interrupts
Y = 1
Do
For X = 1 To 8
Print Kanal(x) ; " " ;
Next X
Print Kanal(9)
Loop
Get_kanal:
Push R24
push r25
push r26
push r27
Kanal(y) = Capture1
Incr Y
Timer1 = 0
pop r27
pop r26
pop r25
pop r24
If Y = 9 Then
Y = 1
End If
Return
End
wenn das signal anliegt passiert absolut gar nichts... wenn ich aber mit dem finger auf den icp fasse springt er in die interrupt routine...
macht irgednwie keinen sinn finde ich...
Lesezeichen