大學畢業(yè)設計-基于arm處理器的車載gps系統(tǒng)課程報告(編輯修改稿)
2025-04-19 06:46 本頁面
【文章內容簡介】 。 cx := cx wx / 2。 cy := cy + wy / 2。 end。 wx := wx / 2。 wy := wy / 2。 end。 result:=tid。//返回字符串end。//求2的s次方功能函數function pow(s:longint):longint。var i,m:longint。begin m:=1。 for i:=1 to s do m:=m*2。 result:=m。end。//字符串轉化成URL中兩個關鍵值的功能過程procedure getloc(s:string)。var i,j:longint。 t:string。begin mapx:=0。 mapy:=0。 i:=length(s)。 for j:=2 to i do//算法由字符串得到URL中兩個參數 begin t:=copy(s,ij+2,1)。 if (t=39。r39。)or(t=39。t39。) then mapx:=mapx+pow(j2)。 if (t=39。s39。)or(t=39。t39。) then mapy:=mapy+pow(j2)。 end。end。//得到GoogleMap的URLfunction getSatURL(zoom: integer。 X, Y: Integer): string。beginResult:=Format(39。://mt%d39。, [random(4), X, Y, zoom])。//URL地址end。//下載GoogleMap的256x256的一塊地圖function DownloadFile(SourceFile, DestFile: string): Boolean。begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0。//下載某塊地圖 except Result := False。 end。end。//按鍵響應procedure (Sender: TObject)。var azoom,i:Integer。 ax,ay:double。 DownUrl,TestPath,str,s:string。 AFileName:string。 img: TGPImage。 g: TGPGraphics。begin azoom:=。//放大系數 if (=39。39。)or(=39。39。)then begin showmessage(39。請選擇要查詢的車牌號39。)。 exit。 end。 ax:=strtofloat()。
畢業(yè)設計相關推薦
鄂ICP備17016276號-1