감사합니다.. 제가 아직 많이 초보라서요 ㅠㅠ
덕분에 많은 것을 알아가요 ^^


StarWagon 님이 쓰신 글 :
: delay 함수 자체가 불필요하며,
: GetTickCount() 함수가 어떤 역할을 하는지 모르는거나
: Timer를 쓸줄 모르는것 같네요.
:
: 매우 정확히 1초 간격으로 점멸할 필요가 없다면,
: Timer의 Interval을 1000으로 하고, 아래처럼 수정해보세요.
:
:

: void __fastcall TForm1::Timer1Timer(TObject *Sender)
: {
: 	if (Timer1->Tag) {
: 		VrUserLed1->PaletteEx->Low2 = clLime;
: 		Timer1->Tag=0;
: 	}else {
: 		VrUserLed1->PaletteEx->Low2 = clRed;
: 		Timer1->Tag=1;
: 	}
: }
: 

:
: 쿼드콥터헬기 님이 쓰신 글 :
: : 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;
: : }
: : //---------------------------------------------------------------------------