CONVERSOR DE MEDIDAS - - 2 A 3

 "ESTE ES UN PROGRAMA PARA CONVERTIR MEDIDAS DE METROS A CENTIMETROS Y PULGASA"  programacion visual

"este es el codigo del programa. (boton calcular)"
----------------------------------------------------------------------
thisform.text2.Value = VAL(thisform.text1.Value)*100
thisform.text3.Value = VAL(thisform.text1.Value)*39.37
---------------------------------------------------------------------------

"codigo para el boton limpiar"
----------------------------------------------
 thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text1.setfocus
-------------------------------------------
 asi queda el programa, ver imagen siguiente

 -----------------------------------------------------------------------------------
   (segunda forma de hacerlo)
____________________________________________________
  programacion no visual

este es el codigo del programa
----------------------------------------
im = 0
cm = 0
pg = 0
CLEAR
@ 3,18 say "CONVERSOR DE MEDIDAS"
@ 5,15 say "INGRESE MEDIDAS mts:" get im

READ

cm = im*100
pg = im*39.37

@ 7,15 say "CENTIMETROS:" get cm
@ 9,15 say "PULGADAS:" get pg

_________________________________________-
EL PROGRAMA QUEDA DE LA SIGUIENTE FORMA.  ver imagenes

 ------------------------------------------------------------------------------------------------------