En Fmain vamos a lanzar el procedimiento de ediciòn en el evento activate de la tabla. Este evento se dispara cuando hacemos doble click sobre la misma o cuando hacemos enter con el foco en la tabla.

Public Sub tabla_Activate()

Dim hresul As Result

If tabla.Current = Null Then Return

If ConectarBase() Then Return

hresul = hconn.Edit(“equipos”, “Equipo=&1″,
tabla.Current.Key)
fdata1.runedit(hresul)‘ESTA LINEA LANZA EL RUNEDIT EN FDATA1
tabla.Current[0] = hresul["Equipo"]
tabla.Current[1] = hresul["Puntaje"]
tabla.Current[2] = hresul["Gf"]
tabla.Current[3] = hresul["Gc"]

End

Pero, para activar la tabla con los parámetros correspondientes vamos a crear el procedimiento sumar_puntos, observe los comentarios destacados en mayúscula a la derecha del código.Recuerde que los comentarios empiezan con ‘

Public Sub sumar_puntos(lista As Listbox, vbp As Valuebox, vbgf As Valuebox, vbcg As Valuebox) ‘ESTOS SON LOS PARÀMETROS

 Dim Clave As String   ‘DECLARAMOS VARIABLES
  Dim filtro As String

filtro = lista.Current.Text  ‘AQUÍ ELEGIMOS EL EQUIPO ACTUAL
tabla.Clear ‘limpiar tabla

If ConectarBase() Then Return

tabla.Columns.Count = 5

tabla.Columns[0].text = “Equipo”
tabla.Columns[0].Width = 280
tabla.Columns[0].Alignment = Align.Center
tabla.Columns[1].text = “Puntaje”
tabla.Columns[1].Alignment = Align.Center
tabla.Columns[1].Width = 60
tabla.Columns[2].text = “Gf”
tabla.Columns[2].Width = 40
tabla.Columns[2].Alignment = Align.Center
tabla.Columns[3].text = “Gc”
tabla.Columns[3].Alignment = Align.Center
tabla.Columns[3].Width = 40
tabla.Columns[4].text = “zdif”
tabla.Columns[4].Alignment = Align.Center
tabla.Columns[4].Width = 40

hresul = hconn.Exec(“Select * from equipos where Equipo like ‘” & filtro & “‘”) ‘SENTENCIA CONDICIONAL SQL

  Do While hresul.Available
Clave = hresul["Equipo"]
tabla.Add(Clave, Clave) ‘CARGAMOS TABLA
tabla[Clave][1] = hresul["Puntaje"]
tabla[Clave][2] = hresul["Gf"]
tabla[Clave][3] = hresul["Gc"]
tabla[Clave][4] = hresul["zdif"]
hresul.MoveNext()
Loop
fdata1.vbgc.Value = vbcg.value ‘AQUI ASIGNAMOS LOS VALORES DE PUNTOS Y GOLES
fdata1.vbgf.Value = vbgf.Value
fdata1.vbpuntos.Value = vbp.value

tabla.SetFocus ‘PONEMOS EL FOCO EN LA TABLA
Desktop.SendKeys(“\n”) ‘ENVIAMOS UN ENTER PARA LANZAR EL EVENTO TABLA ACTIVATE
End
Observe que para referirnos a un control de otro formulario antepones el nombre del formulario al del control (fdata1.vbgc.Value) fdata=nombre formulario ;vbgc=nombre control; value =valor.

Para recorrer cada uno de los equipos vamos a lanzar el procedimiento sumar_puntos pasándole los parámetros de la siguiente manera;en el evento click de btnsumar

Public Sub btnsumar_Click()

sumar_puntos(lb1, vb2, vb1, vb3)
Wait 0.1
sumar_puntos(lb2, vb4, vb3, vb1)
Wait 0.1
sumar_puntos(lb3, vb6, vb5, vb7)
Wait 0.1
sumar_puntos(lb4, vb8, vb7, vb5)
Wait 0.1
sumar_puntos(lb5, vb10, vb9, vb11)
Wait 0.1
sumar_puntos(lb6, vb12, vb11, vb9)
Wait 0.1
sumar_puntos(lb7, vb14, vb13, vb15)
Wait 0.1
sumar_puntos(lb8, vb16, vb15, vb13)
Wait 0.1
sumar_puntos(lb9, vb18, vb17, vb19)
Wait 0.1
sumar_puntos(lb10, vb20, vb19, vb17)
Wait 0.1
sumar_puntos(lb11, vb22, vb21, vb23)
Wait 0.1
sumar_puntos(lb12, vb24, vb23, vb21)
Wait 0.1
sumar_puntos(lb13, vb26, vb25, vb27)
Wait 0.1
sumar_puntos(lb14, vb28, vb27, vb25)
Wait 0.1
sumar_puntos(lb15, vb30, vb29, vb31)
Wait 0.1
sumar_puntos(lb16, vbv32, vb31, vb29)
Wait 0.1

