none
Mensajes con funcion random RRS feed

  • Pregunta

  • 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...

    viernes, 21 de enero de 2011 17:58

Todas las respuestas

  • Tenes los textos en un vector una vez que tomas el random textbox.text=vector(random)
    viernes, 21 de enero de 2011 18:07
  • 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.
    lunes, 24 de enero de 2011 14:27
  • 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?.

     

    miércoles, 26 de enero de 2011 17:47
  • Si,solo tenes que controlar que el numero este dentro de los bounds del vector.
    miércoles, 26 de enero de 2011 18:30
  • Gracias Luis.

    Lo pondre en practica, a ver que tal me va

    un saludo..

    miércoles, 26 de enero de 2011 20:55
  • 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

    lunes, 14 de febrero de 2011 2:45
  • 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

    lunes, 14 de febrero de 2011 3:04
  • 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.

     

    lunes, 14 de febrero de 2011 4:42
  • 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

    • Editado WILSON PULIDO jueves, 17 de febrero de 2011 5:37 desorden
    jueves, 17 de febrero de 2011 5:31