Ando creando un juego pero entre pruebas y pruebas , me derivo a otras cosas y me pongo a verlas
y ver que hacen.
Este es un ejemplo de POO. En el tenemos 5 personajes. Ando haciendo cambios y viendo observadores
y probando cosas.
En este ejemplo llenamos un HPanel con 5 ToolButtons.
Cada ToolButton tiene su dibujo,es el mismo pero cambiado de color.
Tenemos una clase llamada político_old.
"La idea es en principio es que por cada botón aparezca el dibujo y un numero distinto del 0 al 4"
El código fuente de la clase politico_old (Esta modificada)
Inherits ToolButton
Private $imagen As Picture
Private colorespolitico As New String[]
Private ruta As String = ""
Private contador As Integer
Public Sub _new()
CrearColores()
$imagen = Picture[colorespolitico[Int(Rnd(0, colorespolitico.Count))]]
Dimensionar()
With Me
.Picture = $imagen
.Width = 75
.Height = 75
.Border = Border.Sunken
.Text = CStr(contador)
End With
contador += 1
End
Public Sub Dimensionar()
With Me
.Picture = $imagen
.Width = 75
.Height = 75
.Border = Border.Sunken
End With
End
Public Sub CrearColores()
Dim nomimagen As String
For Each nomimagen In Dir(ruta, "peon*.png")
colorespolitico.Add(nomimagen)
Next
End
Private $imagen As Picture
Private colorespolitico As New String[]
Private ruta As String = ""
Private contador As Integer
Public Sub _new()
CrearColores()
$imagen = Picture[colorespolitico[Int(Rnd(0, colorespolitico.Count))]]
Dimensionar()
With Me
.Picture = $imagen
.Width = 75
.Height = 75
.Border = Border.Sunken
.Text = CStr(contador)
End With
contador += 1
End
Public Sub Dimensionar()
With Me
.Picture = $imagen
.Width = 75
.Height = 75
.Border = Border.Sunken
End With
End
Public Sub CrearColores()
Dim nomimagen As String
For Each nomimagen In Dir(ruta, "peon*.png")
colorespolitico.Add(nomimagen)
Next
End
Nos presenta la siguiente imagen.
Ups!. Todos a 0. ¿ Que ha ocurrido aquí ?. Pero si le dije que sumase en new...
Ahora fijaros. Cambiemos esta linea:
Por esta otra:
Y ahora...
Aja. ¿ Que le ha ocurrido al valor contador ?.
Saludos