地图分幅编号实验报告

1、 地图学实验报告 课程： 地图学 班级： * 学号: * 姓名： * 实验目的及要求：1.利用计算机编程实现地图图幅编号的计算。2.深化对地图图幅编号计算的原理，地图图幅编号的计算的理解，并掌握其计算步骤。3.提高自己的计算机语言编程能力。4.实验完成后提交报告，实验总结，编写代码，要独立编程，程序稳定可行。工具：Visual C+ 6.0实验感悟： 此次实验，首先认真学习了书中对地图分幅编号的计算。首先在数据输入的编辑框中添加了判断语句，以确保编辑框中输入数据的可用性。在旧的比例尺分幅计算中，有时W计算完成后需要转换成英文大写或小写字母，此处运用了ASCII码进行了转换。最后根据课件内容对程

2、序进行了调试、验证。通过这次试验，熟悉了新旧两种地图分幅编号的计算。 程序运行结果：程序代码：/地图分幅的计算void CMyDlg:OnCal() / TODO: Add your control notification handler code hereUpdateData(); /字符转换int LDeg = atoi(m_LDeg.Right(m_LDeg.GetLength()-1);double LMin = strtod(m_LSec,NULL);int BDeg = atoi(m_BDeg);double BMin = strtod(m_BSec,NULL);int inde

3、x;index = (CComboBox*)GetDlgItem(IDC_COMBO1)->GetCurSel()+1;int i,j,c,d,W,V,n;/W所求比例尺图幅代号 n代表划分为该比例尺后的列数 c列号 d行号CString C,D;double l,b;/l,b分别表示经差和纬差i = (int)(BDeg/4.0)+1;CString s = m_LDeg.Left(1);CString s1;/判断东经西经if(s = "E" | s = "e")j = (int) (floor(LDeg/6.0)+31;else if(s =

4、 "W" | s = "w")j = 31-(int)(floor(LDeg/6.0);elseMessageBox("输入经度错误", "Error", MB_ICONERROR );/1:100万基本比例尺图幅计算s = ""s.Format(_T("-%d"),j); Old = (int)(i+64); Old+=s; New = (int)(i+64); s.Format(_T(" %d"),j); New+=s;/1:10万基本比例尺计算 V=

5、133;l=30.0*60;b=20.0*60;n=12;W = V-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(6*3600)/(int)l);s1.Format(_T("-%d"),W);Old1=Old+s1;switch(index) case 1:/1:100万 m_Old=Old; m_New=New; break; case 2:/1:50万 V=3; l=3*3600.0; b=2*3600.0; n=2; /旧的分幅编号 W = V-(in

6、t)(int)(BDeg*3600+BMin*60)%(4*3600)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(6*3600)/(int)l); s = (int)(W+64); Old += "-" m_Old=Old+s; /新的分幅编号 c=(int)(4*3600/b)-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/b); d=(int)(int)(LDeg*3600+LMin*60)/(6*3600)/l)+1; C.Format(_T("%.3d"),c); D.Fo

7、rmat(_T("%.3d"),d); m_New = New + " B"+C+D; break; case 3:/1:25万 V=13; l=1.5*3600; b=1.0*3600; n=4; /旧的分幅编号 W = V-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(6*3600)/(int)l); s.Format(_T("-%d"),W); m_Old=Old+s; /新的分幅编号 c=(int)(4*3600

8、/b)-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/b); d=(int)(int)(LDeg*3600+LMin*60)%(6*3600)/l)+1; C.Format(_T("%.3d"),c); D.Format(_T("%.3d"),d); m_New=New+" C"+C+D; break; case 4:/1:10万 m_Old=Old1; /新的分幅编号 c=(int)(4*3600/b)-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/b); d=(int

9、)(int)(LDeg*3600+LMin*60)%(6*3600)/l)+1; C.Format(_T("%.3d"),c); D.Format(_T("%.3d"),d); m_New=New+" C"+C+D; break; case 5:/1:5万 V=3; l=15.0*60; b=10.0*60; n=2; /旧的分幅编号 W = V-(int)(int)(BDeg*3600+BMin*60)%(20*60)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(30*60)/(int)l);

