Pasos para crear una calculadora a grados (SEMANA 33)
1. Iniciamos el programa.
2. Hacer clic en EXE ESTANDAR.
3. Colocar los siguientes objetos en el formulario: 2 Label, 2 TextBox, 1 ScrollBar.
4. En la label 1 le asignaremos el nombre de "ºCentigrado" y en la label 2 le asignaremos el nombre de "ºFarenhein".
5. En el objeto ScrollBar le insertamos el siguiente codigo:
OBJETO SCROLLBAR
Private Sub ScrollBar1_Change().
Dim dblgrados As Double
TextBox1.Text = ScrollBar1.Value
dblgrados = 1.8 * ScrollBar1.Value
TextBox2.Text = dblgrados
End Sub
6. Ejecutamos la calculadora.
7. Guardamos y salimos.
Comentarios
Publicar un comentario