Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

Les deux révisions précédentesRévision précédente
Prochaine révision		Révision précédente
main:logiciels:mapinfo:documents:fmb [2009/05/21 17:59] – Robinmain:logiciels:mapinfo:documents:fmb [2026/01/03 20:48] (Version actuelle) – modification externe 127.0.0.1
Ligne 1: Ligne 1:
 ====== La fenêtre MapBasic et l'utilisation avancée de MI sans MB ====== ====== La fenêtre MapBasic et l'utilisation avancée de MI sans MB ======
- 
-  * **[[http://georezo.net/jparis/MI_Enviro/MBW/MB_part0_A4.zip|Source]]** 
  
 ===== 1 : La fenêtre MapBasic ===== ===== 1 : La fenêtre MapBasic =====
Ligne 14: Ligne 12:
 ==== 1.1 : La fonction affichage de la FMB ==== ==== 1.1 : La fonction affichage de la FMB ====
  
-La mission initiale de la FMB est d’afficher les équivalents en MapBasic des commandes passées par le menu, mais avec certaines limitations et variations. Ainsi, pas toutes les+La mission initiale de la FMB est d’afficher les équivalents en MapBasic des commandes passées par le menu, mais avec certaines limitations et variations. Ainsi, seules certaines
 commandes sont « transcrites » commandes sont « transcrites »
- 
-(CODE) 
  
 Connaître quelles sont les commandes qui sont ainsi affichées va permettre de savoir celles qui pourront être réutilisées par la suite. Une fois la FMB ouverte, l’affichage se fait de façon continue, même si la fenêtre est miniaturisée. La seule façon de l’interrompre est de fermer la fenêtre, ce qui la vide par la même occasion de tout son contenu. Connaître quelles sont les commandes qui sont ainsi affichées va permettre de savoir celles qui pourront être réutilisées par la suite. Une fois la FMB ouverte, l’affichage se fait de façon continue, même si la fenêtre est miniaturisée. La seule façon de l’interrompre est de fermer la fenêtre, ce qui la vide par la même occasion de tout son contenu.
Ligne 120: Ligne 116:
   alter object o geography 7,objectgeography(o,7)+25   alter object o geography 7,objectgeography(o,7)+25
   update selection set obj = o   update selection set obj = o
 +
 +==== 3.2 : Utilisations immédiates ====
 +
 +La FMB peut se révéler un outil de choix dans certaines utilisations immédiates, c’est-à-dire que l’on peut recycler de l’information contenue dans la fenêtre suite à des commandes préalables pour d’autres conditions d’application. Une telle utilisation peut impliquer un simple énoncé, une séquence d’opérations ou un une opération complexe. Les exemples de la section 4 mettent en valeur les dimensions les plus spécifiques de type d’utilisation dont voici les principaux :
 +  *  identifier clairement les conditions pré-requises à l’opération. Par exemple : quelles sont la(es) table(s) ouverte(s) nécessaire(s), leur(s) statut(s) indispensable(s) (éditable, en particulier), quelles sont les opérations préalables pour atteindre cette étape.
 +  * dégager de la masse d’information enregistrée par la FMB les énoncés essentiels repérer les quelques énoncés qui forment l’essentiel de la procédure, les isoler pour
 +en former un bloc plus facilement manipulable.
 +  * rechercher s’il y a des éléments variables. les énoncés peuvent contenir des éléments propres à la dernière opération qu’il faudra modifier pour leur réutilisation, nom de table, de colonne, valeurs spécifiques pour une sélection,....
 +  * penser à remplacer des éléments répétés par une ou des variables dans le cas où la procédure comporte plusieurs énoncés faisant appel à un élément commun et qu’elle doit être répétée plusieurs fois, il est souvent plus efficace de remplacer cet élément par une variable; il n’y aura qu’à changer la définition de la variable une fois plutôt que de faire des remplacements multiples à chaque répétition.
 +  * envisager d’écrire certains énoncés pour créer les conditions préalables nécessaires ces énoncés ne sont pas nécessairement partie de ceux enregistrés par la FMB
 +mais peuvent être essentiels à la procédure
 +  * identifier les parties uniques (énoncés initiaux) et répétitives (procédure même) les énoncés initiaux sont souvent exécutés une seule fois alors que ceux formant le
 +cœur de la procédure peuvent être exécutés plusieurs fois. Bien les séparer facilitera la tâche de sélectionner des blocs pour leur soumission.
 +
 +==== 3.3 : Utilisations différées ====
 +
 +Il s’agit d’enregistrer des procédures qui pourraient être reprises dans le futur. Pour cela il s’agit d’enregistrer, de conserver et de récupérer les énoncés de la façon le plus sécuritaire et efficace que possible. À la solution classique d’un fichier texte qui peut être réutilisé en tout ou en partie dans la FMB, il faut envisager d’ajouter l’emploi d’un fichier document WOR dont les particularités sont discutées à la fin de cette section.
 +
 +=== 3.3.1 : Enregistrement ===
 +
 +La FMB permet d’enregistrer tout son contenu dans un fichier TXT. Si d’autres énoncés non essentiels à la procédure sont dans la fenêtre, il faudra donc éditer ce fichier pour éliminer l’inutile. Si on veut seulement une partie du contenu de la FMB, il suffit d’ouvrir un fichier texte et de faire un simple Copier/Coller.
 +
 +=== 3.3.2 : Conservation ===
 +
 +Conservation veut aussi dire organisation et documentation. Comme la réutilisation est prévue pour le futur, il est plus qu’indispensable de rajouter aux énoncés MB quelques lignes expliquant leur fonction, les conditions d’utilisation, bref, le minimum nécessaire pour s’y retrouver. Il est préférable que tous les commentaires soient mis en début de procédure car des commentaires dispersés nécessiteront On peut choisir de stocker toutes les procédures dans des fichiers indépendants ou de les rassembler dans quelques fichiers en les regroupant par famille. Cette dernière solution requiert l’utilisation d’un bon repérage visuel pour retrouver la bonne procédure rapidement.
 +
 +=== 3.3.3 : Réutilisation ===
 +
 +La FMB ne permet que de faire un Copier/Coller à partir d’un fichier texte ouvert en dehors de MI. On peut à ce moment là ne pas transférer les lignes de commentaire. S’il y en reste dans le corps du bloc transféré, il faudra les ignorer lors de la définition des énoncés à exécuter pour que la procédure ne bloque pas (voir 2.5)
 +
 +=== 3.3.4 : Document WOR ===
 +
 +Un WOR se distingue d’un fichier TXT sous 2 aspects structurels et un de syntaxe. Un WOR est essentiel un TXT avec une extension différente et un entête (les premières lignes de texte spécifique). On peut donc créer un WOR à partir d’un TXT dans un simple éditeur de texte; il suffit de rajouter au début les lignes voulues et de l’enregistrer avec la bonne extension.
 +
 +L’en-tête est le suivant :
 +  !Workspace
 +  !Version 600
 +  !Charset WindowsLatin1
 +
 +Le numéro de version devrait être celui correspondant à la version du MI utilisé. Il pourrait toujours être inférieur à cela mais la présence de certains énoncés peut être
 +incompatible avec ce numéro, quoique cela n’empêchera pas son exécution. Ce n’est que s’il lui est supérieur que MI refusera d’exécuter le WOR.
 +
 +L’aspect de la syntaxe qui soit différent est que des commentaires peuvent se trouver dans le corps de la procédure sans avoir d’effet sur le déroulement des opérations.
 +Si nous avons choisi d’avoir un WOR c’est que nous allons le réutiliser de façon différente; au lieu d’en extraire des énoncés qui seront exécutés dans la FMB, c’est le WOR qui sera exécuté en bloc par un //« RUN APPLICATION “<fichier>.WOR“ »//.
 +
 +Comme WOR et FMB appartiennent au même univers, ils peuvent communiquer sans difficulté. Ceci veut dire que les variables définies dans l’un sont disponibles dans l’autre. Ceci peut être un avantage mais offrir aussi quelques inconvénients.
 +
 +Voici un WOR :
 +  !Workspace
 +  !Version 600
 +  !Charset WindowsLatin1
 +  dim b as string
 +  print a
 +  b=right$(a,len(a)/2)+left$(a,len(a)/2)
 +
 +Dans la FMB :
 +  dim a as string
 +  a="Test 1"
 +  run application "c:/test_wor.wor"
 +  print b
 +
 +> "Test 1" est imprimé par le WOR et "t 1Tes" par la FMB
 +
 +=== 3.3.5 : TXT ou WOR ===
 +
 +Le choix ne devrait pas être difficile car deux conditions sont bien claires. D’abord, un WOR implique une exécution en bloc de toute la procédure et ne devrait donc pas être choisi si tous les énoncés ne sont pas réutilisés de la même façon.
 +Ensuite, un WOR ne devrait pas comprendre de variables dont les valeurs doivent être fixées avant exécution; il faudrait alors ouvrir le WOR, faire les corrections, l’enregistrer et l’exécuter, Il pourrait y avoir cependant moyen d’éviter ces complications en utilisant la communication possible entre FMB et WOR comme dans l’exemple ci-dessus pour définir (DIM + contenu) les variables utilisées dans le WOR (sans DIM alors pour ces variables).
 +
 +===== 4 : Quelques exemples de mise en oeuvre =====
 +
 +==== 4.1 : Construction d’une procédure simple ====
 +
 +La table Mont_rue contient les rues définies par des segments limités aux intersections. L’objectif est de créer une carte de rues principales et « complètes » (une seule polyligne par « nom »)
 +  * Ouverture de la carte
 +  Open Table "C:donneesmont_rue.TAB" Interactive
 +
 +  * Création d’une carte finale “princip” ne comportant qu’une colonne « nom »
 +  Select nom from mont_rue where rowid=0 into Princip
 +  commit table Princip as "Princip"
 +  close table Princip
 +  open table "Princip"
 +  * Définition d’une variable objet et d’une variable chaîne
 +  dim obj_nou as object
 +  dim nom_rue as string
 +  * Sélection des segments ayant le nom spécifié « nom_rue » au début de la colonne « nom »
 +  de Mont_rue et fusion en un seul objet
 +  Nom_rue=”Pie ix”
 +  Select nom from mont_rue where nom like nom_rue+”%” into Selrue
 +  Objects Combine Data nom=nom
 +  obj_nou=selection.obj
 +  * Insertion de l’objet et de son nom
 +  insert into Princip (obj,nom) values (obj_nou, nom_rue)
 +  * Visualisation des résultats
 +  browse * from Princip
 +  map from Princip
 +Set Map Window frontwindow() Zoom Entire
 +  * Une remarque s’impose: la sélection avec « like nom_rue+”%” » risque de ramasser tous les fragments commençant de la bonne façon mais finissant avec des BLD, RUE ou PLA ce qui peut créer des objets bizarres.
 +
 +==== 4.2 : Un document WOR succinct ====
 +
 +Il s’agit de contrôler la position et la taille de la FMB ainsi que la police d’affichage :
 +  !Workspace
 +  !Version 600
 +  !Charset WindowsLatin1
 +  set window 1002 position (.01,3.9) width 8 height 2 font
 +  ("Arial",1,10,0)
 +
 +Ce document pourra être exécuté de la FMB chaque fois voulue.
 +
 +==== 4.3 : Un document WOR pour lancement d’un « splash screen » ====
 +
 +La table « splash » est le « splash screen » voulu. Une fois affichée avec les paramètres voulus (obtenus de la FMB), la fenêtre carte est maximizée et l’application « splash_timer » est lancée. Cette application « compte » simplement l’écoulement de quelques secondes; comme l’application est active durant ce temps, toute autre opération est gelée, y compris la possibilité de fermer la fenêtre. À la fin du délai, tout est fermé, et MI redevient disponible.
 +
 +  !Workspace
 +  !Version 600
 +  !Charset WindowsLatin1
 +  Open Table "c:mapinfosplash" As splash Interactive
 +  Map From splash
 +    Position (0.0520833,0.0520833) Units "in"
 +    Width 4.91667 Units "in" Height 2.95833 Units "in"
 +  Set Window FrontWindow() ScrollBars Off Autoscroll On
 +  Set Map
 +    CoordSys Earth Projection 1, 0
 +    Center (1.690140845,-1.098591549)
 +    Zoom 463.1318504 Units "mi"
 +    Preserve Zoom Display Zoom
 +    Distance Units "mi" Area Units "sq mi" XY Units "degree"
 +  Dim WorkspaceMaximizedWindow As Integer
 +  WorkspaceMaximizedWindow = Frontwindow()
 +  Set Window WorkspaceMaximizedWindow Max
 +  Set Map Window WorkspaceMaximizedWindow Preserve Scale
 +  Undim WorkspaceMaximizedWindow
 +  run application "c:mapinfosplash_timer.mbx"
 +  close all
 +
 +==== 4.4 : Transformation d’objets et contrôle de boucle ====
 +
 +Transformer des polylignes en lignes simples ayant les mêmes extrémités. Nous utilisons la table ouverte « alines »
 +Pour un seul objet sélectionné :
 +  update selection set obj=
 +  createline(objectnodex(obj,1,1), objectnodey(obj,1,1),
 +  objectnodex(obj,1,objectinfo(obj,20)),
 +  objectnodey(obj,1,objectinfo(obj,20)))
 +
 +Si nous voulons appliquer cette formule à tout la table :
 +  update alines set obj=
 +  createline(objectnodex(obj,1,1),objectnodey(obj,1,1),
 +  objectnodex(obj,1, objectinfo(obj,20)),
 +  objectnodey(obj,1,objectinfo(obj,20)))
 +
 +Il y a un risque de rencontrer l’erreur : « objectnodeX: argument 3 out of range » qui provient si un des objets est une polyligne à sections multiples; la valeur de
 +objectinfo(obj,20) de l’argument 3 indique le nombre total de noeuds, alors que l’argument 2 (valeur 1) pointe sur la première section de l’objet; s’il y a plus d’une section, le nombre de noeuds indiqué excède celui de la première section. Il faut donc exercer un contrôle sur les caractéristiques des objets.
 +
 +Nous allons d’abord apporter un premier développement : pour avoir un meilleur contrôle sur l’objet même; utilisons une variable objet et une boucle formelle
 +  dim o as object
 +  dim i as integer
 +  i=1
 +  fetch rec i from alines
 +  o=alines.obj
 +  update alines set obj=createline(objectnodex(o,1,1),
 +  objectnodey(o,1,1),objectnodex(o,1,objectinfo(o,20)),
 +  objectnodey(o,1,objectinfo(o,20))) where rowid=i
 +  i=i+1
 +
 +Les problèmes suivants risquent d’apparaître:
 +  * « error fetching record » si une ligne est vide
 +  * « objectnodex argument 1 has invalid type » si un objet n’est pas une polyligne aucune indication de fin de liste sinon parfois une erreur difficile à comprendre.
 +
 +Modifions la technique pour récupérer les enregistrements et éviter les « vides »
 +  fetch first from alines
 +  o=alines.obj
 +  i=alines.rowid
 +  update alines set obj=createline(objectnodex(o,1,1),
 +  objectnodey(o,1,1),objectnodex(o,1,objectinfo(o,20)),
 +  objectnodey(o,1,objectinfo(o,20))) where rowid=i
 +  fetch next from alines
 +
 +Toujours l’erreur sur l’argument 3 d’un objet parce qu’il a plusieurs sections et le nombre total des noeuds de la polyligne est appliqué à sa première section. Il nous faut alors changer l’énoncé du problème à «remplacer une polyligne par une ligne simple allant du premier noeud de la première section au dernier noeud de la dernière section »
 +  update alines set obj=createline(objectnodex(o,1,1),
 +  objectnodey(o,1,1),
 +  objectnodex(o,objectinfo(o,21),objectinfo(o,21+
 +  objectinfo(o,21))),
 +  objectnodey(o,objectinfo(o,21),objectinfo(o,21+
 +  objectinfo(o,21)))) where rowid=i
 +
 +Il nous reste toujours un « objectnodex argument 1 has invalid type » potentiel lorsque un des enregistrements n’est pas une polyligne. D’où le besoin de travailler sur des
 +objets de type homogène et pour cela d’extraire les objets du type voulu et d’agir sur la sélection.
 +  select * from alines where
 +  int(objectinfo(obj,1))=4 into sele
 +
 +Finalement, nous voulons maintenir le style propre des lignes car l’énoncé « create line » utilise le même style de ligne courrant pour toutes les nouvelles lignes. La procédure redéfinie se lit dans son ensemble de la façon suivante :
 +  dim o as object
 +  dim i as integer
 +  dim p as pen
 +  select * from alines where
 +  int(objectinfo(obj,1))=4 into sele
 +  fetch first from sele
 +  o=sele.obj
 +  i=sele.rowid
 +  p=objectinfo(o,2)
 +  o=createline(objectnodex(o,1,1), objectnodey(o,1,1),
 +  objectnodex(o,objectinfo(o,21),objectinfo(o,21+
 +  objectinfo(o,21))),objectnodey(o,objectinfo(o,21),
 +  objectinfo(o,21+objectinfo(o,21))))
 +  alter object o info 2,p
 +  update sele set obj=o where rowid=i
 +  fetch next from sele
 +
 +Le dernier bloc est répété autant de fois qu’il y a d’enregistrements (bloc est souligné une fois puis répéter <ENTRER>, clic dans la barre de titre de la FMB). Il n’y a pas d’indication de fin de fichier, la procédure restant bloquée sur le dernier enregistrement. Une possibilité serait d’ajouter avant la dernière ligne un
 +  print sele.rowid
 +et d’arrêter la procédure dès que l’indicateur ne change plus.
 +
 +==== 4.5 : Normalisation de cartes thématiques ====
 +
 +Le problème est de produire des cartes thématiques utilisant la même « légende », c’est à dire définies suivant les mêmes règles (nombre de plages, limites des plages, symbolisation). Une table « q_dr_96 » ne contient que des objets et 4 colonnes d’identification dont DR (code numérique, première colonne) et Nom_DR (alpha).
 +Une table « Q_96dr02 » est un fichier de données statistiques. Sa première colonne est le code numérique de la DR.
 +Dans ce cas-ci, il s’agit de faire des analyses thématiques de quelques variables dont on veut garder les valeurs de façon permanente.
 +
 +  * 1 - Ajouter les colonnes (nom et type) voulues ===
 +  Alter Table "q_dr_96" ( add TotlPls64 Integer,
 +  SeulPls64 Integer) Interactive
 +
 +  * 2 – Transférer les données
 +  Add Column "q_dr_96" (TotlPls64)From q_96dr02
 +  Set To V0238 Where COL1 = COL1
 +  Add Column "q_dr_96" (SeulPls64)From q_96dr02
 +  Set To V0242 Where COL1 = COL1
 +
 +  * 3 – La transformation de structure est permanente (pas de sauvegarde nécessaire) mais le contenu des colonnes doit être enregistré pour devenir permanent. ===
 +  Commit Table q_dr_96 Interactive
 +
 +  * 4 – Faire l’analyse thématique du % de personnes de plus de 64 ans vivant seules. 
 +Résultats de la commande :
 +  shade window 49175080 1 with SeulPls64 / TotlPls64 *
 +  100 ranges apply all use color Brush (2,255,16777215)
 +  16.2: 22.6 Brush (2,13697023,16777215) Pen (1,2,0),
 +  22.6: 25.6 Brush (2,10535167,16777215) Pen (1,2,0),
 +  25.6: 27.3 Brush (2,7373055,16777215) Pen (1,2,0),
 +  27.3: 29.8 Brush (2,3162367,16777215) Pen (1,2,0),
 +  29.8: 35.4 Brush (2,255,16777215) Pen (1,2,0)
 +  default Brush (2,16777215,16777215) Pen (1,2,0)
 +  # use 1 round 0.1 inflect off
 +  Brush (2,16776960,16777215) at 3 by 0 color 1 #
 +  set legend window 49175080 layer prev display on
 +  shades on symbols off lines off count on
 +  title "% des 64 ans et + vivant seul"
 +  Font("Arial",0,9,0) subtitle "recensement 1996"
 +  Font ("Arial",0,8,0) ascending off
 +  ranges Font ("Arial",0,8,0) auto display off,
 +  auto display on, auto display on, auto display on,
 +  auto display on ,auto display on
 +  Create Cartographic Legend From Window 49175080
 +  Behind Frame From Layer 1
 +
 +  * 5 – Nous voulons la même analyse thématique réalisée sur la paire de tables Q_su_96 (carte) et Q_96su02 (données) ayant exactement les mêmes structures que les précédentes.
 +Il suffit de changer ‘dr’ en ‘su’ dans les 4 premières commandes.
 +  Alter Table "q_su_96" ( add TotlPls64 Integer,
 +  SeulPls64 Integer) Interactive
 +  Add Column "q_su_96" (TotlPls64)From q_96su02
 +  Set To V0238 Where COL1 = COL1
 +  Add Column "q_su_96" (SeulPls64)From q_96su02
 +  Set To V0242 Where COL1 = COL1
 +  Commit Table q_su_96 Interactive
 +  * 6 – Il faut s’assurer que la carte q_su_96 est bien affichée dans la fenêtre active. On va réutiliser les commandes shade, etc, en modifiant seulement l’identificateur de la fenêtre.
 +  dim i_wind as integer
 +  i_wind=frontwindow()
 +  shade window i_wind 1 with SeulPls64 / TotlPls64 *
 +  100 ranges apply all use color Brush (2,255,16777215)
 +  16.2: 22.6 Brush (2,13697023,16777215) Pen (1,2,0),
 +  22.6: 25.6 Brush (2,10535167,16777215) Pen (1,2,0),
 +  25.6: 27.3 Brush (2,7373055,16777215) Pen (1,2,0),
 +  27.3: 29.8 Brush (2,3162367,16777215) Pen (1,2,0),
 +  29.8: 35.4 Brush (2,255,16777215) Pen (1,2,0)
 +  default Brush (2,16777215,16777215) Pen (1,2,0)
 +  # use 1 round 0.1 inflect off
 +  Brush (2,16776960,16777215) at 3 by 0 color 1 #
 +  set legend window i_wind layer prev display on
 +  shades on symbols off lines off count on
 +  title "% des 64 ans et + vivant seul"
 +  Font("Arial",0,9,0) subtitle "recensement 1996"
 +  Font ("Arial",0,8,0) ascending off
 +  ranges Font ("Arial",0,8,0) auto display off,
 +  auto display on, auto display on, auto display on,
 +  auto display on ,auto display on
 +  Create Cartographic Legend From Window i_wind
 +  Behind Frame From Layer 1
 +
 +Toutes les modifications voulues peuvent être apportées au Shade en particulier pour ajuster les limites. La réutilisation du Shade est une meilleure alternative aux « gabarits
 +thématiques » car on conserve ainsi les limites de classe qui étant automatiquement définies par l’ensemble des données dans une analyse thématique « normale » doivent être corrigées à la main chaque fois.
 +
 +===== Source =====
 +
 +  * **[[http://georezo.net/jparis/MI_Enviro/MBW/MB_part0_A4.zip|Document source]]** //Auteurs : Sebastien Roddier, Jacques Paris//
 
main/logiciels/mapinfo/documents/fmb.1242928763.txt.gz · Dernière modification : (modification externe)
Afficher la page
Haut de page 
Recent changes RSS feed Creative Commons License Valid XHTML 1.0 Valid CSS Driven by DokuWiki