nise777
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:5 回覆:6 積分:2 註冊:2004-10-29
發送簡訊給我
|
大家好 小弟目前在bcb6的介面上做了兩個按鍵 欲控制馬達的左右轉 目前是按一次(按了又放開) 就會透過rs232傳一數值至8051 想請教的是: 要如何能一直按住不放,而一直傳數值出去 而放開就不傳呢? 謝謝
|
folkchen
高階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:9 回覆:232 積分:173 註冊:2003-10-09
發送簡訊給我
|
我目前想到的方法如下,只是想法沒有實作
若有其他大大有更好的方法也請提出 1.增加個Timer物件,你的控制程式段寫在裡面,Timer的時間你自己定義,它會決定按著不放時,多久要轉一下 2.按鍵"按下"的事件中,把Timer Eable起來 3.按鍵"放開"的事件中,把Timer Diseable掉 發表人 - folkchen 於 2004/12/23 08:26:22
|
nise777
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:5 回覆:6 積分:2 註冊:2004-10-29
發送簡訊給我
|
引言:
我目前想到的方法如下,只是想法沒有實作
若有其他大大有更好的方法也請提出 1.增加個Timer物件,你的控制程式段寫在裡面,Timer的時間你自己定義,它會決定按著不放時,多久要轉一下 2.按鍵"按下"的事件中,把Timer Eable起來 3.按鍵"放開"的事件中,把Timer Diseable掉 發表人 - folkchen 於 2004/12/23 08:26:22
>
|
folkchen
高階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:9 回覆:232 積分:173 註冊:2003-10-09
發送簡訊給我
|
「按下」 OnKeyDown 「放開」 OnKeyUp
|
nise777
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:5 回覆:6 積分:2 註冊:2004-10-29
發送簡訊給我
|
引言: 「按下」 OnKeyDown 「放開」 OnKeyUp
folkchen大大您好 OnKeyDown和OnKeyUp是用來偵測鍵盤按鍵的(實驗的心得 ) 後來我用 > 下面是後來實現的 class="code">
//-----------------------------------------------------------
void __fastcall TForm1::Button1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
a=0;
do{
Memo1->Lines->Append("ABCDE");
Delay(1000);
}while(a==0);
}
//----------------------------------------------------------- void __fastcall TForm1::Button1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
a=1;
}
//-----------------------------------------------------------
void Delay(DWORD DT) //延遲一段時間
{
long tt;
tt = GetTickCount();
while(GetTickCount()-ttProcessMessages();
if(GetTickCount()-tt<=0)
tt=GetTickCount();
}
}
//-----------------------------------------------------------
|
folkchen
高階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:9 回覆:232 積分:173 註冊:2003-10-09
發送簡訊給我
|
建議
OnMouseDown和OnKeyDown都指向同一個Function
Up的部份亦同 ^^ 祝順心
|