[求助] 請教VB高手~!!(增加程式通訊部份)

takasi1216

大家好~
我想請問大家關於VB裡利用RS232傳輸時的問題.

我現在已經可以傳輸但是有小BUG解不掉.

我用兩台電腦(假設叫A,B)
傳送的資料都是數字
假設傳輸的資料是123

第一次
A傳到B時,B電腦出現123

第二次同樣傳123
B電腦出現23

第三次
B電腦出現3

第四次
B電腦又出現123
...
一直重複123-->23-->3-->123-->23-->3...

到底是哪裡沒考慮或設定到咧...

ps.朋友的另一套程式是ok的每次都是123,
    因為我的程式跟他的程式不同所以也無法參考..

程式通訊部份如下:
'設定關於通訊接收事件
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
       Case comEvCD
       Case comEvCTS
       Case comEvDSR
       Case comEvRing
       Case comEvReceive
            Text1.Text = Trim(MSComm1.Input)
            A = Val(Text1.Text)
            X = Val(Text2.Text)
            B = Val(Text3.Text)
            If A > B Then
            Text3.Text = A
            End If
            If A < X Then
            WarningLED.FillColor = RGB(0, 255, 0)
            Else
            WarningLED.FillColor = RGB(255, 0, 0)
            End If
       Case comEvSend
End Select
  
End Sub

謝謝大家!!

[ Last edited by takasi1216 on 2005-5-9 at 16:45 ]

yuyudiabo

給個程式碼會比較容易幫你找BUG, 這樣的可能性還蠻多的