AutoIt Français

Code : Tout sélectionner

#include <Math.au3>
#include <File.au3>

HotKeySet("{ESC}", "Terminate")

; Declaration de la latitude et de la longitude actuelle.
Global $lat = 44.872417
Global $lon = -0.565367
; Mise en tableau du fichier zones.txt
Global $aZones = _ArrayFileToArray(@scriptdir & "\zones.txt", ',')
;_ArrayDisplay($aZones, "Tableau des radars")
AdlibRegister("_IsNear", 2000)

;_IsNear($lat, $Lon, $aZones)

; Fonction de test latitude/longitude.
Func _IsNear()
    Local $i
    ConsoleWrite(@CRLF & @HOUR & "H" & @MIN & "M" & @SEC & "S" & " ---> ") ; Affiche le message dans la console de Scite
    For $i = 0 To ubound($aZones) - 1
        If Round(distHaversine($Lat, $Lon, $aZones[$i][0], $aZones[$i][1]),2) <= $aZones[$i][4] Then
            ; Renvoi dans la console le texte correspondant au POI.
            ConsoleWrite($aZones[$i][6] & "     ") ; Affiche le message dans la console de Scite
        EndIf
    Next
EndFunc

While 1
    Sleep(50)
WEnd


;calcul de la distance entre deux points GPS selon la methode Haversine
func distHaversine($lat1, $lon1, $lat2, $lon2, $radius = 6378135)
    $R = 6378135; // earth's mean radius in M (wikipedia)
    $dLat = ($lat2-$lat1)/57.2957795130823
    $dLon = _Radian($lon2-$lon1)
    $lat1 = _Radian($lat1)
    $lat2 = _Radian($lat2)
    $R = $radius
    $a = sin($dLat/2) * sin($dLat/2) + cos($lat1) * cos($lat2) * sin($dLon/2) * sin($dLon/2)
    $c = 2 * atan(sqrt($a)/sqrt(1-$a))
    $d = $R * $c
    return $d
EndFunc

;====================================================================================================================
; Name              : _ArrayFileToArray
; Description       : Put an array file to an array
; Syntax            : _ArrayFileToArray($hFile, $vDelimeter, $EmptyLine)
; Parameter(s)      : $hFile - The file to proceed.
;                     $vDelimeter - One or more characters to use as delimiters (case sensitive)(Default is ';').
;                     $EmptyLine -    0 Do not return empty lines (Default).
;                                    1 Return the empty lines.
;                     $IndexBase -    0 Return an array that begin in index 0 (Default).
;                                    1 Return an array that begin in line 1 with elements numbers in index 0.
; Requirement(s)    : File.au3
; Return value(s)   : On Success - Returns array of file
;                     On Failure - Returns 0
; Author            : Tlem <tlem at tuxolem dot fr>
; Note(s)           : Inspired from a function made by SmOke_N
;                       http://www.autoitscript.com/forum/index.php?showtopic=26544&view=findpost&p=187403
; ====================================================================================================================
Func _ArrayFileToArray($hFile, $vDelimeter = ';', $EmptyLine = 0, $IndexBase = 0)
    Local $aArray = '', $iMaxElement = 0, $iEmptyLines = 0, $iSecondElement = 0, $avArrayCount = 0
    If Not _FileReadToArray($hFile, $aArray) Then Return 0
    If $iEmptyLines <> 0 Then $iEmptyLines = 1
    If $IndexBase <> 0 Then $IndexBase = 1
    For $iLinesCount = 1 To $aArray[0]
        If $aArray[$iLinesCount] <> '' Then
            $iSecondElement = UBound(StringSplit($aArray[$iLinesCount], $vDelimeter, 1) - 1) - 1
            If $iSecondElement > $iMaxElement Then $iMaxElement = $iSecondElement
        EndIf
    Next

    If $EmptyLine = 0 Then
        For $iLinesCount = 1 To $aArray[0]
            If $aArray[$iLinesCount] = '' Then $iEmptyLines += 1
        Next
    EndIf

    Local $avArray[$aArray[0] - $iEmptyLines + $IndexBase][$iMaxElement]


    For $iCount = 1 To $aArray[0]
        If $EmptyLine = 1 Then
            $avArrayCount += 1
            $aSplit = StringSplit($aArray[$iCount], $vDelimeter)
            If $aSplit[0] - 1 > 0 Then
                For $iCount2 = 1 To $aSplit[0]
                    $avArray[$avArrayCount - 1 + $IndexBase][$iCount2 - 1] = $aSplit[$iCount2]
                Next
            EndIf
        ElseIf $aArray[$iCount] <> '' Then
            $avArrayCount += 1
            $aSplit = StringSplit($aArray[$iCount], $vDelimeter, 1)
            If $aSplit[0] - 1 > 0 Then
                For $iCount2 = 1 To $aSplit[0]
                    $avArray[$avArrayCount - 1 + $IndexBase][$iCount2 - 1] = $aSplit[$iCount2]
                Next
            EndIf
        EndIf
    Next
    If $IndexBase = 1 Then $avArray[0][0] = $avArrayCount
    Return $avArray
