Sistema Informatico

Sistema Informatico

domingo, 27 de octubre de 2013

Programas Ejecutables .BAT en Ms-Dos

CONFIGURACION DE FECHA Y HORA.-

   @ECHO OFF
TITLE PROGRAMA CONFIGURACION
DATE
CLS
TIME
CLS
PAUSE
EXIT


******************************************
 MENSAJE "TE GUSTA EL CURSO"

     @ECHO OFF
TITLE PREGUNTAS
COLOR F3
ECHO.
SET/P VAR= TE GUSTA EL CURSO !?
CLS
IF %VAR% == SI GOTO SI
IF %VAR% == NO GOTO NO
:SI
ECHO.
ECHO ESPERO QUE LO DISFRUTE Y APRENDAS MUCHO
PAUSE>NUL
EXIT

:NO
ECHO.
ECHO DE IGUAL MANERA TENDRAS QUE ESTUDIAR
ECHO.
PAUSE
ECHO AUNQUE NO QUIERAS
ECHO.
PAUSE
ECHO TENDRAS QUE ESTUDIAR
PAUSE>NUL
EXIT

**************************************
DATOS : "NOMBRE - EDAD - LUGAR"

       @ECHO OFF
COLOR F5
TITLE DATOS PERSONALES
ECHO.
SET/P NOMBRE= CUAL ES TU NOMBRE?
ECHO.
PAUSE
SET/P EDAD= CUAL ES TU EDAD?
ECHO.
PAUSE
SET/P RESIDENCIA=DONDE VIVES?
ECHO.
PAUSE
ECHO.
ECHO TU DATOS SON
ECHO.
PAUSE
ECHO NOMBRE: %NOMBRE%
ECHO TU EDAD ES: %EDAD%
ECHO VIVES EN: %RESIDENCIA%
ECHO.
PAUSE>NUL
EXIT

**********************************
MENSAJE : "TE PUEDO HACER UNA PREGUNTA"

   @ECHO OFF
MSG * TE PUEDO HACER UNA PREGUNTA:
MSG * SOLO DIME SI O NO :
MSG * TE GUSTARIA SER MI NOVIA:
MSG * GRACIAS:
CLS

PAUSE

************************************
MENU.-

  @ECHO OFF
COLOR F3
TITLE MENU
:OPERACIONES
CLS

ECHO ------------------------------
ECHO *        MENU PRINCIPAL      *
ECHO ------------------------------
ECHO.
ECHO      1.-CALCULADORA
ECHO      2.-SALIR
ECHO.
SET/P VAR1= QUE DESEA HACER?
IF %VAR1% == 2 GOTO EXIT
IF %VAR1% == 1 GOTO CALCULADORA

:CALCULADORA
CLS

ECHO ------------------------------
ECHO *         CALCULADORA        *
ECHO ------------------------------
ECHO.
ECHO      1.-SUMA
ECHO      2.-RESTA
ECHO      3.-SALIR
ECHO.

SET/P VAR2= QUE DESEA HACER?
IF %VAR2% == 1 GOTO SUMA
IF %VAR2% == 2 GOTO RESTA
IF %VAR2% == 3 GOTO EXIT 

:SUMA
CLS
ECHO ------------------------------
ECHO *           Suma      *
ECHO ------------------------------
ECHO.
ECHO.
SET/P SUMA1= PRIMER CARACTER:.......
ECHO                      +
SET/P SUMA2= SEGUNDO CARACTER:......
ECHO                    ___________
SET/A SUMA3= %SUMA1% + %SUMA2%
ECHO RESULTADO:              %SUMA3%

SET/P VAR1= QUIERE CONTINUAR?
IF %VAR1% == SI GOTO SUMA
IF %VAR1% == NO GOTO OPERACIONES

PAUSE>NUL
EXIT

:RESTA
ECHO.
CLS
ECHO ------------------------------
ECHO *        Resta               *
ECHO ------------------------------
ECHO.
SET/P RESTA1= PRIMER CARACTER:.......
ECHO                      -
SET/P RESTA2= SEGUNDO CARACTER:......
ECHO                    ___________
SET/A RESTA3= %RESTA1% - %RESTA2%
ECHO RESULTADO:              %RESTA3%

SET/P VAR2= QUIERE CONTINUAR?
IF %VAR2% == SI GOTO RESTA
IF %VAR2% == NO GOTO OPERACIONES

:EXIT
PAUSE>NUL
EXIT

************************************
SUMA Y RESTA.-

  @ECHO OFF
TITLE MI PRIMER PROGRAMA
ECHO.
:MENU
SET/P VAR= QUE QUIERE HACER? SUMAR O RESTAR?
ECHO.
CLS
IF %VAR% == SUMA GOTO SUMA
IF %VAR% == RESTA GOTO RESTA

:SUMA
SET/P SUMA1= MI PRIMER CARACTER.......
ECHO             +
SET/P SUMA2= MI SEGUNDO CARACTER......
ECHO                ____________

SET/A SUMA3= %SUMA1% + %SUMA2%

ECHO SU RESULTADO ES: %SUMA3%
PAUSE>NUL
EXIT


:RESTA
SET/P RESTA1= PRIMER CARACTER:.......
ECHO                      -
SET/P RESTA2= SEGUNDO CARACTER:......
ECHO                    ___________
SET/A RESTA3= %RESTA1% - %RESTA2%
ECHO RESULTADO:              %RESTA3%
PAUSE>NUL

EXIT

*************************************
REPETICION.-

  @ECHO OFF
TITLE BUCLE
COLOR 2B
:REPETIR
ECHO 100101001001010010010 QUINTO INFORMATICA 100101001001010010010
ECHO 100101001001010010010 QUINTO INFORMATICA 100101001001010010010
GOTO REPETIR

EXIT

**************************************
SOLO SUMA.-

   @ECHO OFF
TITLE OPERACIONES BASICAS
COLOR F5
SET/P NUM1= INGRESAR PRIMER NUMERO?
ECHO.
SET/P NUM2= INGRESAR SEGUNDO NUMERO?
ECHO.
SET/A SUMA=(%NUM1% + %NUM2%)
ECHO.
ECHO LA SUMA ES %SUMA%
PAUSE>NUL
EXIT

No hay comentarios:

Publicar un comentario