pocisiones
btnsumar.enabled = False
btnfecha.enabled = True
End

El Wait 0.1 es para que el procedimiento se lance con  100 milisegundos de Delay entre uno y otro. No se si es estrictamente necesario, pero hasta que lo puse el programa se colgaba aquí. Al final volvemos a cargar la tabla de pocisiones completa , bloqueamos el botòn de sumar para evitar sumar de nuevo por error y habilitamos el botón que guarda la fecha completa en la tabla correspondiente.

Me fue imposible modificarlas así que las creé de nuevo agregando un nuevo campo a cada una, id para la tabla equipos e rowid para la tabla fechas. Ambas son autonuméricas y , por poco lógico que resulte en la sentencia Insert into hay que darles un valor de Null(nulo) para que se llenen automáticamente.

Bien, habíamos quedado en el punto de crear el procedimiento para sumar puntos y goles. Vamos a necesitar abrir los registros uno por uno en modo edición para poder hacerlo.Vamos a agregar un nuevo formulario al que llamaremos fdata. Veamos su aspecto en tiempo de diseño con todos sus controles visibles…

fdata1 en tiempo de diseño

Y en tiempo de ejecución mostrando solo el label…

fdata1 en tiempo de ejecución

Los controles quedan ocultos puesto que el usuario no debe interactuar con ellos, forman parte de un proceso automatizado.
Los controles a colocar son :5 textbox (txtequipo,txtpuntos,txtgf,txtgc,txtdif) ,
3 valuebox(vbgf,vbgc,vbpuntos) un control timer y un label. A todos los controles, excepto al label y al timer hay que ponerle su propiedad visible a false desde la ventana de propiedades. El label porque es el único que va a quedar visible y el timer porque es invisible de por sí. Al timer le ponemos su propiedad enabled a True y  le damos un delay de 200 milisegundos. A continuación el código de fdata1:

 Private hconn As Connection
Private hresul As Result
  Private editando As Boolean

Me.Close()
Catch
Message.Error(“imposible guardar datos“)
End

Como siempre declaramos primero las variables, luego el procedimiento runedit(que se dispara desde el formulario principal, lo veremos más adelante)nos carga los valores para el equipo correspondiente, necesarios para realizar las cuentas.

Luego el evento timer nos dispara la actualización, suma puntos, goles a favor y en contra, hace la diferencia de goles y carga todo en la tabla, cerrando posteriormente el formulario.

En el próximo post veremos como interactua esto con el formulario principal.

Ahoara nos encontramos con la fase en que, tras escribir nosotros los resultados el programa calcule y asigne los puntos a cada uno. Como ya sabemos el empate da un punto a cada uno,la victoria tres y la derrota cero punto. Por tanto, necesitamos que el programa compare en cada partido los goles del local, los del visitante y en virtud de eso asigne los puntos. Vamos a crear una función que nos devuelva en una variable el resultado de esa comparación. Veamos como:

Private Function compara(goleslocal As ValueBox, golesvisita As ValueBox) As Integer
   Dim estado As Integer = 0
If goleslocal.value = golesvisita.value Then
estado = 1
Else
   If goleslocal.value > golesvisita.value Then
estado = 2
    Else
estado = 3
  Endif
Endif
Return estado
End
Primero declaramos la variable Estado como integer(entero) y la inicializamos con un valor de cero, luego realizamos la comparación con una sentencia condicional if..then..else if,else y devolvemos el estado mediante la sentencia return estado

Lo siguiente es crear el procedimiento asignar

Public Sub asignar(goleslocal As ValueBox, puntoslocal As ValueBox, golesvisita As ValueBox, puntosvisita As ValueBox)
Select Case compara(goleslocal, golesvisita)
  Case 1
puntoslocal.Value = “1“
puntosvisita.Value = “1“
   Case 2
puntoslocal.Value = “3“
puntosvisita.Value = “0“
Case 3
puntoslocal.Value = “0“
puntosvisita.Value = “3“
   End Select
