Este es un espacio virtual para compartir información de programación con los estudiantes
miércoles, 21 de marzo de 2018
miércoles, 28 de febrero de 2018
Archivo de lotes con menu de opciones
Nota el siguiente codigo debe ser grabado en un archivo con extension .cmd o extension .bat
@echo off
TITLE Bienvenid@ %USERNAME% a @lm_blog menu
MODE con:cols=80 lines=40
:inicio
SET var=0
cls
echo ------------------------------------------------------------------------------
echo %DATE% ^| %TIME%
echo ------------------------------------------------------------------------------
echo 1 Opcion 1
echo 2 Opcion 2
echo 3 Opcion 3
echo 4 Opcion 4
echo 5 Opcion 5
echo 6 Salir
echo ------------------------------------------------------------------------------
echo.
SET /p var= ^> Seleccione una opcion [1-6]:
if "%var%"=="0" goto inicio
if "%var%"=="1" goto op1
if "%var%"=="2" goto op2
if "%var%"=="3" goto op3
if "%var%"=="4" goto op4
if "%var%"=="5" goto op5
if "%var%"=="6" goto salir
::Mensaje de error, validación cuando se selecciona una opción fuera de rango
echo. El numero "%var%" no es una opcion valida, por favor intente de nuevo.
echo.
pause
echo.
goto:inicio
:op1
echo.
echo. Has elegido la opcion No. 1
echo.
::Aquí van las líneas de comando de tu opción
color 08
echo.
pause
goto:inicio
:op2
echo.
echo. Has elegido la opcion No. 2
echo.
::Aquí van las líneas de comando de tu opción
color 09
echo.
pause
goto:inicio
:op3
echo.
echo. Has elegido la opcion No. 3
echo.
::Aquí van las líneas de comando de tu opción
color 0A
echo.
pause
goto:inicio
:op4
echo.
echo. Has elegido la opcion No. 4
echo.
::Aquí van las líneas de comando de tu opción
color 0B
echo.
pause
goto:inicio
:op5
echo.
echo. Has elegido la opcion No. 5
echo.
::Aquí van las líneas de comando de tu opción
color 0C
echo.
pause
goto:inicio
:salir
@cls&exit
@echo off
TITLE Bienvenid@ %USERNAME% a @lm_blog menu
MODE con:cols=80 lines=40
:inicio
SET var=0
cls
echo ------------------------------------------------------------------------------
echo %DATE% ^| %TIME%
echo ------------------------------------------------------------------------------
echo 1 Opcion 1
echo 2 Opcion 2
echo 3 Opcion 3
echo 4 Opcion 4
echo 5 Opcion 5
echo 6 Salir
echo ------------------------------------------------------------------------------
echo.
SET /p var= ^> Seleccione una opcion [1-6]:
if "%var%"=="0" goto inicio
if "%var%"=="1" goto op1
if "%var%"=="2" goto op2
if "%var%"=="3" goto op3
if "%var%"=="4" goto op4
if "%var%"=="5" goto op5
if "%var%"=="6" goto salir
::Mensaje de error, validación cuando se selecciona una opción fuera de rango
echo. El numero "%var%" no es una opcion valida, por favor intente de nuevo.
echo.
pause
echo.
goto:inicio
:op1
echo.
echo. Has elegido la opcion No. 1
echo.
::Aquí van las líneas de comando de tu opción
color 08
echo.
pause
goto:inicio
:op2
echo.
echo. Has elegido la opcion No. 2
echo.
::Aquí van las líneas de comando de tu opción
color 09
echo.
pause
goto:inicio
:op3
echo.
echo. Has elegido la opcion No. 3
echo.
::Aquí van las líneas de comando de tu opción
color 0A
echo.
pause
goto:inicio
:op4
echo.
echo. Has elegido la opcion No. 4
echo.
::Aquí van las líneas de comando de tu opción
color 0B
echo.
pause
goto:inicio
:op5
echo.
echo. Has elegido la opcion No. 5
echo.
::Aquí van las líneas de comando de tu opción
color 0C
echo.
pause
goto:inicio
:salir
@cls&exit
martes, 21 de noviembre de 2017
lunes, 20 de noviembre de 2017
martes, 7 de noviembre de 2017
miércoles, 1 de noviembre de 2017
jueves, 26 de octubre de 2017
miércoles, 25 de octubre de 2017
miércoles, 13 de septiembre de 2017
viernes, 18 de agosto de 2017
ejemplo de manejo de datos en matrices...
dim Empleados(5,5) as string
for i=1 to 5
n=readline()
s=readline()
t=readline()
Empleados(i,1)=n
Empleados(i,2)=s
empleados(i,3)=t
next i
for i=1 to 5
write (empleados(i,1)) & " "
write(Empleados(i,2)) & " "
write(Empleados(i,3)) & " "
write (Val(Empleados(i,2))/30*Empleados(i,3))
next i
for i=1 to 5
n=readline()
s=readline()
t=readline()
Empleados(i,1)=n
Empleados(i,2)=s
empleados(i,3)=t
next i
for i=1 to 5
write (empleados(i,1)) & " "
write(Empleados(i,2)) & " "
write(Empleados(i,3)) & " "
write (Val(Empleados(i,2))/30*Empleados(i,3))
next i
Suscribirse a:
Entradas (Atom)
Trabajo final de excel intermedio
Se recibe un archivo con la información de la estadistica de venta en formato plano Con estos datos realice lo siguiente: 1. Importe la inf...
-
Guia de Visual Basic - Area de un tiangulo
-
1. Desarrolle un algoritmo que permita leer dos valores distintos, determinar cual de los dos valores es el mayor y escribirlo. 2. ...

