Visual Basic - Incremento de una variable hasta que sea igual al valor que ingreses en una textbox

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 18
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Incremento de una variable hasta que sea igual al valor que ingreses en una textbox

Publicado por Maria (7 intervenciones) el 18/08/2020 21:35:12
Buenos dias, soy nueva en visual y la verdad ya intente varias cosillas, alguien que pudiera ayudarme.

1
2
3
4
5
6
7
8
9
10
Dim i As Integer = 0
 
Private Sub BttnNext1_Click(sender As Object, e As EventArgs) Handles BttnNext1.Click
 
    Dim a = Val(TxtPiezas.Text)
 
    i = i + 1
    LlbPiezas1.Text = i
 
End Sub

Este es mi codigo, lo que quiero es que el contador (i) deje de aumentar cuando valga lo mismo que (a). Ya intente con un For, y un Do Until e incluso con un Do While pero lo unico que hacia era reflejarme el valor que ingresara en (a)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Incremento de una variable hasta que sea igual al valor que ingreses en una textbox

Publicado por Andres Leonardo (1798 intervenciones) el 19/08/2020 15:08:58
No entiendo lo que quieres hacer sumas un valor y luego se lo asignas
siempre sera i = a

si explicaras mejor que necesitas podriamos ayudarte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 18
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Incremento de una variable hasta que sea igual al valor que ingreses en una textbox

Publicado por Maria (7 intervenciones) el 19/08/2020 16:16:01
Una disculpa por mi explicacion erronea.

Lo que queria lograr era que, al presionar un boton este incrementara n numero de veces el valor de una Label, y que el limite del incremento lo definiera un valor ingresado en una TxtBox.Text.
Pero ya lo pude hacer... gracias saludos cordiales.



1. Pimero hice una clase, donde defini el incremento.

1
2
3
4
5
6
7
8
9
10
11
Public Class Variables
    Private Shared i As Integer = 0
 
    Public Shared Function c() As Integer
        i = i + 1
 
        Return i
    End Function
 
 
End Class

2. Despues en el evento del boton mande llamar la funcion, hasta que dicha funcion arrojara un valor igual o menor al asignado por la TextBox.Text

1
2
3
4
5
6
7
8
9
10
11
Private Sub BttnNext1_Click(sender As Object, e As EventArgs) Handles BttnNext1.Click
 
    'Muestra el incremento de la cantidad de piezas '
    Dim a = Val(TxtPiezas.Text)
    Dim b = Val(Variables.c())
 
    If b <= a Then
        LlbPiezas1.Text = b
    End If
 
End Sub


Gracias por responder... saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar