none
Se Puede colocar mensajes aleatorios en un label RRS feed

  • Pregunta

  • Hola , gracias por siempre ayudarme con mis proyectos, mi inquietud es la siguiente

    es posible colocar mensaje aleatorios para que se muestre atreves de un label ... actualmente muestro los mensaje con un timer pero no se muestran en forma aleatoria . me podria ayudar

    Module Frases_Celebres
    
        Public Sub Celebres()
            If Form3.Label7.Text = "Más cuesta mantener el equilibrio de la libertad que soportar el peso de la tiranía.  Simon Bolivar" Then
                Form3.Label7.Text = "Dos cosas son infinitas: la estupidez humana y el universo; y no estoy seguro de lo segundo.   Albert Einstein"
    
            ElseIf Form3.Label7.Text = "Dos cosas son infinitas: la estupidez humana y el universo; y no estoy seguro de lo segundo.   Albert Einstein" Then
                Form3.Label7.Text = "Al que no sabe, cualquiera lo engaña. Al que no tiene, cualquiera lo compra.   Simón Rodríguez"
    
            ElseIf Form3.Label7.Text = "Al que no sabe, cualquiera lo engaña. Al que no tiene, cualquiera lo compra.   Simón Rodríguez" Then
                Form3.Label7.Text = "Nuestra recompensa se encuentra en el esfuerzo y no en el resultado. Un esfuerzo total es una victoria completa.  Mahatma Gandhi"
    
            ElseIf Form3.Label7.Text = "Nuestra recompensa se encuentra en el esfuerzo y no en el resultado. Un esfuerzo total es una victoria completa.  Mahatma Gandhi" Then
                Form3.Label7.Text = "Busco el día en el que la gente no sea juzgada por el color de su piel, sino por el contenido de su carácter.   Martin Luther King"
    
            End If
        End Sub
    
    End Module



    sábado, 23 de mayo de 2020 20:34

Respuestas

  • Hola

    Lo podrias hacer con un  Randon y un array de string

    ejemplo

    Public Class Form1
        Dim array() As String = {"Más cuesta mantener el equilibrio de la libertad que soportar el peso de la tiranía.  Simon Bolivar",
               "Dos cosas son infinitas: la estupidez humana y el universo; y no estoy seguro de lo segundo.   Albert Einstein",
                "Al que no sabe, cualquiera lo engaña. Al que no tiene, cualquiera lo compra.   Simón Rodríguez",
                "Nuestra recompensa se encuentra en el esfuerzo y no en el resultado. Un esfuerzo total es una victoria completa.  Mahatma Gandhi"}
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Timer1.Start()
    
    
        End Sub
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Dim randomNumber As New Random
            Label1.Text = array(randomNumber.Next(0, array.Length))
    
        End Sub
    End Class

    el timer le pones el interval le pones a que frecuencia quieres que se cambie

    recuerda que 1000 = 1 segundo

    si te sirvio marcala como resuelta

    • Marcado como respuesta Dorittoxd domingo, 24 de mayo de 2020 8:01
    domingo, 24 de mayo de 2020 3:26

Todas las respuestas

  • Hola

    Lo podrias hacer con un  Randon y un array de string

    ejemplo

    Public Class Form1
        Dim array() As String = {"Más cuesta mantener el equilibrio de la libertad que soportar el peso de la tiranía.  Simon Bolivar",
               "Dos cosas son infinitas: la estupidez humana y el universo; y no estoy seguro de lo segundo.   Albert Einstein",
                "Al que no sabe, cualquiera lo engaña. Al que no tiene, cualquiera lo compra.   Simón Rodríguez",
                "Nuestra recompensa se encuentra en el esfuerzo y no en el resultado. Un esfuerzo total es una victoria completa.  Mahatma Gandhi"}
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Timer1.Start()
    
    
        End Sub
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Dim randomNumber As New Random
            Label1.Text = array(randomNumber.Next(0, array.Length))
    
        End Sub
    End Class

    el timer le pones el interval le pones a que frecuencia quieres que se cambie

    recuerda que 1000 = 1 segundo

    si te sirvio marcala como resuelta

    • Marcado como respuesta Dorittoxd domingo, 24 de mayo de 2020 8:01
    domingo, 24 de mayo de 2020 3:26
  • hola gracias me ayudo mucho , otra cosa hay algunas frases que me dura los 7 segundos que le coloque al timer, pero hay otras que me duran menos de 2 segundo, a que se debe?, se puede corregir eso?
    domingo, 24 de mayo de 2020 8:11
  • Hola

    en el interval es donde se define eso pero siempre es constante

    si le defines 7000 = a 7 segundos

    domingo, 24 de mayo de 2020 13:19
  • entiendo lo que dices , pero como le digo hay frases que duran los 7 segundo y otras no llegan ni a los 2 segundos y deberían de durar igual 7 segundos. otra cosa mas me podrias ayudar con esto 

    https://social.msdn.microsoft.com/Forums/es-ES/2bd09bd7-bd57-436a-b7bf-0c75c008642b/como-puedo-usar-un-for-desde-un-modulo?forum=vsgenerales

    • Editado Dorittoxd domingo, 24 de mayo de 2020 21:07
    domingo, 24 de mayo de 2020 15:38