main.cpp

来自「特别是在题库管理模块中对自动组卷功能常用的算法（包括随机选取法、回溯试探法和遗传」· C++ 代码 · 共 43 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TKaoShiForm *KaoShiForm;
//---------------------------------------------------------------------------
__fastcall TKaoShiForm::TKaoShiForm(TComponent* Owner)
	: TNeoForm(Owner)
{
      Sizeable = false;
      TimeCount=0;
      SetNeoMenu(0, suiPopupMenu1, "学习(&X)");
      SetNeoMenu(1, suiPopupMenu2, "训练(&L)");
      SetNeoMenu(2, suiPopupMenu3, "模拟(&M)");
      SetNeoMenu(3, suiPopupMenu4, "帮助(&H)");
}
//---------------------------------------------------------------------------

void __fastcall TKaoShiForm::Timer1Timer(TObject *Sender)
{
       int hour,miniute,second,minisec,settime=324000;
       AnsiString Hou,Min,Sec,MSec;
       TimeCount++;
       hour=(settime-TimeCount)/216000;
       if(hour>9) Hou=IntToStr(hour); else Hou="0"+IntToStr(hour);
       miniute=(settime-TimeCount-hour*216000)/3600;
       if(miniute>9) Min=IntToStr(miniute); else Min="0"+IntToStr(miniute);
       second=(settime-TimeCount-hour*216000-miniute*3600)/60;
       if(second>9) Sec=IntToStr(second); else Sec="0"+IntToStr(second);
       minisec=settime-TimeCount-hour*216000-miniute*3600-second*60;
       if(minisec>9) MSec=IntToStr(minisec); else MSec="0"+IntToStr(minisec);
       //KaoShiForm->Caption=Hou+":"+Min+":"+Sec+":"+MSec;
       if(KaoShiForm->Caption=="00:00:00:00") Close();
       Timer1->Interval=1;
}
//---------------------------------------------------------------------------