Visual Basic - ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Life is soft - evento anual de software empresarial
 
Vista:

ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por beatriz (1 intervención) el 05/07/2006 22:22:50
si pueden programar y colocar el formulario a los sgtes ejercicios porfavor!!!!!!!!!!!!!ES CON URGENCIA! el que me ayude porfavo porfavor porfavoi porfavor

3.- En un almacén se rebaja 20% del precio al cliente si el valor a pagarse es mayor a Si. 200. Dado un valor muestre lo que debe pagar el cliente

4. En un almacén se rebaja 10% al cliente si compra mas de 20 artículos y 5% si compra hasta 20 artículos pero más de 10. Dado el precio unitario de un artículo y la cantidad adquirida.

Muestre Lo que debe pagar el cliente



5.- una fruteria ofrece las manzanas en descuento según la séte tabla:


NUM DE KILOS COMPRADOS %DESCUENTOS



0-2 %



2.01-5 10%



5.01-10 15%



10.01 en adelante 20%





6. Leer un valor entero. Suponer que el número es un día de la semana. Suponer que O corresponde a domingo y así sucesivamente. Imprimir el nombre del día.




7. Escribe Un programa que pida un número y nos clasifique este según sea:


-Cero, mayor o menor que cero.



- Par o impar.



- Múltiplo de 5 o no múltiple. de 5.



- Múltiplo de 10 o no Múltiplo de 10.



Por ejemplo para el número 25, deberá mostrarse por pantalla:



-El número introducido es mayor que cero.



- El número es impar.



- El número es múltiplo de 5.



- El número no es múltiplo de 10.




haber si me ayudan con uno de estos ejercicios porfavor urge!!!
pleaseeeeeeeeeee

gracias
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por Carlos Gómez (43 intervenciones) el 05/07/2006 22:37:13
Hola beatriz, no me tomes el comentario a mal, pero estos son ejercicios de la escuela, no crees que seria mejor que INTENTARAS hacerlos tu y si tienes alguna duda sobre alguna parte de código, pedir ayuda en el foro.
Digamos que esto es una simple sugerencia puesto que, si alguien te hace los formularios, finalmente tu no sabras como se hizo.

Saludos y mucha suerte.
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por beatriz (8 intervenciones) el 05/07/2006 23:00:44
bueno si no pido que me hagan el formulario pero si me ayudaran con la programacion =( con algunos no con todos alguien que sepa porfvaor
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por CARLOS GOMEZ MARTINEZ (43 intervenciones) el 05/07/2006 23:12:41
Para el ejercicio 1(o 3 como aparece en la nota):

En un formulario pones una caja de texto, una etiqueta y un boton. Este codigo lo pones en el evento click del botón
If Val(Text1) > 200 Then
Label1 = Val(Text1) * 0.2
Else
Label1 = Val(Text1)
End If

Saludos y suerte Betty.
PD. Si necesitas más ayuda manda otro mensaje
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por beatriz (8 intervenciones) el 05/07/2006 23:23:54
gracias deberas si em podrias ayuda r con el ejercicio 7 porfavor para la programacion ?

please =)

mil gracias deberas!
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por Jamec (2 intervenciones) el 05/07/2006 23:31:26
Para el Primero lo que debes hacer es una funcion que te devuelva el precio, y que reciba como parametro El precio:
Private Function Ejercicio3(Precio as Double) as Double
If Precio > 200 then
Ejercicio3=Precio-(Precio* 0.2)
end if
End function

Para el segundo seria
Private Function Ejercicio4(Precio as Double, Cantidad as Integer) as Double
Select Case Cantidad
Case is > 20
Ejercicio3 = (Precio-(Precio* 0.1))*Cantidad
Case is > 10
Ejercicio3 = (Precio-(Precio* 0.05))*Cantidad
End Select
End function

Similarmente para el siguiente

Private Function Dia (Num as byte) as String
Select case Num
Case 1: Dia="Lunes"
Case 2: Dia="Martes"
...
End select
End Function

Private Function Signo(Num as long) as string
Dim Signo1 as Byte
Signo1=Sgn(Num)
Select case Signo1
case 1:Signo="El número es mayor que cero"
case 0:Signo="El número es cero"
case -1:Signo="El número es menor que cero"
end select
End Function

Private Function EsPar (Num as Integer) as string
If num Mod2 =0 then
EsPar="El numero es par"
else
EsPar="El numero es impar"
end if
End function

Private sub EsDivisible(Numero as Integer, Base as Integer) as String
If Numero mod Base =0 then
EsDivisible="El numero es divisible entre " & Base
else
EsDivisible="El numero no es divisible entre " & Base
End If
End function

Nada mas te queda hacer las llamadas, por ejemplo
Vamos a probar la funcion EsDivisible
Private Sub Command1_Click()
Text1.Text= EsDivisible(25,5)
End Sub

Suerte

Cualquier cosa me escribes al msn jsanabria123@hotmail.com
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por manolo (239 intervenciones) el 05/07/2006 23:45:10
Al leer el título, pensé que necesitabas otra cosa y por eso lo abrí. ¡Desilusión! Lo que quieres es te hagamos los deberes del cole.
Y ya puestos ¿porqué no nos pones el último ejercicio? Así aprobamos todos.
Espero que a los que te han ayudado, les invites a la fiesta de fin de curso
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por beatriz (8 intervenciones) el 06/07/2006 00:02:13
si no me quieres ayudar no me ayudes Ok
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por manolo (239 intervenciones) el 06/07/2006 00:21:59
me parece que ya lo he dicho alguna vez, una cosa es ayudar y otra hacer las tareas de los vagos que no quieren estudiar. Esto es un foro de consulta (para dudas de VB), no la trastienda del cole.
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:ayudaaaaaaaaaaaaa porfavorrrrrrr urgeeentee

Publicado por beatriz (8 intervenciones) el 06/07/2006 00:36:43
en primer lugar no soy ninguna vaga porque no me conoces par a empezar Ok y en segunda si es una tarea pero me han dejado muchos ejercicios y he pedido ayuda porque algunos no los puedo hacer y ati no te tengo pork dar explicaciones OK
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