Foros del Web » Soporte técnico » Ofimática »

numeros aleatorios en power point

Estas en el tema de numeros aleatorios en power point en el foro de Ofimática en Foros del Web. estimados: estoy tratando de hacer un bingo en power point pero no logro hacer que en vez de sacar los numeros a traves de un ...
  #1 (permalink)  
Antiguo 11/11/2011, 13:52
 
Fecha de Ingreso: noviembre-2011
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
numeros aleatorios en power point

estimados:
estoy tratando de hacer un bingo en power point pero no logro hacer que en vez de sacar los numeros a traves de un MsgBox me salgan en un cuadro de texto dentro del mismo power point, ya que necesito ir modificando el power point mientras salen los numeros. espero me entiendan y me puedan ayudar, estoy muy complicada con esto. gracias
aqui va el codigo que estoy utilizando:



Sub Pick_Name()
'Must be a dynamic array ie no range
Dim MyNames() As String
Dim strName As String
Dim Ichosen As Integer
'load list into Array based on split by /
'note will start as MyNums(0) and finish with MyNums(number-1)
MyNames = Split("1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/21/22/23/24/25/26/27/28/29/30", "/")
Do
Randomize
'This will work with any length of name sequence
Ichosen = Int(Rnd * (UBound(MyNames) + 1))
strName = (MyNames(Ichosen))
MsgBox strName
'move top num,ber into chosen slot
MyNames(Ichosen) = MyNames(UBound(MyNames))
If UBound(MyNames) > 0 Then
'delete top number
ReDim Preserve MyNames(0 To UBound(MyNames) - 1)
Else
MsgBox "Bingo"
Exit Sub
End If
Loop Until MsgBox("Siguiente", vbYesNo) = vbNo
End Sub
  #2 (permalink)  
Antiguo 14/11/2011, 12:16
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 16 años, 4 meses
Puntos: 69
Respuesta: numeros aleatorios en power point

Solo tienes que agregar al slide que quieres un TextBox, después modificar el codigo para que lo despliege en el textbox y listo, fijate el nombre o numero de tu slide para que no te salgan errores, yo hice la prueba en el slide 1, por qlo que dice: Slide1.Textbox1.Text



Código:
Sub Pick_Name()
'Must be a dynamic array ie no range
Dim MyNames() As String
Dim strName As String
Dim Ichosen As Integer
'load list into Array based on split by /
'note will start as MyNums(0) and finish with MyNums(number-1)
MyNames = Split("1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/21/22/23/24/25/26/27/28/29/30", "/")
Do
Randomize
'This will work with any length of name sequence
Ichosen = Int(Rnd * (UBound(MyNames) + 1))
strName = (MyNames(Ichosen))
Slide1.TextBox1.Text = strName
'move top num,ber into chosen slot
MyNames(Ichosen) = MyNames(UBound(MyNames))
If UBound(MyNames) > 0 Then
'delete top number
ReDim Preserve MyNames(0 To UBound(MyNames) - 1)
Else

MsgBox "Bingo"
Exit Sub
End If
Loop Until MsgBox("Siguiente", vbYesNo) = vbNo
End Sub
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #3 (permalink)  
Antiguo 14/11/2011, 15:18
 
Fecha de Ingreso: noviembre-2011
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
Pregunta Respuesta: numeros aleatorios en power point

Monimo, gracias por tu ayuda, la verdad es que conosco muy poco del codigo de vb en power point. espero puedas seguir ayudandome, lo ultimo que necesito es que el loop se realize mientras yo siga presionando ya sea un CommandButton1 que este dentro de la presentacion o en su defecto una forma.

Loop Until MsgBox("Siguiente", vbYesNo) = vbNo


muchas gracias de antemano
  #4 (permalink)  
Antiguo 14/11/2011, 15:33
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 16 años, 4 meses
Puntos: 69
Respuesta: numeros aleatorios en power point

Cita:
Iniciado por domadia78 Ver Mensaje
Monimo, gracias por tu ayuda, la verdad es que conosco muy poco del codigo de vb en power point. espero puedas seguir ayudandome, lo ultimo que necesito es que el loop se realize mientras yo siga presionando ya sea un CommandButton1 que este dentro de la presentacion o en su defecto una forma.

Loop Until MsgBox("Siguiente", vbYesNo) = vbNo


muchas gracias de antemano
Mmm creo que no entendí tu requerimiento, el loop en efecto sigue realizandose mientras presionas el "Sí" del botón. Cuando presionas "No"...ya no se repite;

Bueno lo que yo hice fue agregar un botón y ver el codigo con click derecho y ahí puse esto:


