langtoilangtoi
Xe container
- Biển số
- OF-520012
- Ngày cấp bằng
- 6/7/17
- Số km
- 5,474
- Động cơ
- 117,931 Mã lực
- Tuổi
- 50
Cụ vào nhóm này, có nhiều người làm giúp, kinh phí 20K thôi thì phải :
www.facebook.com
Đơn giản hơn, cụ có thể dùng ChatGPT trên Telegram cho đơn giản.
VD đây là đoạn mã VBA chuyển tọa độ sang KML e vừa yêu cầu nó viết trên Tele :
Sub ConvertXyzToKml()
Dim xValues() as Double, yValues() as Double
Dim xPt as Double , yPt as Double
Dim sKml as String
Dim xMin As Double, xMax As Double, yMin As Double, yMax As Double
' set xMin, xMax, yMin, yMax
xMin = Worksheets("Sheet1").Range("A1").Value
xMax = Worksheets("Sheet1").Range("A100").Value
yMin = Worksheets("Sheet1").Range("B1").Value
yMax = Worksheets("Sheet1").Range("B100").Value
' read arrays of x and y coordinates
ReDim xValues(0 To 99)
ReDim yValues(0 To 99)
xIndex = 0
yIndex = 0
For xPt = xMin To xMax Step 1
xValues(xIndex) = xPt
xIndex = xIndex + 1
Next
For yPt = yMin To yMax Step 1
yValues(yIndex) = yPt
yIndex = yIndex + 1
Next
' create kml
sKml = "<?xml version=""1.0"" encoding=""UTF-8""?>
<kml xmlns=""http://www.opengis.net/kml/2.2"" xmlns:gx=""http://www.google.com/kml/ext/2.2""
xmlns:kml=""http://www.opengis.net/kml/2.2"" xmlns:atom=""http://www.w3.org/2005/Atom"">
<Document>
<Placemark>
<LineString>
<coordinates>"
For i = 0 To 99
sKml = sKml & xValues(i) & "," & yValues(i) & ",0 "
Next
sKml = sKml & "</coordinates>
</LineString>
</Placemark>
</Document>
</kml>"
' save to file
Dim FileNumber As Integer
FileNumber = FreeFile
Open "C:\kml_file.kml" For Output As #FileNumber
Print #FileNumber, sKml
Close #FileNumber
End Sub
Chỉnh sửa cuối:
