Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » NUMEROS QUE MULTIPICAN FACTORIAL

Visual Basic - NUMEROS QUE MULTIPICAN FACTORIAL

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por eduardo (6 intervenciones) el 10/03/2016 04:54:50
BUENAS REALICE UN PROGRAMA QUE HACE EL FACTORIAL DE UN NUMERO ESO ESTA BIEN PERO EL PROBLMEA VIENE ,, QUE EL PROFESOR QUIERE QUE EN EL MISMO LABEL QUE IMPRIMO EL RESULTADO TAMBIEN ANEXE LOS NUMEROS QUE SE MULTIPLICARON PARA LLEGAR A ESE RESULTADO, LO QUIERE OBLIGADAMENTE EN EL MISMO LABEL

EJEMPLO:

ESTO EN LABEL1
_ _ _ _ _ _ _ _ _ _ _ _
1 * 2 * 3 * 4 *5 =120 |
_ _ _ _ _ _ _ _ _ _ _ _


MI PROBLEMA ES QUE SOLO ME DA EL VALOR DE 120
NO SE COMO HACERLE PARA QUE ME ANEXE LOS NUMEROS
ESTE ES MI CODIGO CON EVENTO ENTER

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
	If e.KeyCode = Keys.Enter Then
		Dim NUMERO As Long
		Dim FACTORIAL As Long = 1
		ListBox1.Items.Clear()
		NUMERO = Val(TextBox1.Text)
		For X = 1 To NUMERO
			FACTORIAL = FACTORIAL * X
 
 
		Next
 
		Label1.Text = FACTORIAL
		TextBox1.Text = ""
		TextBox1.Focus()
	End If
End Sub
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

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por Andres Leonardo (1798 intervenciones) el 10/03/2016 16:02:05
Intenta esto
Colocar una variable como string .. y vas concatenando los valores. luego le añades el resultado y presentas el string y no el factorial
Cabe indicar que esto parece una tarea... pero como has tenido al menos lo del codigo que has avanzado te he tratado de ayudar.. si algo no funciona cree me que tu lo podras resolver......

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
	If e.KeyCode = Keys.Enter Then
		dim nfact as String
                Dim NUMERO As Long
		Dim FACTORIAL As Long = 1
		ListBox1.Items.Clear()
		NUMERO = Val(TextBox1.Text)
		For X = 1 To NUMERO
			FACTORIAL = FACTORIAL * X
                         if x < numero then
                          nfact = X&  " * "
                         else
                          nfact = X&  " = "
                        end if
		Next
                 nfact = factorial &  FACTORIAL
		Label1.Text = nfact
		TextBox1.Text = ""
		TextBox1.Focus()
	End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por eduardo (6 intervenciones) el 10/03/2016 16:23:07
Bien probaré el codigo y te cuento como fue, GRACIAS por contestar,
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.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por Andres Leonardo (1798 intervenciones) el 10/03/2016 16:31:49
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
	If e.KeyCode = Keys.Enter Then
		dim nfact as String
                Dim NUMERO As Long
		Dim FACTORIAL As Long = 1
		ListBox1.Items.Clear()
		NUMERO = Val(TextBox1.Text)
		For X = 1 To NUMERO
			FACTORIAL = FACTORIAL * X
                         if x < numero then
                          nfact = X&  " * "
                         else
                          nfact = X&  " = "
                        end if
		Next
                 nfact = nfact &  FACTORIAL   ' cambie esta tenia un error te saldria   120120 ahora si sale correctamente

		Label1.Text = nfact
		TextBox1.Text = ""
		TextBox1.Focus()
	End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por eduardo (6 intervenciones) el 11/03/2016 16:40:43
ESTIMADO ANDRES
fijese que probe el codigo, lo que me arroja es lo siguiente;


_ _ _ _ _ _ _ _ _ _ _ _
5 =120 |
_ _ _ _ _ _ _ _ _ _ _ _

unicamente me imprime el valor de cadena de la ultima vuelta concatenado con "=" que vendria siendo el ELSE.
como le podria hacer para que me almacene el valor de nfact de cada vuelta, ya visite otros foros 4 para ser exactos, pero no me han respondido.

he googleado pero no he encontrado algo relacionado , creo es la primera vez que preguntan esto.

espero me pueda ayuda.
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.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por Andres Leonardo (1798 intervenciones) el 11/03/2016 22:06:01
Tienes razon tenia priblema al concatenar mira esto

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
	If e.KeyCode = Keys.Enter Then
		dim nfact as String
                Dim NUMERO As Long
		Dim FACTORIAL As Long = 1
		ListBox1.Items.Clear()
		NUMERO = Val(TextBox1.Text)
		For X = 1 To NUMERO
			FACTORIAL = FACTORIAL * X
                         if x < numero then
                          nfact = nfact  & X &  " * "  ' aqui slo estaba dando el valor.. pero ya esta corregdia

                         else
                          nfact =  nfact  & X &  " = "  ' 

                        end if
		Next
                 nfact = nfact &  FACTORIAL   ' cambie esta tenia un error te saldria   120120 ahora si sale correctamente

		Label1.Text = nfact
		TextBox1.Text = ""
		TextBox1.Focus()
	End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por eduardo (6 intervenciones) el 12/03/2016 15:58:46
SOLUCIONADO!

muchas gracias andres ya me quedo mi programita

saludos que estes bien..
manita arriba,.
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 Wilfredo Patricio Castillo
Val: 8
Ha aumentado su posición en 9 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por Wilfredo Patricio Castillo (260 intervenciones) el 13/03/2016 05:41:09
Que bueno que hayas solucionado tu problema, solo recuerda que el factorial de un número se obtiene de la siguiente manera:

n! = n × (n-1)!, y no multiplicando de 1 hasta el número, no te observó eso tu profesor?.

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
1
Comentar
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

NUMEROS QUE MULTIPICAN FACTORIAL

Publicado por Andres Leonardo (1798 intervenciones) el 14/03/2016 19:01:49
Excelente Acotacion Wilfrido..

Por mi parte solo ayude a mostrar lo qeu queria en el Label... pero excelente acotacion

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar