TCBel.DLL - DLL ActiveX de conversion de coordonnées

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.

Yvan Barbier - 25 mai 2000