No Sabado passado, tive uma ideia maluca, procurei aqui no darkers para ver se ja tinha aqui e não achei nada, então resolvi fazer, pequei um papel ( Por incrivel q pareça não fui direto ao PC :D )
e comecei a escrever como tinha q ser, depois fui ao PC e comecei a Digitar, e saiu nisso, uma agenda ou quase isso, uma especie de agenda, Separada em duas partes, de contatos e de data.
A de contato, você cadastra o contato, com nome, telefone, e-mail
E a parte de data, a qual você coloca uma data importante, com um lembrete..
Preciso fazer duas alterações.
1- Colocar senha, para q o usuario q entrar no programa, veja apenas o seus contatos.
2- Fazer com que os arquivos Ag.txt e Ca.txt fiquem ocultos ou em uma pasta escondida, para que o usuario não veja.
o code tah ai:
Quote:BOF
@cls
@title Agenda
@color 8
@echo.
@VER
@echo ======================================
@echo Agenda
@echo ======================================
@echo By: Trojan
@echo.
@echo Este aplicativo e dividido em duas partes
@echo a primeira voce pode salvar quantos contatos
@echo quiser, E no segundo voce pode marcar quantas
@echo datas importantes quiser.
@echo Toda vez que voce abrir uma parte do
@echo aplicativo, exemplo Contato, vai abrir junto
@echo os contatos ja salvos. E na Data
@echo acontece a mesma coisa, ira abrir junto
@echo as datas importantes!
@echo ATENCAO: VOCE NAO PODERA ALTERAR O REGISTRO DE UM
@echo CONTATO OU DATA QUE JA FOI DIGITADO.
@echo.
@echo.
@echo Ola! qual o seu nome?
@set /p nome=
@cls
@echo ======================================
@echo Agenda
@echo ======================================
@echo By: Trojan
@echo.
@echo.
@echo Ola %nome%!
@echo.
:repl
:sinal
@echo Escolha uma das opcoes abaixo para dar inicio
@echo ao programa ou sair do mesmo!
@echo [1] - Contato ( Editar contatos )
@echo [2] - Data ( Edite as datas importantes )
@echo [3] - Sair
@set /p in=
@cls
@If "%in%" == "1" ( set sinal= 1 & goto parte1 )
@If "%in%" == "2" ( set sinal= 2 & goto parte2 )
@If "%in%" == "3" ( set sinal= 3 & goto exit )
@If not "%in%" == "1" ( goto repl )
@If not "%in%" == "2" ( goto repl )
@If not "%in%" == "3" ( goto repl )
:parte1
@echo arquivos gravados:
@type Ag.txt
@echo.
@echo Digite o nome do contato
@set /p nome1=
@echo Digite o telefone
@set /p tel1=
@echo Digite o e-mail
@set /p em1=
@echo.
@echo.
@echo nome: %nome1% >> Ag.txt
@echo telefone: %tel1% >> Ag.txt
@echo e-mail: %em1% >> Ag.txt
@echo. >> Ag.txt
:resps
@echo Deseja inserir mais um contato? (Y= Sim/ N= Sair/ I= inicio)
@set /p resp=
@cls
@If %resp% EQU Y ( goto parte1 )
@If %resp% EQU y ( goto parte1 )
@If %resp% EQU I ( goto repl )
@If %resp% EQU i ( goto repl )
@If %resp% EQU N ( exit )
@If %resp% EQU n ( exit )
@If not %resp% EQU Y ( goto resps )
@If not %resp% EQU y ( goto resps )
@If not %resp% EQU I ( goto resps )
@If not %resp% EQU i ( goto resps )
@If not %resp% EQU N ( goto resps )
@If not %resp% EQU n ( goto resps )
@pause > nul
@cls
:parte2
@echo Registros passados:
@type Ca.txt
@echo.
@echo Digite o Dia/Mes
@set /p DM=
@echo Digite o recado importante do dia acima
@set /p RI=
@echo.
@echo.
@echo Dia e Mes: %DM% >> Ca.txt
@echo Recado importante: %RI% >> Ca.txt
@echo. >> Ca.txt
:dat
@echo Deseja inserir mais uma Data? (Y= Sim/ N= Sair/ I= inicio)
@set /p resp=
@cls
@If %resp% EQU Y ( goto parte2 )
@If %resp% EQU y ( goto parte2 )
@If %resp% EQU I ( goto repl )
@If %resp% EQU i ( goto repl )
@If %resp% EQU N ( exit )
@If %resp% EQU n ( exit )
@If not %resp% EQU Y ( goto dat )
@If not %resp% EQU y ( goto dat )
@If not %resp% EQU I ( goto dat )
@If not %resp% EQU i ( goto dat )
@If not %resp% EQU N ( goto dat )
@If not %resp% EQU n ( goto dat )
@pause > nul
@cls
exit
Creio q não tem Bug.
Porfavor, comentem, Thanks!
Vlw, incentivos sempre são bem vindos!
Soh q ainda vou ver se consigo alterar, colocar as 2 coisas q citei no começo do outro post. se conseguir ficara muito bom! :D
Aceita-se ajuda!