|
쿼드콥터헬기 님이 쓰신 글 :
: delay함수에 timer를 써서 led 조명을 깜박거리게 해놨습니다.
: 다만 실행 도중 win창을 이동을 시키면 매우 매끄럽지가 않던데 혹시 다른 방법이 없나요?
: void __fastcall TForm1::delay(int n)
: {
: DWORD nStartTM;
: nStartTM = GetTickCount();
: while(true)
: {
: if(nStartTM + n < GetTickCount())
: return;
: }
:
: }
: void __fastcall TForm1::Timer1Timer(TObject *Sender)
: {
: int i;
:
: for(i=0; i<GetTickCount(); i++)
: {
: VrUserLed1->PaletteEx->Low2 = clRed;
: delay(1000);
: VrUserLed1->PaletteEx->Low2 = clLime;
: delay(1000);
: return;
: }
:
: }
: //---------------------------------------------------------------------------
:
: void __fastcall TForm1::RadioButton1Click(TObject *Sender)
: {
: if(RadioButton1->Checked == true)
: Timer1->Enabled = true;
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::RadioButton2Click(TObject *Sender)
: {
: if(RadioButton2->Checked == true)
: Timer1->Enabled = false;
: }
: //---------------------------------------------------------------------------
Application->ProcessMessage();
이거 쓰셧나요 ? 이것도 한번써보셈
|