SRS Labs Lock-In Amplifier Instrukcja Użytkownika Strona 52

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 82
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 51
48
call rxstr(str2)
[ convert string variable into real variable v1 and v2
read (str1,1000) v1
read (str2,1000) v2
1000 format (bn,f10.0)
[ print results to screen
write(*,2000) v1, v2
2000 format( Channel 1=,G10.3,3x, Channel 2=,G10.3)
[ ramp x6 by 2.5 mV
x6 = x6 + .0025
if (x6.gt.10) x6 = 0.0
[ make x6 command string
write (str3,3000) x6
3000 format (x6,,f7.3,$)
call txstr(str3)
[ and loop forever
goto 20
stop
end
[ ***********************************
subroutine nocom
[ in case of a timeout error, this routine runs
[ put your error handler here.
[ write(*,*) char (7)
write(*,*)RS232 Timeout Error!
stop
end
Przeglądanie stron 51
1 2 ... 47 48 49 50 51 52 53 54 55 56 57 ... 81 82

Komentarze do niniejszej Instrukcji

Brak uwag