◀ Previous Next ▶ Up ▲


witpoko.com


ช่วยทีครับด่วนมากๆๆ!!!

คือผมทำโปรเจ็คเกี่ยวกับการส่งค่า pulse ผ่าน port ขนานครับผมต้องการจะเขียน ให้เมื่อกดปุ่ม btnupauto แล้วจะส่ง pulse ผ่านพอร์ตขนานดังนี้ครับ

Private Sub btnupauto_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Do While Button = 1
Out pwrite, &H3
Sleep (t)
Out pwrite, &H2
Sleep (t)
DoEvents
Loop
End Sub

ซึ่งการส่ง pulse ทาง port ขนานก็ไม่มีปัญหาอะไรครับผมได้ประกาศการใช้ api ต่างๆไว้แล้ว
แต่มีปัญหาตรงที่ว่ากดค้างแล้วมันส่งค่าตลอดเรยครับไม่หยุดผมต้องการให้หยุดเมื่อปล่อยปุ่มอะครับควรจะเขียนยังไงดี

แล้วอีกอย่างผมทำการสร้างวงกลมเพื่อ check สถานะ pulse เช่นให้
circle.backcolor = qbcolor(12) เพื่อเป็นสีแดง และให้เป็น qbcolor(15) เพื่อเป็นสีขาว ปรากฎว่าแทรกไปใน loop มันไม่มีผลอะไรเลยครับ ต้องทำยังไงดี


จากคุณ : AeroROACH -[ 28 ต.ค. 49 - 18:43:46 ]





กระทู้ยอดนิยม