End Sub

Según el estado de la función compara  se asignan los puntos. Solo nos resta pasarle los parámetros para que sepa que valores comparar y cuales asignar. Para eso en el evento click del botón btnasignar llamamos al procedimiento homónimo (asignar)

Public Sub Btnasignar_Click()
asignar(vb1, vb2, vb3, vb4)
asignar(vb5, vb6, vb7, vb8)
asignar(vb9, vb10, vb11, vb12)
asignar(vb13, vb14, vb15, vb16)
asignar(vb17, vb18, vb19, vb20)
asignar(vb21, vb22, vb23, vb24)
asignar(vb25, vb26, vb27, vb28)
asignar(vb29, vb30, vb31, vbv32)
btnsumar.enabled = True
Btnasignar.enabled = False
End

Para que se entienda esto : asignar(vb29, vb30, vb31, vbv32) equivale a               asignar(goleslocal As ValueBox, puntoslocal As ValueBox, golesvisita As ValueBox, puntosvisita As ValueBox)

vb29= goleslocal   vb30=puntos local   vb31=golesvisita   vb32=puntosvisita,

Como podemos ver el código repite el procedimiento para cada cuarteta de valuebox, lo cual nos evita reescribir el  procedimiento de comparación y asignación para cada partido.

Por último se bloquea el botón asignar(btnasignar) que ya cumplió su función y se habilita el botón sumar puntos (btnsumar), que es lo próximo que debemos hacer. Es un procedimiento algo complejo, ya que hay que seleccionar equipo por equipo, abrir la tabla en modo edición, sumar puntos y goles, actualizar diferencia de goles  y pasar al siguiente equipo. Por tanto,  para no embarullar mucho, queda para el próximo post.

Y así quedó el código del evento open de fmain, mucho más corto:

Hemos agregado en la sentencia sql un par de claúsulas para que nos ordene la lista,resaltado en negrita :

hresul = hconn.Exec(“Select * from equipos order by Puntaje DESC, zdif DESC “)

order by(ordene por)  puntaje DESC (puntaje de mayor a menor) zdif DESC(diferencia de goles de mayor a menor)

Esto nos permite ordener la tabla de pocisiones desde el de más puntaje, si hay dos con el mismo puntaje va primero el que tenga mayor diferencia de goles. Incluso podríamos agregarle a la sentencia sql una tercera condición , Gf DESC para que en caso de que estuvieran empatados en puntos y saldo de goles pusiese primero el que tuviera más goles a favor.

Necesitamos que cuando inicie el programa nos cargue en los 16 listbox la lista de equipos para poder seleccionarlos y no tener que escribir uno x uno. Además de la comodidad que esto implica, nos permite evitar errores al tipear los nombres. Recordemos brevemente la sintaxis utilizada para cargar los mismos:

listbox.add(“lo que quieras”)

Ahora, imaginemos hacer esto para 16 listbox con 16 equipos cada uno. Es mucho código. Además. si cambiamos de liga o hay ascensos y descensos cambiar equipos nos implicaría meter mano en el código. Lo que vamos a hacer es que cada listbox se cargue desde la base de datos, mediante un select y un procedimiento creado al efecto: el procedimiento listado con el parámetro lista as listbox(lista como listbox)

Primero como siempre declaramos las variables, Dim clave as String, luego agregamos esta sentencia al principio de la lista (lista.Add(“Elige un equipo”)) para obligarnos a seleccionar un equipo en cada lista. Esto nos evita que alguno de los listbox quede con valor Null al no modificar la selección. A continuación comprobamos que la base esté conectada y seleccionamos los equipos en orden alfabético “order by Equipo ASC” y mediante el Do while…loop  recorremos equipo por equipo. Pero,¿donde cargamos la lista?

En cada uno de los listbox mediante el llamado al procedimiento listado con el parámetro del nombre de cada uno de los listbox, en el sub listar:

listado(lb1)
……………….
listado(lb16)

Vamos a necesitar que al empezar el programa se carguen los datos que vamos a utilizar,o sea la tabla con los equipos. Para eso vamos a tener que conectar a la base de datos mediante un objeto connection.

Al principio de fmain.class declaramos las variables comunes a todo el formulario:

Private hconn As Connection
Private hresul As Result

Luego creamos el procedimiento de conección:

Public Function ConectarBase() As Boolean

if hconn <> Null Then Return False