10、 s=(int)(W+64); m_Old=Old1+"-"+s; /新的分幅编号 c=(int)(4*3600/b)-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/b); d=(int)(int)(LDeg*3600+LMin*60)%(6*3600)/l)+1; C.Format(_T("%.3d"),c); D.Format(_T("%.3d"),d); m_New=New+" D"+C+D; break; case 6:/1:2.5万 /1:5万编号计算 V=3; l=15.

11、0*60; b=10.0*60; n=2; W = V-(int)(int)(BDeg*3600+BMin*60)%(20*60)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(30*60)/(int)l); s=(int)(W+64); m_Old=Old1+"-"+s; V=3; l=7.5*60; b=5*60; n=2; /旧的分幅编号 W = V-(int)(int)(BDeg*3600+BMin*60)%(10*60)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(15*60)/(int

12、)l); s.Format(_T("-%d"),W); m_Old+=s; /新的分幅编号 c=(int)(4*3600/b)-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/b); d=(int)(int)(LDeg*3600+LMin*60)%(6*3600)/l)+1; C.Format(_T("%.3d"),c); D.Format(_T("%.3d"),d); m_New=New+" F"+C+D; break; case 7:/1:1万 V=57; l=3.75*60; b

13、=2.5*60; n=8; /旧的分幅编号 W = V-(int)(int)(BDeg*3600+BMin*60)%(20*60)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(30*60)/(int)l); s.Format(_T("-(%d)"),W); m_Old = Old1+s; /新的分幅编号 c=(int)(4*3600/b)-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/b); d=(int)(int)(LDeg*3600+LMin*60)%(6*3600)/l)+1; C.Format(

14、_T("%.3d"),c); D.Format(_T("%.3d"),d); m_New=New+" G"+C+D; break; case 8:/1:5000 /1:1万基本比例尺计算 V=57; l=3.75*60; b=2.5*60; n=8; W = V-(int)(int)(BDeg*3600+BMin*60)%(20*60)/(int)b)*n +(int)(int)(LDeg*3600+LMin*60)%(30*60)/(int)l); s.Format(_T("-(%d)"),W); m_Old =

15、 Old1+s; V=3; l=1.875*60; b=1.25*60; n=2; /旧的分幅编号 W = V-(int)(int)(BDeg*3600+BMin*60)%150)/(int)b)*n +(int)(int)(LDeg*3600*60+LMin*60*60)%(225*60)/(int)(l*60); s=(int)(W+96); m_Old+="-"+s; /新的分幅编号 c=(int)(4*3600/b)-(int)(int)(BDeg*3600+BMin*60)%(4*3600)/b); d=(int)(int)(LDeg*3600+LMin*60)%

16、(6*3600)/l)+1; C.Format(_T("%.3d"),c); D.Format(_T("%.3d"),d); m_New=New+" H"+C+D; break; if(m_BDeg = "" | m_BSec = "" | m_LSec = "" | m_LDeg = "")if (m_BDeg = "" && m_BSec = "" && m_LSec = &quo

17、t;" &&(m_LDeg = "E" | m_LDeg = "W")MessageBox("请输入经度、纬度","错误",MB_ICONERROR);m_Old = ""m_New = ""else MessageBox("系统将空白处自动赋值为0","提示",MB_ICONEXCLAMATION);UpdateData(false);/对话框的初始设置BOOL CMyDlg:OnInitDialog()CD

18、ialog:OnInitDialog();/ Add "About." menu item to system menu./ IDM_ABOUTBOX must be in the system command range.ASSERT(IDM_ABOUTBOX & 0xFFF0) = IDM_ABOUTBOX);ASSERT(IDM_ABOUTBOX < 0xF000);CMenu* pSysMenu = GetSystemMenu(FALSE);if (pSysMenu != NULL)CString strAboutMenu;strAboutMenu.L

