Help for this page

Select Code to Download


  1. or download this
    $ob = Win32::SerialPort->new($PORT) ;
    $ob->baudrate(19200);
    $ob->databits(8);
    ...
    $ob->parity("none");
    $ob->write_settings;
    $ob->save($CONF);
    
  2. or download this
    $send="0xa10xa2";          # "0xa10xa2"
    $send="\x{a1}\x{a2}";      # "กข"
    $send=hex("a1a2");         # 41378              
    $send=hex("a1").hex("a2"); # 161162
    
    $ob->write($send);
    
  3. or download this
    # read from array
    foreach $array(@array){                
    ...
            $ob->write($array);                                    # send 
    +from array
        }
    }