投稿日 | : 2004/08/27(Fri) 13:21 |
投稿者 | : しんまい |
Eメール | : |
URL | : |
タイトル | : Re^4: Winsockコントロールが正常に動作しない |
GODさん、ありがとうございます。遅れてすみませんでした。
> すみません。やっぱり私には理解できません。
> テキストボックスの間ってどこですか?流れるってどのように?
説明不足で申し訳ありません。
最初の時は、データがテキストボックスから次のボックスそして次へと順序よく移動していたの
ですが、事象が以前と変わり、データのパラツキは無くなり固定しました。(しかし、表示がデタラメ)
> 一定間隔で送信しているけど受信が一定間隔ではないということですか。
> 基本的にクライアント側から送信したデータをサーバー側は全て受信できているのでしょうか。
検証中です。(すべてしていたのですが、今は一部だけ。 ?..)
プログラムの一部です。
<送信側>
Private Sub Timer8_Timer() ’タイマーは500MS
Dim dataTime(336)
Dim dataKisyu(23)
Dim dataComp(24)
Dim strInfo As String
Dim strTime
Dim strKisyu
Dim strCom
For i = 1 To 336 'テキストボックスのデータを変数に格納
dataTime(i) = Text1(i).Text
Next i
For i = 0 To 23
dataKisyu(i) = Text2(i).Text
Next i
For i = 1 To 24
dataComp(i) = Text3(i).Text
Next i
strTime = Join(dataTime, ",") ’変数を結合
strKisyu = Join(dataKisyu, ",")
strCom = Join(dataComp, ",")
With Winsock1
.SendData strTime
End With
With Winsock1
.SendData strKisyu
End With
With Winsock1
.SendData strCom
End With
END SUB
<受信側>
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strTime As String
Dim strKisyu As String
Dim strCom As String
Dim I As Integer
Dim strInfo2
Dim strInfo3
Dim strInfo4
On Error Resume Next
With Winsock1 'WINSOCKで受信
.GetData strTime
.GetData strKisyu
.GetData strCom
End With
strInfo2 = Split(strTime, ",") ’結合されたデータを変数に格納
strInfo3 = Split(strKisyu, ",")
strInfo4 = Split(strCom, ",")
For I = 1 To 336
Text1(I).Text = strInfo2(I)
Next I
For I = 0 To 23
Text2(I).Text = strInfo3(I)
Next I
For I = 1 To 24
Text3(I).Text = strInfo4(I)
Next I
End Sub
以上が関連すると思われるところをコピーしました。