那从那里读呢?我这中间没有值啊,我也觉得是读,但是没有给过值啊!
/Dim LIN$(30), ER$(20)
'
' Const data
'
Const VERSION$ = "1.002"
Const PORT$ = "COM1:"
Const BAUD$ = "9600"
'
' Calibrator Id-Name 1
'
Const IDNAME = 1
'
' Initialize screen
'
Color 14, 1, 1: Cls
'
' Define error-handling routine
'
On Error GoTo ERRHANDL:
'
' Initialize Array LIN$ : Scaling/Linearizations names
' ER$ : Errors names
' RJ$ : Reference Junction types
' ITS$ : ITS types
'
For x = 0 To 29: READ LIN$(x): Next
For x = 0 To 15: READ ER$(x): Next