Juego de la Loteria - Tablero y Cartas

[christ80]

Hola que tal soy nuevo en el foro deseo hacer una Macro o un pequeño programa que me permita de una base de datos con 54 imagenes (*.png) me muestre al azar solo 12 de ellas, mediante un control pueda ir cambiando el maso de cartas y con otro sombrear cada imagen previamente mostrada al azar. Lo estoy elaborando con arreglos pero no he podido hacer que me cargue las imagenes a los controles. Espero y me puedan ayudar me despido Felicitandolos por este estupendo foro llevo un par de semanas empleado OpenOffice y en verdad que es un excelente sistema Saludos!!!

Christopher

[mauricio]

Hola... Christopher...

Bienvenido a los foros... ¿y que tan nuevo eres en programación?, por que lo que quieres no es trivial que digamos y me suena como a las tareas que les dejaba a mis alumnos... danos más detalles de lo que quieres para orientarte mejor, es decir, sobre que aplicación tienes pensado hacerlo (Calc, Writer, Draw, etc...), ¿ya tienes algo de código, algún algoritmo?...

Saludos

[christ80]

Hola que tal!

Gracias!. Si algo asi es para mi hermano esta aprendiendo a utilizar Basic le recomendaron que lo hiciera en Gambas, pero le comente que = si lo hace en una macro se puede dar una idea. Si yo tambien no creo que sea dificil hace un par de años que no programo he programado en Visual Basic pero deseo aprender a utilizar Basic para el desarrollo de Macros en Openoffice sobre todo en Calc. Algun indicio que me recomiendes tengo dudas al hacer la seleccion aleatoria de imagenes y que estas se muestren en los controles.

Son 54 imagens de las cuales la seleccion aleatoria tiene que mostrar solo 12.

Este es el codigo hemos desarrollado:

Paro as object ' Variable Global
..................
Sub inicio_Click

Dim arr[3,4] As String
Dim x As Integer
Dim y As Integer

pic As New Picture
arr[0,0] = "a"
arr[0,1] = "b"
arr[0,2] = "c"
arr[0,3] = "d"
arr[1,0] = "e"
arr[1,1] = "f"
arr[1,2] = "g"
arr[1,3] = "h"
arr[2,0] = "i"
arr[2,1] = "j"
arr[2,2] = "k"
arr[2,3] = "l"

paro False Repeat

Randomize
y = Int (Rnd(0,3))
pic load (arr[x,y])

until paro true

End Sub
..............
Sub button2_click ()
paro = true
end sub

Muchas Gracias!!!

[mauricio]

Hola...

El código que muestras NO es de OOo Basic, ¿donde lo estas haciendo?

Saludos

[christ80]

Que tal:

El codigo que muestro esta hecho en Gambas que es un IDE para Basic, pero yo deseo hacer el Juego en una Macro pero tengo muy poca experiencia en el desarrollo de Macros y en Basic. Alguna ebra que me recomienden para empezar? se los agradeceria mucho!!!

Saludos!!!

[mauricio]

Hola...

Ya conoces mi libro?: http://user.services.openoffice.org/es/ ... =50&t=1545

Lo hice pensando en usuario sin experiencia, checa si te sirve...

Saludos

[christ80]

Que tal:

Si claro que si es una excelente herramienta lo estoy estudiando esta muy completo tanto para desarrolllar el juego como para realizar la migracion de unas Macros de Excel 2003 a Calc. Hay algunas instrucciones en Excel que no logro interpretar en Calc.

Muchas Gracias!

[mauricio]

Hola...

Hay algunas instrucciones en Excel que no logro interpretar en Calc.

Publicalas en el foro correcto: http://user.services.openoffice.org/es/ ... m.php?f=50 y te ayudo a pasarlas...

Saludos

[rubiel]

Que tal:

Si claro que si es una excelente herramienta lo estoy estudiando esta muy completo tanto para desarrolllar el juego como para realizar la migracion de unas Macros de Excel 2003 a Calc. Hay algunas instrucciones en Excel que no logro interpretar en Calc.

Muchas Gracias!

Hola, ya programaste el juego?
Me interesa probarlo, si me lo puedes enviar para testear, gracias!

[mauricio]

He eliminado por segunda vez el vínculo web en tu perfil que no tiene nada que ver con estos foros, tal como dicen las normas que has aceptado al suscribirte, considera esto una advertencia de los administradores de estos foros.