если нет то как сказано накапливаешь 300-400точек в буффере и сливаешь по Rs232
Код: Выделить всё
screen 19
dim as integer x,a,u ,z,s, sync1,sync2,k
dim as short j,ykey,ykey2
Dim As Ubyte msg1
Dim As Ubyte msg2
Dim As Ubyte delta,fr,por
dim as double t,t2,r1,r2,st,freq
'dim as integer xMOUS, yMOUS, buttonsMOUS,resMOUS,LMOUS,RMOUS,MMOUS
dim as Ubyte h (16000)
'dim as Ubyte hm (16000)
ykey= 64
ykey2= 192
Open Com "com1: 57600, N, 8, 1,cs0,ds0,cd0,rs " As #4
'Com_port=&hCf00
DO
msg1=1 'синхронизация
Put #4,,msg1 'синхронизация
msg1=254 'синхронизация
Put #4,,msg1 'синхронизация
fr=1
Put #4,,fr
por=15
Put #4,,por
Get #4,,msg1
h (1)= msg1
Get #4,,msg1
h (2)= msg1
freq=(h(1)*256+h(2))*2
Locate 2,10
Print Using "freq high kHz #######.## ";freq
Get #4,,msg1
h (1)= msg1
Get #4,,msg1
h (2)= msg1
freq=(h(1)*256+h(2))/4
Locate 3,10
Print Using "freq low <16mhz #######.## ";freq
begin:
t=timer
for x=0 to 842
' for k=0 to 60
Get #4,,msg1 ' get data terminated with CR
h (x)= msg1
' h (x)=inp(&H3f8)
t2=timer
Locate 1,60
Print Using "time cycle ######.## "; (t2-t)
'sleep 1
next x
' for x=1 to 802
' r1= (h(x+1)-h(x-1))/0.1
' r2= (h(x+1)-2*h(x)+h(x-1))/0.01
' for st=-0.9 to 0.9 step 0.1
' hm((x+st)*10)=h(x)+r1*st ' r2*st*st
' next st
' next x
locate 1,20:PRINT "average=";u
s=0
u=0
pause1:
'' sleep 1
IF MULTIKEY(&h50) THEN ykey = ykey-2
IF MULTIKEY(&h48) THEN ykey = ykey+2
IF MULTIKEY(&h51) THEN ykey2 = ykey2-2
IF MULTIKEY(&h49) THEN ykey2 = ykey2+2
'goto ultra_x
for x=1 to 799
line (x,80)-(x,599),0
s= h(x)+s
pset(x,590-ykey),2
pset(x,590-ykey2),11
pset(x,590-0)
pset(x,590-128*2),5
pset(x,590-255*2),6
line (x,590-h(x)*2)-(x,590-h(x-1)*2),3
pset(x,590-h(x)*2),6
next x
goto endx
ultra_x:
for x=1 to 79
for j=0 to 9
line (x*10+j,80)-((x-1)*10+j,599),0 'затираем
next j
s= h(x)+s
pset(x*10,590-ykey),2
pset(x*10,590-ykey2),11
pset(x*10,590-128*2),5
pset(x*10,590-255*2),6
line (x*10,590-h(x)*2)-((x-1)*10,590-h(x-1)*2),1
pset ((x-1)*10,590-h(x-1)*2+1)
next x
endx:
u=s/799
Locate 2,60
Print Using "y-line-key green###.##"; ykey/2
Locate 3,60
Print Using "y-line-key ###.##"; ykey2/2
IF MULTIKEY(&h4F) THEN goto pause1:
LOOP WHILE NOT MULTIKEY(&h1)
Close
WHILE INKEY$ = "": WEND
PRINT "Press any key to exit..."
, буду пробовать