以下是我寫的程式, 但不知為何數據無法立即顯示, 只能在程式結束時, 才顯示結果, 有沒有方法決解
Private Sub CommandStart_Click(Index As Integer)
While counter < Val(STC(3).Text) Or sstop = 2
Time$ = "00:00:00"
Do While Timer < Val(PWT(1).Text)
Out &H378, 1
Picture1.Picture = LoadPicture("c:\press\pressing.jpg")
pwttime(0).Text = Timer
Loop
Time$ = "00:00:00"
Do While Timer < Val(OWT(2).Text)
Out &H378, 0
Picture1.Picture = LoadPicture("c:\press\unpressing.jpg")
OWTtime(0).Text = Timer
Loop
counter = counter + 1
PC(0).Text = counter
Wend
End Sub
Private Sub CommandStart_Click(Index As Integer)
While counter < Val(STC(3).Text) Or sstop = 2
Time$ = "00:00:00"
Do While Timer < Val(PWT(1).Text)
Out &H378, 1
Picture1.Picture = LoadPicture("c:\press\pressing.jpg")
pwttime(0).Text = Timer
Loop
Time$ = "00:00:00"
Do While Timer < Val(OWT(2).Text)
Out &H378, 0
Picture1.Picture = LoadPicture("c:\press\unpressing.jpg")
OWTtime(0).Text = Timer
Loop
counter = counter + 1
PC(0).Text = counter
Wend
End Sub
全站熱搜
留言列表