Visual Basic.NET - Ayuda por favor

   
Vista:

Ayuda por favor

Publicado por Juanita (5 intervenciones) el 16/09/2009 02:23:39
Un cordial saludo.

Favor si me pueden ayudar a elaborar dos ejercicios en Visual Net 2008, así

1. Hacer un programa que calcule el promedio de los números de 1 a 1000

2. Resolver una productoria de un número ingresado por teclado

Anticipo los agradecimientos por la colaboración
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

RE:Ayuda por favor

Publicado por Juanita (5 intervenciones) el 19/09/2009 21:00:23
Que malos nadie me quiso ayudar.

Soy una mujer de 54 años, que ahora despues de ser mayor quise estudiar. En todas las otras asignaturas me ha ido muy bien, pero programación a sido un martirio. Me ilusioné aqui encontraría ayuda, pero mira nada. Malitos.

Bueno seguiré buscando en otras partes. Un saludo para quienes por lo menos han leido la solicitud.
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

RE:Ayuda por favor

Publicado por Damian (49 intervenciones) el 22/09/2009 02:57:05
Pasa que esos ejercicios son basico en programación, pero a la vez seria medio largo explicarte todo por aca, la idea es que lo hagas por tu cuenta, asi se aprende, programación es mucha practica, requiere mas atención que cualquier otras asignaturas, yo te puedo explicar como se hace, pero no sirve de nada, ademas siempre hay varias formas de realizarlo, trata de pensarlo como hacerlo, primero en papel y en lapiz, porque vas a borrar mas de una vez. Saludos
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

RE:Ayuda por favor

Publicado por Juanita (5 intervenciones) el 01/10/2009 04:30:23
Damian muchas gracias primero por leer y darle atención a mi solicitud; y segundo por tu amable respuesta. Un cordial abrazo.
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

RE:Ayuda por favor

Publicado por Arturo Pacheco (78 intervenciones) el 24/09/2009 13:44:57
Perdona me faltaba la funcion Calcular_Productoria

Private Function Calcular_Productoria(ByVal Numero as long) as double

dim i as long

If Numero = 0 then
Exit Function
End If

Calcular_Productoria = 1

for i = 1 To Numero
Calcular_Productoria = Calcular_Productoria * i
next

End Function

P.D. En la respuesta anterior hay un error. Pone Texbt y debe ser Text.
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

RE:Ayuda por favor

Publicado por Juanita (5 intervenciones) el 01/10/2009 04:35:45
Arturo muy gentil, eres tu. Mil gracias.

Tu respuesta, genial.

Gracias por tu dedicación y ayuda.

Siempre es muy duro a mi edad (54 años) volver a tomar los libros. Pero como dice la canción no me doy por vencida. Y muchos menos cuando se encuentra en el camino a personas como tu.

Un abrazo con mucho agradecimiento.
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

RE:Ayuda por favor

Publicado por ArturoPacheco (78 intervenciones) el 24/09/2009 13:30:58
El punto es muy facil.

Lo que hay que hacer es sumar 1+2+3+4.......+ 1000 y luego dividirlo por 1000.

dim i as long
Dim suma as long
dim resultado as double

suma=0

For i = 1 to 1000
suma = suma + i
next

resultado = suma / 1000

¿que entiendes por PRODUCTORIA de un numero?.

Si te refieres a que dado un nuemro (p.e 7) se haga 7*6*5*4*3*2*1 debes hacer

Un formulario donde haya un campo tipo Texto llamado TxtNumero y otro llamado TxtResultado y un boton (CmdSalir) para salir

Debes teclear lo siguiente (en la parte de las instrucciones).

Private Sub CmdSalir_Click()
End
End sub

Private Sub TxtNumero_GotFocus()

TxtNumero.Text = vbNullstring
TxtResultado.Text = vbNullstring

End Sub

Private Sub TxtNumero__KeyPress(ByVal KeyAscii As Integer)

if keyascii = 13 then
TxtResultado.Texgt = Format(Calcular_Productoria(TxtNumero.Text), "#,##0")
CmdSalir.selected()
else
' Compruebo que sea un numero
if chr(KeyAscii) < 0 or chr(KeyAscii) > 9 then
KeyAscii = 0
endif
endif

End Sub

SI LA PRODUCTORIA NO ES LO QUE HE INTERPRETADO enviame un e_mail con la formula
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