Parctica 4 y 5 de info

Solo disponible en BuenasTareas
  • Páginas : 6 (1345 palabras )
  • Descarga(s) : 0
  • Publicado : 5 de febrero de 2010
Leer documento completo
Vista previa del texto
PRACTICA 4. TRANSFORMACION DE UNIDADES DE TEMPERATURA.

[pic]

La figura anterior muestra un programa que permite ver la equivalencia entre las escalas de temperaturas en grados centígrados y grados Fahrenheit. Los nombres de los ficheros de este proyecto se pueden llamar como tu desees.
En el centro del formulario aparece una barra de desplazamiento vertical que permite desplazarse conincrementos pequeños de 1ºC y grandes de 10ºC. Como es habitual, también puede cambiarse el valor arrastrando con el ratón el cursor de la barra.
Los valores máximos y mínimo de la barra son 100º C y -100º C. A ambos lados de la barra aparecen dos cuadros de texto (color de fondo blanco) donde aparecen los grados correspondientes a la barra en ambas escalas.
Encima aparecen dos rótulos (labels)que indican la escala de temperaturas correspondiente. Completan la aplicación un botón Salir que termina la ejecución y un menú File con la única opción Exit, que termina asimismo la ejecución del programa.
La Tabla siguiente indica los controles utilizados junto con las propiedades y los valores correspondientes.

|Control |Propiedad |Valor |Control|Propiedad |Valor |
| |Caption |Conversor de | |Min |100 |
| | |temperaturas | | | |
|mnuFile |Name |mnuFile| |Max |-100 |
| |Caption |&File | |SmallChange |1 |
|mnuFileExit |Name |mnuFileExit | |LargeChange |10 |
| |Caption|E&xit | |Value |0 |
|cmdSalir |Name |cmdSalir |lblCent |Name |lblCent |
| |Caption |Salir | |Caption |Grados centígrados |
| |Font|MS Sans Serif, Bold, 14| |Font |MS Sans Serif, 10 |
|txtCent |Name |txtCent |lblFahr |Name |lblFahr |
| |Text |0 | |Caption |Grados Fahrenheit |
|txtFahr|Name |txtFahr | |Font |MS Sans Serif, 10 |
| |text |32 | | | |

Por otra parte, el código con el que este programa responde a los eventos es el contenido en los siguientes procedimientos:

OptionExplicit

Private Sub cmbSalir_Click()
Beep
End
End Sub

Private Sub mnuFileExit_Click()
End
End Sub

Private Sub vsbTemp_Change()
txtCent.Text = vsbTemp.Value
txtFahr.Text = 32 + 1.8 * vsbTemp.Value
End Sub

Sobre este tercer ejemplo se puede comentar lo siguiente:
1. Se ha utilizado la propiedad Value de la barra de desplazamiento, la cual da el valor actual de la misma conrespecto a los límites inferior y superior, previamente establecidos (-100 y 100).
2. Mediante el procedimiento cmdSalir_Click, se cierra el programa, gracias a la instrucción End. El cometido de Beep no es otro que el de emitir un pitido a través del altavoz del ordenador, que indicará que en efecto se ha salido del programa.
3. La función mnuFileExit_Click() y activa desde el menú y termina la...
tracking img