?? unit1.cpp

?? 一個醫學的軟件
?? CPP
?? 第 1 頁 / 共 5 頁
字號:
12 3 4 5 下一頁
//---------------------------------------------------------------------------


#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIMainMenu"
#pragma link "SUIStatusBar"
#pragma link "SUIToolBar"
#pragma link "SUIImagePanel"
#pragma link "SUIImagePanel"
#pragma link "SUIComboBox"
#pragma link "SUIColorBox"
#pragma resource "*.dfm"
TForm1 *Form1;
bool Editable=false;//是否開始編輯，false是不測量，true是測量
bool Saveable=false;//是否有修改，false是沒有，true是有過修改
bool Dataable=false;//是否顯示波形參數，false是不顯示，true是顯示
bool Pointable=false;//是否進行點編輯，false是進行
bool Coordinate=false;//是否顯示
bool MultiImage=false;
bool MeasureKind=false;//測量的方式，false是手動，true是自動
bool CrossCursor=false;
bool NewDataType=false;//是否是新的文件類型，
bool OpenFiled=false;//是否已經打開了文件
bool LineColorful=true;//是否彩色顯示疊加波形
int HEIGHT,WIDTH; //整個窗口的大小
int Standandx,Standandy;  //標準的圖像的比例尺
int StandXoff,StandYoff;//標準圖像的偏移
//int ForStand=1;//只有第一次才記錄為標準
int Measure=0; //測量的不同項目
String DataFileName=NULL;
int aheadx=0;
int aheady=0;
int yrp,xtop,ytop,xbottom,ybottom;//取得圖像的最低最高點
int imageclick=2;//在局部修改時，記錄當前是第幾次點
int ximagefirst,yimagefirst,ximagelast,yimagelast,imagedelta;
TColor CurColor=clBlack;//默認的當前顏色是黑色
//在局部修改時，記錄第一次和第二次的點
FILE *pf=NULL;

//---------------------------------------------------------------------------
/****************************************************************************
Initialize the system
****************************************************************************/

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    //Form1->destr
    Form1->suiImagePanel1->DoubleBuffered=true;
    Form1->ShowHint=true;
    
    TForm4 *Form4 = new TForm4(this);
    Form4->ShowHint=true;

    MyPath=GetCurrentDir();

    Form1->ToolButton3->Enabled=false;
    Form1->ToolButton4->Enabled=false;
    Form1->ToolButton6->Enabled=false;
    Form1->ToolButton7->Enabled=false;
    Form1->ToolButton9->Enabled=false;
    Form1->ToolButton10->Enabled=false;
    Form1->ToolButton12->Enabled=false;
    Form1->ToolButton13->Enabled=false;
    Form1->ToolButton15->Enabled=false;
    Form1->ToolButton16->Enabled=false;
    //文件下
    Form1->S1->Enabled=false;
    Form1->I1->Enabled=false;
    Form1->N3->Enabled=false;
    Form1->N28->Enabled=false;
    Form1->N13->Enabled=false;
    //編輯下
    Form1->N7->Enabled=false;
    Form1->N8->Enabled=false;
    Form1->N26->Enabled=false;
    Form1->N9->Enabled=false;
    Form1->N10->Enabled=false;
    Form1->N31->Enabled=false;
    Form1->N32->Enabled=false;

    //測量下
    Form1->N17->Enabled=false;
    Form1->N19->Enabled=false;
    Form1->N22->Enabled=false;
    Form1->N24->Enabled=false;
    Form1->N27->Enabled=false;
    Form1->N20->Enabled=false;
    Form1->APD201->Enabled=false;
    Form1->APD501->Enabled=false;
    Form1->APD1->Enabled=false;
    //幫助下
    Form1->N15->Enabled=false;
    Form1->N30->Enabled=false;

    //Form1->N20->Enabled=false;
    //Form1->APD201->Enabled=false;
    //Form1->APD501->Enabled=false;
    //Form1->APD1->Enabled=false;



    HEIGHT=this->Height;
    WIDTH=this->Width;
    //Form1->Image1->Picture = NULL;
    Form1->suiStatusBar1->Panels->Items[0]->Text="請打開文件";
}
//---------------------------------------------------------------------------
/****************************************************************************
Exchange Edit model
****************************************************************************/

