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 ---------