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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » C/C++ » C++builder编程求助
41/1返回列表
查看: 859  |  回复: 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的回帖

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的回帖

leafmavis

木虫 (文坛精英)
改为多线程，解决了。谢谢
赞一下 回复此楼
春如杯中水
4楼2011-06-12 18:02:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 leafmavis 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 279分求调剂 一志愿211 +13 chaojifeixia 2026-03-19 14/700 2026-03-21 10:28 by JineShine
[考研] 08工科 320总分 求调剂 +6 梨花珞晚风 2026-03-17 6/300 2026-03-21 03:40 by JourneyLucky
[考研] 301求调剂 +10 yy要上岸呀 2026-03-17 10/500 2026-03-21 03:14 by JourneyLucky
[考研] 280求调剂 +7 咕噜晓晓 2026-03-18 8/400 2026-03-21 01:27 by JourneyLucky
[考研] 一志愿华中科技大学，080502，354分求调剂 +5 守候夕阳CF 2026-03-18 5/250 2026-03-21 01:06 by JourneyLucky
[考研] 一志愿华南师大 070300（化学）304分求调剂 +3 0703武芊慧雪304 2026-03-18 3/150 2026-03-21 00:48 by JourneyLucky
[考研] 323求调剂 +3 洼小桶 2026-03-18 3/150 2026-03-20 22:54 by JourneyLucky
[考研] 288求调剂 +16 于海海海海 2026-03-19 16/800 2026-03-20 22:28 by JourneyLucky
[考研] 本人考085602 化学工程 专硕 +19 不知道叫什么！ 2026-03-15 21/1050 2026-03-20 20:48 by zhukairuo
[考研] 295复试调剂 +8 简木ChuFront 2026-03-19 8/400 2026-03-20 20:44 by zhukairuo
[考研] 260求调剂 +3 朱芷琳 2026-03-20 3/150 2026-03-20 20:35 by 学员8dgXkO
[考研] 求调剂 +3 @taotao 2026-03-20 3/150 2026-03-20 19:35 by JourneyLucky
[考研] 08工学调剂 +5 用户573181 2026-03-20 5/250 2026-03-20 15:47 by xia_2003
[考研] 0856调剂，是学校就去 +8 sllhht 2026-03-19 9/450 2026-03-20 14:25 by 无懈可击111
[考研] 梁成伟老师课题组欢迎你的加入 +9 一鸭鸭哟 2026-03-14 11/550 2026-03-19 17:22 by ！本暗一次！
[考研] 0703化学调剂 +4 18889395102 2026-03-18 4/200 2026-03-19 16:13 by 30660438
[考研] 085601材料工程专硕求调剂 +10 慕寒mio 2026-03-16 10/500 2026-03-19 15:26 by 丁丁*
[考研] 328求调剂，英语六级551，有科研经历 +4 生物工程调剂 2026-03-16 12/600 2026-03-19 11:10 by 生物工程调剂
[考研] 材料专硕306英一数二 +10 z1z2z3879 2026-03-16 13/650 2026-03-18 14:20 by 007_lilei
[考研] 一志愿，福州大学材料专硕339分求调剂 +3 木子momo青争 2026-03-15 3/150 2026-03-17 07:52 by laoshidan
信息提示
关闭
请填处理意见
关闭