void __fastcall TForm1::ToolButton4Click(TObject *Sender)
{
    if(Editable==false)
    {
        if(Application->MessageBox("開始編輯", "Message", MB_YESNO)==IDYES)
        {
            Editable=true;
            Saveable=true;
            imageclick=2;
            Measure=0;
            Form1->N19->Enabled=false;
            Form1->N20->Enabled=false;
            Form1->APD201->Enabled=false;
            Form1->APD501->Enabled=false;
            Form1->APD1->Enabled=false;
            Form1->ToolButton6->Enabled=false;
            Form1->ToolButton7->Enabled=false;
            Form1->ToolButton9->Enabled=false;
            Form1->ToolButton10->Enabled=false;
            Form1->ToolButton12->Enabled=false;
            Form1->ToolButton13->Enabled=false;
            Form1->ToolButton15->Enabled=false;
            Form1->ToolButton16->Enabled=false;
            Form1->suiStatusBar1->Panels->Items[0]->Text="編輯狀態_局部編輯 請確定起始點";
        }
    }
    else
    {
        if(Application->MessageBox("停止編輯", "Message", MB_YESNO)==IDYES)
        {
            Editable=false;
            imageclick=2;
            Form1->ToolButton6->Enabled=true;
            Form1->ToolButton7->Enabled=true;
            Form1->ToolButton9->Enabled=true;
            Form1->ToolButton10->Enabled=true;
            Form1->ToolButton12->Enabled=true;
            Form1->ToolButton13->Enabled=true;
            Form1->ToolButton15->Enabled=true;
            Form1->ToolButton16->Enabled=true;
            Form1->suiStatusBar1->Panels->Items[0]->Text="顯示狀態";
        }
    }
}
//---------------------------------------------------------------------------
/****************************************************************************
Quit system
****************************************************************************/
void __fastcall TForm1::X1Click(TObject *Sender)
{
    if(Saveable==true)
    {
        switch(Application->MessageBox("是否保存文件修改","Message",MB_YESNOCANCEL))
        {
            case IDYES:
                Form1->S1->Click();
            case IDNO:
                Saveable=false;
                this->Close();
                break;
            case IDCANCEL:
                break;
        }

    }
    else
        this->Close();
}
//---------------------------------------------------------------------------
/***********************************************************************
Setup the Setting of the Print
***********************************************************************/

void __fastcall TForm1::N4Click(TObject *Sender)
{
    Form1->PrinterSetupDialog1->Execute();
}
//---------------------------------------------------------------------------
/***********************************************************************
Print the Image
***********************************************************************/
void __fastcall TForm1::N3Click(TObject *Sender)
{
    TRect strect;
    int temhi,temwd;

    TPrinter *Prntr=Printers::Printer();
    //TPrinter Prntr=Printer();
    if(Form1->PrintDialog1->Execute())
    {

        temhi=Form1->Image1->Height*4;
        temwd=Form1->Image1->Width*4;
        strect.Top=(Prntr->PageHeight-temhi)/2;
        strect.Left=(Prntr->PageWidth-temwd)/2;
        strect.Bottom=strect.Top+temhi;
        strect.Right=strect.Left+temwd;


        Prntr->BeginDoc();
        Prntr->Canvas->StretchDraw(strect,Image1->Picture->Graphic);
        Prntr->EndDoc();
    }

}
//---------------------------------------------------------------------------
/***********************************************************************
Save the Image in BMP model
***********************************************************************/

