09/04/05 17:54:13
みなさんありがとうございます
実習用のテキストだけどこういう感じです(´･ω･`)
>>870-871
アッー！！(；ﾞﾟ'ωﾟ'）
そうだった。１バイト文字だからを終端にしたら256の倍数だと0ですよね
>>873
すいません。このプログラムは他の部分を除いて書いてるので
実は受信したデータが'O'だと次の文字見て'F'で正転、'R'で逆転みたいなことしています
でも受信したデータでdo～whileを分ければいいだけでしょうけど
ちなみに数値データがある場合は
comSerial.Output = chr(80)←数値データあるよ
comSerial.Output = data
comSerial.Output = chr(0)←データ終わり
としています
入力されたデータはこんな感じです
dim inputData as Integer
inputData = Val(txtData.Text)