Bolذ¨آ°ذ²ذ‚رڑذ¨ر Var Argentina 🗺️ Foros de Google Earth y Maps ✈️

Se encontró 1 comentario sobre Bolذ¨آ°ذ²ذ‚رڑذ¨ر Var Argentina en el Foro de Google-Earth
     ❌ Resetear
Puede repetir la búsqueda actual por Temas pulsando aquí
Autor Mensaje

VISUAL FOXPRO y Google HEART Tema: VISUAL FOXPRO y Google HEART 
Foro de Programación para Google Earth y Maps Foro: Foro de Programación para Google Earth y Maps


Imagen: TitoHC
Registrado:
30-Oct-2010
Mensajes: 18
Votos: 0 👍

EnvíoAsunto: VISUAL FOXPRO y Google HEART

Publicado:
...= "Shell.Explorer.2"

PROCEDURE LOAD
SYS(2333,1)
THIS.SetPoint = SET("Point")
SET POINT TO .
SET SAFETY OFF
*-- Creo el cursor con los datos
CREATE CURSOR MisLugares (Descri C(40), Lat N(12,6), Lon N(12,6), Zoom I(4))
INSERT INTO MisLugares VALUES ("Torre Eiffel (Francia)", 48.858333, 2.295000, 17)
INSERT INTO MisLugares VALUES ("Basílica de San Pedro (Vaticano)", 41.902102, 12.456400, 17)
INSERT INTO MisLugares VALUES ("Estatua de la Libertad (EEUU)", 40.689360, -74.044400, 17)
INSERT INTO MisLugares VALUES ("Estadio Monumental (Argentina)", -34.545277, -58.449722, 17)
INSERT INTO MisLugares VALUES ("Estadio Azteca (Mexico)", 19.302900, -99.150400, 17)
INSERT INTO MisLugares VALUES ("Estadio Camp Nou (España)", 41.380906, 2.123330, 17)
INSERT INTO MisLugares VALUES ("Cementerio de aviones (EEUU)", 32.174247, -110.855874, 14)
ENDPROC

PROCEDURE DESTROY
SET POINT TO (THIS.SetPoint)
ENDPROC

PROCEDURE cboDescrip.INIT
THIS.LISTINDEX = 1
ENDPROC

PROCEDURE cmdMostrar.CLICK
TEXT TO lcHtml NOSHOW TEXTMERGE
<html> <head>
<meta http-equiv="content-type...
Leer más ...
Página 1 de 1
Todas las horas son GMT + 1 Hora
Cambiar a: