lunes, 4 de julio de 2011
EJERCICIOS DE LENGUAJE DE PROGRAMACION PRACTICAS 04, 05, 06
EL TRABAJO ESTA EN WORD TAN SOLO HACER CLIC AQUI
martes, 28 de junio de 2011
CONVERSION DE TEMPERATURAS
BUENAS TARDES COMPAÑEROS, DE LA ESPECIALIDAD DE COMPUTACION E INFORMATICA DEL INSTITUTO INFONET - PICHANAKI.
EL TRABAJO ESTA EXPUESTO MAS DELANTE ESPERO QUE LES SEA UTIL EN LO QUE MAS GUSTEN.
HACER CLIC AQUI PARA DESCARGAR EL TRABAJO
usuario: computacion
contraseña: computacion
************* OJO: Todo minuscula *************
UN EJEMPLO DE TERMOMETRO:
Conversor Temperatura Celsius / Kelvin / Farenheit
EL TRABAJO ESTA EXPUESTO MAS DELANTE ESPERO QUE LES SEA UTIL EN LO QUE MAS GUSTEN.
HACER CLIC AQUI PARA DESCARGAR EL TRABAJO
usuario: computacion
contraseña: computacion
************* OJO: Todo minuscula *************
UN EJEMPLO DE TERMOMETRO:
Conversor Temperatura Celsius / Kelvin / Farenheit
lunes, 27 de junio de 2011
domingo, 29 de mayo de 2011
sábado, 21 de mayo de 2011
segunda unidad
ESTRUCTURA SELECTIVA SELECT CASE
Nos permite ejecutar un conjunto de instrucciones en función del valor de una expresión dada.
SelectCaseexpresion.evaluar
Case expresion.logica1
instrucciones()
.
Case expresion.logica2
instrucciones()
.
Caseexpresion.logicaN
instrucciones()
.
Case Else
instrucciones()
.
EndSelect
Ejercicio 01
Crear un programa que compruebe si una nota es válida o no válida.
ModuleModule2
Submain()
Dim nota AsByte
Console.Write("Ingrese nota: ")
nota = Console.ReadLine
SelectCase nota
Case 0 To 20
Console.Write("nota valida")
Case Else
Console.Write("nota no valida")
EndSelect
Console.ReadLine()
EndSub
EndModule
Ejercicio 02
Crear una aplicación la cual nos permita ingresar una edad y nos muestre los siguientes mensajes:eres un niño (0 a 12); eres un adolescente (13 a 17); eres un adulto (>18)
ModuleModule02
SubMain()
DimedadAsByte
Console.Write("Ingrese edad: ")
edad = Console.ReadLine
SelectCaseedad
Case 0 To 12
Console.Write("eres un niño")
Case 13 To 17
Console.Write("eres un adolescente")
CaseIs>= 18
Console.Write("eres un adulto")
EndSelect
Console.ReadLine()
EndSub
EndModule
Ejercicio 03
Crear un programa la cual nos permita mostrar el día de la semana de acuerdo a un número ingresado.
ModuleModule03
Submain()
DimdiaAsByte
Console.Write("Ingrese dia: ")
dia = Console.ReadLine
SelectCasedia
Case 1
Console.Write("lunes")
Case 2
Console.Write("martes")
Case 3
Console.Write("miercoles")
Case 4
Console.Write("jueves")
Case 5
Console.Write("viernes")
Case 6
Console.Write("sabado")
Case 7
Console.Write("domingo")
CaseElse
Console.Write("dia no valida")
EndSelect
Console.ReadLine()
EndSub
EndModule
MANEJO DE COLORES DE TEXTO
FOREGROUNDCOLOR = color de letra
SINTAXIS
Console.ForegroundColor = ConsoleColor.Red
BACKGROUNDCOLOR = color de fondo
Console.BackgroundColor = ConsoleColor.Red
FUNCIONES
FUNCIONES MATEMATICAS
A) ROUND
Nos permite redondear un número indicando el número de decimales a mostrar.
SINTAXIS:
Math.Round(numero, numero_decimales)
B) SQRT
SINTAXIS:
Nos permite sacar la raíz cuadrada de un número.
SINTAXIS:
Math.sqrt(numero)
C) POW
Nos devuelve el resultado de elevar un número a una potencia específica.
SINTAXIS:
Math.pow(numero)
D) ABS
Nos devuelve el valor absoluto de un número.
SINTAXIS:
Math.pow(numero)
E) TRUNCATE
Nos permite mostrar la parte entera de un número.
SINTAXIS:
Math.truncate(numero)
F) MAX
Nos devuelve el número más alto entre dos números específicos.
SINTAXIS:
Math.max(numero1,numero2)
G) MIN
Nos devuelve el número mínimo entre dos números específicos.
SINTAXIS:
Math.min(numero1,numero2)
H) SIGN
Nos devuelve un numero 1 si es positivo, -1 es negativo, o si es cero.
SINTAXIS:
Math.sign()
Ejercicio 01
Crear una aplicación que no permita ingresar tres números y nos devuelva el mayor número.
ModuleModule2
Submain()
Dim num1 AsInteger
Dim num2 AsInteger
Dim num3 AsInteger
DimmayAsInteger
Console.Write("ingrese primer numero: ")
num1 = Console.ReadLine
Console.Write("ingrese segundo numero: ")
num2 = Console.ReadLine
Console.Write("ingrese tercer numero: ")
num3 = Console.ReadLine
may = Math.Max(num1, Math.Max(num2, num3))
Console.Write("el mayor numero es: "&may)
Console.ReadLine()
EndSub
EndModule
PROGRAMACIÓN EN EL ENTORNO GRÁFICO
· Utilizamos ventanas y controles.
· Una ventana es una aplicación conocido por FORMULARIO
TIEMPOS:
a) TIEMPO DE DISEÑO
b) TIEMPO DE EJECUCION
FORMULARIO (VENTANA)
· Es una ventana que sirve como contenedor de los objetos, controles las cuales se utilizaran en una aplicación.
PROPIEDADES.
· Características de un objeto.
Color, tamaño, volumen, etc.
1. NAME:
Identificar a un objeto.
PREFIJOS:
· FRM
· CT
· BT
2. TEXT:
Cambia la etiqueta o título de un objeto.
3. BACKCOLOR
Permite cambiar en color de fondo del formulario.
4. OPACITY
Permite incrementar la transparencia de un objeto.
5. LABEL (O ETIQUETA)
a) NAME:
PREFIJO:
· ET
b) TEXT
6. FONT
Permite cambiar tamaño de letra.
7. FORECOLOR
Permite cambiar el color de fuente.
8. BUTTON
a) NAME:
PREFIJO:
· BT
b) TEXT
Instrucción END
PublicClassFRMVISUAL
PrivateSubETSALIR_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesETSALIR.Click
End
EndSub
EndClass
APLICAR PROPIEDAD A UN BOTON
PublicClassFRMVISUAL
PrivateSubETSALIR_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesETSALIR.Click
End
EndSub
PrivateSub BTAPLICAR1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles BTAPLICAR1.Click
ETMEN.Text = "DIVERTIDO"
EndSub
PrivateSub ETAPLICAR2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles ETAPLICAR2.Click
ETMEN.Text = "ENTRETENIDO"
EndSub
EndClass
| ETMEN .Text = "ENTRETENIDO" |
ALT + 94 = ^
CONTROL TEXTBOX (CUADRO DE TEXTO)
Es un control en el cual podemos ingresar datos o mostrar resultados.
PREFIJO:
· CT
VAL (CT….) = Convierte un dato de tipo texto en un valor numérico.
1.
aplicacion del select case
Desarrollar las aplicaciones utilizando Consola de Windows en Visual Net
1. Crear una aplicación que nos permita ingresar un numero y nos muestre un mensaje si el numero ingresado es positivo, negativo o cero.
Module Module01
Sub Main()
Dim num As Integer
Console.Write("Ingrese numero: ")
num = Console.ReadLine
Select Case num
Case Is > 0
Console.Write("positivo")
Case Is < 0
Console.Write("negativo")
Case Is = 0
Console.Write("cero")
End Select
Console.ReadLine()
End Sub
End Module
2. Desarrollar un programa que nos permita ingresar un numero y mostrarnos el día de la semana que corresponde (1= lunes, 2= martes,…)
Module Module02
Sub main()
Dim num As Byte
Console.Write("Ingrese numero: ")
num = Console.ReadLine
Select Case num
Case 1
Console.Write("lunes")
Case 2
Console.Write("martes")
Case 3
Console.Write("miercoles")
Case 4
Console.Write("jueves")
Case 5
Console.Write("viernes")
Case 6
Console.Write("sabado")
Case 7
Console.Write("domingo")
Case Else
Console.Write("dia no valida")
End Select
Console.ReadLine()
End Sub
End Module
3. Crear un programa que ingrese una edad y nos muestre si la persona es: niño (0-11) adolescente (12-17) adulto (18-60) y adulto mayor según sea el caso.
Module Module03
Sub main()
Dim edad As Byte
Console.Write("Ingrese edad: ")
edad = Console.ReadLine
Select Case edad
Case 0 To 11
Console.Write("es un niño")
Case 12 To 17
Console.Write("es un adolescente")
Case 18 To 60
Console.Write("es un adulto")
Case Else
Console.Write("es un adulto mayor")
End Select
Console.ReadLine()
End Sub
End Module
4. Crear un programa que nos permita ingresar el nombre de una persona y el sexo (F o M) de una persona y nos muestre un mensaje (masculino o femenino) según sea el sexo ingresado. Ejemplo : Juan es masculino
Module Module04
Sub main()
Dim nom As String
Dim sex As Char
Console.Write("Ingrese nombre: ")
nom = Console.ReadLine
Console.Write("Ingrese sexo: ")
sex = Console.ReadLine
Select Case sex
Case "M"
Console.Write(nom & " " & "es masculino")
Case "m"
Console.Write(nom & " " & "es masculino")
Case "F"
Console.Write(nom & " " & "es femenino")
Case "f"
Console.Write(nom & " " & "es femenino")
End Select
Console.ReadLine()
End Sub
End Module
5. Diseñar una aplicación que ingrese el nombre y el estado civil de una persona y nos muestre si es: C “Casado”, S “soltero”, V “Viudo”. Ejemplo:
Ingrese nombre: Luis
Ingrese estado civil: C
Module Module05
Sub main()
Dim nom As String
Dim civ As Char
Console.Write("Ingrese nombre: ")
nom = Console.ReadLine
Console.Write("Ingrese estado civil: ")
civ = Console.ReadLine
Select Case civ
Case "C"
Console.Write(nom & " es casado")
Case "c"
Console.Write(nom & " es casado")
Case "D"
Console.Write(nom & " es divorciado")
Case "d"
Console.Write(nom & " es divorciado")
Case "V"
Console.Write(nom & " es viudo")
Case "v"
Console.Write(nom & " es viudo")
End Select
Console.ReadLine()
End Sub
End Module
6. Desarrollar un programa que nos permita ingresar el nombre y tres notas de un alumno y nos permita calcular el promedio y nos muestre un mensaje (aprobado o desaprobado) de acuerdo al resultado. Ejemplo: Alumno: Juan Promedio: 14 Nota desaprobada
Module Module06
Sub main()
Dim nom As String
Dim not1 As Single
Dim not2 As Single
Dim not3 As Single
Dim prom As Single
Console.Write("ingrese nombre: ")
nom = Console.ReadLine
Console.Write("ingrese primera nota: ")
not1 = Console.ReadLine
Console.Write("ingrese segunda nota: ")
not2 = Console.ReadLine
Console.Write("ingrese tercera nota: ")
not3 = Console.ReadLine
prom = (not1 + not2 + not3) / 3
Select Case prom
Case 0 To 10.5
Console.WriteLine("Alumno: " & nom)
Console.Write("Promedio: " & prom & " nota " & "desaprobada")
Case Is < 20
Console.WriteLine("Alumno: " & nom)
Console.Write("Promedio: " & prom & " nota " & "aprobada")
End Select
Console.ReadLine()
End Sub
End Module
7. Desarrollar un programa que nos permita ingresar una nota y evaluarla si es valida (0 a 20) o no es valida. Ejemplo: El número 23 es una nota no valida.
Module Module07
Sub main()
Dim nota As Single
Console.Write("ingrese nota: ")
nota = Console.ReadLine
Select Case nota
Case 0 To 20
Console.Write("el numero " & nota & " es una nota valida")
Case Else
Console.Write("el numero " & nota & " es una nota no valida")
End Select
Console.ReadLine()
End Sub
End Module
8. Desarrollar un programa que nos permita una temperatura (numero) y nos muestre un mensaje de acuerdo a la temperatura ingresada: <=10º → “pésimo”, de 11º - 18º → “templado”, de 19º - 25º → “cálido” y > 25º → “caluroso”
Module Module08
Sub main()
Dim temp As Integer
Console.Write("Ingrese temperatura: ")
temp = Console.ReadLine
Select Case temp
Case Is <= 10
Console.Write("Frio")
Case 11 To 18
Console.Write("Templado")
Case 19 To 25
Console.Write("calido")
Case Is > 25
Console.Write("caluroso")
End Select
Console.ReadLine()
End Sub
End Module
9. Diseñar un programa la cual nos permita calcular el promedio de tres notas ingresadas y mostrarnos un mensaje en pantalla de acuerdo al promedio. 0-10 → “ pésimo ”, de 11-13 → “regular”, de 14-17 → “bueno” y de 18-20 → “excelente”
Module Module09
Sub main()
Dim not1 As Single
Dim not2 As Single
Dim not3 As Single
Dim prom As Single
Console.Write("Ingrese primera nota: ")
not1 = Console.ReadLine
Console.Write("Ingrese segunda nota: ")
not2 = Console.ReadLine
Console.Write("Ingrese tercera nota: ")
not3 = Console.ReadLine
prom = (not1 + not2 + not3) / 3
Select Case prom
Case 0 To 10
Console.Write("Pesimo")
Case Is < 13
Console.Write("Regular")
Case Is < 17
Console.Write("Bueno")
Case Is < 20
Console.Write("Excelente")
End Select
Console.ReadLine()
End Sub
End Module
10. Desarrollar un programa que nos permita elegir un color (rojo, verde y azul) y nos muestre un mensaje de color elegido.
Module Module10
Sub main()
Dim col As String
Console.Write("ingrese color: ")
col = Console.ReadLine
Select Case col
Case "rojo"
Console.ForegroundColor = ConsoleColor.Red
Console.Write("rojo")
Case "verde"
Console.ForegroundColor = ConsoleColor.Green
Console.Write("verde")
Case "azul"
Console.ForegroundColor = ConsoleColor.Blue
Console.Write("azul")
End Select
Console.ReadLine()
End Sub
End Module
11. Crear un programa que nos permita hallar el salario neto de un trabajador, donde ingresaremos su cargo que ocupa: obrero= 600.00, jefe= 800, gerente= 1000 y se le aplicara una bonificación del 5% del salario básico.
Module Module11
Sub main()
Dim carg As String
Dim boni As Single
Dim sal_bas As Single
Dim sal_net As Single
Console.Write("Ingrese cargo: ")
carg = Console.ReadLine
Select Case carg
Case "obrero"
sal_bas = 600
Case "jefe"
sal_bas = 800
Case "gerente"
sal_bas = 1000
End Select
boni = sal_bas * 0.05
sal_net = sal_bas + boni
Console.Write("el salario neto de un " & carg & " es " & sal_net)
Console.ReadLine()
End Sub
End Module
12. Desarrollar una aplicación que nos permita ingresar el salario básico y el estado civil de un trabajador y calcular su bonificación y salario neto de acuerdo a lo siguiente: S (Soltero) 5% de bonificación si es C (casado) 10 % de bonificación.
Module Module12
Sub main()
Dim sal_bas As Single
Dim est_civ As Char
Dim boni As Single
Dim sal_net As Single
Console.Write("Ingrese salario basico: ")
sal_bas = Console.ReadLine
Console.Write("Ingrese estado civil: ")
est_civ = Console.ReadLine
Select Case est_civ
Case "S"
boni = sal_bas * 0.05
sal_net = sal_bas + boni
Case "s"
boni = sal_bas * 0.05
sal_net = sal_bas + boni
Case "C"
boni = sal_bas * 0.1
sal_net = sal_bas + boni
Case "c"
boni = sal_bas * 0.1
sal_net = sal_bas + boni
End Select
Console.WriteLine("su bonificacion es: " & boni)
Console.Write("su salario neto es: " & sal_net)
Console.ReadLine()
End Sub
End Module
13. Un restaurante ofrece descuentos del 10% para consumos entre s/.30.00 y s/.50.00; un descuento del 20% para consumos mayores de s/.50.00; para todos los demás no se aplica ningún tipo de descuento. El ejercicio consiste en elaborar un programa que permita determinar el importe total a pagar por el consumidor.
Module Module13
Sub main()
Dim cons As Single
Dim desct As Single
Dim imp As Single
Console.Write("Ingrese monto de consumo: ")
cons = Console.ReadLine
Select Case cons
Case 30 To 50
desct = cons * 0.1
Case Is > 50
desct = cons * 0.2
Case Else
desct = 0
End Select
imp = cons - desct
Console.Write("total a pagar: " & imp)
Console.ReadLine()
End Sub
End Module
14. Una tienda de productos informáticos realiza una serie de descuentos de acuerdo a la cantidad de productos que se compran; un descuento de un 2% hasta para una docena, un descuento de 5% hasta 2 docenas y 7% de 2 docenas. Hallar el importe total.
Module Module14
Sub main()
Dim cons As Single
Dim cant As Integer
Dim desct As Single
Dim imp As Single
Console.Write("Ingrese monto de consumo: ")
cons = Console.ReadLine
Console.Write("ingrese cantidad: ")
cant = Console.ReadLine
Select Case cant
Case 0 To 12
desct = cons * 0.02
Case Is <= 24
desct = cons * 0.05
Case Else
desct = cons * 0.07
End Select
imp = cons - desct
Console.Write("total a pagar: " & imp)
Console.ReadLine()
End Sub
End Module
15. Evaluar si un número es par o impar.
Module Module15
Sub main()
Dim num As Integer
Dim par As String
Console.Write("Ingrese numero: ")
num = Console.ReadLine
par = num Mod 2
Select Case par
Case Is = 0
Console.Write("El numero es par")
Case Else
Console.Write("El numero es impar")
End Select
Console.ReadLine()
End Sub
End Module
Suscribirse a:
Entradas (Atom)