Page 15 - 4352

IF STR$ <> "POINT" THEN 10
S1$ = S2$ + S3$
У виразах з рядковими змінними можуть використовуватися функції. Як
приклад роботи з рядками наводиться фрагмент програми розбору рядка з файлу
керуючої програми (КП) для верстата з ЧПК. КП містить рядки виду
…
N13X10.1Y32.4Z-7.89
N13Y32.9Z-7.99
N13X10.0Y32.4Z-6.89
N13X9.8
…
Програма для отримання значень X,Y,Z з рядків КП виглядає в такий
спосіб:
Open "file.msh" For Input As id# ‘ Відкриваємо файл із КП.
Do
Input id#, s ‘ Зчитуємо черговий рядок.
If LEFT$ (s$,3) = "N13" Then ‘ Рядок з "N13" на початку.
len# = LEN (s$) ‘ Визначаємо довжину рядка.
' Послідовно перевіряємо кожен символ рядка, знаходимо 'X', 'Y' й 'Z'
‘ і переводимо наступне за ними значення із символьного в числове.
For i#=3 To len#-l
с$ = MID$ (s$,i#,l)
If c$ = "X" Then X = VAL (MID$ (s$,i#+l,10)
ElseIf c$ = "Y" Then Y = VAL (MID$ (s$,i#+l,10)
ElseIf c$ = "Z" Then Z = VAL (MID$ (s$,i#+l,10)
Next
EndIf
‘ *** Тут інші команди ***
Loop Until EOF (id#) ‘ Якщо дійшли до кінця файлу, то закінчимо.
Close id#
Деякі системи керування верстатами з ЧПК мають особливості в поданні
координат. Наприклад, у системі керування FANUC запис X100. відповідає 100
міліметрам, а запис X100 - 100 імпульсам (*.001 мм) - .1мм.
Для правильного формування запису координат для таких верстатів
застосовуються спеціальні функції виводу числових значень - STR_FP$ й
STR_NZ$. Ці функції перетворять числове значення в рядок, що потім
виводиться у файл за відповідним форматом.
Приклад:
‘ Вивід координати X із двома знаками після коми й обов'язковою десятковою
крапкою
write id# using "X%s", STR_FP$(x*RDISCR,2)

У таблиці 4 наводиться повний список функцій для роботи з рядками:

14