Nemáte někdo představu co znamená chyba 2 v historii OS17 při odeslíní HTTP GET? Vždy mi to na Endoru fungovalo bez problémů a poslední dobou mi vynechává posílání, vždy to hodí chybu 2.  Zlobí to ze dvou různých SDS.

Samozřejmě je možné udělat i test samotného SDS - pokud má RS232 nebo UART, stačí přímo spojit RX a TX drát, a co se pak v telnet terminálu napíše, se ihned zobrazí. Ve webovém rozhraní zařízení se pak musí úměrně počtu přenesených znaků zvyšovat počítadla znaků.
Pro RS485 je potřeba takový test udělat např. s druhým SDS MACRO - připojit se telnetem na oba (dva terminály) a co se napíše na jednom, se zobrazí i na druhém. Pozor u RS485, klasická chyba: pro RS485 se nekříží vodiče tak jako např. u RS232 (rx na tx, a tx na rx) - RS485 má A na A a B na B, pro všechny zařízení na RS485 sběrnici!

Pokud se tedy provede úvodní test, mělo by vše fungovat. Pokud ne, je potřeba zkontrolovat nastavení linky (bps, parita, počet stop bitů) - lze si napsat jednoduchý SDS-C program, který to obslouží:

main
{
 echo('nastavuji seriovou linku');

 // nastav seriovou linku
 serial_set(9600, 8, 1, 0); // 9600bps 8n1

 // a zde se zastavime, protoze nechci aby mi SDS-C program interferoval s pokusy pres telnet
 x: goto x;
}

Program co bude co 1 sec zapínat a vypínat první relé (bez kontroly zda se to povedlo):

main
{
 echo('nastavuji seriovou linku');

 // nastav seriovou linku
 serial_set(9600, 8, 1, 0); // 9600bps 8n1

 // nasledujici kod se bude neustale opakovat
znovu:

 echo('ZAP');

 serial_text_out('*B$OS1H', 0x0D);
 
 wait(1000);


 echo('VYP');

 serial_text_out('*B$OS1L', 0x0D);
 
 wait(1000);

 goto znovu;
}

9sepnuto
Pokus o sepnuti vstupu 10
Odpoved zarizeni *B10

10sepnuto
Pokus o sepnuti vstupu 11
Odpoved zarizeni
Pokus o sepnuti vstupu 11
Odpoved zarizeni
Pokus o sepnuti vstupu 11
Odpoved zarizeni
Pokus o sepnuti vstupu 11
Odpoved zarizeni
Pokus o sepnuti vstupu 11
Odpoved zarizeni
Pokus o sepnuti vstupu 11
Odpoved zarizeni
sepnuti se nezdarilo!
Pokus o sepnuti vstupu 12
Odpoved zarizeni
Pokus o sepnuti vstupu 12
Odpoved zarizeni
Pokus o sepnuti vstupu 12
Odpoved zarizeni
Pokus o sepnuti vstupu 12
Odpoved zarizeni
Pokus o sepnuti vstupu 12
Odpoved zarizeni
Pokus o sepnuti vstupu 12
Odpoved zarizeni
sepnuti se nezdarilo!
Pokus o sepnuti vstupu 13
Odpoved zarizeni
Pokus o sepnuti vstupu 13
Odpoved zarizeni
Náhodně se výstupy zapínají a vypínají. Vzdávám to, domluvil jsem se p. Prejdou, že mi Macro i papoucha odzkouší, takže to zasílám zpět.Jsem jen zvědavý, co to bylo, jestli macro, papouch nebo nějaká kravina u mne.
Díky všem za pomoc.

Nezkoušel jsi ten poslední c-prog co jsem tu dal včera? Ten vypisuje to text[] odpovědi a vypisuje je do konzoly.

reagovat je v sys140=1000, u ostatních sys to nedělá nic.

Pokud si dám echa do sys 140 =1000, tak vypisuju potvrzení:
66049048013042066049048013042, to jest přijmul paket a odpovídá ok /ty nuly mezi jsou sys48/ a náhodně