19、oadString(IDS_ABOUTBOX);if (!strAboutMenu.IsEmpty()pSysMenu->AppendMenu(MF_SEPARATOR);pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);/ Set the icon for this dialog. The framework does this automatically/ when the application's main window is not a dialogSetIcon(m_hIcon, TRUE);

20、/ Set big iconSetIcon(m_hIcon, FALSE);/ Set small icon/ TODO: Add extra initialization hereGetDlgItem(IDC_EDIT5)->EnableWindow(false);GetDlgItem(IDC_EDIT6)->EnableWindow(false);/设置图标m_hIcons0 = LoadIcon(AfxGetInstanceHandle(),MAKEINTRESOURCE(IDI_ICON1);m_hIcons1 = LoadIcon(AfxGetApp()->m_hI

21、nstance,MAKEINTRESOURCE(IDI_ICON2);m_hIcons2 = LoadIcon(AfxGetApp()->m_hInstance,MAKEINTRESOURCE(IDI_ICON3);m_hIcons3 = LoadIcon(AfxGetApp()->m_hInstance,MAKEINTRESOURCE(IDI_ICON4);m_hIcons4 = LoadIcon(AfxGetApp()->m_hInstance,MAKEINTRESOURCE(IDI_ICON5);m_hIcons5 = LoadIcon(AfxGetApp()->

22、m_hInstance,MAKEINTRESOURCE(IDI_ICON6);m_hIcons6 = LoadIcon(AfxGetApp()->m_hInstance,MAKEINTRESOURCE(IDI_ICON7);SetClassLong(m_hWnd,GCL_HICON,(long)m_hIcons0);SetTimer(1,1000,NULL);/列表框(CComboBox*)GetDlgItem(IDC_COMBO1)->AddString("1:100万");(CComboBox*)GetDlgItem(IDC_COMBO1)->AddS

23、tring("1:50万");(CComboBox*)GetDlgItem(IDC_COMBO1)->AddString("1:25万");(CComboBox*)GetDlgItem(IDC_COMBO1)->AddString("1:10万");(CComboBox*)GetDlgItem(IDC_COMBO1)->AddString("1:5万");(CComboBox*)GetDlgItem(IDC_COMBO1)->AddString("1:2.5万");(CC

24、omboBox*)GetDlgItem(IDC_COMBO1)->AddString("1:1万");(CComboBox*)GetDlgItem(IDC_COMBO1)->AddString("1:5000");(CComboBox*)GetDlgItem(IDC_COMBO1)->SetCurSel(0);/设置字体 CFont * f; f = new CFont; f->CreateFont(18, / nHeight 0, / nWidth 0, / nEscapement 0, / nOrientation FW_BO

25、LD, / nWeight FALSE, / bItalic FALSE, / bUnderline 0, / cStrikeOut ANSI_CHARSET, / nCharSet OUT_DEFAULT_PRECIS, / nOutPrecision CLIP_DEFAULT_PRECIS, / nClipPrecision DEFAULT_QUALITY, / nQuality DEFAULT_PITCH | FF_SWISS, / nPitchAndFamily _T("宋体"); / lpszFacGetDlgItem(IDC_STATIC1)->SetFo

26、nt(f);return TRUE; / return TRUE unless you set the focus to a controlvoid CMyDlg:OnQuit() / TODO: Add your control notification handler code herethis->DestroyWindow();void CMyDlg:OnTimer(UINT nIDEvent) / TODO: Add your message handler code here and/or call defaultstatic int index=1;SetClassLong(m_hWnd,GCL_HICON,(long)m_hIconsindex);index = +index%7;CDialog:OnTimer(nIDEvent);void CMyDlg:OnHelp() / TODO: Add your control notification handler code hereCAboutDlg dlgAbout;dlgAbout.DoModal();/GotoDlgCtrl(CEdit*)GetDlgItem(IDC_LDeg);void CMyDlg:OnClear() / TODO: Add your control notificatio