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

24小时热门版块排行榜     石溪大学接受考研调剂申请>

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » C/C++ » C++builder编程求助
【调剂】北京石油化工学院2024年16个专业接受调剂
41/1返回列表
查看: 641  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 论文翻译-EnPapers美助理教授团队-SCI英文润色
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 前同事拿我以前未中的国自然标书申请今年的国自然，现在基金委发来调查函 +5 bjdxyxy 2024-04-19 7/350 2024-04-19 20:24 by yinlin
[论文投稿] 最近遇到这样一个问题 2+4 asd123gfa689 2024-04-18 10/500 2024-04-19 18:57 by asd123gfa689
[教师之家] 美国教授开除中国研究生：我就不该录取你！ +7 苏东坡二世 2024-04-15 7/350 2024-04-19 16:20 by feng6531
[找工作] 杭州国企和浙江高校如何选择？ +15 restart2024 2024-04-15 21/1050 2024-04-19 16:05 by l419110028
[基金申请] 下雨了 +13 zju2000 2024-04-16 19/950 2024-04-19 09:24 by duxin_30
[基金申请] 国家资助博士后BC档出校后资助的概率多大？ +3 卡卡罗特哦 2024-04-16 3/150 2024-04-18 12:58 by wolfgangHugh
[无机/物化] H3PO2在130度附近分解为磷化氢（剧毒），怎样防护，求指点。 1(金币+5) +3 大力2010 2024-04-13 9/450 2024-04-17 21:55 by 大力2010
[公派出国] CSC在职申请求问 +5 Amber0919 2024-04-16 5/250 2024-04-17 16:15 by liaojiayan
[考研] 322求调剂 +7 本己上岸 2024-04-16 7/350 2024-04-17 11:49 by duanxz
[考研] 浙江海洋大学 船舶与海运学院 交通运输专硕 （交通信息工程及控制）接收调节 +4 joee 2024-04-15 8/400 2024-04-16 20:47 by TommyZiAng
[考研] 求调剂 +4 鹿萌月yy 2024-04-15 5/250 2024-04-16 16:16 by chenweiwade
[考研] 材料专硕329调剂遗留难民 +9 Kaylawander 2024-04-13 9/450 2024-04-15 19:21 by mumin1990
[考研] 329求调剂 +18 王郁洁哈哈哈 2024-04-14 26/1300 2024-04-15 19:10 by mumin1990
[考研] 347求调剂 +4 安谷先生 2024-04-15 4/200 2024-04-15 18:27 by huao连
[考研] 273求调剂 +5 Late婉安 2024-04-15 7/350 2024-04-15 13:01 by Late婉安
[考研] 化学、材料类最后调剂机会！！！ +3 加油努力就好 2024-04-14 10/500 2024-04-15 09:05 by 任pen
[考研] 专硕调剂招生 +3 电致发光 2024-04-15 4/200 2024-04-15 07:34 by ashorewmj
[考研] 287求调剂 +6 南沨 2024-04-14 6/300 2024-04-14 23:08 by lincunhui
[考研] 300求调剂 +5 @Xqy668800 2024-04-14 6/300 2024-04-14 23:03 by lincunhui
[考研] 086000生医没考数学304分，一志愿西农求调剂 +3 王有田有学上 2024-04-13 5/250 2024-04-13 16:18 by coco1981
信息提示
关闭
请填处理意见
关闭