1、大地坐标与大地空间坐标转换工具#i nclude stdafx.h#in elude #i nclude #i nclude resource.h#i nclude Mai nDlg.h#in clude #i nclude BOOL WINAPI Main_Proc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) switch(uMsg)HANDLE_MSG(hWnd, WMNITDIALOG , Main_O nln itDialog);HANDLE_MSG(hWnd, WM_COMMAND, Main_O nComma nd); H
2、ANDLE_MSG(hWnd,WM_CLOSE, Main_ On Close);return FALSE;BOOL Main_ Onln itDialog(HWND hwnd, HWND hwn dFocus, LPARAM lParam)return TRUE;void Main_ On Comma nd(HWND hwn d, i nt id, HWND hwn dCtl, UINT codeNotify)double a=0;double e2=0;switch(id)case IDC_B1:a=6378245.0000;e2=0.00669342162297;if(a=0)GetDl
3、gItemText(hw nd,IDC_E111,stre111,sizeof(stre111);double L1 = atof(stre1);double L11 = atof(stre11);double L111 = atof(stre111);double L = L1+(L11/60)+(L111/3600);TCHAR stre2256;TCHAR stre22256;TCHAR stre222256;GetDlgItemText(hw nd,IDC_E2,stre2,sizeof(stre2);GetDlgItemText(hw nd,IDC_E22,stre22,sizeof
4、(stre22);GetDlgItemText(hw nd,IDC_E222,stre222,sizeof(stre222); double B2 = atof(stre2);double B22 = atof(stre22);double B222 = atof(stre222);double B = B2+(B22/60)+(B222/3600);TCHAR stre3256;GetDlgItemText(hw nd,IDC_E3,stre3,sizeof(stre3);double H = atof(stre3);double sinB = sin( (B/180)*3.14159265
5、35897932385);double sinL = sin( (L/180)*3.1415926535897932385);double cosB = cos(B/180)*3.1415926535897932385);int y1=100000*(Y-y);int z = (in t)Z;int z1=100000*(Z-z);TCHAR strx256;wspri ntf(strx,%i,x);SetDlgltemText(hw nd,IDC_E4,strx);TCHAR strx1256;wspri ntf(strx1,%i,x1);SetDlgItemText(hw nd,IDC_D
6、1,strx1);TCHAR stry256;wspri ntf(stry,%i,y);SetDlgItemText(hw nd,IDC_E5,stry);TCHAR stry1256;wspri ntf(stry1,%i,y1);SetDlgItemText(hw nd,IDC_D2,stry1);TCHAR strz256;wspri ntf(strz,%i,z);SetDlgItemText(hw nd,IDC_E6,strz);TCHAR strz1256;wspri ntf(strz1,%i,z1);SetDlgItemText(hw nd,IDC_D3,strz1);break;c
7、ase IDC_B2:a=6378140.0000;e2=0.00669438499959;if(a=0)GetDlgItemText(hw nd,IDC_E111,stre111,sizeof(stre111);double L1 = atof(stre1);double L11 = atof(stre11);double L111 = atof(stre111);double L = L1+(L11/60)+(L111/3600);TCHAR stre2256;TCHAR stre22256;TCHAR stre222256;GetDlgItemText(hw nd,IDC_E2,stre
8、2,sizeof(stre2);GetDlgItemText(hw nd,IDC_E22,stre22,sizeof(stre22);GetDlgItemText(hw nd,IDC_E222,stre222,sizeof(stre222); double B2 = atof(stre2);double B22 = atof(stre22);double B222 = atof(stre222);double B = B2+(B22/60)+(B222/3600);TCHAR stre3256;GetDlgItemText(hw nd,IDC_E3,stre3,sizeof(stre3);do
9、uble H = atof(stre3);double sinB = sin( (B/180)*3.1415926535897932385);double sinL = sin( (L/180)*3.1415926535897932385);double cosB = cos(B/180)*3.1415926535897932385);int y1=100000*(Y-y);int z = (in t)Z;int z1=100000*(Z-z);TCHAR strx256;wspri ntf(strx,%i,x);SetDlgltemText(hw nd,IDC_E4,strx);TCHAR
10、strx1256;wspri ntf(strx1,%i,x1);SetDlgItemText(hw nd,IDC_D1,strx1);TCHAR stry256;wspri ntf(stry,%i,y);SetDlgItemText(hw nd,IDC_E5,stry);TCHAR stry1256;wspri ntf(stry1,%i,y1);SetDlgItemText(hw nd,IDC_D2,stry1);TCHAR strz256;wspri ntf(strz,%i,z);SetDlgItemText(hw nd,IDC_E6,strz);TCHAR strz1256;wspri n
11、tf(strz1,%i,z1);SetDlgItemText(hw nd,IDC_D3,strz1);break;case IDC_B3:a=6378137.0000;e2=0.00669438002290;if(a=0)GetDlgItemText(hw nd,IDC_E111,stre111,sizeof(stre111);double L1 = atof(stre1);double L11 = atof(stre11);double L111 = atof(stre111);double L = L1+(L11/60)+(L111/3600);TCHAR stre2256;TCHAR s
12、tre22256;TCHAR stre222256;GetDlgItemText(hw nd,IDC_E2,stre2,sizeof(stre2);GetDlgItemText(hw nd,IDC_E22,stre22,sizeof(stre22);GetDlgItemText(hw nd,IDC_E222,stre222,sizeof(stre222); double B2 = atof(stre2);double B22 = atof(stre22);double B222 = atof(stre222);double B = B2+(B22/60)+(B222/3600);TCHAR s
13、tre3256;GetDlgItemText(hw nd,IDC_E3,stre3,sizeof(stre3);double H = atof(stre3);double sinB = sin( (B/180)*3.1415926535897932385);double sinL = sin( (L/180)*3.1415926535897932385);double cosB = cos(B/180)*3.1415926535897932385);int y1=100000*(Y-y);int z = (in t)Z;int z1=100000*(Z-z);TCHAR strx256;wsp
14、ri ntf(strx,%i,x);SetDlgltemText(hw nd,IDC_E4,strx);TCHAR strx1256;wspri ntf(strx1,%i,x1);SetDlgItemText(hw nd,IDC_D1,strx1);TCHAR stry256;wspri ntf(stry,%i,y);SetDlgItemText(hw nd,IDC_E5,stry);TCHAR stry1256;wspri ntf(stry1,%i,y1);SetDlgItemText(hw nd,IDC_D2,stry1);TCHAR strz256;wspri ntf(strz,%i,z);SetDlgItemText(hw nd,IDC_E6,strz);TCHAR strz1256;wspri ntf(strz1,%i,z1);SetDlgItemText(hw nd,IDC_D3,strz1);break;case IDC_B4:a=6378245.0000;e2=0.00669342162297;if(a=0)TCHAR stre1256;TCHAR stre2256;TCHAR stre3256;GetDlgltemText(hw nd,