summaryrefslogtreecommitdiff
path: root/Origin/tools/scilab/windows/macros/cmd_encoder_init.sci
blob: 13b5cccf5a36edff73bc964cfa01d06d13c8fcca (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function cmd_encoder_init(h,enc_mode,pin_no_1,pin_no_2)
    
    
    //Eajkl: activate encoder on channelA on INT number j (j=ascii(2 or 3 or 18 or 19 or 20 or 21) et channelB on pin k or INT number k (k=ascii(0)..ascii(53)) and l=1 or 2 or 4 for 1x mode (count every rising of chA) or 2x mode (count every change statement of chA) or  4x mode (every change statement of chA et chB)
    
       code_sent="Ea"+ascii(0+corresp(block.rpar(3))); //on envoie plus le PIN mais le numéro d'interruption
          if  block.rpar(2)==4 then //mode4
              code_sent=code_sent+ascii(0+corresp(block.rpar(4)))+string(block.rpar(2));// on envoie le num d'interruption
          else//mode 1 ou 2
              code_sent=code_sent+ascii(0+block.rpar(4))+string(block.rpar(2));//on envoie le num de PIN en mode 1x/2x
          end

//          writeserial(port_com,code_sent); 
          write_serial(1,code_sent,5)
          code_sent="Ez"+ascii(corresp(block.rpar(3)));
//          writeserial(port_com,code_sent); 
          write_serial(1,code_sent,3)
endfunction