| |
▼VBWASURETA さん：
こんにちは
すみません。もう少し詳細に書きます。
フォーム１〜５があり、この五つは同時に起動するフォームです。
（5個のフォームが開くマクロを起動）
5つすべてがフォームタイマーイベントを設定しています。
設定は以下の通り
フォーム1：200ms （ﾐﾘ秒）
フォーム2：300ms
フォーム3：1000ms
フォーム4：500ms
フォーム5：400ms
といった具合です
各フォームのVBAは下記のように記入
Private Sub Form_Timer()
Dim rData1 As Integer
lErr = ReadDevice16("KML", "D10WORD", rData1, 1)
’↑簡易DLLのﾌﾟﾛｸﾞﾗﾑ。データの読み込みを行っている。
’KMLは設定データの名前で、D10WORDはデータが入っている場所で、
’rData1は読み出したデータを格納する場所、最後の1はデータの数となっている
text1 = rData1
’↑テキスト1に呼び出したデータを格納する
End Sub
というﾌﾟﾛｸﾞﾗﾑで動作しています。
他の部分も基本構造は一緒です。
（変数、データの場所、データ数、格納場所だけ変わります）
データのタイマー間隔をいろいろ調整してなるべく重ならないよう設定しました。
（実際はフォームの開くタイミングが微小にずれている為コンマ何秒の設定までなら表示が時間はかぶらない）
問題としては、データが変動しているときはフォームで表示しているデータがコマとび状態になる。
（タイマーの間隔でVBが走っているから当然といえば当然なんですが・・・）
このデータの変動がリアルタイムで追従し表示できるようなやり方があれば教えてください。
（タイマー設定値1msも試したんですが正しい数値を表示したり0を表示しっぱなしだったりすることがあったため）
|
|
やすじ
- 07/12/5(水) 9:33 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