void __fastcall TForm1::I1Click(TObject *Sender)
{
    int i=0;
    SaveDialog1->Filter="BMP FILE(*.bmp)|*.bmp";
    if(SaveDialog1->Execute())
    {
        if(SaveDialog1->FileName==NULL)
        {
            /*
            creat(SaveDialog1->FileName.c_str(),S_IREAD | S_IWRITE );
            if(SaveDialog1->FileName==NULL)
            {
                ShowMessage("保存文件失敗");
                i=1;
            }
            */
            ShowMessage("保存文件失敗");

        }
        else
        {
            Image1->Picture->SaveToFile(SaveDialog1->FileName+".bmp");
        }
    }



}
//---------------------------------------------------------------------------
/***********************************************************************
Save the Data in dat file
***********************************************************************/
void __fastcall TForm1::S1Click(TObject *Sender)
{
    FILE *pf=NULL;
	struct comframe stim[8][8]={0,};
	short int ni,temp3=3,temp2=2,temp0=0,num;
	char justify[0x10];
    ni=trial_dis.stim_num;

	stim[0][0].value=trial->out_amp;
	stim[0][0].time=trial->out_t1;
	stim[1][0].value=trial->hold_potential;
	stim[1][0].time=trial->out_t-trial->out_t1;
	stim[0][1].value=trial->out_amp;
	stim[0][1].time=trial->out_t1;
	stim[1][1].value=trial->hold_potential;
	stim[1][1].time=trial->out_t-trial->out_t1;

    SaveDialog1->Filter="數據文件(*.dat)|*.DAT";
    if(SaveDialog1->Execute())
    {
        if((pf=fopen(SaveDialog1->FileName.c_str(),"r+b"))==NULL)
        {
            creat(SaveDialog1->FileName.c_str(),S_IREAD | S_IWRITE );
            if((pf=fopen(SaveDialog1->FileName.c_str(),"r+b"))==NULL)
            {
                ShowMessage("保存文件失敗");
                pf=NULL;
            }
        }
    }
    if(pf!=NULL)
    {
        DataFileName=SaveDialog1->FileName.c_str();
		fputs("NEW HUST DATA",pf);
		ffill('\0',0x10-ftell(pf),pf);
        fwrite(&temp3,sizeof(short unsigned),1,pf);
		fwrite(&temp2,sizeof(short unsigned),1,pf);
		fwrite(&(trial->stim_during),sizeof(short unsigned),1,pf);
		fwrite(&(trial->sample_inter),sizeof(short unsigned),1,pf);
		fwrite(&(trial->sample_delay),sizeof(short unsigned),1,pf);
		fwrite(&(trial->hold_potential),sizeof(short unsigned),1,pf);
		fwrite(&temp0,sizeof(short unsigned),1,pf);
		fwrite(&temp0,sizeof(short unsigned),1,pf);
		fwrite(&(trial->stim_number),sizeof(short unsigned),1,pf);
		fwrite(&temp0,sizeof(short unsigned),1,pf);
		fwrite(&(trial->out_t),sizeof(short int),1,pf);
		fwrite(&(trial->out_t1),sizeof(short int),1,pf);
		fwrite(&(trial->out_l),sizeof(short int),1,pf);
		fwrite(&(trial->out_n),sizeof(short int),1,pf);
		fwrite(&(trial->out_delay),sizeof(short int),1,pf);
		fwrite(&(trial->out_amp),sizeof(short int),1,pf);

		ffill('\0',0x30-ftell(pf),pf);
		fwrite(&((trial->inch[0]).num),sizeof(short int),1,pf);
		fwrite(&((trial->inch[0]).gain),sizeof(float),1,pf);
		fwrite(&((trial->inch[1]).num),sizeof(short int),1,pf);
		fwrite(&((trial->inch[1]).gain),sizeof(float),1,pf);

		ffill('\0',0x60-ftell(pf),pf);
		fwrite(&((trial->outch).gain),sizeof(float),1,pf);

		ffill('\0',0x80-ftell(pf),pf);
		fwrite(&((trial->inch[0]).unit),sizeof(char),4,pf);
		fwrite(&((trial->inch[1]).unit),sizeof(char),4,pf);
		ffill('\0',0xa0-ftell(pf),pf);
		fwrite(&((trial->outch).unit),sizeof(char),4,pf);


        ffill('\0',0xb0-ftell(pf),pf);
		fwrite(&record_clock,sizeof(REALTIME_T),1,pf);
		fwrite(&count_clock,sizeof(REALTIME_T),1,pf);
        fwrite(&sys_date.da_mon,sizeof(char),1,pf);
        fwrite(&sys_date.da_day,sizeof(char),1,pf);
        fwrite(&sys_date.da_year,sizeof(short int),1,pf);

		ffill('\0',0x100-ftell(pf),pf);
		fwrite(&(stim[0][0]),sizeof(struct comframe)*8*8,1,pf);

		ffill('\0',0x200-ftell(pf),pf);
		//fwrite("",sizeof(char),0x100,pf);
        for(num=0;num<=trial_dis.trial_num;num++)
		{
			fwrite(&(trial->ap_param[num].vmax),sizeof(int),1,pf);
			fwrite(&(trial->ap_param[num].rp),sizeof(int),1,pf);
			fwrite(&(trial->ap_param[num].apa),sizeof(int),1,pf);
			fwrite(&(trial->ap_param[num].apd20),sizeof(int),1,pf);
			fwrite(&(trial->ap_param[num].apd50),sizeof(int),1,pf);
			fwrite(&(trial->ap_param[num].apd90),sizeof(int),1,pf);
			fwrite(&(trial->ap_param[num].fc),sizeof(int),1,pf);
		}

		ffill('\0',0x300-ftell(pf),pf);
		fwrite((trial->in_data_buff)[ni],sizeof(short unsigned),trial->\
			stim_data,pf);
		fwrite((trial->fc_data_buff)[ni],sizeof(short unsigned),trial->\
			stim_data,pf);

		fclose(pf);
    }
    Saveable=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::O1Click(TObject *Sender)
{

    if(OpenFiled==true&&Saveable==true)
    {
        switch(Application->MessageBox("是否保存文件修改","Message",MB_YESNOCANCEL))
        {
            case IDYES:

                Form1->S1->Click();
12 3 4 5 下一頁
?? 文件大小 1639 K
?? 上傳用戶 mislrb
?? 所屬分類人工智能/神經網絡
??? 相關標簽

#軟件
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit1.cpp

?? 快捷鍵說明