spíná výstupy, ale opravdu náhodně.
Myslím, že pokud papouch nemá vyjmuté všechny znaky z bufferu, tak neprovede pokyn-je to tak?

A tady asi je nějaký zádrhel, ale stále nevím, jestli je zádrhel u papoucha nebo u macra nebo u mne, fakt

nevím.

Pokud si dám tento pokus:
var _s;
init
{
echo('go');
serial_set(9600, 8, 1, 0);
}

main
{
echo (' 48:'sys[48]);
echo (' 49:'sys[49]);
echo (' 49:'sys[49]);
echo (' 49:'sys[49]);
echo (' 49:'sys[49]);
echo (' 49:'sys[49]);
if (sys[140]==1000) {
   _s=0x4c;  //L

if (sys[49]==-1)
{
   serial_text_out('*B$OS',0x31, _s, 0x0D); //hex cislo 2
   wait(500);
//sys[140]=0;
echo ('VYP 48:'sys[48]);
echo ('VYP 49:'sys[49]);
}
}
   wait(1000);

if (sys[140]==100) {

   _s=0x48;
if (sys[49]==-1)
{
   serial_text_out('*B$OS',0x31, _s, 0x0D); //hex cislo 2
   wait(100);
echo ('ZAP 48:'sys[48]);
echo ('ZAP 49:'sys[49]);
//sys[140]=0;
}
}
}

Tak při sys1000:
49:-1
VYP 48:1
VYP 49:-1
48:1
49:-1
49:-1
49:-1
49:-1
49:-1
VYP 48:1
VYP 49:-1
48:1
49:-1
49:-1

Při sys 100:
49:-1
49:-1
49:-1
49:-1
49:-1
ZAP 48:1
ZAP 49:-1
48:1
49:-1
49:-1
49:-1

A někdy s velkým spožděním to zapne nebo vypne výstup 1 a samozřejmě u toho vypíše potvrzovací sekvenci v sys49.
Co s tím??

Dá se do pole nějak dostat proměnnou jako znaky? Tedy mám x=12, v text[0] chci mít znak "1" v text[1] chci mít znak "2". Je to pro tohle '*B$OS1H' resp. '*B$OS12H'.

var _pom;
var _in;
var _s;
var _ovl;
var _txt;

init
{
echo('start');
serial_set(9600, 8, 1, 0); //nastav linku

sprintf(text[10], '*B$OS1L'); //1vyp
sprintf(text[20], '*B$OS2L'); //2vyp
sprintf(text[30], '*B$OS3L'); //3vyp
sprintf(text[40], '*B$OS4L'); //…
sprintf(text[50], '*B$OS5L');
sprintf(text[60], '*B$OS6L');
sprintf(text[70], '*B$OS7L');
sprintf(text[80], '*B$OS8L');
sprintf(text[90], '*B$OS9L');
sprintf(text[100], '*B$OS10L');
sprintf(text[110], '*B$OS11L');
sprintf(text[120], '*B$OS12L');
sprintf(text[130], '*B$OS13L');
sprintf(text[140], '*B$OS14L');
sprintf(text[150], '*B$OS15L');
sprintf(text[160], '*B$OS16L');

sprintf(text[210], '*B$OS1H'); //1zap
sprintf(text[220], '*B$OS2H'); //2zap
sprintf(text[230], '*B$OS3H'); //3zap
sprintf(text[240], '*B$OS4H');
sprintf(text[250], '*B$OS5H');
sprintf(text[260], '*B$OS6H');
sprintf(text[270], '*B$OS7H');
sprintf(text[280], '*B$OS8H');
sprintf(text[290], '*B$OS9H');
sprintf(text[300], '*B$OS10H');
sprintf(text[310], '*B$OS11H');
sprintf(text[320], '*B$OS12H');
sprintf(text[330], '*B$OS13H');
sprintf(text[340], '*B$OS14H');
sprintf(text[350], '*B$OS15H');
sprintf(text[360], '*B$OS16H');

}

