Programa con opciones para seleccionar color de fondo (Documentado)
Código:
pila segment stack 'stack'
db 100h dup (?)
pila ends
datos segment ;---------esta parte es el texto que se mostrara y las instrucciones para el usuario
titulo db 13,10,' CAMBIAR FONDO DE PANTALLA',13,10,'$' mensaje db 'Presione ENTER si quiere la pantalla azul. Si quiere morado, presione 2',13,10,'Para salir, presione cualquier tecla',13,10,'$'
datos ends
codigo segment ;segmento de codigo
assume cs:codigo, ss:pila, ds:datos
inicio:
;-------------------------------------------- para preparar pantalla
mov ah,0
mov al,3h ;modo texto
int 10h ;interrupcion de video
mov ax,0600h ;limpiar la pantalla
mov bh,0fh ; pone el color de fonodo negro
mov cx,0000h ; esto es para las esquinas
mov dx,184Fh
int 10h
mov ah,02h
mov bh,00
mov dh,00
mov dl,00
int 10h
;------------------------------------------------- mostrar mensajes
mov ax,datos ;esto es la parametrizacion
mov ds,ax
lea dx,titulo ;en estas lineas mostramos el titulo
mov ah,9h
int 21h
lea dx,mensaje ; mostramos el mensaje
mov ah,9h
int 21h
;--------------------------------------------------- capturaci]on de teclas
mov ah,08 ; pausa y capyuta la tecla que presione el usuario
int 21h ; esta interrupcion es para capturar
cmp al,13 ; verifica si se presiono enter
je llamarAzul ;manda llamar a la etiqueta correspondiente
cmp al,50 ;aqui verifica si se ingreso el numero 2 (el numero dos es el numero 50 en ascii)
je llamarMorado ;manda llamar la etiqueta correspondiente
jmp fin :si no se realiza nada, manda llamar a la etiqueta "fin"
;------------------------Etiquetas:
; las eiquetas contienen procedimientos almacenados que se mandan llamar con la instruccion call
fin:
mov ax,4c00h
int 21h
llamarAzul: ; manda llamar rl procedimiento Azulproc
CALL AZULPROC
llamarMorado: ; manda llamar el procedimiento Moracoproc
CALL MORADOPROC
;----------------------------------------------Proceso AZULPROC
AZULPROC PROC NEAR
;el procedimiento para ajustar la pantalla es casi igual
mov ah,0
mov al,3h
int 10h
mov ax,0600h
mov bh,0fh
mov cx,0000h
mov dx,184Fh
int 10h
mov ah,02h
mov bh,00
mov dh,00
mov dl,00
int 10h
;-------------------------- en esta parte se ajusta el color
mov ah,06h
mov bh,1fh ; esto es para el color de fondo y las letras
mov cx,0000h
mov dx,184fh
int 10h
mov ax,4c00h ; esto lo que hace es que una vez que haya cambiado la pantalla a color azul, se termina el programa
int 21h
RET
AZULPROC ENDP ;--------Termina el proceso
;-------------------------------------------------Proceso MORADOPROC
MORADOPROC PROC NEAR
mov ah,06h
mov bh,5fh ;esto es lo que cambia al procedimiento anterior
mov cx,0000h
mov dx,184fh
int 10h
mov ax,4c00h
int 21h
RET
MORADOPROC ENDP ;--------Termina el proceso
codigo ends ;termina el segmento codigo
end inicio;termina la etiqueta Inicio
Capturas:
pila segment stack 'stack'
db 100h dup (?)
pila ends
datos segment ;---------esta parte es el texto que se mostrara y las instrucciones para el usuario
titulo db 13,10,' CAMBIAR FONDO DE PANTALLA',13,10,'$' mensaje db 'Presione ENTER si quiere la pantalla azul. Si quiere morado, presione 2',13,10,'Para salir, presione cualquier tecla',13,10,'$'
datos ends
codigo segment ;segmento de codigo
assume cs:codigo, ss:pila, ds:datos
inicio:
;-------------------------------------------- para preparar pantalla
mov ah,0
mov al,3h ;modo texto
int 10h ;interrupcion de video
mov ax,0600h ;limpiar la pantalla
mov bh,0fh ; pone el color de fonodo negro
mov cx,0000h ; esto es para las esquinas
mov dx,184Fh
int 10h
mov ah,02h
mov bh,00
mov dh,00
mov dl,00
int 10h
;------------------------------------------------- mostrar mensajes
mov ax,datos ;esto es la parametrizacion
mov ds,ax
lea dx,titulo ;en estas lineas mostramos el titulo
mov ah,9h
int 21h
lea dx,mensaje ; mostramos el mensaje
mov ah,9h
int 21h
;--------------------------------------------------- capturaci]on de teclas
mov ah,08 ; pausa y capyuta la tecla que presione el usuario
int 21h ; esta interrupcion es para capturar
cmp al,13 ; verifica si se presiono enter
je llamarAzul ;manda llamar a la etiqueta correspondiente
cmp al,50 ;aqui verifica si se ingreso el numero 2 (el numero dos es el numero 50 en ascii)
je llamarMorado ;manda llamar la etiqueta correspondiente
jmp fin :si no se realiza nada, manda llamar a la etiqueta "fin"
;------------------------Etiquetas:
; las eiquetas contienen procedimientos almacenados que se mandan llamar con la instruccion call
fin:
mov ax,4c00h
int 21h
llamarAzul: ; manda llamar rl procedimiento Azulproc
CALL AZULPROC
llamarMorado: ; manda llamar el procedimiento Moracoproc
CALL MORADOPROC
;----------------------------------------------Proceso AZULPROC
AZULPROC PROC NEAR
;el procedimiento para ajustar la pantalla es casi igual
mov ah,0
mov al,3h
int 10h
mov ax,0600h
mov bh,0fh
mov cx,0000h
mov dx,184Fh
int 10h
mov ah,02h
mov bh,00
mov dh,00
mov dl,00
int 10h
;-------------------------- en esta parte se ajusta el color
mov ah,06h
mov bh,1fh ; esto es para el color de fondo y las letras
mov cx,0000h
mov dx,184fh
int 10h
mov ax,4c00h ; esto lo que hace es que una vez que haya cambiado la pantalla a color azul, se termina el programa
int 21h
RET
AZULPROC ENDP ;--------Termina el proceso
;-------------------------------------------------Proceso MORADOPROC
MORADOPROC PROC NEAR
mov ah,06h
mov bh,5fh ;esto es lo que cambia al procedimiento anterior
mov cx,0000h
mov dx,184fh
int 10h
mov ax,4c00h
int 21h
RET
MORADOPROC ENDP ;--------Termina el proceso
codigo ends ;termina el segmento codigo
end inicio;termina la etiqueta Inicio
Capturas:
Comentarios
Publicar un comentario