常連

バーコードリーダーでバーコードを読み込んでWindowsにシリアル通信で送信された番号に、それぞれ処理をしたい、と考えています。

teratermなどのソフトウェアを使う方法などが思い浮かんだのですが、それだと閲覧だけならできると思われますが、取得した番号を他の処理にパイプするようなことは出来ないのではないか、と思い、Powershellでやろうとしました。

バーコードリーダーをPCにBluetooth接続し、Bluetooth設定 > COMポート タブ を確認してみると、com4で受信していることがわかります。なので以下、コマンドでcom4を使用します。

![https://yuis.xsrv.jp/images/ss/ShareX_ScreenShot_1f666319-1d85-45ca-a0f9-d8f368a9cfae.png](https://yuis.xsrv.jp/images/ss/ShareX_ScreenShot_1f666319-1d85-45ca-a0f9-d8f368a9cfae.png)


実行したコードは以下です。

1.
```
$port= new-Object System.IO.Ports.SerialPort COM4,9600,None,8,one
$port.Open()
$port.ReadLine()

```

2.
```
function read-com {
    $port= new-Object System.IO.Ports.SerialPort COM4,9600,None,8,one
    $port.Open()
    do {
        $line = $port.ReadLine()
        Write-Host $line # Do stuff here
    }
    while ($port.IsOpen)
}
```


(参考URL)
[Writing and Reading info from Serial Ports | PowerShell Team Blog](https://blogs.msdn.microsoft.com/powershell/2006/08/31/writing-and-reading-info-from-serial-ports/)
[How to continuously read Serial COM port in Powershell and occasionally write to COM port - Stack Overflow](https://stackoverflow.com/questions/31297365/how-to-continuously-read-serial-com-port-in-powershell-and-occasionally-write-to)

しかし、2つとも、数分待機してもバーコードリーダーにて適当なものを読み込んだりしてみても出力がされませんでした。

何かが間違っているでしょうか？

また、Ubuntu 18.04でも同様のことを試行したのですが、やはりできませんでした。

1. バーコードリーダーをubuntuにBluetooth設定する
2. `dmesg | grep ttyS`で、実行中のシリアル通信を取得
```
[    2.139452] serial8250: ttyS0 at I/O 0x3f8 (irq = 4, base_baud = 115200) is a 16550A
```
3. 以下のコマンドを実行して結果を得られると思ったが、数分待機してもバーコードリーダーにて適当なものを読み込んだりしてみても出力がない。
```
cat /dev/ttyS0
cat < /dev/ttyS0
od -x < /dev/ttyS0
```

(参考URL)
[reading from serial from linux command line - Unix & Linux Stack Exchange](https://unix.stackexchange.com/questions/42376/reading-from-serial-from-linux-command-line)

---

PowershellまたはBashでCOMポートのシリアル通信を取得するには

### 実現したいこと
CoCreateInstanceを使用してファイル読み取りのcomオブジェクトを作成しています。

### 発生している問題・分からないこと
使用する端末によって0x80070002のエラーが発生します。
ビルド構成：.netFramework4.8
エラー発生端末
OS：Windows10Pro
バージョン：1809

エラー未発生端末
OS：Windows10Pro、Windows11
バージョン：最新
アクセス権限、レジストリの登録状況の確認、セキュリティソフトの停止は確認済みです。
端末依存でこのようなエラーが起こるものなのでしょうか。

### エラーメッセージ
```error
0x80070002
```

### 該当のソースコード

```C++
_CSIniLib* cpie = NULL ;
HRESULT CoInitialize(NULL);
OLECHAR* guidString;

 HRESULT hre = CoCreateInstance(CLSID_CSIniLib,
   NULL,
   CLSCTX_INPROC_SERVER,
   __uuidof(_CSIniLib),
   reinterpret_cast<void**>(&cpie));
if(FAILED(hre)) {
	;
} else {
	  cpie->UserCertDat(&b_tszBuffer) ;
	  cpie->Release();
	  cpie = NULL;
	  m_bstr = b_tszBuffer ;
	  USES_CONVERSION;
	  RetString = OLE2W(b_tszBuffer) ;
}    
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [x] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
[CoCreateInstance 80070002]でgoogle検索かけましたが有用な情報が発見できませんでした。

### 補足
特になし

CoCreateInstanceで0x80070002エラー

###環境
■  Windows7Pro 32bit
■ Visualstudio 2010　professional
■ Excel2016

### 経緯


私は普段.net環境からExcelを呼び出す場合にはClosedXMLを使用しています。
実務でCOMを使用したエクセルプロセス解放に悩まされたため、ライブラリを使用することに決めていました。


ただ、「突き詰めよう」との気持ちが突然芽生え、こちらのサイトにある方法を試してみる事にしました。

以下のサイトにCOMの正しい解放の仕方がアップされていました。
[Excelファイルを C# と VB.NET で読み込む "正しい" 方法](https://qiita.com/midori44/items/acab9106e6dad9653e73)

リンク先のソースを参考に以下のソースを作成しました。
プロセスの確認はタスクマネージャーから行います。

■非define時
0. 100回ブックをオープンする
0. ブックを保存する

■define時
0. 100回ブックをオープンする。
0. 一番左端のセルにABCDEFを入力する
0. ブックを保存する





```c#
//#define __VALUE_SET__

using System;
using System.IO;
using System.Runtime.InteropServices;
using Microsoft.Office.Interop.Excel;

namespace ConsoleApplication1
{
    class Program
    {


        
        static void Main(string[] args)
        {
            
            for (int i = 1; i<=100; i++)
            {
                int no = i % 6 + 1;

                string fileName = Path.Combine(@"c:\sample", no.ToString() + ".xlsx");
                Console.WriteLine(fileName);

                // ｴｸｾﾙｵｰﾌﾟﾝ
                OpenExcel(fileName);
            }
        }



        
        private static void OpenExcel(string fileName)
        {
            var excelApplication = new Microsoft.Office.Interop.Excel.Application();

            try
            {
                Workbooks workbooks = excelApplication.Workbooks;

                try
                {
                    Workbook workbook = workbooks.Open(fileName);

                    try
                    {
                        Sheets worksheets = workbook.Sheets;

                        try
                        {
                            Worksheet worksheet = worksheets[1];

                            try
                            {
#if __VALUE_SET__
// Rangeを使用して値をセットするとプロセスが解放されない

                                Range range1 = worksheet.Cells[1, 1];
                                
                                try 
                                { 
                                    range1.Value = "ABCDEFG";
                                }
                                finally { Marshal.ReleaseComObject(range1); }
#endif

                                workbook.Save();

                            }
                            finally { Marshal.ReleaseComObject(worksheet); }
                        
                        }
                        finally { Marshal.ReleaseComObject(worksheets); }
                    
                    }
                    finally
                    {
                        if (workbook != null)
                        {
                            workbook.Close(false);
                        }
                        Marshal.ReleaseComObject(workbook);
                    }
                }
                finally { Marshal.ReleaseComObject(workbooks); }
            }
            finally
            {
                if (excelApplication != null)
                {
                    excelApplication.Quit();
                }

                Marshal.ReleaseComObject(excelApplication);
            }
        }
    }
}
```

### 問題　Rangeを使用して値をセットするとプロセスが解放されない
defineしている「____VALUE_SET____」の部分ですが、この部分を通るとプロセスが解放されずに残り続けます。
単純に開いて保存するだけであれば、プロセスは全て解放されています。

値設定時、何か私の方法が間違っているでしょうか？

詳しい方がいれば、ご教示お願い致します。

c#でExcelをOpenするとプロセスが残る(Microsoft.Office.Interop.Excel使用)

### 前提・実現したいこと
初めて機器計測を行う者です。
VISA-COMを用いて、VBAでADCMT社の直流電源装置を動かそうとしています。
測定器との通信を確認する段階で、エラーが発生してしまいます。



### 発生している問題・エラーメッセージ
RM.OPENの部分でエラーが出て、測定器との通信が取れません。

エラーメッセージ
HRESULT=80040011

### 該当のソースコード


Sub ボタン1_Click()

 Dim RM As New VisaComLib.ResourceManager
 Dim DMM As New VisaComLib.FormattedIO488
 Set DMM.IO = RM.Open("GPIB0::1::INSTR")
 DMM.WriteString "*IDN?"
 Cells(1, 1) = DMM.ReadString()
 DMM.IO.Close
 Set DMM = Nothing
 Set RM = Nothing

End Sub


### 試したこと
Keysight Connection Expartでは*IDN?が返ってくるため、計測機器との通信は取れています。
また、別のPCでは問題なくVBAでプログラムを走らせることができます。
そのため、私のPCの環境が原因だと思っているのですが未だに不明です。
![イメージ説明](86989a0720a9f4d8ed64be2028c322f2.jpeg)

### 補足情報（FW/ツールのバージョンなど）
Excelは32bit環境です。
VISA-COMはKeysight社からダウンロードしたのものを参照しています。
Program Files (x86)\IVI Foundation\VISA\VisaCom\GlobMgr.dll
![イメージ説明](3b90d6583f8b4746b645c47eca0ff633.jpeg)

また、GPIBではなくUSBで直流電源装置を動かすことはできます。
ドライバ(ausb.bas)を使用して、VBA上のプログラムを走らせることは可能です。

VISA-COMを用いた機器計測時における実行時エラーの対処

### 実現したいこと

ビルドしたUnityの実行ファイル上で、SerialPortを開いて、シリアル通信ができるようにする

### 前提

Unityで自作コントローラを使った音楽ゲームを制作している者です。
コントローラ側はRaspberry Pi picoを使ったもので、シリアル通信を用いて入力用デバイスにしようとしています。

下記のコードで、Unityのエディタ上では、上手くシリアル通信が出来ており、全く問題ないのですが、ビルドしてゲームの実行ファイルからシリアル通信しようとすると、反応がなくなります。

Debug.Log()などで詳しく調べたところ、どうやら51行目の「serialPort_ = new SerialPort();」のところで問題が発生している模様です。Unityのエディタ上では全く問題のない点でしたが、ビルドすると別の問題で通信ができないのでしょうか？

以下詳細
・Windows11(メモリ:16G CPU:11th Corei7)
・Unity2022.3.10f1
・RaspberryPiPico(UARTを使用した通信)

### 発生している問題・エラーメッセージ

ビルドしたファイル上で、このように表示されました。(スクリプト60行目)
```
System.IO.Ports.SerialPort::.ctor
```

### 該当のソースコード

```C#
using UnityEngine;
using UnityEngine.UI;
using TMPro;
using System.IO.Ports;
using System.Threading;
using System;

public class Lab : MonoBehaviour
{
    public TextMeshProUGUI TMP;
    public string portName = "COM3";
    public int baudRate = 115200;

    private SerialPort serialPort_;
    private Thread thread_;
    private bool isRunning_ = false;
    private string lastrcvd = "";
    byte rcv;
    char tmp;

    private string message_;
    private bool isNewMessageReceived_ = false;

    void Start()
    {
        lastrcvd = "";
        Open();
    }

    void Update()
    {
        if (isNewMessageReceived_)
        {
            //OnDataReceived(message_);
            TMP.text = tmp.ToString();
        }
    }

    void OnDestroy()
    {
        Close();
    }

    private void Open()
    {
        TMP.text = portName + "," + baudRate;
        //serialPort_ = new SerialPort(portName, baudRate, Parity.None, 8, StopBits.One);

        try
        {
            serialPort_ = new SerialPort();
            serialPort_.PortName = portName;
            serialPort_.BaudRate = baudRate;
            serialPort_.Parity = Parity.None;
            serialPort_.DataBits = 8;
            serialPort_.StopBits = StopBits.One;
        }
        catch (System.Exception e)
        {
            TMP.text = e.Message;
        }

        try
        {
            serialPort_.Open();
            serialPort_.ReadTimeout = 5000;
            TMP.text = "[2]";
        }
        catch (Exception e)
        {
            serialPort_ = null;
            return;
        }

        TMP.text = "[3]";

        isRunning_ = true;

        thread_ = new Thread(Read);
        thread_.Start();
    }

    private void Read()
    {
        while (isRunning_ && serialPort_ != null && serialPort_.IsOpen)
        {
            try
            {
                rcv = (byte)serialPort_.ReadByte();

                if (rcv == '\r')
                {
                    message_ = lastrcvd;
                    //Debug.LogFormat("textLine:{0}", message_);
                    lastrcvd = "";
                    isNewMessageReceived_ = true;
                }
                else
                {
                    tmp = (char)rcv;
                    //Debug.LogFormat("rcv:{0}", tmp.ToString());
                    lastrcvd = lastrcvd + tmp.ToString();
                }
            }
            catch (System.Exception e)
            {
                Debug.LogWarning(e.Message);
            }
        }
    }

//追記
void OnDestroy()
    {
        Debug.Log("close");
        Close();
    }

private void Close()
    {
        isRunning_ = false;

        if (thread_ != null && thread_.IsAlive)
        {
            thread_.Join();
        }

        if (serialPort_ != null && serialPort_.IsOpen)
        {
            Debug.Log("close2");
            serialPort_.Close();
            serialPort_.Dispose();
        }
    }



```

### 試したこと

・PlayerSettingsで「Api Compatibility Level」 ⇒ 「.NET Flamework」



Unityでシリアル通信を行いたいが、ビルドして実行した際にSerialPortが開けない

Vorzeというメーカーのとある高級家電がシリアル通信ができると知り、先日購入し、試しにUnityから動かしてみようとしたところうんともすんとも言わない状態で困っております。

調べたところ、Arduino等を活用するためUnityでシリアル通信をする場合、よく「受信ができない（遅い）」といった相談があるようで、そちらの解消方法も一通り試してはみたのですが、現状は変わらず送信も受信もできていない状況で、具体的には、ポートのオープンや送信については特にエラーも何らかの動作も起きず、受信についてはいつまで経っても受信ができずフリーズするのでタイムアウト時間を設けて初めて「System.TimeoutException: The operation has timed out.」を吐きます。
Unityではなく、有志の方が開発した別のプログラムではCOM3で接続が確立され送信と動作ができていましたので、家電側の不具合ではないような気がします。

何か考えられる原因はありますでしょうか？
皆様のお知恵を拝借できれば幸いです。よろしくお願いいたします。

Windows10
Visual Studio 2017
次の３つのバージョンで試してみました。
Unity2018.4.36f1
Unity2019.4.21f1
Unity2021.1.0b8
また、
BuildSettingsで「PC,Mac&Linux Standalone」 ⇒ 「Universal Windows Platform」へ
PlayerSettingsで「Api Compatibility Level」 ⇒ 「.NET 4.x」へ
COMポートの番号はデバイスマネージャーで確認済み（COM3）です。
その他、
試しにデバイスマネージャーからCOMポートの番号を変えてみたり、受信・送信バッファーを下げたりしましたが変化はありませんでした。


```
using System.Collections;
using System.Collections.Generic;
using System.IO.Ports;
using UnityEngine;


public class vorze : MonoBehaviour
{

    private string[] ports;
    private SerialPort port;

    private string portName;
    private int baudRate;
    private int dataBits;

    private byte pistonPosition;
    private byte pistonSpeed;
    
    private byte[] data;
    private byte[] data1;


    // Start is called before the first frame update
    void Start()
    {
        //ports = SerialPort.GetPortNames();
        //Debug.Log(ports);

        Open();
    }

    // Update is called once per frame
    void Update()
    {
        
    }

    private void OnDestroy()
    {
        port.Close();
        port.Dispose();
        Debug.Log("end");
    }

    void Open()
    {
        portName = "COM3";
        baudRate = 9600; //19200
        dataBits = 8;

        port = new SerialPort(portName, baudRate, Parity.None, dataBits, StopBits.One);
        port.Open();
        //port.DtrEnable = true;
        //port.RtsEnable = true;
        //port.ReadTimeout = 100;
        //port.WriteTimeout = 100;
        
        pistonPosition = 100;  // 0~200
        pistonSpeed = 10;  // 0~30(60)
   
        data = new byte[]{ 0x03, pistonPosition, pistonSpeed };

        try
        {


            if (port.IsOpen)
            {
                port.Write(data, 0, data.Length);

                /*
                data1 = new byte[] { 0xF0, 0x01, 0x00 };
                port.Write(data1, 0, data1.Length);
                var result = port.ReadByte();           
                Debug.Log(result);
                */
            }
        }
        catch (System.Exception e)
        {
            Debug.Log(e);
        }
        finally
        {
            //port.Close();
            //port.Dispose();
        }


    }
}
```

Unityでシリアル通信（送信と受信）ができない

環境：
 Visual Studio 2008 VB.NET
  Windows 10

VB.NETで、COM通信を行いたいと思います。

```
Public Class Form1
    Delegate Sub DataDelegate(ByVal sdata As String)

    Public SerialPort1 As System.IO.Ports.SerialPort = New System.IO.Ports.SerialPort()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try                     '例外処理のはじまり 
            SerialPort1.Close()
            If SerialPort1.IsOpen = True Then          'ポートはオープン済み
                MessageBox.Show("", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
            SerialPort1.PortName = TextBox_Com.Text    'オープンするポート名を格納
            ' シリアルポートの通信速度指定
            SerialPort1.BaudRate = 9600
            ' シリアルポートのパリティ指定
            SerialPort1.Parity = System.IO.Ports.Parity.None
            ' シリアルポートのビット数指定
            SerialPort1.DataBits = 8
            ' シリアルポートのストップビット指定
            SerialPort1.StopBits = System.IO.Ports.StopBits.One

            SerialPort1.Open()          'ポートオープン        
        Catch ex As Exception           '例外処理     
            TextBox_Line.Text = TextBox_Line.Text & ex.ToString & vbCrLf & ex.Message & vbCrLf
        End Try

        SerialPort1.RtsEnable = True                    'RTSをON
    End Sub

    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
        Dim ReceivedData As String = " "        '受信データ用変数を宣言します
        Try
            ReceivedData = SerialPort1.ReadLine     'データを受信します
        Catch ex As Exception
            ReceivedData = ex.Message       '例外処理を行います
        End Try
        'Invokeメソッドにより実行されるメソッドへのデリゲートの宣言を行い、受信データを表示します
        Dim adre As New DataDelegate(AddressOf PrintData)
        Me.Invoke(adre, ReceivedData)
    End Sub

    Private Sub PrintData(ByVal sdata As String)
        TextBox_Line.Text = TextBox_Line.Text & sdata & vbCrLf
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If SerialPort1.IsOpen = True Then   'ポートオープン済み
            SerialPort1.Close()              'ポートクローズ
        End If
    End Sub
End Class
```

送信側からSend()して見ると、
送信には成功しているようなのですが、
受信側の

```
SerialPort1.Open()          'ポートオープン 
```

の処理で例外が発生します。
通信はUSB接続で行っています。
COMポート番号はあっていることを確認しています。
TeratermでCOMポート受信もできることも確認済みです。

```
System.IO.IOException: システムに接続されたデバイスが機能していません。

   場所 System.IO.Ports.InternalResources.WinIOError(Int32 errorCode, String str)
   場所 System.IO.Ports.SerialStream.InitializeDCB(Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Boolean discardNull)
   場所 System.IO.Ports.SerialStream..ctor(String portName, Int32 baudRate, Parity parity, Int32 dataBits, StopBits stopBits, Int32 readTimeout, Int32 writeTimeout, Handshake handshake, Boolean dtrEnable, Boolean rtsEnable, Boolean discardNull, Byte parityReplace)
   場所 System.IO.Ports.SerialPort.Open()
   場所 Travel_Car_Register_Recv.Form1.Button1_Click(Object sender, EventArgs e) 場所 c:\Form1.vb:行 23
システムに接続されたデバイスが機能していません。
```

解決方法が見つからず、苦慮しています。

どなたかわかりませんか？

VB.NET でのCOM通信の受信について

PythonでPLCとの通信を行いたいです。ちょっと相談させてください。

![イメージ説明](2d4895168e21bfa5d04e13f533bdf655.jpeg)
**背景**
1. ある製品の製造現場で検査装置を立ち上げています。
2. Pythonを利用して、検査結果を判定、保存、製造ラインに指示を出したりします。
3. PythonはPC上で、検査装置はPLCで駆動しています。


**やりたい内容**
1. 現場の要求により、HUBを使わず、PLCのIOラインを直接にPCにつなぎたいと言っています。
2. PLCとPCとの間には、6CHのInput port（PC→PLC), 4CHのOutput port (PLC→PC)が必要です。
3. 例えば、PLCからON信号が来ると、これは装置のセンサーに異常が発生した。と判断します。
　 逆にPCか信号を送って、装置のステージの駆動を支持したりもします。
![イメージ説明](4d9f2ee28fd9326a45cf1a2344cf0104.png)

**知りたい内容**
1. PLCは24Vレベルですが、これをPCとのやり取りするためには、どんな方法がありますでしょうか？
2. PCで使える12CH以上のGPIOボードがありますでしょうか？
3. 上記のタスクに使える、Python ライブラリーがありましたら、教えて頂けますか？

![イメージ説明](afc2a1608db1cfdca79fc14a152f0a8f.png)

よろしくお願い致します。