powershell 串口相关

自己用来测试串口的一些函数

---------

 

# 使用 powershell 测试串口数据

# 列出有对外使用价值的函数
function showFunctions()
{
    ('function list:',
     '    listPortNames()',
     '    getPort($portSetting, $readTimeOut)',
     '    closePort($port)',
     '    sendReceiveAndDisplayBytes($port, $hexString)',
     '-- done --') | write-host;
}

# 列出串口列表
function listPortNames()
{
    return [System.IO.Ports.SerialPort]::getPortNames();
}

# 获取 SerialPort 对象, 例:
#     getPort COM3,9600,none,8,one 1000
# portSetting : 串口参数, 例: COM3,9600,none,8,one
# readTimeOut : 读数据超时毫秒数, 例: 1000, 在 1 秒内没有读到数据就产生异常
#     得到的对象需要调用 open 方法, 之后发送数据
function getPort($portSetting, $readTimeOut)
{
    $result = new-object System.IO.Ports.SerialPort $portSetting;
    $result.readTimeOut = $readTimeOut;

    return $result;
}

# 关闭串口
function closePort($port)
{
    $port.close();  # 打开使用 $port.open()
    return 'done';
}

# 发送接收和显示字节
# hexString 16进制表示的字节值字符串，以空格分割数据, 例: 01 02 0F
function sendReceiveAndDisplayBytes($port, $hexString)
{
    write-host -noNewline 'send : ';
    write-host $hexString; # 显示参数
    if ($hexString -eq $null) {
        write-host 'input is null, stopped!';
        return;
    }

    # 发送
    $bytes4send = convertToByteArray $hexString;
    $port.write($bytes4send, 0, $bytes4send.length);

    start-sleep -MilliSeconds 100;

    # 接收
    $recvBuffer = new-object byte[] 128;
    $recvLen    = $port.read($recvBuffer, 0, 128);

    # 显示
    write-host -noNewLine 'receive: ';
    convertToHex $recvBuffer 0 $recvLen | write-host;

    return 'done';
}

# 将16进制字符串转换成字节数组
function convertToByteArray($hexString)
{
    $seperator = new-object String[] 1;
    $seperator[0] = ' ';
    $hexArray = $hexString.Split($seperator, [System.StringSplitOptions]::RemoveEmptyEntries);

    $result = new-object byte[] $hexArray.length;
    for ($i = 0; $i -lt $result.length; $i++) {
        $result[$i] = [System.Convert]::ToByte($hexArray[$i], 16);
    }
    return $result;
}

# bytes  要显示的字节数组, 
# offset 从第一个字节起的偏移量,
# count  在字节数组中读取的长度,
#     byte to hex string : 
#         a) [System.Convert]::toString($bytes[$i], 16);
#         b) aByte.toString("X2")  // 小于16会加一个0, 形如: 0E
function convertToHex($bytes, $offset, $count)
{
    $result = '';
    for ($i = $offset; $i -lt ($offset + $count); $i++) {
        $result += ' ' + $bytes[$i].toString("X2");
    }
    return $result;
}

--------- THE END ---------