VB.NET
Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
' シリアルポートのオープン
SerialPort1.PortName = "COM11"
' シリアルポートの通信速度指定
SerialPort1.BaudRate = 9600
' シリアルポートのパリティ指定
SerialPort1.Parity = IO.Ports.Parity.None
' シリアルポートのビット数指定
SerialPort1.DataBits = 8
' シリアルポートのストップビット指定
SerialPort1.StopBits = IO.Ports.StopBits.One
' シリアルポートのオープン
SerialPort1.Open()
End Sub
Private Sub Form1_FormClosed( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosedEventArgs) _
Handles Me.FormClosed
' シリアルポートのクローズ
SerialPort1.Close()
End Sub
Private Sub btn1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btn1.Click
' シリアルポートにデータ送信
Dim dat As Byte() = _
System.Text.Encoding.GetEncoding("SHIFT-JIS").GetBytes("abcあいう")
SerialPort1.Write(dat, 0, dat.GetLength(0))
End Sub
Private Sub SerialPort1_DataReceived( _
ByVal sender As System.Object, _
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort1.DataReceived
' シリアルポートからデータ受信
Dim dat As Byte() = New Byte(SerialPort1.BytesToRead - 1) {}
SerialPort1.Read(dat, 0, dat.GetLength(0))
MessageBox.Show( _
System.Text.Encoding.GetEncoding("SHIFT-JIS").GetString(dat))
End Sub
C#
private void Form1_Load(
object sender, EventArgs e)
{
// シリアルポートのオープン
serialPort1.PortName = "COM11";
// シリアルポートの通信速度指定
serialPort1.BaudRate = 9600;
// シリアルポートのパリティ指定
serialPort1.Parity = System.IO.Ports.Parity.None;
// シリアルポートのビット数指定
serialPort1.DataBits = 8;
// シリアルポートのストップビット指定
serialPort1.StopBits = System.IO.Ports.StopBits.One;
// シリアルポートのオープン
serialPort1.Open();
}
private void Form1_FormClosed(
object sender, FormClosedEventArgs e)
{
// シリアルポートのクローズ
serialPort1.Close();
}
private void btn1_Click(
object sender, EventArgs e)
{
// シリアルポートにデータ送信
Byte[] dat =
System.Text.Encoding.GetEncoding("SHIFT-JIS").GetBytes("abcあいう");
serialPort1.Write(dat, 0, dat.GetLength(0));
}
private void serialPort1_DataReceived(
object sender, System.IO.Ports.SerialDataReceivedEventArgs e)
{
// シリアルポートからデータ受信
Byte[] dat = new Byte[serialPort1.BytesToRead];
serialPort1.Read(dat, 0, dat.GetLength(0));
MessageBox.Show(
System.Text.Encoding.GetEncoding("SHIFT-JIS").GetString(dat));
}