485
{
_pom=0;
485_0:
_ovl=_in*10+_s*200;  //ukazatel do predchystaneho pole ovl.stringu
if (_s==0) {
  echo ('Pokus o rozepnuti vstupu ', _in);
} else {
  echo ('Pokus o sepnuti vstupu ', _in);
}
serial_text_out(text[_ovl], 0x0D);
wait(100);  //dat mu cas na odezvu
_txt=400;
//celou odpoved do pole
if(sys[48]==0) {
  485_1:
  text[_txt]=sys[49];
  _txt++;
  if (sys[48]==0 && _txt<420) goto 485_1;
}
text[_txt]=0x00; //konec pro echo
//potvrzeni OK
echo ('Odpoved zarizeni ', text[400]);
if (text[400]==42 && text[401]==66 && text[402]==49 && text[403]==48 && text[404]==13) {
  if (_s==1) {
   echo (_in, 'sepnuto');
  } else {
   echo (_in, 'rozepnuto');
  }
  return;
}
//akce se nezdarila opakuju
wait(100);
_pom++;
if (_pom>5) {
  if (_s==1) {
   echo ('sepnuti se nezdarilo!');
  } else {
   echo ('rozepnuto se nezdarilo!');
  }
  return;
}
goto 485_0;
}

main
{
_in=1;
_s=1;  //zap
label main_0:
485();
if (_in<=16) {
  _in++;
  goto main_0;
}

_in=1;
_s=0;  //vyp
label main_1:
485();
if (_in<=16) {
  _in++;
  goto main_1;
}
}

init
{
echo('go');
serial_set(9600, 8, 1, 0);
_zap=49;  //1
_vyp=49;  //1
}

485
{
_pom=0;
485_0:
serial_text_out('*B$OS', _in, _s , 0x0D);
wait(100);  //dat mu cas na odezvu
_ram=0;
//celou odpoved do pole
if(sys[48]==0) {
  485_1:
  ram[_ram]=sys[49];
  //echo ram[_ram];
  _ram++;
  if (sys[48]==0) goto 485_1;
}
//if (sys[48]==1 && _ram==0) {
// echo (sys[48]);
// echo (sys[49]);
//}
//_ret=0;
//if (_ram>0) {
// 485_2:
// echo ram[_ret];
// _ret++;
// if (_ret<_ram) goto 485_2;
// wait(500);
//}
//potvrzeni OK
if (ram[0]==42 && ram[1]==66 && ram[2]==49 && ram[3]==48 && ram[4]==13) {
  if (_s==0x48) {
   echo (_in, 'sepnuto');
  } else {
   echo (_in, 'rozepnuto');
  }
  return;
}
//akce se nezdarila opakuju
wait(100);
_pom++;
if (_pom>5) {
  if (_s==0x48) {
   echo ('sepnuti se nezdarilo!');
  } else {
   echo ('rozepnuto se nezdarilo!');
  }
  return;
}
goto 485_0;
}