hconn = New Connection
hconn.Host = User.Home &/ “.goles1“
hconn.name = “Futbol”
hconn.type = “sqlite3″
     Try hconn.Open()
         If Error Then
hconn = Null
Message.Error(“error al conectar con la base”)
     Return True
Endif
       Return False
End

Como podemos ver es el mismo código que usamos en los ejemplos anteriores(agenda y juego), donde indicamos la ubicación de la base, el tipo y nombre de la misma y le pedimos que se conecte y en caso contrario nos de error. Vemos que el path o ruta es:

hconn.Host = User.Home &/ “.goles1″ o sea la carpeta de usuario y dentro de la misma, la carpeta oculta .goles1. ¿Cómo nos aseguramos que la misma esté ahí?Primero, incluyéndolo en la carpeta Datos de nuestro programa (botón derecho sobre datos,nuevo, existente, navegamos hasta la carpeta donde lo tenemos y le damos aceptar).

Luego, en el evento open de fmain agregamos el siguiente código:

If Not Exist(User.Home &/ “.goles1/Futbol”)
     Try Mkdir User.Home &/ “.goles1″
  Copy “Futbol” To User.Home &/ “.goles1/Futbol”
Endif

Este método comprueba si existe la base, si no crea la carpeta y copia en ella la base que viene con el programa. Sencillo.A continuación todo  el código del Form_open:

Dim Clave As String

If Not Exist(User.Home &/ “.goles1/Futbol”)
Try Mkdir User.Home &/ “.goles1″
Copy “Futbol” To User.Home &/ “.goles1/Futbol”
Endif

tabla.Clear  ‘limpiar tabla

If ConectarBase() Then Return

tabla.Columns.Count = 5

tabla.Columns[0].text = “Equipo”
tabla.Columns[0].Width = 280
tabla.Columns[0].Alignment = Align.Center
tabla.Columns[1].text = “Puntaje”
tabla.Columns[1].Alignment = Align.Center
tabla.Columns[1].Width = 60
tabla.Columns[2].text = “Gf”
tabla.Columns[2].Width = 40
tabla.Columns[2].Alignment = Align.Center
tabla.Columns[3].text = “Gc”
tabla.Columns[3].Alignment = Align.Center
tabla.Columns[3].Width = 40
tabla.Columns[4].text = “zdif”
tabla.Columns[4].Alignment = Align.Center
tabla.Columns[4].Width = 40

hresul = hconn.Exec(“Select * from Equipos”) ‘consulta sql”

Do While hresul.Available
Clave = hresul["Equipo"]
tabla.Add(Clave, Clave)
tabla[Clave][1] = hresul["Puntaje"]
tabla[Clave][2] = hresul["Gf"]
tabla[Clave][3] = hresul["Gc"]
tabla[Clave][4] = hresul["zdif"]
hresul.MoveNext()
Loop
   listar
             bloqueabotones

End

Lo que está en negrita es nuevo, lo anterior comprueba la conexión y carga los datos en el columview. El procedimiento    bloqueabotones  es sumamente sencillo y éste es su código:

Public Sub bloqueabotones()

Btnasignar.enabled = False
btnsumar.enabled = False
btnfecha.enabled = False

End

¿Por qué lo hacemos así en lugar de poner el código directamente en el procedimiento open? Porque vamos a necesitar hacer lo mismo en más de una ocasión y esto nos permite utilizar el mismo código sin necesidad de reescribirlo, simplemente lo llamamos por su nombre. En este caso particular es un código de apenas tres líneas y puede no parecer muy útil, pero imagine en los casos en que las líneas sean 10 o más y debas llamarlas varias veces a lo largo del programa. En el próximo post comentaremos listar y por primera vez haremos uso de funciones con parámetros.

Fmain en tiempo de diseño con todos sus controles visibles

Y en tiempo de ejucuciòn con algunos controles ocultos y la tabla cargada

Si observamos con atención veremos que “faltan” algunos controles. Es que en realidad los hemos ocultado poniendo su propiedad visible=false, ya que el usuario no necesita interactuar con éstos ni ver su contenido. Además evitamos que por accidente cargue algún valor incorrecto.

¿Cómo podemos hacer para que la construcción de una interfase con tantos controles sea más fácil y rápida?  Veamoslo con un ejemplo.

Creamos el primer listbox y le cambiamos el nombre a lb1

