Conversions de coordonnées en Belgique
TCBel - Application |
![Copie d'écran](tcbel_thumb.gif) |
TCBel est une application Windows autonome qui permet
de réaliser des conversions de coordonnées géographiques en Belgique et régions
limitrophes. L'emploi de TCBel est simple et fort similaire à celui de l'interface
web. TCBel est accompagné d'un fichier d'aide qui explique le fonctionnement
de l'application.
Si vous ne disposez pas des fichiers "Run Time" de Visual Basic, vous devez d'abord
les installer
Download
|
|
|
TCBel - DLL |
|
TCBel.dll est une dll (Dynamic Link Library) ActiveX qui
peut être appellée d'applications Visual Basic, Access, Excel, ... et qui permet
de réaliser des conversions de coordonnées directement à partir d'une autre application.
Installation
Télécharger d'abord le fichier TCBel_Eval.DLL et sauvez-le dans le
répertoire de votre choix
IMPORTANT
Il faut ensuite enregistrer la DLL en exécutant (menu Démarer/Exécuter) la commande
suivante:
REGSVR32 [chemin]\tcbel_eval.dll
où [chemin] est le répertoire dans lequel a été sauvé le fichier.
Si vous ne disposez pas des fichiers "Run Time" de Visual Basic, vous devez les
installer aussi.
Utilisation
TCBel est un objet qui expose des propriétés et des méthodes.
Méthodes |
Reset |
Permet de réinitialiser l'objet |
Conversion |
Effectue la conversion de coordonnées |
Propriétés
|
DatumFrom |
Spécifie le Datum de départ. Les valeurs
acceptées sont:
1 pour European Data 1950
2 pour Belgium 1972
3 pour WGS 1984
4 pour NTF (Nouvelle Triangulation Française) |
DatumDest |
Datum de destination. Mêmes valeur que pour
DatumFrom |
OrigType |
Type de coordonnées originales.
1=MGRS (Utm alpha)
2=Degrés décimaux Greenwich
3=IFBL
4=Lambert Belge 1972
5=Degrés Minutes Secondes Greenwich |
Latitude |
Latitude en degrés décimaux |
Longitude |
Longitude en degrés décimaux |
LatDMSDeg |
Degrés de latitude |
LatDMSMin |
Minutes de latitude |
LatDMSSec |
Secondes de latitude |
LonDMSDeg |
Degrés de Longitude |
LonDMSMin |
Minutes de Longitude |
LonDMSSec |
Secondes de Longitudes |
MGRS |
Coordonnées UTM MGRS (ex: 31UFR1645) |
X |
Coordonnée X Lambert en mètres |
Y |
Coordonnée Y Lambert en mètres |
IFBL |
Coordonnée IFBL |
mgrsPrecision |
Précision des coordonnées MGRS exprimée en mètres (1,
10, 100, 1000, 10000 sont les valeurs acceptées) |
IfblPrecision |
Précision des coordonnées IFBL
2=32x20
4=4x4
6=1x1 |
Error |
Message d'erreur |
|
|
Exemple Visual Basic
Télécharger l'exemple VB (vous devez disposer de Visual Basic
6).
Si vous créez un nouveau projet, vous devez d'abord faire référence à
TCBel en cliquant sur le menu "Project" puis "References".
Dans la liste, vous devez cocher "TCBel".
La suite est assez simple, il suffit de dimensionner un objet et de
manipuler les méthodes et propriétés:
Dim tc As New TCBel.TransCoo 'dimensionne un nouvel objet de type TCBel
tc.Reset 'initialise l'objet
tc.OrigType = tcMgrs 'on spécifie le type de coordonnées originales
tc.MGRS = "31UFR1654" 'on donne les coordonnées originales
tc.Conversion 'on effectue la conversion
'on exploite les coordonnées calculées en les affichant
MsgBox "X=" + Str(Int(tc.X)) + vbCrLf + "Y=" + Str(Int(tc.Y)), vbInformation
Exemple MS-Excel
Télécharger l'exemple EXCEL.
Pour faire référence à TCBel, il faut cliquer sur "Outils" /
"Références" dans la fenêtre Visual Basic d'Excel.
Exemple MS-Access
Télécharger l'exemple Access.
Normalement, le formulaire de conversion de coordonnées s'ouvre
automatiquement. Cliquez sur le bouton pour lancer la conversion.
|