main
{
//if (sys[141]==0) {
  //echo (_vyp, _zap);

  if (sys[140]==10) {
   _s=0x4c;  //vyp
   _in=0x31;
   485();
   _in=0x32;
   485();
   _in=0x33;
   485();
   _in=0x34;
   485();
   _in=0x35;
   485();
   _in=0x36;
   485();
   _in=0x37;
   485();
   _in=0x38;
   485();
   _in=0x39;
   485();
   wait(500);
   sys[140]=11;
  }
  if (sys[140]==100) {
   _in=0x31;
   _s=0x48;  //zap
    485();
   wait(1000);
   _in=0x31;
   _s=0x4c;  //vyp
   485();
   wait(1000);
  }

  if (sys[140]==1000) {
   //_s=72;  //H
   //_s=0x48;  //H
   //_s=76;  //L
   _s=0x4c;  //L
   serial_text_out('*B$OS',0x31, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x32, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x33, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x34, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x35, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x36, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x37, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x38, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x39, _s, 0x0D); //hex cislo 2

   //serial_text_out('*B$OS',0x31, 0x32,'L', 0x0D); //hex cislo 12
   //serial_text_out('*B$OS',49,'L', 0x0D); // dekadicky cislo 1
   //echo(sys[48], ' data: ', sys[49]);
   wait(1000);

   _s=0x48;
   serial_text_out('*B$OS',0x31, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x32, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x33, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x34, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x35, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x36, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x37, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x38, _s, 0x0D); //hex cislo 2
   wait(100);
   serial_text_out('*B$OS',0x39, _s, 0x0D); //hex cislo 2
   wait(100);
  }

  if (sys[140]==10000) {
   _s=0x48;  //zap
   s1:
   _in=0x31;
   485();
   if (_in<0x38) {
    _in++;
    goto s1;
   }

   wait(1000);

   _s=0x4c;  //vyp
   s2:
   _in=0x31;
   485();
   if (_in<0x38) {
    _in++;
    goto s2;
   }

   wait(1000);
  }

  //serial_text_out('*B$OS',49,'H', 0x0D);
  //serial_text_out('*B$OS',0x31, 0x32,'H', 0x0D);
  //serial_text_out(0x2A,0x61,0x00,0x06,0x01,0x02,0x20,0x82,0xC9,0x0D);
  //serial_text_out('*B$OS',0x32,'H', 0x0D); //hex cislo 2
  //echo(sys[48], ' data: ', sys[49]);

  //_vyp=_zap;
  //_zap++;
  //if (_zap>15) { _zap=0x00; }
//}

//wait(1000);
}

Ten program by ale stálo za to přepsat celý - jaký je vlastně cíl toho čeho se snažíte dosáhnout ? Podle toho pak něco vymyslíme...

Jinak zkuste nový beta firmware (2.9.) pro SDS MACRO, jsou tam nějaké drobné opravy v SDS-C, možná to nějak pomůže při ladění programu...

var(_pruchod,_val,_rs485in,_rs485s,_ram,_pom );

rs485
{
_pruchod=0;
rs485_0:
if (_val<10) {
  _rs485in=0x30+_val;
  serial_text_out('*B$OS', _rs485in, _rs485s , 0x0D);
} else {
  _rs485in=0x30+_val-10;
  serial_text_out('*B$OS', 0x31, _rs485in, _rs485s , 0x0D);
}
wait(50);  //dat mu cas na odezvu
_ram=0;
//celou odpoved do pole
if(sys[48]==0) { // pokud je nejaky znak prijaty ze seriove sbernice
  rs485_1:
  ram[_ram]=sys[49]; // prevezmi prijaty znak ze seriove sbernice do urcene pozice pole ram[]
  _ram++; // dalsi pozice v ram[], kam se zapise dalsi znak
  if (sys[48]==0  && _ram<100) goto rs485_1;  //at se odpoved nedostane do ram100 !!!
}
//potvrzeni OK - porovnej prijate znaky ulozene v ram[]
if (ram[0]==42 && ram[1]==66 && ram[2]==49 && ram[3]==48 && ram[4]==13) {
  _pom=_val+99;
  // zpracuj hodnotu
  if (_rs485s==0x48) {
   echo (_val, ' zapnuto');
   ram[_pom]=1;
  } else {
   echo (_val, ' vypnuto');
   ram[_pom]=0;
  }
  goto rs485_end;
}
//akce se nezdarila opakuju
wait(50);
_pruchod++;
if (_pruchod>5) {
  if (_rs485s==0x48) {
   echo ('zapnuti se nezdarilo!');
  } else {
   echo ('vypnuti se nezdarilo!');
  }
  goto rs485_end;
}
goto rs485_0;

label rs485_end:
}

