Setpin no, INTL, MyInt

GUI Interrupt

Run
19:44:58 ->   0.120
19:44:59 ->   0.172
19:45:00 ->   0.172
19:45:01 ->   0.172
19:45:02 ->   0.616
19:45:03 ->   0.616
19:45:04 ->   0.616
19:45:05 ->   0.616
19:45:06 ->   0.616
19:45:07 ->   0.571
19:45:08 ->   0.173
19:45:09 ->   0.173
19:45:10 ->   0.173
19:45:11 ->   0.174
19:45:12 ->   0.173
19:45:13 ->   0.173
19:45:14 ->   0.173
19:45:15 ->   0.650
19:45:16 ->   0.173
19:45:17 ->   0.582
19:45:18 ->   0.173
19:45:19 ->   0.173
19:45:20 ->   0.605
19:45:21 ->   0.649
19:45:22 ->   0.173
>

'with real gps module
Run
'execution time in main (if >50ms)
09:58:00 ->   0.122
09:58:01 ->   0.601   <---
09:58:02 ->   0.124
09:58:03 ->   0.124
09:58:04 ->   0.124
09:58:05 ->   0.124
09:58:06 ->   0.125
09:58:07 ->   0.601   <---
09:58:08 ->   0.124
09:58:09 ->   0.124
09:58:10 ->   0.562   <---
09:58:11 ->   0.124
09:58:12 ->   0.593   <---
09:58:13 ->   0.124
09:58:14 ->   0.125
09:58:15 ->   0.124
09:58:16 ->   0.592   <---
09:58:17 ->   0.123
09:58:18 ->   0.123
09:58:19 ->   0.124
09:58:20 ->   0.558   <---
09:58:21 ->   0.596   <---
09:58:22 ->   0.125
09:58:23 ->   0.565   <---
09:58:24 ->   0.125
>

Option EXPLICIT
'option autorun on

Const cnbbuf = 10

Dim i As integer
dim j as integer
dim txt as string
dim v1 as float
Dim ptime1 As float
Dim ptime2 As float
Dim tmbuf(cnbbuf) As string
dim flgtmbuf(cnbbuf) as integer
Dim ptWrite As integer
Dim ptRead As integer
Dim txbufgps As string
dim flgf as integer
dim nbcar as integer
txbufgps=""
flgf=0

Open "COM1:9600,255,spcomrec4" As #2
ptWrite=0
ptRead=0
for i=1 to cnbbuf
 tmbuf(i)=""
 flgtmbuf(i)=0
next i

'*****************************
do
 ptime1=timer
 for i=1 to 20
   for j=1 to 10
     txt="bonjour"
     v1=(3.14159/5.2)*3.7
     txt=""
   next j
 next i
 ptime2=timer
 if ptime2-ptime1>50 then
   print "time";str$((ptime2-ptime1)/1000,4,3);"  nb char=";str$(nbcar)
   nbcar=0
 end if
 pause(100)
loop
'*****************************

sub spcomrec4
Local tx$ As string 'length 3
Local i1 As integer
Local i2 As integer
Local a$ As string length 1
local vai as integer
 i1=Loc(#2)
 if i1=0 then
   exit sub
 else
   tx$=Input$(i1,#2)
   nbcar=nbcar+i1
   print i1  'i1=number of char in receive buffer
   '----------- mark1 loop storing data
   For i2=1 To i1
     a$=Mid$(tx$,i2,1)
     vai=asc(a$)
     if a$="$" then
       ptWrite=ptWrite+1
       if ptWrite>cnbbuf then ptWrite=1
       tmbuf(ptWrite)=""
       flgtmbuf(ptWrite)=1
     end if
     if vai=10 then  
       flgtmbuf(ptWrite)=2
     else
       if vai>31 then tmbuf(ptWrite)=tmbuf(ptWrite)+a$
     end if
   next i2
   '----------  mark2 end loop
 end if  
end sub
     

(extract)
4
3
4
4
4
4
4
time   0.568  nb char=485
time   0.059  nb char=0
time   0.059  nb char=0

1
2
1
1
1
1
time   0.581  nb char=500
time   0.059  nb char=0