รับจัดทำภาพถ่ายจากดาวเทียม มาตราส่วน 1:4000 ตารางกิโลเมตรละ 50 บาท

  รับจัดทำภาพถ่ายจากดาวเทียม Google Earth ,Bing Map ,Yahoo Map รายละเอียดสูง มาตราส่วน 1:4,000 ราคาถูก ตารางกิโลเมตรละ 50 บาท ใช้ในงานด้านต่างๆ เช่นงานแผนที่ภาษี,ผังเมือง,สาธารณสุข,การเกษตร,การใช้ประโยชน์ที่ดิน ฯลฯ ตัวอย่างภาพ 1 ระวาง

http://www.ajarnveerapong.com/download/raster/603940486.tif

ตรวจสอบรายชื่อระวาง/ภาพถ่ายจากดาวเทียม ตามชื่อตำบล

www.ajarnveerapong.com/rawang_gis/rawanggis.php

การนำไปใช้ประโยชน์

- ด้านการคมนาคมขนส่ง

- ด้านการสำรวจสภาพการใช้ที่ดิน

-การใช้ประโยชน์ที่ดิน

- แผนที่ภาษี/แผนที่โฉนดในเขตปกครองส่วนท้องถิ่น

- ผังเมือง

รายละเอียดเพิ่มเติม
Mobile : 086-645-1435
Mail : ajarn.veerapong@gmail.com
Website: www.ajarnveerapong.com

Postgres Update Join two table

UPDATE amphoe
SET amp_code = province.dept_code || amphoe.amp_code2
FROM province
WHERE province.prov_code2= amphoe.prov_code

Convert between KML and ESRI's shapefile format ด้วย FWTools

การใช้งาน
1. ทำการสร้าง bat file ขึ้นมาแล้ววาง

SET PATH=C:\"Program Files"\FWTools2.4.7\bin\
ogr2ogr -f "ESRI Shapefile" -s_srs "epsg:4326" -t_srs "epsg:32647" index.shp index.kml

อธิบาย

A. SET PATH=C:\"Program Files"\FWTools2.4.7\bin\ >>ใช้ fwtools version 2.4.7

B. -f "ESRI Shapefile" >>เป็นการแปลง kml เป็น ESRI Shapefile

C. -s_srs "epsg:4326" >> ระบบอ้างอิงทางตำแหน่งของไฟล์ต้นฉบับ (index.kml) เป็ น พิกัดภูมิสาสตร์ พื้นหลักฐาน wgs 1984

D. -t_srs "epsg:32647" >> ระบบอ้างอิงทางตำแหน่งของไฟล์ผลลัพธ์ (index.shp) เป็ น พิกัดกริดยูทีเอ็ม พื้นหลักฐาน wgs 1984

2.บันทึกไฟล์ คลิกขวาเลือก Open

รหัสของระบบอ้างอิงทางตำแหน่ง

PHP tool to convert the KML / RGB colors

function rgbToKml($color, $aa="ff"){
$rr = substr($color, 0, 2);
$gg = substr($color, 2, 2);
$bb = substr($color, 4, 2);
return $aa.$bb.$gg.$rr;
}
function kmlToRgb($color){
$rr = substr($color, 6, 2);
$gg = substr($color, 4, 2);
$bb = substr($color, 2, 2);
return $rr.$gg.$bb;
}

GPS Points of interest for Thailand

รวมรวมพิกัดสถานที่ต่างๆ ของประเทศไทย
http://www.ajarnveerapong.com/poi_thailand/

VBA อ่านไฟล์จาก internet

Function GetHTML(URL As String) As String
    Dim HTML As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .Send
        GetHTML = .ResponseText
    End With
End Function

IDM Download MThai แล้วค้าง 99%

ถ้าใช้ idm version 5.xx ทำการdownload ไฟล์ video จาก MThai จะค้าง 99% อารมเสียอยู่เป็นเดือนๆ แต่ผมลองใช้ version 6.xx ไม่มีปัญหาครับ
download
http://www.ajarnveerapong.com/download/IDM_6_08_Build_5_Beta.rar