nastav485
{
_val=sys[140];  //1-16
if (_val==0 || _val>16) goto nastav485_end;  //zadna zmena
echo ('Pozadavek na rs485 - ', _val);
_pom=99+_val;
if (ram[_pom]==0) {
  _rs485s=0x48;  //zap
  rs485();
} else {
  _rs485s=0x4c;  //vyp
  rs485();
}
sys[140]=0;  //vynulovat prikaz

// pozn. echo ram[100] az ram[115] nesouvisi s predchozim kodem
echo ('vypis RAM: ', ram[100], ',', ram[101], ',', ram[102], ',', ram[103], ',', ram[104], ',', ram[105], ',', ram[106], ',', ram[107], ',', ram[108], ',', ram[109], ',', ram[110], ',', ram[111], ',', ram[112], ',', ram[113], ',', ram[114], ',', ram[115] );

label nastav485_end:
}

main
{

nastav485();
wait (500);
}

Konzole:
is RAM: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Pozadavek na rs485 - 1
zapnuti se nezdarilo!
vypis RAM: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Pozadavek na rs485 - 1
zapnuti se nezdarilo!
vypis RAM: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Pozadavek na rs485 - 1
zapnuti se nezdarilo!
vypis RAM: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Pozadavek na rs485 - 11
11 zapnuto
vypis RAM: 0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0
Pozadavek na rs485 - 11
11 vypnuto
vypis RAM: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Pozadavek na rs485 - 11
11 zapnuto
vypis RAM: 0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0
Pozadavek na rs485 - 11
11 vypnuto
vypis RAM: 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Pozadavek na rs485 - 11
11 zapnuto
vypis RAM: 0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0
Pozadavek na rs485 - 5
5 zapnuto
vypis RAM: 0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0
Pozadavek na rs485 - 5
5 vypnuto
vypis RAM: 0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0
Pozadavek na rs485 - 5
5 zapnuto
vypis RAM: 0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0

Během výpisu v konzoli se nahodil fyzicky pouze výstup 11.

Laboruju s tím celý víkend, někdy se nějaký výstup podaří nahodit, zdá se mi to ale náhodné. Zaráží mě taky, že pokud F5 obnovím pouze  výpis konzole, tak mi problikne příjmací LED dioda na IO modulu Papoucha. To znamená, že F5 pošlu dodaz na Papoucha-to je divné.

Zkoušel jsem i jiný protokol, i jiné dotazy na Papoucha, ale je to stále stejné. Papouch blikne , že přijal asi paket, ale zpět se nic do SYS48/49 nedostane. Pokud se to dostane, tak vyloženě náhodně , třeba po 20 x F5 nebo po 2-3 minutách po odeslání a nebo vůbec.
Je nějaká šance odzkoušet  výstup 485 na Macru? Nevím, kde je chyba, jestli u Papoucha nebo u Macra nebo u mně.
Pls... a díky.

Každopádně, pro ovládání RS485 nebo RS232 modulu není potřeba něco složitého vymýšlet, jde jen o správné sestavení textu pro odeslání do modulu - viz funkce serial_text_out() - popis chování funkce je na WiKi.

serial_text_out('*B$OS', _rs485in, _rs485s , 0x0D);
//
// výsledný odeslaný text: *B$OS + obsah _rs485in + obsah _rs485s + ASCII znak 0x0D

Samozřejmě záleží na protokolu, kterému cílové zařízení rozumí. Tady je příklad pro zařízení které rozumí jednoduchým textovým příkazům.

Složitější to bude až v okamžiku kdy se bude provádět příjem ze zařízení. Potom bude potřeba správně přijaté data zpracovat, vybrat si pouze platnou odpověď, a vytáhnout z ní požadované informace.
Proto např. výše uvedený ukázkový příklad přijaté znaky ze sériové sběrnice ukládá do pole (původně ram[], nově text[]), a následně zpracovává obsah tohoto pole. Pokud tam nalezne to co hledá, tak to (v tomto příkladě) vypíše na webovou stránku (konzole).