Arrastrando y pegando creamos el primer listbox y le cambiamos el nombre a lb1. Luego seleccionamos el control recién creado, botón derecho del mouse, copiar y luego pinchando con el botón derecho sobre el formulario le damos pegar. Veremos que el nuevo control se crea ya con el nombre lb2 y aparece en la esquina superior izquierda del formulario.

Lo arrastramos a su lugar , y con control +v(atajo de teclado para pegar) creamos el resto de los listbox. Los iremos colocando por pares, de izquiera a derecha. Puede guiarse por la imagen de la interfase que aparece más arriba. Para alinearlos los selecciones por fila y usando la propiedad X de los mismos los alineamos verticalmente.Vea la imagen.

Alineando controles...

Luego podemos alinearlos horizontalmente mediante la propiedad Y.

Ahora de la misma manera crearemos los valuebox, llamando al original vb1.Los iremos colocando por pares a la derecha de cada listbox. Es fundamental colocarlos en el orden correcto para facilitar la codificación posterior.Y por aquí vamos dejando. En el próximo post terminaremos de construir la interfase y comenzaremos a codificar.

Si no lo tenemos lo podemos instalar desde sinaptic o como en mi caso, desde el centro de software de Ubuntu.

Vamos a File…new database, elegimos el nombre y luego creamos las tablas, que en principio van a ser solo dos. Equipos y Fechas.

¡¡Atenciòn!! Las bases de datos distinguen entre mayùsculas y minùsculas, tanto en los nombre de tablas y campos como en los datos. Hay que ser cuidadoso con esto porque sino puede ser un verdadero quebradero de cabeza.

Bien nuestras tablas deben quedar con la estructura que se ve el la imagen final o sea:

Tabla Equipos      con los campos Equipos (texto),Punteje(entero)Gf (entero) Gc(entero) Donde Gf son los goles a favor y Gc los goles en contra. Lo que va entre parèntesis es el tipo de dato.

Tabla Fechas Con los campos  Fecha(texto),local(texto)glocal(entero),Visitante(texto),gvisita(entero). Donde fecha es el orden de las mismas (fecha1,fecha2) y no un campo del tipo date.glocal son los goles del local y gvisita son los goles del visitante. Os dejo un par de capturas de ambas tablas con las dos primeras fechas cargadas.Cuando carguemos la primera tabla en nuestro programa vamos a querer que nos ordene la tabla por puntaje de mayor a menor, para eso vamos a usar la orden sql “order By” pero eso ya lo veremos durante la construcción del programa. En el próximo post vamos a construir la interfase y estudiar los nuevos desafíos que se presentan para codificar. Hasta entonces.

Está realizado en base a la liga de mi país, Uruguay, donde militan dieciséis equipos, pero la idea es que pueda adaptarse fácilmente a cualquier otra. La premisa, básicamente, consiste en anotar los resultados en un formulario al efecto y que automáticamente sume puntos, goles a favor y goles en contra, y guarde los resultados de la fecha en una base de datos. Esto nos permitirá más adelante buscar resultados por fecha o o por equipo.Y que además genere las tablas de posiciones fecha tras fecha.

Vamos a trabajar por primera vez con Gambas 3, la última versión del mismo.

Analizemos los requisitos. Primero que nada necesitamos una base de datos con algunas tablas. Una tabla llamada “equipos” con los siguientes Items: Equipo, puntaje, gf(goles a favor)Gc(goles en contra). Otra tabla llamada “fechas” donde guardaremos los resultados, con los items fecha, equipo 1, goles1,equipo2, goles2. Vamos a necesitar que el programa analize los resultados y en base a esto asigne los puntos, tres al ganador , uno en caso de empate y 0 en caso de derrota.

En una segunda etapa, la idea es poder llevar tabla de goleadores y tarjetas amarillas y rojas, y que nos alerta al llegar a cinco amarillas(suspensión automática). Pero esto será a futuro.

Vamos a ver algunas cosas nuevas como código común para varios controles, copiar controles y realizar cálculos numéricos.

Procedimiento actualizar

PUBLIC SUB actualizar()

DIM hresul AS Result   ‘primero la variable necesaria

IF tabla.Current = NULL THEN RETURN   ‘comprobamos que haya un registro seleccioado

IF ConectarBase() THEN RETURN

