Visual Basic - Vector desde un TEXTBOX

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

Vector desde un TEXTBOX

Publicado por Ariel (3 intervenciones) el 06/06/2019 05:32:46
Hola. Tengo una duda de como hacer que desde un solo textbox enviemos 4 valores a un vector y este nos muestre los 4 valores diferentes en un MessageBox. Ej: Ingreso un 20 en el textbox y le doy al botón enviar. Luego otro y así hasta que tenga 4 valores.
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

Vector desde un TEXTBOX

Publicado por guillermo (1 intervención) el 06/06/2019 06:17:09
Hola, la solución es tratarlo como si fuera una estructura de tipo pila, cuando oprimes el boton necesitas tomar el valor del textbox y mandarlo a una pila, luego segundo valor lo mandas a la pila y asi hasta tener los cuatro valores, luego recorres el vetor pila con un for o un foreach y lo vas mostrando en un messagebox
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: 4
Ha aumentado su posición en 36 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vector desde un TEXTBOX

Publicado por Ariel (3 intervenciones) el 06/06/2019 06:22:14
Te entiendo que hay que ir apilando cada valor pero soy estudiante tengo 16 años y recién hace un día nos dieron para hacer esto con vectores. Ya que no pude hacerlo con el for porque no salio hice esto
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Class Form1
    Dim contador As Integer
    Private sueldo(3) As Integer
    Dim f As Integer
 
    Private Sub vec()
        f = -1
        contador = contador + 1
        f = f + contador
        sueldo(f) = TXTsueldo.Text
 
        If sueldo(0) > 0 Then
            MessageBox.Show(sueldo(0))
        End If
 
        If sueldo(1) > 0 Then
            MessageBox.Show(sueldo(1))
        End If
 
        If sueldo(2) > 0 Then
            MessageBox.Show(sueldo(2))
        End If
 
        If sueldo(3) > 0 Then
            MessageBox.Show(sueldo(3))
        End If
 
 
    End Sub
 
    Private Sub CMDenviar_Click(sender As Object, e As EventArgs) Handles CMDenviar.Click
        vec()
    End Sub
End Class

Pero con el for quisiera hacerlo. Lamentablemente no da. Si me pudieras decir como es me serviría mucho
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
Imágen de perfil de Andres Leonardo
Val: 3.220
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vector desde un TEXTBOX

Publicado por Andres Leonardo (1766 intervenciones) el 06/06/2019 17:56:24
Mejoremos esto un pcoo...
Coloca un boton con el nombre standar... solo para la prueba...
al ejecutar hice que se inicialice f
luego hice un procedimiento para que segun haga clic el contador cuente las 4 veces
y un boton que debes agregar y que hara ver el for que necesitas .. luego lo puedes mejorar

saludos


Public Class Form1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim contador As Integer ' Esta la uso para todo lo que necesite contar
    Private sueldo(3) As Integer ' Mi Estructura para guardar 
    Dim f As Integer
 
    Private Sub vec()
        f = f + 1
        If txtsueldo.Text > 0 Then
            sueldo(f) = txtsueldo.Text
            MsgBox("Registro Ingresado")
            txtsueldo.Text = ""
            txtsueldo.Focus()
        End If
        If f = 3 Then
            Me.CMDenviar.Enabled = False
            Me.Button1.Enabled = True
        End If
 
    End Sub
    Private Sub mostrar_vec()
 
        For X = 1 To sueldo.LongLength
            MessageBox.Show( "El Item "  & x-1  & "Tiene el valor de :  " &  sueldo(X - 1))
        Next X
 
    End Sub
 
    Private Sub CMDenviar_Click(sender As System.Object, e As System.EventArgs) Handles CMDenviar.Click
        vec()
    End Sub
 
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        f = f - 1 'Asi cuando inicia el formulario dices que f = f-1
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mostrar_vec()
    End Sub
End Class
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