
A: Example Scripts
60 013-RD000-000-12- 201010
Display("pK = ",pK,"")
Pause(2)
Display("Slope = ",Slope,"")
Pause(2)
GOTO Top
LABEL EXIT
END
[PROCESS ViewpH]
// View pH Interface
Label TOP
ShowMenu("Measure Sample","Save pH","Back")
OnButtonClick(UserSelection,TimeOutSeconds)
If(UserSelection = 0) GOTO CALCULATE_IT
If(UserSelection = 1) GOTO Save_pH
If(UserSelection = 2) CALL MainMenu
GOTO EXIT
LABEL CALCULATE_IT
CALL CalculatepH
GOTO TOP
LABEL Save_pH
OpenFile(pH_Save,ForWrite)
SaveReading(pH_Save,"pH = ",pH,"")
CloseFile(pH_Save)
DisplayMsg("pH Saved")
Pause(2)
GOTO TOP
LABEL EXIT
END
Komentáře k této Příručce