rusavtomatika.com

Number17 писал(а):Если нет, то ищите подобным способом выше где прокол.

Код: Выделить всё

[ID 2, Ln 9] Read from LW a = 64536
[ID 2, Ln 11] j  = a / 100.0 = 645.359985
[ID 2, Ln 14] i = 13376.621094
[ID 2, Ln 17] j = 1337662.125000
[ID 2, Ln 19] a = 1337662

Andrei писал(а):Добрый день.
Как считать номер открытого экрана на панели. LW9050 не подходит т.к. он показывает только номер основных окон. Мне надо номер всплывающих.

dikh писал(а):

Number17 писал(а):Если нет, то ищите подобным способом выше где прокол.

При а < 0 абракабадра:

Код: Выделить всё

[ID 2, Ln 9] Read from LW a = 64536
[ID 2, Ln 11] j  = a / 100.0 = 645.359985
[ID 2, Ln 14] i = 13376.621094
[ID 2, Ln 17] j = 1337662.125000
[ID 2, Ln 19] a = 1337662

Он почему то не может сделать нормальный GetData(a, "Local HMI", LW, 501, 1) при отрицательном значении

dikh писал(а):

Number17 писал(а):Если нет, то ищите подобным способом выше где прокол.

При а < 0 абракабадра:

Код: Выделить всё

[ID 2, Ln 9] Read from LW a = 64536
[ID 2, Ln 11] j  = a / 100.0 = 645.359985
[ID 2, Ln 14] i = 13376.621094
[ID 2, Ln 17] j = 1337662.125000
[ID 2, Ln 19] a = 1337662

Он почему то не может сделать нормальный GetData(a, "Local HMI", LW, 501, 1) при отрицательном значении

dikh писал(а):Добрый день.
Пытаюсь пересчитать температуру в давление с помощью следующего кода:

Код: Выделить всё

macro_command main()
int a

Код: Выделить всё

int a

Код: Выделить всё

short a

Variable Type ; Description ; Range

．Bool ; 1 bit (1 bit) ; 0, 1

．Char ; 8 bits (1 byte) ; ±127

．Short ; 16 bits (1 word) ; ±32767

．Int ; 32 bits (double word) ; ±2147418112

．Float ; 32 bits (double word)

．Unsigned Char ; 8 bits (1 byte) ; 0 ~ 255

．Unsigned Short ; 16 bits (1 word) ; 0 ~ 65535

．Unsigned Int ; 32 bits (double word) ; 0 ~ 4,294,967,295

Код: Выделить всё

   TRACE ("Module start")
   short var1
   GetData(var1, "Local HMI", LW, 303, 1)
   TRACE ("Read var1= %d", var1)
   var1 = var1 + 1
      if (var1 < 0) then
      var1 = 0
      TRACE ("var1 < 0")
   end if   
   if (var1 > 4) then
      var1 = 0
      TRACE ("var1 > 0")
   end if
   TRACE ("Write var1= %d", var1)
   SetData(var1, "Local HMI", LW, 303, 1)
   TRACE ("Module end")

Код: Выделить всё

[ID 0, Ln 238] Module start
[ID 0, Ln 241] Read var1= 0
[ID 0, Ln 251] Write var1= 1
[ID 0, Ln 253] Module end

dikh писал(а):Спасибо, с шортом заработало.
Но появилась другая проблемка - из LW303 всегда считывается 0, хотя в конце исполнения макроса он всегда 1 и фактически он всегда отображается как 1.