Autoit en español
Aplicaciones con Autoit - Juan Antonio Villalpando
-- Tutorial de iniciación a Autoit --
Volver al índice del tutorial
____________________________
7.- De metros/s a kilómetros/h y viceversa. Opciones y bucle.
metros.exe
- Escribimos este código para pasar de m/s a km/s y viceversa.
- De m/s a km/h.
- De km/h a m/s.
Metros/s - Kilómetros/h |
; @CRLF es para cambiar de línea
; $texto = $texto & añade al texto anterior
; Las frases van entre comillas
; No utilizar el / en el nombre de la variable
; Juan A. Villalpando - KIO4.COM
$contesta="S"
; Mientras $contesta es "S" hace el bucle While - Wend
While $contesta="S"
$texto = "Elige opción" & @CRLF
$texto= $texto & "Pulsa 1 para pasar de m/s a km/h" & @CRLF
$texto= $texto & "Pulsa 2 para pasar de km/h a m/s"
$opcion = InputBox("Metros por segundo y kilómetros por hora", $texto)
If $opcion = 1 Then
$ms = InputBox("Conversión a km/h", "Introduce m/s")
$kmh= $ms * 3.6
$texto= $ms & " m/s son " & $kmh & " km/h."
Msgbox(0,"Conversión de ms a km/h.",$texto)
EndIf
If $opcion = 2 Then
$kmh = InputBox("Conversión a m/s", "Introduce km/h")
$ms= $kmh / 3.6
$texto= $kmh & " km/h son " & $ms & " m/s"
Msgbox(0,"Conversión de km/h a m/s.",$texto)
EndIf
$contesta = InputBox("Nuevo cálculo", "¿Quieres hacer otro cálculo? (S/N)")
Wend
|
- La convertimos en autoejecutable mediante Aut2Exe, aqui está: metros.exe
|