PALMisLIFE 討論區

標題: [求助] 請教VB高手~!!(增加程式通訊部份) [列印本頁]

作者: takasi1216 時間: 2005-5-9 13:48
標題: [求助] 請教VB高手~!!(增加程式通訊部份)
大家好~
我想請問大家關於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 時間: 2005-5-9 16:00
標題: Re: [求助] 請教VB高手~!!
給個程式碼會比較容易幫你找BUG, 這樣的可能性還蠻多的

歡迎光臨 PALMisLIFE 討論區 (http://f.pil.tw/)