Mensajes con funcion random

Question

Saludos amigos.

Necesito generar varios mensajes aleatorios, que deben aparecer en un textbox, desplazandose

los mensaje se como generarlos, pero como le hago para que al oprimir un buttom me salgan de forma aleatoria.

la funcion random en vb6, se como funciona; pero como hago para direccionar este numero tomado en forma aleatoria

para enviar un mensaje al textbox..gracias...

Answer 1

Tenes los textos en un vector una vez que tomas el random textbox.text=vector(random)

Answer 2

Si te fijas en el asistente de una nueva aplicacion hace lo mismo pero con los Tips of the day, yo lo he adaptado y en cada inicio de sesion manda un mensaje aleatorio, y en la barra de estado de la aplicacion periodicamente cambia el mensaje.

Answer 3

Seria algo asi?

option explicit

Dim Num As Double

-----------------------------------

Private   Sub  Form_Load()

Num= 2

dim mensajes ( 1 to 2) as string

mensajes(1) "hola mundo"

mensajes(2) "buenos días"

end sub

 

Private Sub Command_Click()

Randomize
Num = Rnd

textbox.text=mensajes(random)

end sub

y despues lo desplazo, ¿seria la idea?.

 

Answer 4

Si,solo tenes que controlar que el numero este dentro de los bounds del vector.

Answer 5

Gracias Luis.

Lo pondre en practica, a ver que tal me va

un saludo..

Answer 6

Hola luis.

Aqui de nuevo con este tema. Mira, ya logre el random.

al darle click a un button lo hace bien.

Pero ahora como le hágo para asignarle a cada mensaje, diferente tamaño y tipo de letra.

te recuerdo que soy nobel en esto, y ya busque ejemplos en la web para hacerlo pero no hay nada.

Gracias de nuevo por tu ayuda.

 

Private Sub Timer1_Timer()
Dim mensajes(0 To 3) As String

mensajes(0) = "hola mundo"
mensajes(1) = "buenos días"
mensajes(2) = "flor de verano"
mensajes(3) = "luna nueva"

Randomize
num = (Rnd * 3)
Text1.Text = mensajes(num)

Timer1.Enabled = False
End Sub

Answer 7

Hola Luis.

Ya logre el random, pero ahora necesito saber ¿como puedo asignar el tipo de letra y tamaño?

a cada mensaje de este arreglo.He buscado mucho por la web, pero nada encuentro

agradesco tu ayuda, creo que hasta que termine.

 

Private Sub Timer1_Timer()
Dim mensajes(0 To 3) As String

mensajes(0) = "hola mundo"
mensajes(1) = "buenos días"
mensajes(2) = "flor de verano"
mensajes(3) = "luna nueva"




Randomize
num = (Rnd * 3)
Text1.Text = mensajes(num)

Timer1.Enabled = False
End Sub

Answer 8

Hola luis.

Despues de escribir las anteriores lineas y trasnochando un poco , logre hacer el aleatorio con el tamaño de letra

y color de la misma, asi que no tengas en cuenta mi pregunta anterior.

ahora va por lo del dezplazamiento del mensaje en forma marquesina

¿sera que tomando el valor de random en la variable adoptada para ese fin, y usando una funcion

(case) logro que el mensaje se me desplace hasta que cambie el valor de dicha variable

con el proximo pulso del button?

Agradesco tu opinion.

Hasta pronto y gracias.

 

Answer 9

Hola amigos. aqui con otro porblemilla. este codigo, es para desplazar el mensaje en forma marquesina pero al cambiar el tamaño de letra, el desplazamiento comienza en un punto adelantado de la pantalla; y necesito que sea siempre por la primera letra de derecha a izquierda, un ayuda por favor.

Option Explicit

Dim strText As String

Dim conta As Long

Dim longitud As Integer

Dim palabra As String

Private Sub cmdScroll_Click()

conta = 0 strText = String(140, " ") + "el señor es mi pastor; nada me faltara. En lugares de delicados pastos me hará descansar; unto a aguas de reposo me pastoreara"

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

strText = Mid(strText, 2) & Left(strText, 1)

txtMessage = strText txtMessage.FontName = "Arial"

txtMessage.FontSize = 40' si cambio este valor a 10 por ej el mensaje aparece en la mitad del textbox y ahy comienza el desplazamiento y si el valor es mayor, parece que comienza mas atras demorandose demasiado en aparecer

End If

End Sub