Visual basic

Solo disponible en BuenasTareas
  • Páginas : 7 (1719 palabras )
  • Descarga(s) : 0
  • Publicado : 6 de diciembre de 2010
Leer documento completo
Vista previa del texto
USO DE LA FUNCIÓN INPUBOX
Es una función que se utiliza para ingresar datos en una caja de texto contenido dentro de una ventana, datos que después se podrían utilizar para algún proceso como por ejemplo las sumas de sueldos promedios de notas entre otros.
Sistema de sueldo

Digite el dato
TITULO

aceptar

cancelar

Private Sub Cmd_ingresar_Click()
datos = InputBox("digite el datoa ingresar", "sistema de sueldos")
End Sub

* Ejercicio 1:Desarrollar una aplicación en visual con el inputbox, que , permita ingresar 5 notas y que luego muestre lo siguiente:
* La suma total de notas
* El promedio de las notas ingresadas
* La condición del alumno es decir si su promedio es mayor a 12 que muestre un mensaje en una caja de texto “alumno aprobado” caso contrario“reprobado “; si el alumno es aprobado la condición y el promedio tiene que estar de color verde y azul, y si el alumno es reprobado la condición y el promedio tiene que estar en rojo
Un ejercicio……..
El otro ejercicio……
* Ejercicio 2.- Realizar la siguiente aplicación en visual que me permita modificar el ejercicio anterior, el cual me permite ingresar el numero de notas que deseo promediar,es decir que tenga la libertad de ingresar cualquier valor de notas sin la necesidad de crear un formulario para cada caso

Private Sub Cmd_notas_Click()
Dim notaingre As Integer
Dim sumnot As Single
Dim promedio As Single
Dim condicion As Single
notaingre = Val(Txt_notaingre)
f = 1
Do While f <= notaingre
notas = Val(InputBox("Diigte la Nota a Ingresar:" & f, "sistema denotas"))
sumnot = sumnot + notas
f = f + 1
Loop
promedio = sumnot / 3
If promedio > 12 Then
Txt_condicion = "Alumno Aprobado"
Txt_condicion.ForeColor = QBColor(1)
Txt_condicion.BackColor = QBColor(2)
Txt_promedio.ForeColor = QBColor(2)
Txt_promedio.BackColor = QBColor(1)
Else
Txt_condicion = "alumno reprobado"
Txt_condicion.ForeColor = QBColor(4)
Txt_condicion.BackColor = QBColor(6)Txt_promedio.ForeColor = QBColor(6)
Txt_promedio.BackColor = QBColor(4)
End If
txt_suma = sumnot
Txt_promedio = promedio
End Sub

Private Sub Cmd_nuevo_Click()
Txt_notaingre = " "
txt_suma = " "
Txt_promedio = " "
Txt_condicion = " "
Txt_condicion.BackColor = QBColor(15)
Txt_promedio.BackColor = QBColor(15)
Txt_notaingre.SetFocus
End Sub

Private Sub Cmd_salir_Click()
End
End Sub* Usando la instrucción do while desarrolle una aplicación que permita modificar el ejercicio de promedio de notas realizado por un inputbox y que luego muestre la suma total de las notas el promedio de notas, la condición si a aprobado o reprobado con sus colores respectivos

Private Sub Cmd_notas_Click()
Dim sumatotal As Single
Dim promedio As Single
Dim condicion As Singlenumnotas = 1
Do While numnotas <= 5
notas = Val(InputBox("DIGITE LA NOTA A INGRESAR:" & numnotas, "SISTEMA DE NOTAS"))
sumatotal = sumatotal + notas
numnotas = numnotas + 1
Loop
promedio = sumatotal / 5
If promedio > 12 Then
Txt_condicion = "ALUMNO APROBADO"
Txt_condicion.ForeColor = QBColor(1)
Txt_condicion.BackColor = QBColor(2)
Txt_promedio.ForeColor = QBColor(2)Txt_promedio.BackColor = QBColor(1)
Else
Txt_condicion = "ALUMNO REPROBADO"
Txt_condicion.ForeColor = QBColor(4)
Txt_condicion.BackColor = QBColor(6)
Txt_promedio.ForeColor = QBColor(6)
Txt_promedio.BackColor = QBColor(4)
End If
Txt_promedio = promedio
Txt_sumatotal = sumatotal
End Sub
Private Sub Cmd_nuevo_Click()
txt_suma = ""
Txt_condicion = ""
Txt_promedio = ""
Txt_promedio.BackColor =QBColor(15)
Txt_condicion.BackColor = QBColor(15)
Cmd_notas.SetFocus
End Sub

Private Sub Cmd_salir_Click()
End
End Sub

Realizar una aplicación en visual Que me permita visualizar en una caja de vista los nombres de los siguientes países , peru, colombia, ecuador, venesuela Brasil argentina paraguay chile cuba Guatemala panamá y cuando se seleccione uno de ellos se visualice su capital el...
tracking img