Comunidad Gambas-es

Apuntar en el mapa de un MapView

vuott 18-04-2021, 00:45

Apuntar

en el mapa de un MapView:

Código:
Private MapView1 As MapView

Private mp As MapPoint = MapPoint(36.490590, -6.238170)  ' en honor de mi amigo, Romanorum Consul Shell

Private DrawingArea1 As DrawingArea

Public Sub Form_Open()

  Dim pn As Panel

  With Me

    .W = Screen.AvailableWidth

    .H = Screen.AvailableHeight

    .Arrangement = Arrange.Fill

    .Mouse = Mouse.Blank

  End With

  With MapView1 = New MapView(Me) As "MapView1"

    .Map.AddTile("GoogleMap", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")

    .Map.Zoom = 11

' Imposta il centro della mappa:

    .Map.Center = mp

  End With

  pn = MapView1.Children[0]

  DrawingArea1 = pn.Children[0]

End

Public Sub MapView1_MouseMove()

  Dim pt As New Point(Mouse.X, Mouse.Y)

  Dim lat As Float = MapView1.Map.PixelToMapPointRel(pt).Lat

  Dim lon As Float = MapView1.Map.PixelToMapPointRel(pt).Lon

  mp = MapPoint(lat, lon)

  MapView1.Refresh

  MapView1.Map.Refresh

End

Public Sub MapView1_Draw()

  Dim c, x, y, r As Short

  Dim po As Point = MapView1.Map.MapPointToPixelRel(mp)

  With Paint

    .Begin(DrawingArea1)

    .Brush = .Color(Color.DarkOrange)

    .LineWidth = 2.0

    .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 50, 0, 360, False)

    .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 30, 0, 360, False)

    .Stroke

    .Brush = .Color(Color.Red)

    .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 1.5, 0, 360, False)

    .Fill

    r = 50

    x = po.X

    y = po.Y

    For c = 0 To 360 Step 90

      po.X = x + r * Cos(Rad(c))

      po.Y = y + r * Sin(Rad(c))

      .MoveTo(po.X, po.Y)

' Per ridurre la lunghezza della "x" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: +n 0 -n 0 che si ottiene con il Coseno di c.

' Per ridurre la lunghezza della "y" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: 0 -n 0 +n che si ottiene con il Coseno di c + 90.

      .LineTo(x + (20 * Cos(Rad(c))), y - (20 * Cos(Rad(c + 90))))

      .Stroke

    Next

    .Brush = .Color(Color.Yellow)

    .DrawText(Format(mp.Lat, "0.######"), x + r * Cos(Rad(270)) - (Me.Font.TextWidth(Format(mp.Lat, "0.######")) / 2), (y + (r + 15) * Sin(Rad(270))), Me.Font.TextWidth(Format(mp.Lat, "0.######")), Me.Font.TextHeight(Format(mp.Lat, "0.######")), Align.Left)

    .DrawText(Format(mp.Lon, "0.######"), x + r * Cos(Rad(0)) - (Me.Font.TextWidth(Format(mp.Lon, "0.######")) / 2), (y + (r + 15) * Sin(Rad(0))), Me.Font.TextWidth(Format(mp.Lon, "0.######")), Me.Font.TextHeight(Format(mp.Lon, "0.######")), Align.Left)

    .End

  End With

End

Aplicaciones/Fragmentos de Código Sin respuestas

IoT: ESP32 WROOM D32 Problema

AlfredoSC 16-04-2021, 23:36

Hola...saludos:

Pues comencé a hacer proyectos con el ESP32 adicionando las librerías a Arduino bajo Win2 y también en Ubuntu 18.04. Para "subir" el software ya compilado al ESP32 hay que oprimir el botón BOOT mientras avanzan algunos % de carga. Luego se puede soltar y la carga continúa.

Durante estos momentos yo veía fluctuar en intensidad el led integrado rojo del ESP32. Luego al terminar de "subir" el software, y abriendo la terminal Serial, aparecían paquetes de mensajes, cuyo encabezado decía algo parecido a:

"Brownout detector was triggered. CPU Reset"...

Estuve buscando en la web temas relacionados, pero hay muy pocas soluciones. Incluso Expressive (los fabricantes) no proporcionan una solución. En cierta página, alguien propuso modificar un archivo de los descargados para la tarjeta ESP32, denominado sdkconfig, cambiando a la línea que contiene _BROWNOUT_DET=y, se le pone "n", para quedar como:

... _BROWNOUT_DET=n

Pero el colega que propuso esta solución indica que no le funcionó. Así que yo también modifiqué otro archivo:

sdkconfig.h

El cual contiene entre otras muchas la línea .... _BROWNOUT_DET=1

Así que por lógica, lo cambié por ..._BROWNOUT_DET= 0

Guardados ambos archivos, volví a compilar mi proyecto de ESP32 con Arduino y puede "subir" el software a la placa sin ningún problema. Al terminar de subir, de inmediato funcionó y sin mandar los molestos paquetes de error o reset.

Claro que bajé unos 4 datasheets del ESP32 para analizar un poco la cosa del registro que controla la detección de Brownout, que no es otra cosa que la detección del voltaje de alimentación que "baja" un poco por el consumo que hace el ESP32 al encender sus componentes diversos. También encontré que tiene 8 niveles de detección de niveles de voltaje, pero como lo he deshabilitado, ya no interesan de momento.

El problema real es cuando se arma un circuito con el ESP32, varios sensores, fuente y baterías de respaldo. En algún momento al funcionar con baterías, y estas agotarse un poco solamente, el ESP32 comenzará a hacer sus RESETS, ante la asombro del diseñador.

Incluso si durante las prácticas se usa un cable USB largo (80 cm o mas), la caída de tensión será mas notoria. Es por eso que yo hice la maniobra en ambos archivos. Al principio quise aminorar el problema colocando un capacitor de 1000uF/10V entre Vin y Gnd del ESP32, pero no se quitó el problema.

Por último, he querido hacer lo mismo en Ubuntu, pero no encuentro los dichosos archivos....ayuda por favor...

Eso es todo....
<Nota: Editado>

Hardware & IoT Respuestas 7

Restaurar valores por defecto.

Shell 16-04-2021, 23:24

Buenas!.

¿ No creéis que Gambas debería tener una opción de "restaurar a los valores de fábrica" ?. Smile

Para dejarlo tal como se instala por defecto.

Tenemos un archivo en .config/gambas3 que es el gambas3.conf
Supongo que si se borra y se inicia de nuevo el editor, gambas debería usar valores por defecto. Puede que no siempre sea así.

Desde luego en el caso de la Gambas 3.16, no. Estuve borrando Gambas con:

Código:
sudo apt-get --purge remove gambas3

Pero es una gambas dura de pelar!.

[Imagen: BlCPr6F.jpg]

Aparte de coñas. Al instalar de nuevo. Aparentemente todo quedó igual, hasta las tipografías que usaba el editor.
Pero si se supone que se ha borrado toda configuración. Huh