13,826
社区成员
发帖
与我相关
我的任务
分享怎样让程序停顿一会.
各位高手请问怎样才能让一个正在运行的程序(比如:俄罗斯方块)当按一个按钮时停顿,直到按另一个按钮时继续运行?(只须写出使程序停顿和重新运行的代码).
...全文
请发表友善的回复…
发表回复
zihan 2003-07-21
- 打赏
- 举报
呵呵,如果你是想停顿的话,建议使用循环,如果要挂起,使用sleep,但是如果你是俄罗斯方块的话,没有必要这样做,你的俄罗斯方块它动肯定是你在控制它动,如果你让他不动,不就停止了吗??程序是你的 ,你肯定可以让他不动了啊!!
如果是dos下的程序,最好使用循环实现
如果是dos下的程序,最好使用循环实现
zearbo 2003-07-21
- 打赏
- 举报
sleep(n)
nanhui 2003-07-20
- 打赏
- 举报
Sleep好像无法实现楼主所要的功能，你怎么知道什么时候又要重新开始呢
用Timer控件和一个全局变量倒是一个好办法
用Timer控件和一个全局变量倒是一个好办法
albeta 2003-07-20
- 打赏
- 举报
建议这种东西坐在线程里头，不然，可能程序没有反应啊。
std::coding::peasant 2003-07-20
- 打赏
- 举报
定义一个布尔变量，如果为真就运行，为假就不运行
在你的程序里判断这个布尔变量
当按“暂停”键时这个布尔变量赋值为假，按“继续”键时这个布尔变量赋值为真
BCB俄罗斯方块源程序 http://www.cppfans.com/d_cpp_source/GmSrcTetris.asp
BCB贪吃蛇源程序 http://www.cppfans.com/d_cpp_source/GmSnake.asp
BCB俄罗斯方块源程序 http://www.cppfans.com/d_cpp_source/GmTetrisX.asp
在你的程序里判断这个布尔变量
当按“暂停”键时这个布尔变量赋值为假，按“继续”键时这个布尔变量赋值为真
BCB俄罗斯方块源程序 http://www.cppfans.com/d_cpp_source/GmSrcTetris.asp
BCB贪吃蛇源程序 http://www.cppfans.com/d_cpp_source/GmSnake.asp
BCB俄罗斯方块源程序 http://www.cppfans.com/d_cpp_source/GmTetrisX.asp
ch_builder 2003-07-20
- 打赏
- 举报
建议用Timer，这好象在程序刚开始运行时会起到很好的作用。
Killmyself 2003-07-20
- 打赏
- 举报
用timer
Atomictry 2003-07-20
- 打赏
- 举报
本来就应该用全局变量和TIMER，两者也没什么差别。
wenyongjie 2003-07-19
- 打赏
- 举报
一、延迟：
二、线程
改日给你一个例子，现在在网吧，不方便！
二、线程
改日给你一个例子，现在在网吧，不方便！
Atomictry 2003-07-19
- 打赏
- 举报
你看一下这段小不点程序，看对你有没有启发。
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool pass=true;
int i=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(pass)
{
i++;
Edit1->Text=i;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
pass=false;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool pass=true;
int i=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(pass)
{
i++;
Edit1->Text=i;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
pass=false;
}
//---------------------------------------------------------------------------
Atomictry 2003-07-19
- 打赏
- 举报
dos下你只要getch（）就可以了。:)
shadowstar 2003-07-19
- 打赏
- 举报
Sleep只能停顿一段时间，最简单有效的方法就是用设置Timer->Enabled。
bluebear88 2003-07-19
- 打赏
- 举报
Timer->Enabled=false;
纯冰糖 2003-07-19
- 打赏
- 举报
Sleep(...);可以用在循环中停滞
zywx 2003-07-19
- 打赏
- 举报
如果用线程类，就Surspend(),Resume(),
如果用时间控件，就Timer->Enabled=true/false;
如果用时间控件，就Timer->Enabled=true/false;
sunmedia 2003-07-18
- 打赏
- 举报
使用Sleep(n)即可
xu_xinyu 2003-07-18
- 打赏
- 举报
在循环中使循环停止。
牧童027 2003-07-18
- 打赏
- 举报
Sleep(long);
