看板 Visual_Basic 關於我們 聯絡資訊
各位高手們!! 我設定了一個Command1~4程式內容是一樣的 但是無法製程.EXE 不知道問題錯再哪裡 Private Sub Command1_Click() Tex1.Text = "連線中" (這裡有改過所以不打t沒問題) MSComm1.Output = "1" delayms 100 (錯在這裡) buf = MSComm1.Input If buf = "0" Then LOAD1.FillColor = RGB(0, 255, 0) ElseIf buf = "1" Then LOAD1.FillColor = RGB(255, 0, 0) Else Tex1.Text = "連線失敗" End If End Sub 它只出現"編譯錯誤:沒有定義這個Sub或Function" 請各位幫幫忙!!謝謝 -- ◆ From: 140.130.18.237
x000032001:名稱打錯 我"猜"是Tex1.Text = "連線中" 少t 08/16 14:05
MOONRAKER:錯在幾行也講一下吧。 08/16 14:18
※ 編輯: dj5115 來自: 140.130.18.237 (08/16 14:26) ※ 編輯: dj5115 來自: 140.130.18.237 (08/16 14:27) ※ 編輯: dj5115 來自: 140.130.18.237 (08/16 14:31)
x000032001:看你delayms從哪裡抓進來的阿 API? 我記得VB6沒這功能 08/16 14:34
dj5115:有人說用Sleep但是也不行... 說還要加一個模組但是我不會 08/16 14:39
MOONRAKER:學一學timer怎麼用啦 08/16 15:03