void __fastcall TForm1::Timer1Timer(TObject *Sender)    {            lpBall Ballptr,BallStar;            BallStar=(lpBall)ReciveBuf;            Ballptr=BallStar;                ClientSocket1->Socket->SendText("repaint");            Buffer->Canvas->CopyMode = cmSrcCopy;            Buffer->Canvas->Draw(0,0,BackGround);                Buffer->Canvas->CopyMode = cmSrcPaint;            for(int i=0 ; iBallY--;          if(Ballptr->BallY<=0)            Ballptr->BallY = borderY;       break;           case 1:          Ballptr->BallY  ;          if(Ballptr->BallY>=borderY)            Ballptr->BallY=1;       break;       case 2:            Ballptr->BallX--;         if(Ballptr->BallX<=0)            Ballptr->BallX = borderX;       break;       case 3:         Ballptr->BallX  ;         if(Ballptr->BallX>=borderX)            Ballptr->BallX = 1;       break;       default:       break;       }                        Ball->Canvas->Font->Color=clGreen;                    Ball->Canvas->Font->Size=12;                    Ball->Canvas->Font->Name="Arial";                    Ball->Canvas->TextOut(10,10,IntToStr(Ballptr->Ball_id));                    Buffer->Canvas->Draw(Ballptr->BallX,Ballptr->BallY,Ball);                    Ballptr  ;            }            PaintBox1->Canvas->Draw(0,0,Buffer);           //randomize();        }

以上是我寫的程式裡的某一小段,執行時球一開始就會跑了,但我想做的是,一開始執行程式時讓球不跑,按下按鈕才執行這個程式使球跑,請問如何以一個按鈕,用if...else來撰寫為一個開關? 請問如何編寫程式?? 發表人 - lunen 於 2005/05/16 22:13:15

您好:    PO程式碼的方式請參考版規說明,煩請修改謝謝您的配合 >

lunen 您好:    因為您的程式寫在Timer1Timer(.)中,所以最簡單的方法就是切換TimerTimer1->Enabled. 當然一開始要設: Timer1->Enabled = false;    供您參考!    

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled = ! Timer1->Enabled;
}
 

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####