版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

返回列表

leafmavis

木虫 (文坛精英)

应助: 119 (高中生)
金币: 7200.5
散金: 15392
红花: 13
帖子: 15284
在线: 343小时
虫号: 627785
注册: 2008-10-16
专业: 认知科学

[求助] 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;
}

回复此楼

» 猜你喜欢

2025冷门绝学什么时候出结果已经有5人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
孩子确诊有中度注意力缺陷已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复

» 本主题相关价值贴推荐，对您同样有帮助:

春如杯中水

1楼2011-06-10 20:09:55

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军

程序强帖: 40
应助: 817 (博后)
金币: 12914.1
红花: 64
帖子: 2238
在线: 287.3小时
虫号: 696514
注册: 2009-02-05
专业: 计算机软件

【答案】应助回帖

★ ★
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

木虫 (文坛精英)

应助: 119 (高中生)
金币: 7200.5
散金: 15392
红花: 13
帖子: 15284
在线: 343小时
虫号: 627785
注册: 2008-10-16
专业: 认知科学

引用回帖:

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

木虫 (文坛精英)

应助: 119 (高中生)
金币: 7200.5
散金: 15392
红花: 13
帖子: 15284
在线: 343小时
虫号: 627785
注册: 2008-10-16
专业: 认知科学

改为多线程，解决了。谢谢

赞一下

回复此楼

春如杯中水

4楼2011-06-12 18:02:44

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 leafmavis 的主题更新

返回列表