mortcalcdoc.cpp

<win2k程序设计>的源码.麦格劳希尔,清华出版.作者:Raj Rajagopal & Subodh Monica

// MortCalcDoc.cpp : implementation of the CMortCalcDoc class
//

#include "stdafx.h"
#include "MortCalc.h"

#include "MortCalcDoc.h"

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

/////////////////////////////////////////////////////////////////////////////
// CMortCalcDoc

IMPLEMENT_DYNCREATE(CMortCalcDoc, CDocument)

BEGIN_MESSAGE_MAP(CMortCalcDoc, CDocument)
	//{{AFX_MSG_MAP(CMortCalcDoc)
		// NOTE - the ClassWizard will add and remove mapping macros here.
		//    DO NOT EDIT what you see in these blocks of generated code!
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

BEGIN_DISPATCH_MAP(CMortCalcDoc, CDocument)
	//{{AFX_DISPATCH_MAP(CMortCalcDoc)
	DISP_PROPERTY_EX(CMortCalcDoc, "Principal", GetPrincipal, SetNotSupported, VT_R4)
	DISP_PROPERTY_EX(CMortCalcDoc, "Rate", GetRate, SetNotSupported, VT_R4)
	DISP_PROPERTY_EX(CMortCalcDoc, "Period", GetPeriod, SetNotSupported, VT_I4)
	DISP_PROPERTY_EX(CMortCalcDoc, "Payment", GetPayment, SetNotSupported, VT_R4)
	DISP_FUNCTION(CMortCalcDoc, "Reset", Reset, VT_EMPTY, VTS_NONE)
	DISP_FUNCTION(CMortCalcDoc, "SetLoanInfo", SetLoanInfo, VT_EMPTY, VTS_R4 VTS_R4 VTS_I4)
	//}}AFX_DISPATCH_MAP
END_DISPATCH_MAP()

// Note: we add support for IID_IMortCalc to support typesafe binding
//  from VBA.  This IID must match the GUID that is attached to the 
//  dispinterface in the .ODL file.

// {0109A0D5-1969-11D1-97B2-000000000000}
static const IID IID_IMortCalc =
{ 0x109a0d5, 0x1969, 0x11d1, { 0x97, 0xb2, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 } };

BEGIN_INTERFACE_MAP(CMortCalcDoc, CDocument)
	INTERFACE_PART(CMortCalcDoc, IID_IMortCalc, Dispatch)
END_INTERFACE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMortCalcDoc construction/destruction

CMortCalcDoc::CMortCalcDoc()
{
	// TODO: add one-time construction code here

	EnableAutomation();

	AfxOleLockApp();

    flLoan = 0.0;
    flRate = 0.0;
    iNumofPayments = 0;
    flMonthlyPayment = 0.0;

}

CMortCalcDoc::~CMortCalcDoc()
{
	AfxOleUnlockApp();
}

BOOL CMortCalcDoc::OnNewDocument()
{
	if (!CDocument::OnNewDocument())
		return FALSE;

	// TODO: add reinitialization code here
	// (SDI documents will reuse this document)

	return TRUE;
}



/////////////////////////////////////////////////////////////////////////////
// CMortCalcDoc serialization

void CMortCalcDoc::Serialize(CArchive& ar)
{
	if (ar.IsStoring())
	{
		// TODO: add storing code here
	}
	else
	{
		// TODO: add loading code here
	}
}

/////////////////////////////////////////////////////////////////////////////
// CMortCalcDoc diagnostics

#ifdef _DEBUG
void CMortCalcDoc::AssertValid() const
{
	CDocument::AssertValid();
}

void CMortCalcDoc::Dump(CDumpContext& dc) const
{
	CDocument::Dump(dc);
}
#endif //_DEBUG

/////////////////////////////////////////////////////////////////////////////
// CMortCalcDoc commands

void CMortCalcDoc::SetLoanData(float amount, float rate, int years)
{
    flLoan = amount;
    flRate = rate;
    iNumofPayments = years*12;
}

void CMortCalcDoc::Compute()
{
// P = principal, I = interest rate, l = years.
// J = I/(12*100)
// N = L*12 - number payments

// Monthly payment = P * (J/(1-(1+J)** -N))



    double J = flRate/(1200.0);
    double OnePlusJPowerMinusN = pow ((double)(1.0 + J), (double)-iNumofPayments);

    flMonthlyPayment = flLoan * (float)(J/(1.0-OnePlusJPowerMinusN));

}

void CMortCalcDoc::GetLoanData(float *P, float *R, int *Y, float *M)
{
    *P = flLoan;
    *R = flRate;
    *Y = iNumofPayments/12;
    *M = flMonthlyPayment;
}
float CMortCalcDoc::GetPrincipal() 
{
	// TODO: Add your property handler here

	return flLoan;
}

float CMortCalcDoc::GetRate() 
{
	// TODO: Add your property handler here

	return flRate;
}

long CMortCalcDoc::GetPeriod() 
{
	// TODO: Add your property handler here

	return iNumofPayments/12;
}

float CMortCalcDoc::GetPayment() 
{
	// TODO: Add your property handler here

	return flMonthlyPayment;
}

void CMortCalcDoc::Reset() 
{
	// TODO: Add your dispatch handler code here
    flLoan = 0.0;
    flRate = 0.0;
    iNumofPayments = 0;
    flMonthlyPayment = 0.0;
}

void CMortCalcDoc::SetLoanInfo(float Principal, float Rate, long Period) 
{
	// TODO: Add your dispatch handler code here
    flLoan = Principal;
    flRate = Rate;
    iNumofPayments = Period*12;
    Compute();
}