Работа с битами
Здравствуйте.
1 - Смотрю ваш пример "Работа с битами", он не работает.
2 - в выборе переменных есть канал "Тест" и "Скрипт", а в редакторе каналов нет.
Что это за каналы и как работают?
3 - Не найду, как объявить глобальную переменную?
1 - Смотрю ваш пример "Работа с битами", он не работает.
2 - в выборе переменных есть канал "Тест" и "Скрипт", а в редакторе каналов нет.
Что это за каналы и как работают?
3 - Не найду, как объявить глобальную переменную?
либо биты паковать напрямую, либо сложить два ворда.
Вот код. Если можно проще, то выложите пожалуйста.
[spoiler]
bin01,bin02 и тд виртульные каналы (переключатели)
На выходе всё упаковано в Dword и отправленно на PLC
var varr :word; //промежуточное значение bit0r,bit1r,bit2r,bit3r,bit4r,bit5r,bit6r,bit7r,bit8r, bit9r,bit10r,bit11r,bit12r,bit13r,bit14r,bit15r,bit16r, bit17r,bit18r,bit19r,bit20r,bit21r,bit22r,bit23r,bit24r, bit25r,bit26r,bit27r,bit28r,bit29r,val2 :boolean; begin bit0r:= ReadValue('bin01'); bit1r:= ReadValue('bin02'); bit2r:= ReadValue('bin03'); bit3r:= ReadValue('bin04'); bit4r:= ReadValue('bin04a'); bit5r:= ReadValue('bin05'); bit6r:= ReadValue('bin06'); bit7r:= ReadValue('bin06e'); bit8r:= ReadValue('bin07'); bit9r:= ReadValue('bin08'); bit10r:= ReadValue('bin08d'); bit11r:= ReadValue('bin08n'); bit12r:= ReadValue('bin09'); bit13r:= ReadValue('bin10'); bit14r:= ReadValue('bin11'); bit15r:= ReadValue('bin12'); bit16r:= ReadValue('bin12a'); bit17r:= ReadValue('bin13'); bit18r:= ReadValue('bin14'); bit19r:= ReadValue('bin15'); bit20r:= ReadValue('bin16'); bit21r:= ReadValue('bin17'); bit22r:= ReadValue('bin18'); bit23r:= ReadValue('bin19'); bit24r:= ReadValue('bin20'); bit25r:= ReadValue('bin21'); bit26r:= ReadValue('bin22'); bit27r:= ReadValue('bin23'); bit28r:= ReadValue('bin24'); if bit0r=True then SetOnBit(varr,0) else SetOffBit(varr,0); if bit1r=True then SetOnBit(varr,1) else SetOffBit(varr,1); if bit2r=True then SetOnBit(varr,2) else SetOffBit(varr,2); if bit3r=True then SetOnBit(varr,3) else SetOffBit(varr,3); if bit4r=True then SetOnBit(varr,4) else SetOffBit(varr,4); if bit5r=True then SetOnBit(varr,5) else SetOffBit(varr,5); if bit6r=True then SetOnBit(varr,6) else SetOffBit(varr,6); if bit7r=True then SetOnBit(varr,7) else SetOffBit(varr,7); if bit8r=True then SetOnBit(varr,8) else SetOffBit(varr,8); if bit9r=True then SetOnBit(varr,9) else SetOffBit(varr,9); if bit10r=True then SetOnBit(varr,10) else SetOffBit(varr,10); if bit11r=True then SetOnBit(varr,11) else SetOffBit(varr,11); if bit12r=True then SetOnBit(varr,12) else SetOffBit(varr,12); if bit13r=True then SetOnBit(varr,13) else SetOffBit(varr,13); if bit14r=True then SetOnBit(varr,14) else SetOffBit(varr,14); if bit15r=True then SetOnBit(varr,15) else SetOffBit(varr,15); if bit16r=True then SetOnBit(varr,16) else SetOffBit(varr,16); if bit17r=True then SetOnBit(varr,17) else SetOffBit(varr,17); if bit18r=True then SetOnBit(varr,18) else SetOffBit(varr,18); if bit19r=True then SetOnBit(varr,19) else SetOffBit(varr,19); if bit20r=True then SetOnBit(varr,20) else SetOffBit(varr,20); if bit21r=True then SetOnBit(varr,21) else SetOffBit(varr,21); if bit22r=True then SetOnBit(varr,22) else SetOffBit(varr,22); if bit23r=True then SetOnBit(varr,23) else SetOffBit(varr,23); if bit24r=True then SetOnBit(varr,24) else SetOffBit(varr,24); if bit25r=True then SetOnBit(varr,25) else SetOffBit(varr,25); if bit26r=True then SetOnBit(varr,26) else SetOffBit(varr,26); if bit27r=True then SetOnBit(varr,27) else SetOffBit(varr,27); if bit28r=True then SetOnBit(varr,28) else SetOffBit(varr,28); WriteValue('odwTestMU',varr); //Записать готовы результат в DWORD end.[/spoiler]RE:
Проверил в работе. Работает :)