EndFunc   ;==>_ArrayFileToArray

Func Terminate()
    Exit 0
EndFunc

Code : Tout sélectionner

Global Const $adUseClient = 3
Global Const $adOpenDynamic = 2
Global Const $adLockOptimistic = 3
Global Const $adCmdTable = 2

Local $begin = TimerInit(), $dif
Global $aZones, $oConn = ObjCreate("ADODB.Connection")
With $oConn
    .CursorLocation = $adUseClient
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & @ScriptDir & _
        ";Extended Properties=""text;HDR=NO;FMT=Delimited"";"
    .Open
EndWith
Global $oRS = ObjCreate("ADODB.Recordset")
$oRs.Open("zones.txt", $oConn, $adOpenDynamic, $adLockOptimistic, $adCmdTable)

;~ Affiche le nom des champs
For $Field In $oRS.Fields
    ConsoleWrite("Name=" & $Field.Name & @LF)
Next

$oRs.Sort = "F7 desc, F1, F2"
;~ $aZones = $oRS.GetRows()
;~ _ArrayDisplay($aZones)

$oRS.Filter = "F1 >= 44.87 AND F1 <= 44.88 AND F2 >= -0.5 AND F2 <= 0"
$aZones = $oRS.GetRows()
$dif = TimerDiff($begin)
ConsoleWrite("Time Difference " & $dif & @LF)
_ArrayDisplay($aZones)

$begin = TimerInit()
$oRS.Filter = "F1 >= 45.87 AND F1 <= 45.88 AND F2 >= -0.5 AND F2 <= 0"
$aZones = $oRS.GetRows()
$dif = TimerDiff($begin)
ConsoleWrite("Time Difference " & $dif & @LF)
_ArrayDisplay($aZones)

$begin = TimerInit()
$oRS.Filter = "F1 >= " & Round($lat1, 2) - 0.01 & " AND F1 <= " & Round($lat1, 2) + 0.01 & _
        " AND F2 >= " & Round($lon1, 2) - 0.01 & " AND F2 <= " & Round($lon1, 2) + 0.01
ConsoleWrite($oRS.Filter & @LF)
ConsoleWrite($oRs.RecordCount & @LF)
If $oRs.EOF Then
    ConsoleWrite("Aucun radar dans le coin :-)" & @LF)
Else    
    $aZones = $oRS.GetRows()
EndIf
$dif = TimerDiff($begin)
ConsoleWrite("Time Difference " & $dif & @LF)
_ArrayDisplay($aZones)

$oRS.Close
$oConn.Close

; Mise en tableau du fichier zones.txt
$begin = TimerInit()
Global $aZones1 = _ArrayFileToArray(@ScriptDir & "\zones.txt", ',')
$dif = TimerDiff($begin)
ConsoleWrite("Time Difference " & $dif & @LF)
Exit

Code : Tout sélectionner

$oRS.Filter = "F1 >= " & Round($lat1, 2) - 0.01 & " AND F1 <= " & Round($lat1, 2) + 0.01 & _
        " AND F2 >= " & Round($lon1, 2) - 0.01 & " AND F2 <= " & Round($lon1, 2) + 0.01 & _
        " AND F7 Like 'RADAR_FIXE%'"

ConsoleWrite($oRS.Filter & @LF)

If $oRs.EOF Then
    ConsoleWrite("Aucun radar dans le coin :-)" & @LF)
Else    
    ConsoleWrite($oRs.RecordCount & " Radar(s) en vue" & @LF)
    $aZones = $oRS.GetRows()
EndIf