• Necesito acelerar código,...
  Foro: General
  Último mensaje por: vuott
  Hace 13 minutos
  » Respuestas: 12
  » Vistas: 104
• Google afirma que su IA e...
  Foro: Hardware & IoT
  Último mensaje por: tincho
  Hace 55 minutos
  » Respuestas: 0
  » Vistas: 3
• Ejecutar Linux en un hard...
  Foro: Mundo Linux
  Último mensaje por: gambafeliz
  Hace 2 horas
  » Respuestas: 0
  » Vistas: 8
• ¿Como continuo a la sigui...
  Foro: General
  Último mensaje por: gambafeliz
  Ayer, 23:15
  » Respuestas: 2
  » Vistas: 15
• Soprano, nueva versión.
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: Shordi
  Ayer, 16:29
  » Respuestas: 66
  » Vistas: 897

• Mensajes del foro:2,211
• Temas del foro:437
• Miembros:105
• Último miembro:lotus

Buenas!.

¿ La habéis probado ya ?.

Como sabéis el mismo día de la mudanza que no se podía acceder a la comunidad , Benoît lanzaba la versión PPA de Gambas,
le estuve comentando que no había ejecutables, tales como el compilador gbc y en breve y rápidamente respondió a la pregunta
y solucionó el problema in situ. Mejor imposible!.

Parece que Benoít no usa Linux Mint.

Aunque tengo virtualizado Linux Mint 20, anteriormente había virtualizado Kubuntu 20.04. Pensando que la Mint 20 incorporaba
de alguna forma QT4, no fue así. El PPA de Gambas 3.15 parece funcionar sin problemas pero con QT5. Quedó obsoleto QT4.

No la he probado lo suficiente. El principal problema que nos podemos encontrar es querer actualizar de una versión anterior.
A algunos le va mejor a otros les va peor.

How to upgrade to Linux Mint 20

En Tricia 19.3 ya se nos mostraba en la barra un icono referente a problemas, conflictos y avisos.
Y entre ellos puede aparecer desde actualización de drivers y como no, de versión de la distro.

 ¿ Nos quitará un poco las ganas de actualizar por no tener QT4 ?.

Saludos

Buenas!.

Pues comencemos.

Algo que solemos hacer cuando queremos desplazar un sprite por llamarlo de alguna forma.
Ejemplo, un cuadrado dentro de un DrawingArea. Es que si lo hacemos con teclado, tenemos
que crear un grupo de sentencias condicionales, si queremos desplazar a la izquierda, a la derecha..etc.
Eso puede alargar el código.

Podemos usar las colecciones. Imaginar que queremos mediante la pulsación de una tecla
cambiar el color de fondo de un DrawingArea. Si, podemos usar las condicionales también.
Pero podemos ahorrarnos eso.

Bien. El primer problema que me encuentro es:
Usar el evento KeyPress del propio DrawingArea para saber que tecla se ha pulsado y donde lo voy a usar ¿ no ?.
Pues no. Se debe usar el evento KeyPress del formulario.

Tenemos un formulario con tan solo un DrawingArea:

Public Sub Form_KeyPress()
 
  Dim colores As Collection = ["r": Color.red, "a": Color.yellow, "b": Color.blue, "v": Color.Green]
    
  If colores.Exist(Lower(Key.text)) Then drw.Background = colores[Lower(Key.text)]
 
End

Const LADO As Integer = 20
 
Private coordenada As Integer[] = [0, 0]
Private unrectangulo As New Rect
Private movimiento As Boolean
 
Public Sub Form_Open()
 
  Me.Title = "Movimiento por mapeado de teclas"
 
  coordenada[0] = (drw.w - LADO) / 2
  coordenada[1] = (drw.h - LADO) / 2
 
End
 
Public Sub Form_KeyPress()
 
  Dim direccion As Collection = [Str(Key.Left): [-5, 0], Str(Key.Right): [5, 0], Str(Key.up): [0, -5], Str(Key.Down): [0, 5]]
 
  If direccion.Exist(Str(Key.code)) Then
    coordenada[0] += direccion[Key.code][0]
    coordenada[1] += direccion[Key.code][1]
    drw.Refresh
  Endif
 
End
 
Public Sub drw_Draw()
 
  With unrectangulo
    .X = coordenada[0]
    .y = coordenada[1]
    .W = LADO
    .H = LADO
  End With
 
  Paint.LineWidth = 2
  Paint.Brush = Paint.Color(Color.Green)
  Paint.Rectangle(coordenada[0], coordenada[1], LADO, LADO)
  Paint.Stroke
 
End
 
Public Sub drw_MouseDown()
 
  If unrectangulo.Contains(Mouse.x, Mouse.Y) Then movimiento = True    
 
End
 
Public Sub drw_MouseMove()
 
  If movimiento Then
    coordenada[0] = Mouse.x - LADO / 2
    coordenada[1] = Mouse.y - LADO / 2
  Endif
  drw.Refresh
 
End
 
Public Sub drw_MouseUp()
 
  movimiento = False
 
End

Hacía falta y me parece magnífico.

Es curioso que yo, que ya solo soy lector pasivo, sea el primero pero alguien tiene que decirlo:

Gracias Jesús. Magnífico trabajo.

Un saludo a todos.