hresul = hconn.Edit(“jugadores”, “Nombre=&1″,
tabla.Current.Key)  ‘Aquí elegimos el registro actual y lo abrimos en modo edición
fdata.runedit(hresul)  ‘Aquí llamamos al procedimiento runedit de fdata
tabla.Current[0] = hresul["Nombre"] ‘Aquí actualizamos los datos
tabla.Current[1] = hresul["puntaje"]  ‘Aquí actualizamos los datos
cerrarconexion()
asignar

END

Hay dos líneas aquí que son especialmente importantes, ya que entre ellas hay un procedimiento que se realiza en otro formulario .Lo remarco en azul.

fdata.runedit(hresul)
tabla.Current[0] = hresul["Nombre"]

Esta línea nos remite al runedit de fdata , que abre el formulario  fdata, cuyo código podemos recordar ahora.

PRIVATE hconn AS Connection
PRIVATE hresul AS Result
PRIVATE editando AS Boolean

PUBLIC SUB runedit(data AS Result)

hresul = data
editando = TRUE
txtjugador.text = hresul["Nombre"]
txtpuntaje.text = hresul["puntaje"]
  ME.ShowModal

END

En esta primera parte se declaran las variables,se pone la variable editando a true(verdadera) y se asignan a los cuadros de texto los valores correspondientes al jugador actual. Pero, lo más importante es la línea que dice Me.showmodal. ¿Qué significa esto? Que el formulario queda abierto de forma MODAL y hasta que el usuario o el programa no lo indiquen no se cerrará, por tanto el código del sub actualizar no pasará a la siguiente línea mientras esto no sucede.

En principio había puesto un botón al formulario para aceptar el punto, pero luego lo eliminé y agregué un timer que automatiza la suma del punto, a través de su evento timer.Recordemos el código.

PUBLIC SUB Timer1_Timer()

IF editando THEN

TRY hresul["Nombre"] = txtjugador.text
  TRY hresul["puntaje"] = Val(txtpuntaje.text) + 1

TRY hresul.Update

  ELSE

   TRY hconn.EXEC(“insert into jugadores values (&1,&2)”, txtjugador.text, txtpuntaje.text)

  ENDIF

 Para terminar, las fuentes del juego y el instalador del mismo para Ubuntu y Debian lo pueden descargar en el siguiente enlace. Hasta el próximo proyecto.

Para empezar vamos a colocar en el evento open del mismo el siguiente código:

ME.Text = “Campo de juego de” & “  ” & FMain.txtjugador.Text

Esto hará que  la barra superior del form luzca  el texto con el nombre del jugador , el entrecomillado entre los & es para que quede espacio entre “de” y el nombre.

Y en la última línea del sub JUGAR agregamos

fmain.actualizar

Esto llama al procedimiento  actualizar del formulario principal, que veremos luego  con más detalle. ANTES ACLARAR QUE ESTAS MISMAS MODIFICACIONES HAY QUE HACERLAS TAMBIEN EN frmcompetir, donde además hay que hacer otra pequeña modificación.

Agregaremos un botón llamado btnnuevo con el código en su evento click:

modreinicio.reinicio

VAmos ahora a modreinicio y agreganos este código:

PUBLIC SUB reinicio()

Frmcompetir.Close
Message.Info(“Elija su nombre de la lista y presione competencia”)

END

Esto hace que el form se cierre y nos muestro el cuadro de mensaje detallado para elegir el nombre del competidor.

Cuando terminé de modificar el juego y creé el instalador surgió un problema que no había  previsto. La base de datos no se copiaba  ya que en Linux el concepto de aplication.path no es igual que en windows,y al instalarlo en otro equipo daba error. El juego funcionaba, pero sin datos ni puntajes.

La solución fue modificar fmain de la siguiente forma:

hconn = NEW Connection
hconn.Host = Application.Path
hconn.name = “mibase2″

cambiando la línea tachada por

hconn.host=User.Home &/ “.juego”

y en el evento form_open

IF NOT Exist(User.Home &/ “.juego/mibase2″)
TRY MKDIR User.Home &/ “.juego”
COPY “mibase2″ TO User.Home &/ “.juego/mibase2″
ENDIF

Primero comprueba si existe la base de datos, si no es así crea el directorio  .juego y copia la misma allí. Está probado ya en un par de máquinas.De más está decirte que los jugadores que están son a modo ilustrativo, crea primero los tuyos(al menos 1para que no se bloquee la base) y luego elimina los otros seleccionándolos de a uno y presionando  la tecla suprimir.

En el próximo post desmenuzaremos el procedimiento actualizar, dando por terminado este proyecto.Hasta entonces.