mainfrm.cpp

求解TSP的模拟退火算法和遗传算法程序和源码

// MainFrm.cpp : implementation of the CMainFrame class
//

#include "stdafx.h"
#include "GAApp.h"
#include "GAAppDoc.h"
#include "GAAppView.h"
#include "MainFrm.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

__declspec(dllimport) int OpenDataFile( CString &strFileName );
__declspec(dllimport) int OneIterGACompution();
__declspec(dllimport) double GetMinRouterFromPop( CString &strTemp );
__declspec(dllimport) int GetTotalGeneration();
__declspec(dllimport) void GetMinRouterFileStringFromPop( CString &strTemp );

BOOL IsComputing = FALSE;				//计算线程是否在运行

/////////////////////////////////////////////////////////////////////////////
// CMainFrame

IMPLEMENT_DYNCREATE(CMainFrame, CFrameWnd)

BEGIN_MESSAGE_MAP(CMainFrame, CFrameWnd)
	//{{AFX_MSG_MAP(CMainFrame)
	ON_WM_CREATE()
	ON_COMMAND(ID_FILE_START, OnFileStart)
	ON_COMMAND(ID_FILE_OPEN, OnFileOpen)
	ON_UPDATE_COMMAND_UI(ID_FILE_OPEN, OnUpdateFileOpen)
	ON_UPDATE_COMMAND_UI(ID_FILE_START, OnUpdateFileStart)
	ON_COMMAND(ID_APP_GETCODE, OnAppGetcode)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

static UINT indicators[] =
{
	ID_SEPARATOR,           // status line indicator
	ID_INDICATOR_CAPS,
	ID_INDICATOR_NUM,
	ID_INDICATOR_SCRL,
};

/////////////////////////////////////////////////////////////////////////////
// CMainFrame construction/destruction

CMainFrame::CMainFrame()
{
	// TODO: add member initialization code here
	
}

CMainFrame::~CMainFrame()
{
}

int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
	if (CFrameWnd::OnCreate(lpCreateStruct) == -1)
		return -1;
	
	if (!m_wndStatusBar.Create(this) ||
		!m_wndStatusBar.SetIndicators(indicators,
		  sizeof(indicators)/sizeof(UINT)))
	{
		TRACE0("Failed to create status bar\n");
		return -1;      // fail to create
	}

	// TODO: Delete these three lines if you don't want the toolbar to
	//  be dockable
	return 0;
}

BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
	cs.style &= ~FWS_ADDTOTITLE;
	if( !CFrameWnd::PreCreateWindow(cs) )
		return FALSE;
	// TODO: Modify the Window class or styles here by modifying
	//  the CREATESTRUCT cs

	m_strTitle = "遗传算法求解TSP问题";
	return TRUE;
}

/////////////////////////////////////////////////////////////////////////////
// CMainFrame diagnostics

#ifdef _DEBUG
void CMainFrame::AssertValid() const
{
	CFrameWnd::AssertValid();
}

void CMainFrame::Dump(CDumpContext& dc) const
{
	CFrameWnd::Dump(dc);
}

#endif //_DEBUG

/////////////////////////////////////////////////////////////////////////////
// CMainFrame message handlers

UINT GACompution(LPVOID pParam)
{
	IsComputing = TRUE;

	CString strTemp, strValue;
	CGAAppView *pView = (CGAAppView*)pParam;
	HWND ViewHWND = pView->GetSafeHwnd();
	strTemp = "开始计算";
	::SendMessage( ViewHWND, WYWM_INFOVIEWAPPENDINFO, (WPARAM)(&strTemp), (LPARAM)0 );

	CFile cityfile("C:\\gacitysfile.txt", CFile::modeCreate|CFile::modeWrite);
	CFile iterfile("C:\\gaitersfile.txt", CFile::modeCreate|CFile::modeWrite);

	int totalgen = GetTotalGeneration();
	double fmindistance = 0.0;
	int nowiter = 0;
	while( nowiter <= totalgen &&
		   nowiter >= 0 )
	{
		nowiter = OneIterGACompution();
		fmindistance = GetMinRouterFromPop( strTemp );
		::SendMessage( ViewHWND, WYWM_INFOVIEWAPPENDINFO, (WPARAM)(&strTemp), (LPARAM)0 );
			
		strValue.Format("%d %.4f\n",nowiter,fmindistance);
		iterfile.Write( strValue, strValue.GetLength() );
	}

	GetMinRouterFileStringFromPop( strTemp );
	cityfile.Write( strTemp, strTemp.GetLength() );

	cityfile.Close();
	iterfile.Close();

	IsComputing = FALSE;
	return 0;
}

void CMainFrame::OnFileStart() 
{
	CGAAppView *pView = (CGAAppView*)GetActiveView();
	AfxBeginThread( GACompution, (LPVOID)pView );
}

void CMainFrame::OnFileOpen() 
{
	CString strFileName;
	char szFilter[200];
	strcpy( szFilter, "TXT Files (*.txt)|*.txt||" );
	CFileDialog *pFileDialog;
	pFileDialog = new CFileDialog( TRUE, 
								NULL, 
								NULL, 
								OFN_HIDEREADONLY,
								szFilter,
								this );
	if( IDOK == pFileDialog->DoModal() )
	{
		CGAAppView *pView = (CGAAppView*)GetActiveView();
		pView->ClearInfos();
		
		strFileName = pFileDialog->GetPathName();
		int citynumber = OpenDataFile( strFileName );

		CString strTemp, strValue;
		if( citynumber > 0 )
		{
			strTemp = "共读入城市信息";
			strValue.Format("%d",citynumber);
			strTemp += strValue;
			strTemp += "个";
			pView->AddString( strTemp );

			strTemp = "计算城市距离完成";
			pView->AddString( strTemp );
		}
		else
		{
			strTemp = "读入数据文件错误";
			pView->AddString( strTemp );
		}
	}
}

void CMainFrame::OnUpdateFileOpen(CCmdUI* pCmdUI) 
{
	if( IsComputing )
		pCmdUI->Enable(FALSE);
	else
		pCmdUI->Enable(TRUE);
}

void CMainFrame::OnUpdateFileStart(CCmdUI* pCmdUI) 
{
	if( IsComputing )
		pCmdUI->Enable(FALSE);
	else
		pCmdUI->Enable(TRUE);
}

void CMainFrame::OnAppGetcode() 
{
	CString strTemp;
	strTemp.LoadString(IDS_HELP_HOMEPAGE);
	::ShellExecute(NULL, "open", strTemp, NULL, NULL, SW_SHOWNORMAL);	
}