Private Sub CommandButton1_Click()
Pick_Name
End Sub


de esta forma cuando yo presiono el botón comienza el loop.... espero te funcione...
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #5 (permalink)  
Antiguo 14/11/2011, 15:45
 
Fecha de Ingreso: noviembre-2011
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
Respuesta: numeros aleatorios en power point

esta bien lo que tu dices, pero como voy cambiando los numeros a traves de esta MsgBox("Siguiente", vbYesNo) = vbNo, la diapositiva en donde se ve el numero me queda bloqueada y yo necesito que esta activa pues debo ir haciendo otros cambios a medida que voy mostrando los numeros. espero me haya explicado bien. es por eso que necesito un boton en el diapositiva para que me vaya mostrando los numero y no en el MsgBox


gracias
  #6 (permalink)  
Antiguo 14/11/2011, 15:59
 
Fecha de Ingreso: noviembre-2011
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
Respuesta: numeros aleatorios en power point

Loop Until MsgBox("Siguiente", vbYesNo) = vbNo
que el si que sea una forma o boton en la diapositiva y el no sea otra forma o boton que vaya inserta en la diapositiva.


porfa muchas pero muchas gracias. no sabes como me he estado dando vueltas en esto y no se como resolverlo.
  #7 (permalink)  
Antiguo 14/11/2011, 16:43
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 16 años, 4 meses
Puntos: 69
Respuesta: numeros aleatorios en power point

Podrías explicarme estas líneas??


If UBound(MyNames) > 0 Then
'delete top number
ReDim Preserve MyNames(0 To UBound(MyNames) - 1)
Else

MsgBox "Bingo"
Exit Sub

es decir, cual es mi condición para decir: "bingo"
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #8 (permalink)  
Antiguo 14/11/2011, 18:54
 
Fecha de Ingreso: noviembre-2011
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
Respuesta: numeros aleatorios en power point

la condicion para decir bingo es que no queden mas numeros por listar, es decir que hayan salido todos los numeros, pues se va eliminando el numero que ya salio.
  #9 (permalink)  
Antiguo 14/11/2011, 19:08
 
Fecha de Ingreso: noviembre-2011
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
Respuesta: numeros aleatorios en power point




el boton ejecutar macro no tengo problema, se como se hace, pero el otro es el que me falta. pues debo ir marcando realizando otras acciones en la diapositiva pero como el cuadro de mensaje se pone encima, no puedo ir haciend nada mas en la diapositiva. espero haberme explicado bien
  #10 (permalink)  
Antiguo 15/11/2011, 09:14
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 16 años, 4 meses
Puntos: 69
Respuesta: numeros aleatorios en power point

Lo que se me ocurre es tener dos arreglos, el que ya tienes donde se eligen los numeros al azar, poniendo como condición de parada un numero, que sería la cantidad total de numeros que se pueden elegir, y otro donde se vayan guardando uno por uno los numero elegidos, respetando el orden de azar, el botón de siguiente lo que hará, será ir recorriendo ese segundo arreglo con las posiciones conocidas, creo que así sería mas fácil no? Es decir pones un contador publico, una variable publica que se inicie en 1, cada que aprietes siguiente, y dentro de ese mismo pones la variable y le sumas cada que aprietes el botón, cuando la suma llegue al limite de numeros, que se reseteé automaticamente. y con la suma se va sumando la posicion leída del segundo arreglo... Creo que eso funcionaria
__________________
La verdad es que lo que no quisiera dejar de hacer nunca (a parte de comer) es programar
  #11 (permalink)  
Antiguo 15/11/2011, 14:43
 
Fecha de Ingreso: noviembre-2011
Mensajes: 7
Antigüedad: 12 años, 4 meses
Puntos: 0
Respuesta: numeros aleatorios en power point

gracias por tu ayuda, tratare de hacerlo, pero la verdad se me complica cada vez mas. me sigo dando vueltas en eso. la verdadno se mucho de vb entonces eso se me complica si tu sabes de un sitio en donde pueda sacar el codigo que se ocupa para ir estudiandolo te lo agradeceria he buscado pero solo encuentro ejemplos pero no un manual en donde salga el codigo.
gracias
  #12 (permalink)  
Antiguo 15/11/2011, 15:01
Avatar de ramonjosegn  
Fecha de Ingreso: agosto-2011
Ubicación: Colombia
Mensajes: 651
Antigüedad: 12 años, 7 meses
Puntos: 40
Respuesta: numeros aleatorios en power point

podrías intentar meter un swf, ahora powerpoint permite incrustar flash

Etiquetas: numeros, point, power, aleatoria
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:20.