简介:FsText3=TmeShowStateVal(Fs)Text1=LatLabel3.Caption=LatStrText2=LodLabel4.Caption=LodStrText4=SpdText5=AngForm1.Caption="实验卫星导航系统-"&,Len(Text2.Text)-l-1))CurrLog=d+f*60+m*3600’取得当前纬度k=InStr(Text1.Text,Len(Text1.Text)-l-1))CurrLat=d+f*60+m*3600’计算当前位置在Picture2控件中的坐标X=(LogL-CurrLog)*picutre2.Width/(LogL-LogR)Y=(LatB-CurrLat)*Picture2.Height/(LatB-LatT)’将当前位置标示图标移到坐标所在处Image1.Left=XImage1.Top=Y’移动地图位置