DVD-lab PRO

menu = MenuGetCurSel() MenuActivate(menu)

object= ObjectGetCurSel(menu) if (object==0) then

print "No object Selected" end

endif ImgGrabObject(1,menu,object) imgW = ImgGetWidth(1)

imgH = ImgGetHeight(1) ImgCreate(2,imgW,imgH)

trace "W =",imgW, " H=",imgH ProgressBar(0,imgW,"Flipping!") for x=1 to imgW

ProgressSetPos(x) ImgCopyCol(1,x,2,imgW-x+1)

next x ImgSetToObject(2,menu,object)

Advanced Authoring - LabTALK Language Core Definition (Определение Ядра Языка)

LabTALK - интерпретатор, основанный на языке BASIC. Задача этого документа состоит не в том, чтобы научить Вас языку BASIC, а скорее показать сходство и различия между ним и LabTALK. Поэтому текст ниже предполагает, что Вы имеете некоторые навыки программирования.

Variables (Переменные)

LabTALK может работать как с целыми числами, так и строковыми, вещественными переменными. В LabTALK нет предописания переменных как на языках C, или Паскаль..., переменная становится типом, как только Вы присваиваете ей значение.

a = 10

создаст целочисленную переменную "а";

b = 10.5

создаст вещественная переменную "b"

name = "Hello!"

создаст строковую переменную 'name'. Если Вы ввели '\', Вы должны сделать это как в языке C с двойным '\\'

file = "c:\\myfile.txt"

Вы можете создать вашу первую программу весьма просто:

string "Hello!" print string

Затем нажмите кнопку Run и увидите результат на экране, в окне расположенном ниже окна ввода:

Arrays (Массивы)

Массивы не нуждаются в объявлении типа или числа элементов. Они могут быть целочисленные, вещественные или строковые.

myarray[0] 10 myarray[1] = 20

Массивы в LabTALK могут быть и отрицательные:

myarray[-1] = 10

является допустимым. Фактически Вы можете смешать различные типы в пределах одного массива - но это не рекомендуется.

Индекс массива может быть константой, другой переменной или выражением. См. код ниже:

a = 5 myarray[a] = 10

myarray[a+1] = 20 print myarray[6]

Напечатается 20.

Expressions (Выражения)

LabTALK работает с целочисленными и вещественными выражениями.

b = 3

a = 3 + 2 * 5 + 4*(10+b*(23+b)) print a

Результат - 365. Вы можете использовать выражения в любой функции.

String operations (Строковые операции)

LabTALK также может использовать различные строковые операции. См. код ниже:

c = "Os"+"car"

str = "Hello"+ CHR(32) + c + "!" print str

Результат: Hello Oscar

Comments (Комментарии)

Все, что в строке находится после // - считается комментарием

menu MenuGetCurSel() // VTS menu 1..255, VMG menu 10001..10255

Комментарий может быть и целой строкой

// ****** The loop starts here ********

Вы можете комментировать блок текста с помощью /* и */

/* This text is just a comment It will never run

*/

Language (Язык)

Язык может быть разделен на две части. Одна команды основного языка - определение языка. Другая часть - функции, которые являются специфическими для DVD lab PRO.

CORE of language (Ядро языка)

for x=1 to 10

for to next ... цикл может быть вложен next x

Поле файла с кнопкой обзора

Это сделано установкой FILE: в строке

a = "C:\\myfile.txt" input "FILE:Set file", a

Цветное поле с кнопкой выбора

Это сделано установкой COLOR: в строке

a = RGB(255,0,0)

input "COLOR:Set color", a

Блок опций (поле со списком - combo box)

Варианты следуют после ':' и разделены на '|'. Переменная - от 0 ... номеров вариантов-1

a = 1

input "Select Option:Option 1|Option 2|Option 3", a

В вышеупомянутом примере, возвращаемое значение (а) будет 0, 1 или 2.

Переменная bCancelInput станет TRUE, если пользователь нажимает Cancel на диалоге ввода.

Код ниже: выход из сценария, если пользователь нажимает Cancel:

input "COLOR:Select Color ", color1 //allow cancel

if bCancelInput then trace "Cancelled" end

endif

end - завершение сценария

Команда END просто закончит сценарий

if bCancelInput then end

endif

Не обязательно помещать "END" в конце сценария, но если Вы имеете подпрограммы, Вы обязаны поместить "END" перед ними, см. про подпрограммы ниже.

goto - переход к метке

Метка - номер. Любой номер. Пожалуйста не путайте метки с номерами строки. Это не имеет никакого отношения к ним.

10 input "Value 1 or 2", a if (a==1) then

goto 100 endif

if (a==2) then goto 200

endif

print "I can understand 1 or 2" goto 10

100 print msg "You entered One" end

200 print msg "You entered Two" end

Программа будет зациклена, пока Вы не введете 1, или 2 затем она отобразит сообщение.

Метки могут быть в не последовательны, но когда они по порядку - просмотр программы более логический. (Числовые метки восходят ко времени первых компьютеров, когда каждая строка, написанная на BASIC имела ее собственный номер, но мы больше не используем это, так только метки остались)

Gosub - перейти в подпрограмму

Подпрограммы на BASIC должны быть как бы вне сценария, т.е. должны быть записаны после команды END основного кода сценария, и должны быть помечены меткой (это не имеет никакого отношения к номерам строки). Возвращение из подпрограммы сделано с командой RETURN.

print "1" gosub 100 print "2" end

100 print "subroutine" return

Выведенный результат будет:

1 subroutine 2

Обратите внимание: команда END обязательно должна присутствовать в сценарии, причем прописана перед подпрограммами!