| |
初めまして！
答えが返ってきていないようなので、参考までに聞いてください。
>A1からA10までのセルに整数を入れると棒グラフになり、
上記の部分はＶＢＡではなく、普通に、グラフを作った方がいいと思います。
>送信ボタンを押すとＲＳ２３２Ｃを通過して他の機械にその整数だけを送信するようにするにはどのようにすればよろしいでしょうか？
問題はこちらの方だと思います。
通常のＶＢＡだけではシリアル(RS232c)通信まではサポートしていません。
（間違っていたらごめんなさい）
ただし、ＶＢ(Leanning Editionを除く）をインストールしてあれば、MSCOMM32.OCXというActiveXコントロールがついてきます。これがあれば、ツール・参照設定でこのコントロールを使用することができるようになります。（フォームに貼り付けるだけ）
後は、
MSComm1.Settings = "4800,n,8,1"
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
MSComm1.Output = "1" & Chr$(13)
Private Sub MSComm1_OnComm()
Dim ComBuf As String
If MSComm1.InBufferCount >= 13 Then
ComBuf = MSComm1.Input
Label1 = CSng(Mid$(ComBuf, 4, 9))
ActiveCell = Label1 * 1
ActiveCell.Offset(1, 0).Activate
End If
End Sub
などのように、Basicの経験のある方であればなじみのありそうな形で使用する事ができます。（上記のコードは私の作ったものから適当に抜粋しました。このままではもちろん動きません）
他にも、フリーでDLL等がネット上にあるかもしれませんが、とりあえず私が成功した事例です。
この辺のことは、参考書等にも詳しく載っていないので、苦労されると思います。
がんばってください。
|
|
- 03/3/17(月) 0:09 -
