> n%=1000:do:? n% :adc open n%,1 :adc close :inc n%, -10:loop
1000
990
...
750
740
730
Error : Invalid frequency
>

Setpin GP7, FIN
Pause 1000  'allow sampling time
Print " Input Frequency = ";pin(GP7)
If pin(GP7) < 2 then Print "No Signal"
cyc% = 2 'number of cycles to display.
f_samp = pin(GP7) * MM.HRES / cyc%  ' freq of ADC for cyc% cycles on screen

Do
 Inc freq%, f_samp
Loop  Until freq% > 732

If freq% > 500000 Then 
 Do
  Inc freq%, -pin(GP7)
 Loop  Until freq% < 500001
Endif
Print "Sampling Freq. =";freq%

 
Sub DoDC CH

''   ADC close
  ch = CH
  SetPin ch , ain
  Tstop = 0
  SetTick 18.1 , tick , 2
  Timer = 0

               
  mDC
  Print Timer
  Tstop = 2
  SetTick 0 , 0 , 2

'Print  " DC = " ; DC ; " Vdc  "
Print Format$( DC , "    DC = %2.4f  Vdc  " )

End Sub

Sub tick

  Tstop = 1

End Sub

Sub mDC

     nDC = 0

  For n = 1 To 400
     nDC = nDC + Pin(ch)
     If Tstop = 1 Then Exit For
  Next n
  Print DC , nDC , nDC / n , n , Pin(ch)
  DC = (nDC / (n ) )
''   Print

End Sub
 

Sub dcx

ch = 32
SetPin ch , ain
m = 0
Timer = 0
Do While Timer < 19.86  '20 ms
Dc = Dc + Pin(ch)
Inc m
Loop
Print ,, Timer, m
Dc = Dc / m

  Print Dc
End Sub

 SetPin GP18,pwm1A 'this optional test signal comment out
 PWM 1,10000,30  'square wave ,this optional test signal comment out
 dim c%,x%,samples!(360),freq%,cyc%
SETPIN GP7, FIN
pause 1000
freq% = pin(GP7)
cyc% = 4 'number of cycles to display.
freq%=freq% * MM.HRES / cyc%  ' freq of ADC for cyc% cycles on screen
'print freq%
 SETPIN GP26, AIn
 adc open freq%,1 '500000,1 'samples per second

Do
Inc freq%, f_samp
Loop  Until freq% > 732

If freq% > 500000 Then
Do
 Inc freq%, -pin(GP7)
Loop  Until freq% < 500001
Endif

 SetPin GP18,pwm1A 'this optional test signal comment out
 PWM 1,10000,30  'square wave ,this optional test signal comment out
 dim c%,x%,samples!(360),freq%,cyc%
SETPIN GP7, FIN
pause 1000
freq% = pin(GP7)
cyc% = 4 'number of cycles to display.
freq%=freq% * MM.HRES / cyc%  ' freq of ADC for cyc% cycles on screen
'print freq%
 SETPIN GP26, AIn
 adc open freq%,1

OPTION EXPLICIT
OPTION DEFAULT NONE
 SetPin GP18,pwm1A 'this optional test signal comment out
 PWM 1,10000,30  'square wave ,this optional test signal comment out
 dim c%,x%,samples!(360),freq%,cyc%

SETPIN GP7, FIN,10 'measure freq connect to GP26 a-d input
pause 10 'time to allow capture
freq% = pin(GP7)
cyc% = 4 'number of cycles to display.
freq%=freq% * MM.HRES / cyc%  ' freq of ADC for cyc% cycles on screen
if freq%>500000 then freq%=freq%/2
'print freq%

 SETPIN GP26, AIn 'sampling pin.. connected to GP7 and GP18 test sig
 adc open freq%,1 '500000,1 'samples per second
 
 FRAMEBUFFER CREATE F
 FRAMEBUFFER LAYER L
 FRAMEBUFFER WRITE L 'all graphics to LAYER L
 line 79,0,79,79,,rgb(blue) 'draw cursor
 line 0,39,159,39,,rgb(blue)
 FRAMEBUFFER WRITE F 'all graphics to buffer F
 
 do
   adc start samples!() 'get new samples
   'trigger, c% will be the element in samples!() to display from
   c%=0
  do:If samples!(c%) > 0.1 then if samples!(c%+1) < 0.2 then exit do
inc c%:loop while c%<160

math scale samples!(),79,samples!()'scale to 80 pixel height
FRAMEBUFFER COPY L,F 'copy cursor on layer L to buffer F
for x%=0 to 158 'screen width
     line x%,samples!(x%+c%),x%+1,samples!(x%+1+c%),,rgb(green) 'draw new sample from sample(c%)
next x%
FRAMEBUFFER COPY F,N 'copy buffer F to the display
loop

' use memory copy as a replacement of a for-next loop to copy
' some data from one array to another

Dim a(5)=(1,2,3,4,5,6)
Dim b(3)

Print "extracting 4 elements from an array of 6 elements"

Print :Print "before"
Print "a()= ";:Math v_print a()
Print "b()= ";:Math v_print b()

Timer =0
Memory copy integer Peek(varaddr a())+8,Peek(varaddr b()),4
t=Timer
Print :Print "memory copy takes ";t;" ms"

Print : Print "after"
Print "a()= ";:Math v_print a()
Print "b()= ";:Math v_print b()

Print :Print "same function in a for/next loop"
Timer =0
For i=1 To 4
 b(i-1)=a(i)
Next i
t=Timer
Print :Print "for next takes ";t;" ms"

Print :Print :Print "extracting 100 elements from an array to another array"
Dim c(200)
Dim d(100)
Timer =0
Memory copy float Peek(varaddr c())+8*50,Peek(varaddr d()),100
t=Timer
Print "memory copy takes ";t;" ms"

Print :Print "same function in a for/next loop"
Timer =0
For i=50 To 150
 d(i-50)=c(i)
Next i
t=Timer
Print "for next takes ";t;" ms"

extracting 4 elements from an array of 6 elements

before
a()=    1.0000,    2.0000,    3.0000,    4.0000,    5.0000,    6.0000
b()=    0.0000,    0.0000,    0.0000,    0.0000

memory copy takes  0.304 ms

after
a()=    1.0000,    2.0000,    3.0000,    4.0000,    5.0000,    6.0000
b()=    2.0000,    3.0000,    4.0000,    5.0000

same function in a for/next loop

for next takes  0.417 ms


extracting 100 elements from an array to another array
memory copy takes  0.231 ms

same function in a for/next loop
for next takes  6.916 ms