Hemos pensado en
desarrollar, colaborar en el ambiente Windows, ya que es uno de los S.O más
comerciales del mundo y por la demanda
de trabajo que hay en empresas que desean desarrollar en ambientes Windows y el
uso de las principales herramientas como lo son Microsoft Visual estudio 2010 e
SQL SERVER 2008 R2.
Para este pequeño
ejemplo vamos a conocer el espacio de trabajo de nuestro entorno
Es una imagen de visual studio 2005 similar es el 2010, ahora vamos a crear un primer windows form.
Para este ejmplo vamos a utilizar
Utilizamos dos
textbox, y dos labels y el botón que nos va a calcular el proceso que
programemos en nuestro procedimiento almacenado sub main ...... End sub esto lo vernos
màs detallado en un próximo articulo.
Calcular el sueldo neto y el
descuento de un trabajador dado el sueldo
Problema
A un trabajador le
descuentan de su sueldo el 10%, si su sueldo es menor o igual a 1000, si es por
encima de 1000 y hasta 2000 el 5% del adicional (es decir del monto que
sobrepasa de 1000), y por encima de 2000 el 3% del adicional (es decir del moto
que sobrepasa de 2000). Calcular el descuento y sueldo neto que recibe el
trabajador dado su sueldo.
El código fuente de nuestro programa quedarà asì.
Public
Class Form1
Private Sub Button1_Click(ByVal sender As
System.Object,
ByVal e As System.EventArgs) Handles
Button1.Click
Dim s, d, monto As Double
s = TextBox1.Text
If (s > 2000) Then
d = 100 + (s - 1000) * 0.03
monto = s - d
Else
If (s > 1000 And s <= 2000)
Then
d = 100 + (s - 1000) *
0.05
monto = s - d
Else
d = s * 0.1
monto = s - d
End If
End If
TextBox2.Text = "El sueldo
percibido es " +
Trim(monto) + " y su descuento fue " + Trim(d)
End Sub
End
Class
0 comentarios:
Publicar un comentario