应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » C/C++ » C++builder编程求助
51/1返回列表
查看: 1055  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

leafmavis

木虫 (文坛精英)

[求助] C++builder编程求助

偶是C++菜鸟，现在在C++builder编程时遇到问题，请大家帮助。
有个实验得用串口控制快门：控制快门打开X秒，关闭Y秒，并且要重复Z次；在循环过程中，若遇到紧急情况就中止循环，同时向并口发送信号。   目前已实现前半部分，也就是说快门已能按要求工作，并口操作也已解决。但在循环时，按“紧急停止”键，该键无“下沉”（看似不起作用），但循环结束后能显示该键按下了（显示程序中要求输出的Something is wrong!）
下面是程序（只编了一个快门的），请帮忙看下应该如何改，谢谢！

#include
#pragma hdrstop
#include "PortTalk.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Comm"
#pragma resource "*.dfm"

TDateTime startTime;
int mark1=1;  //紧急停止标志位
int kmen1,kmen2,kmen3;  //快门选择标志

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  //OpenPortTalk();          //并口初始化，打开地址操作
  //outportb(0xE800,0xFF);  //向并口数据寄存器写0x00,并口卡地址为E800;
  //ClosePortTalk();       //关闭地址操作
  Button1->Enabled=false;
  Edit1->Enabled=false;
  Edit2->Enabled=false;
  Edit3->Enabled=false;
  Edit4->Enabled=false;
  Edit5->Enabled=false;
  CheckBox1->Enabled=false;
  CheckBox2->Enabled=false;
  CheckBox3->Enabled=false;
}

//--------------实验开始按钮---------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Button1->Enabled=false;
  startTime=Time();  //显示开始时间
  Edit3->Text=TimeToStr(startTime);
  int num1=Edit1->Text.ToInt();                //循环次数
  int delay1=Edit2->Text.ToInt();              //快门打开的持续时间
  float delay2=(Edit5->Text.ToDouble())*1000;  //快门关闭的持续时间
  int kmen=kmen1 + kmen2 + kmen3;   //用于判断是哪些快门需要打开
  switch (kmen)
     {
        case 1:
          {
            for (int i=1;i<=num1;i++)
              {
                Comm1->OutputString('@');  //快门打开
                Sleep(delay1);
                Comm1->OutputString('A');  //快门关闭
                Sleep(delay2);
                if (mark1==0)
                   {
                    ShowMessage ("Something is wrong!" ;
                    break;
                   }
              }
            break;
          }
        case 10:
          {
            break;
          }
        case 11:
          {
            break;
          }
        case 100:
          {
            break;
          }
        case 101:
          {
            break;
          }
        case 111:
          {
            break;
          }
     }
  startTime=Time();  //显示实验结束时间
  Edit4->Text=TimeToStr(startTime);
}


//-----------实验结束按钮----------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Form1->Close();
}


//-----------紧急停止按钮-----------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  //Button1->Enabled=false;
  ShowMessage ("Something is wrong!" ;
  //outportb(0xE800,0x00);  //向并口数据寄存器写0x00,并口卡地址为E800; 使得红外刺激仪紧急停止
  //ClosePortTalk();       //关闭地址操作
  mark1=0;
}


//---------串口选择------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
   if (Comm1->PortOpen)
     {
       ShowMessage ("Port has been opened !" ;
       return ;
     }
  //设定通信端口   
  if (RadioGroup1->ItemIndex==0)  Comm1->CommPort=pnCOM1;
  else Comm1->CommPort=pnCOM6;
  Comm1 -> PortOpen=true; //打开通信端口
  ShowMessage ("Port has been opened now!" ;
}


//---------实验模式选择--------------------------------------------------------
void __fastcall TForm1::RadioGroup2Click(TObject *Sender)
{
  CheckBox1->Enabled=true;
  CheckBox2->Enabled=true;
  CheckBox3->Enabled=true;
  Edit1->Enabled=true;

}

//-----------打开快门一 -----------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
  kmen1=1;        
}

//-----------打开快门二 -----------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
  kmen2=10;
}

//-----------打开快门三------------------------------------------------------
void __fastcall TForm1::CheckBox3Click(TObject *Sender)
{
  kmen3=100;
}

//-----------输入循环次数----------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
  Edit2->Enabled=true;
}

//-----------输入快门关闭持续时间-------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
  Edit5->Enabled=true;
}

//-----------输入快门打开持续时间-------------------------------------------
void __fastcall TForm1::Edit5Change(TObject *Sender)
{
   Button1->Enabled=true;
}
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
春如杯中水
1楼 2011-06-10 20:09:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

leafmavis

木虫 (文坛精英)
改为多线程，解决了。谢谢
赞一下 回复此楼
春如杯中水
4楼2011-06-12 18:02:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

libralibra

至尊木虫 (著名写手)

骠骑将军

【答案】应助回帖

★ ★
jjdg(金币+2): 感谢参与 2011-06-11 00:30:17
leafmavis(金币+2): 谢谢，这个方法也不太好，后改为多线程就解决了。 2011-06-12 18:00:17
你用全局变量hold紧急停止标志是对的,但是判断有问题,
应该改成循环时每次都判断mark1,
只有mark1==1是才做快门打开关闭操作,
否则就是紧急停止了,直接跳出循环就行了
CODE:
  
for (int i=1;i<=num1;i++)
{
-------→   Comm1->OutputString('@');  //快门打开
|                Sleep(delay1);
|               Comm1->OutputString('A');  //快门关闭
|               Sleep(delay2);
-------     if (mark1==0)
                   {
                    ShowMessage ("Something is wrong!" ;
                    break;
                   }
              }
赞一下(1人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
2楼2011-06-10 21:59:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

leafmavis

木虫 (文坛精英)
引用回帖:
Originally posted by libralibra at 2011-06-10 21:59:07:
你用全局变量hold紧急停止标志是对的,但是判断有问题,
应该改成循环时每次都判断mark1,
只有mark1==1是才做快门打开关闭操作,
否则就是紧急停止了,直接跳出循环就行了
[code]  
for (int i=1;i<=num1;i++ ...

case 1:
          {
            for (int i=1;i<=num1;i++)
              {
                if (mark1==1)
                 {
                   Comm1->OutputString('@');  //快门打开
                   Sleep(delay1);
                   Comm1->OutputString('A');  //快门关闭
                   Sleep(delay2);
                 }
                else
                 {
                   ShowMessage ("Something is wrong!" ;
                   break;
                 }
              }
            break;
          }

结果是一样的
赞一下 回复此楼
春如杯中水
3楼2011-06-10 22:25:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