記号に対応したシフトJISコード変換するには (ID:117569)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 始めまして、VB初心者の私です。 今、文字列(String）を外部機器に送信する際に ASCIIコードではなく、シフトJISで送らなければならなく、 こまっています。（シリアル通信で） "A"を送らなければならないときは 82 60 を送らなければいけません。 以下の用にプログラムを書いたのですが、このプログラムだと アルファベットと数字を送る場合はいいのですが、 "-"などの記号を変換させようとした場合、その記号に対応した シフトJISを得ることができません。 そこで、それに対応した関数があるのか、又は、関数の組み合わせで それに対応できるか、教えていただきたく、書込みしました。 なにとぞよろしくお願いします。 Dim byt(1) as Byte Dim x as String x="A" x=Hex$(Asc(x)+31) byt(0)=&H82 byt(1)="&H" & x Mscomm1.Output=byt