Ayuda en Visual Basic.NET

Iniciado por ferpunk59, 30 Marzo 2008, 20:00 PM

0 Miembros y 1 Visitante están viendo este tema.

ferpunk59

Hola
Soy nuevo en esto de la programación de visual.NET, He estado tirándole cabeza de cómo
hago para que en un label me muestre la secuencia de un For. Por ejemplo quiero que al oprimir el botón llamado Start me muestre el conteo del 1 al 100 en el label y por medio de un trackbar poder graduar la velocidad de conteo de dicho for, y por medio de otro botón llamado Reset poder reinciar el conteo en cualquier momento...Me dijeron además que lo podía hacer atraves de un Timer el cual tiene una propiedad llamada "Interval" ...Me gustaría que me ayudaran si es posible con un código realizado para poder guiarme...Espero pronto sus ayudas... Gracias...

DeziBel

#1
Pues no se si todavía tengas ese problema, pero como ya pasó un mes y nadie responde, te dejo esto  ;D:

Nota: Yo uso el Visual Basic 2005 Express Edition

* Agregas un boton (Button) con las siguientes propiedades:
   Name: Start
   Text: Start

* Agregas otro boton con las siguientes propiedades:
   Name: Reset
   Text: Reset

* Agregas una etiqueta (Label) y la dejas asi como esta.

* Agragas la trackbar y le pones la propiedad "Minimum" en 1

* Agregas un Timer y le pones la propiedad "Interval" en 1000

debe kedar algo asi:



Este es el código:



    'Variable que contiene el numero en el conteo:
    Dim numero As Short = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'La etiqueta tiene el numero 0 al correr el programa
        'y la TrackBar empieza en la mitad:
        Label1.Text = 0
        TrackBar1.Value = 5
    End Sub

    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
        'Al oprimir el boton "Start" empieza el conteo:
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Cuando el conteo llega a 100,
        'el conteo se detiene:
        If numero >= 100 Then
            'Se detiene el conteo
            Timer1.Enabled = False
            'numero pasa de 100 a 0
            numero = 0
        Else
            'Si el conteo aun no llega a 100,
            'suma 1 a número y la etiqueta
            'muestra el valor de numero:
            numero = numero + 1
            Label1.Text = numero
        End If
    End Sub

    Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
        'Al oprimir el boton "Reset" se detiene el conteo,
        'la etiqueta muestra el numero 0
        'y numero se resetea a 0:
        Timer1.Enabled = False
        Label1.Text = 0
        numero = 0
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        'El valor inicial de la TrackBar es 5.
        'Se multiplica el valor de la TrackBar
        'por 200 milisegundos.
        'Al correr el programa el producto es 1000 milisegundos,
        '(1000 milisegundos = 1 segundo)
        'lo que significa que la velocidad es de 1 numero/segundo
        Timer1.Interval = TrackBar1.Value * 200
    End Sub



Espero que te sirva hermano.
Ya nomás adaptas el timer y la trackbar para cambiar las velocidades.