Caracterización de Arenas y Gravas con Ondas Elásticas

Doctorado en Ingeniería – Facultad de Ingeniería – Universidad Nacional de Cuyo – Año 2007
Lic. Armando Luis Imhof
' Nota: el comando inferior se puede reemplazar con HOR:DEL:POS (pg.2-94)
' Pero no sirve cdo deseo cambiar el rec time desde el programa.
PRINT #1, "hor:mai:position " + STR$(origen)
PRINT #1, "horizontal:view main"
PRINT #1, "languaje spanish"
' Display
PRINT #1, "cursor:function off"
PRINT #1, "display:contrast 45"
PRINT #1, "display:format yt"
PRINT #1, "display:persistence off"
PRINT #1, "display:style vectors"
' Config puerto de impresi¢n
PRINT #1, "hardcopy:format deskjet"
PRINT #1, "hardcopy:layout landscape"
PRINT #1, "hardcopy:port centronics"
' Config puerto RS232
PRINT #1, "rs232:baud 9600"
PRINT #1, "rs232:hardflagging on"
PRINT #1, "rs232:parity none"
PRINT #1, "rs232:transmit:terminator: CR"
' Configuraci¢n de canales
' display de se¤ales
PRINT #1, "select:ch2 on;ch1 on;math off;refa off;refb off"
PRINT #1, "ch1:coupling ac;bandwidth on;:ch2:coupling ac;bandwidth on"
' posici¢n vertical
PRINT #1, "ch1:position 2"
PRINT #1, "ch2:position -2"
' atenuaci¢n de las sondas
PRINT #1, "ch1:probe 1"
PRINT #1, "ch2:probe 1"
' escalas de mV
PRINT #1, "ch1:scale 5e-2"
PRINT #1, "ch2:scale 5e-0"
END SUB
Programa Adq_DSO.BAS:
DECLARE SUB ordrayo ()
DECLARE SUB stacking ()
DECLARE SUB adquisicion ()
DECLARE SUB writesignal ()
' programa Adq_DSO.BAS para adquirir y resguardar
' señales del TDS 210
' Autor: Armando Luis IMHOF"
' Las unidades en escala vertical son voltios
' en horizontal segundos
' Las señales se graban en archivo ASCII con cq. extension
' los registros almacenados en filas
' para proceso final hay que transponerlos.
' 18/05/06. Testeado. Ok.
COMMON SHARED scope%, n, datafile$, nstack, nr, ns, cnr, cns
'$DYNAMIC
DIM SHARED signale1(2500), signale2(2500), ValorVolt1(2500), ValorVolt2(2500)
DIM SHARED tiempos(2501), aux1(2500), aux2(2500)
scope% = 1
' n es un contador de nro de senales
n = 1
CLS
302