Translate

Quanto já ganhei

sábado, 17 de janeiro de 2015

Conheça a URI Online Judge




Pratique, estude, aprenda e mostre o que você sabe fazer

        A URI Online Judge é uma ferramenta onde você pode pôr em prática suas habilidades em programação através de mais de 750 problemas divididos em 8 grandes categorias.
Após confirmação de seu cadastro, você já pode começar a explorar o site e resolver os problemas apresentados. Mas antes, é interessante realizar algumas modificações em seu perfil, como o nome da universidade onde você estuda. Isso é importante para te agrupar junto com seus colegas de curso.
A URI Online Judge dispõe de dois ranks para você fazer parte logo de cara. Você irá participar deles automaticamente assim que começar a resolver os problemas de programação. O primeiro é o geral, onde todos os usuários participam, ficando em primeiro lugar aquele que tiver o maior número de exercícios resolvidos e aprovados. O segundo rank é específico de sua universidade, ou seja, só os alunos de sua instituição de ensino participam. O critério para alcançar a melhor posição é o mesmo para o rank geral. Em outras palavras, programe o quanto puder para ser um dos melhores.
Mas você deve está se perguntando: “Hummm muito bom, mas qual linguagem de programação posso usar?” Isso é uma das vantagens da URI Online Judge. Você pode escolher entre quatro tipos de linguagens diferentes: C, C++, Java e Python. Mas, existe a possibilidade desse número aumentar, pois estão sempre melhorando a ferramenta.
Mais uma característica relevante: não é necessário adotar a mesma linguagem sempre. Você pode resolver os exercícios utilizando aquela que preferir e depois mudar. Sendo assim, pode-se solucionar alguns exercícios usando C++ e depois Python, tanto faz, pratique como quiser.
Ainda tem mais, caso esteja com alguma dúvida que te impede de prosseguir, existe um Fórum bem organizado, onde sua dúvida pode ser colocada e posteriormente respondida por outros membros ou pela equipe URI Online Judge.

A URI Online Judge dá a oportunidade para você mostrar o quanto é bom em programação. Um ótimo teste para suas habilidades como desenvolvedor. Portanto, não deixe de conhecer tal ferramenta que te auxiliará no seu desenvolvimento pessoal e profissional.

sábado, 2 de agosto de 2014

Provas de Pagamento NeoBux - Página 2

Pagamentos Instantâneos - NeoBux





  • Pagamento de número 14




  • Pagamento de número 13





  • Pagamento de número 12





  • Pagamento de número 11





Consiga os mesmos resultados ou até mesmo mais.

  1. Veja as provas de pagamento e cadastre-se;
  2. Instale a ferramenta AdAlert no seu navegador para saber de forma instantânea o aparecimento de mais anúncios;
  3. Clique também no AdPrize (não é obrigatório, é apenas mais uma das diversas formas de ganhos). AdPrizes são sorteios onde você pode ganhar de $0,25 a $50,00, contas Golden por um ano no valor de $90,00 (aumentará seus ganhos) e muito mais em um ÚNICO clique;
  4. Pode retirar o dinheiro obtido após juntar $2,00;
  5. Esse valor acaba sendo conseguido mais rápido do que você imagina. As possibilidades de ganhos são muitas: visualizando anúncios, com suas referências diretas ou alugadas, respondendo pesquisas, visualizando vídeos...


Abaixo minhas outras retiradas.

Provas de Pagamento NeoBux






sábado, 12 de outubro de 2013

Provas de Pagamento NeoBux

Pagamentos Instantânios - NeoBux


  • Pagamento de número 10.




Consiga os mesmos resultados ou até mesmo mais.

  1. Veja as provas de pagamento e cadastre-se;
  2. Instale a ferramenta AdAlert no seu navegador para saber de forma instantânea o aparecimento de mais anúncios;
  3. Clique também no AdPrize (não é obrigatório, é apenas mais uma das diversas formas de ganhos). AdPrizes são sorteios onde você pode ganhar de $0,25 a $50,00, contas Golden por um ano no valor de $90,00 (aumentará seus ganhos) e muito mais em um ÚNICO clique;
  4. Pode retirar o dinheiro obtido após juntar $2,00;
  5. Esse valor acaba sendo conseguido mais rápido do que você imagina. As possibilidades de ganhos são muitas: visualizando anúncios, com suas referências diretas ou alugadas, respondendo pesquisas, visualizando vídeos...


Abaixo minhas últimas retiradas.

  • Pagamento de número 9.


  • Pagamento de número 8.




  • Pagamento de número 7.



  • Pagamento de número 6.

Pagamento Número 6 NeoBux



  • Pagamento de número 5.


Pagamento Número 5 NeoBux


  • Pagamento de número 4.

Pagamento Número 4 NeoBux



  • Pagamento de número 3.

Pagamento Número 3 NeoBux



  • Pagamento de número 2.

Pagamento Número 2 NeoBux


  • Pagamento de número 1.

Pagamento Número 1 NeoBux










domingo, 29 de setembro de 2013

Comandos DOS e arquivos .bat (Parte 5) – Cadastro de Pessoas

OBS.: 1) É altamente recomendado, para melhor aprendizagem, que ao invés de copiar e colar, digite todo conteúdo dos exemplos, dessa forma terá maior fixação dos comandos e sintaxe dos mesmos.
2) Todos os testes dos exemplos foram realizados utilizando como sistema operacional o Windows 8, o que não significa que  funcionará no mesmo.


Atualizado em 08/01/2017  - Inserido a funcionalidade de editar cadastro.



Depois do Blog Cabeça Nerd desenvolver o programa NIVER, tiveram leitores pedindo-nos um programa para cadastro de pessoas. Lembro que para tal procedimento seria necessário uma linguagem de programação mais robusta. Entretanto, aceitei o desafio e fiz usando apenas comandos do MS-DOS através de arquivo em lote. Agradeço a participação e incentivos de todos, abaixo, segue o programa.


Nesse programa você poderá cadastrar:

  • Nome;
  • Endereço (rua, numero, complemento e CEP);
  • Telefone/fax;
  • Celular;
  • CPF e RG;
  • Sexo;
  • Estado civil;
  • e-mail e ainda colocar uma observação.


Poderá também consultar os dados cadastrados e excluí-los posteriormente. Esse é um típico programa onde se trabalha muito com strings (conjunto de caractere) e isso é bastante complicado em arquivos em lote. Sendo assim, os mais observadores poderão encontrar algumas limitações do programa, algo que peço que desconsiderem dadas as restrições dos comandos do MS-DOS. Obviamente, estarei disposto a receber opiniões, assim, ajudaremos todos.




  1. @echo Off
  2. mode con cols=60 lines=30

  3. :menuPrin
  4. rem ###Mostra Menu inicial.###
  5. Title Cadastro de Pessoas - Menu Principal
  6. cls
  7.  echo  Cadastro de Pessoas
  8. echo.
  9. echo  O que deseja fazer?
  10. echo.
  11. echo.
  12. echo                 1-Cadastrar
  13. echo                 2-Apagar
  14. echo                 3-Pesquisa
  15. echo                 4-Editar
  16. echo                 5-Desenvolvedor
  17. echo                 6-Sair
  18. echo.
  19. echo.
  20. set /p "op=Escolha uma opcao: "
  21. rem ###Validacao para aceitar apenas os valores pre determinados###

  22. if %op% LSS 1 (
  23. echo.
  24. echo ESCOLHA INCORRETA!
  25. echo.
  26. pause
  27. goto menuPrin
  28. )
  29. if %op% GTR 5 (
  30. echo.
  31. echo ESCOLHA INCORRETA!
  32. echo.
  33. pause
  34. goto menuPrin
  35. )
  36. rem ###Fim da validacao para aceitar apenas os valores pre determinados###

  37. if NOT exist codigo.cadp echo 0 > codigo.cadp
  38. rem ###Nesta linha 39 Caso nao exista o arquivo para
  39. rem gravacao e leitura do ultimo codigo cadastrado
  40. rem sera criado o arquivo com codigo zero "0" .###

  41. if %op%==1 set operacao=Cadastrar
  42. if %op%==2 set operacao=Apagar
  43. if %op%==3 set operacao=Pesquisar
  44. if %op%==4 set operacao=Editar
  45. if %op%==5 set operacao=Desenvolvedor
  46. if %op%==6 exit

  47. rem ###Cabecalho que sera usado para Cadastrar, Apagar, Pesquisar e Desenvolvedor###.
  48. :tipoOperacao
  49. Title Cadastro de Pessoas - %operacao%
  50. cls
  51. echo  Cadastro de Pessoas - Operacao escolhido: %operacao%
  52. echo.
  53. echo.

  54. if %op%==1 goto Cadastrar
  55. if %op%==2 goto Apagar
  56. if %op%==3 goto Pesquisa
  57. if %op%==4 goto Editar
  58. if %op%==5 goto Desenvolvedor
  59. rem ###Fim do cabecalho###

  60. :menuEscolha
  61. cls
  62. echo  Cadastro de Pessoas
  63. echo.
  64. echo.
  65. echo         C-Continuar a %operacao%
  66. echo         M-Menu Principal
  67. echo         S-Sair
  68. echo.
  69. echo.
  70. set /p "escolha=Escolha uma opcao: "
  71. if /I %escolha%==C goto tipoOperacao
  72. if /I %escolha%==M goto menuPrin
  73. if /I %escolha%==S exit

  74. :Cadastrar
  75. set operacao=Cadastrar
  76. set cod=type codigo.cadp

  77. echo Ultimo Codigo Cadastrado
  78. %cod%

  79. rem ###Obtendo dadas para a gravacao###.
  80. echo.
  81. echo.
  82. set /p "codigo=Codigo: "
  83. echo.
  84. set /p "nome=Nome: "
  85. echo.
  86. set /p "endereco=Endereco: "
  87. set /p "numero=Numero: "
  88. set /p "complemento=Complemento: "
  89. set /p "cep=CEP: "
  90. echo.
  91. set /p "telefoneFax=Telefone/Fax: "
  92. set /p "celular=Celular: "
  93. echo.
  94. set /p "cpf=CPF: "
  95. set /p "rg=RG: "
  96. set /p "sexo=Sexo: "
  97. set /p "estadoCivil=Estado Civil: "
  98. echo.
  99. set /p "email=E-mail: "
  100. echo.
  101. set /p "Observacao=Observacao: "
  102. rem ###Fim da obtencao dos dadas.###

  103. rem ###Gravando os dados###
  104. echo %codigo%__NOME: %nome% >> cadastros.cadp
  105. echo %codigo%__ENDERECO: %endereco% >> cadastros.cadp
  106. echo %codigo%__NUMERO: %numero% >> cadastros.cadp
  107. echo %codigo%__COMPLEMENTO: %complemento% >> cadastros.cadp
  108. echo %codigo%__CEP: %cep% >> cadastros.cadp
  109. echo %codigo%__TELEFONE/FAX: %telefoneFax% >> cadastros.cadp
  110. echo %codigo%__CELULAR: %celular% >> cadastros.cadp
  111. echo %codigo%__CPF: %cpf% >> cadastros.cadp
  112. echo %codigo%__RG: %rg% >> cadastros.cadp
  113. echo %codigo%__SEXO: %sexo% >> cadastros.cadp
  114. echo %codigo%__ESTADO CIVIL: %estadoCivil% >> cadastros.cadp
  115. echo %codigo%__E-MAIL: %email% >> cadastros.cadp
  116. echo %codigo%__OBSERVACAO: %observacao% >> cadastros.cadp
  117. echo. %codigo% > codigo.cadp
  118. rem ###Fim da gravacao dos dados###
  119. goto menuEscolha

  120. :Apagar
  121. set cod=type codigo.cadp
  122. echo Ultimo Codigo Cadastrado
  123. %cod%
  124. echo.
  125. echo.

  126. set operacao=Apagar
  127. set /p "apagar=Codigo que deseja apagar: "
  128. find /I /V "%apagar%__" cadastros.cadp > cadastros2.cadp
  129. echo.
  130. echo.
  131. pause
  132. del cadastros.cadp
  133. rename cadastros2.cadp cadastros.cadp
  134. find /I /V "cadastros.cadp" cadastros.cadp > cadastros2.cadp
  135. del cadastros.cadp
  136. rename cadastros2.cadp cadastros.cadp
  137. goto menuEscolha

  138. :Pesquisa
  139. set cod=type codigo.cadp
  140. echo Ultimo Codigo Cadastrado
  141. %cod%
  142. echo.
  143. echo.
  144. set /P "codigoPesq=Codigo para pesquisar: "
  145. if exist cadastros.cadp find /I "%codigoPesq%__" cadastros.cadp
  146. echo.
  147. pause
  148. set operacao=Pesquisar
  149. goto menuEscolha

  150. :Editar
  151. set cod=type codigo.cadp
  152. echo Ultimo Codigo Cadastrado
  153. %cod%
  154. echo.
  155. echo.
  156. set /P "codigoEdit=Codigo para editar: "
  157. find /I /V "%codigoEdit%__" cadastros.cadp > cadastros2.cadp
  158. echo.
  159. echo               ------ INSTRUCAO ------
  160. echo.
  161. echo.
  162. echo   Para os campos que nao deseja editar, deixar em branco.
  163. echo.
  164. echo.
  165. echo.
  166. pause
  167. cls
  168. echo Dados atuais:
  169. find /I "%codigoEdit%__" cadastros.cadp
  170. echo.
  171. echo.
  172. echo Novos dados:
  173. echo.
  174. echo.
  175. rem ###Obtendo dadas para a gravacao###.
  176. echo.
  177. echo.
  178. rem Zera a variavel###
  179. set nome=
  180. set /p "nome=Nome: "
  181. echo.
  182. set endereco=
  183. set /p "endereco=Endereco: "
  184. set numero=
  185. set /p "numero=Numero: "
  186. set complemento=
  187. set /p "complemento=Complemento: "
  188. set cep=
  189. set /p "cep=CEP: "
  190. echo.
  191. set telefoneFax=
  192. set /p "telefoneFax=Telefone/Fax: "
  193. set celular=
  194. set /p "celular=Celular: "
  195. echo.
  196. set cpf=
  197. set /p "cpf=CPF: "
  198. set rg=
  199. set /p "rg=RG: "
  200. set sexo=
  201. set /p "sexo=Sexo: "
  202. set estadoCivil=
  203. set /p "estadoCivil=Estado Civil: "
  204. echo.
  205. set email=
  206. set /p "email=E-mail: "
  207. echo.
  208. set observacao=
  209. set /p "observacao=Observacao: "
  210. rem ###Fim da obtencao dos dados.###

  211. rem ###Gravando os dados###
  212. if "%nome%"=="" (
  213. find /I "%codigoEdit%__NOME:" cadastros.cadp >> cadastros2.cadp
  214. ) else (
  215. echo %codigoEdit%__NOME: %nome% >> cadastros2.cadp
  216. )

  217. if "%endereco%"=="" (
  218. find /I "%codigoEdit%__ENDERECO:" cadastros.cadp >> cadastros2.cadp
  219. ) else (
  220. echo %codigoEdit%__ENDERECO: %endereco% >> cadastros2.cadp
  221. )

  222.  if "%numero%"=="" (
  223.  find /I "%codigoEdit%__NUMERO:" cadastros.cadp >> cadastros2.cadp
  224.  ) else (
  225.  echo %codigoEdit%__NUMERO: %numero% >> cadastros2.cadp
  226. )

  227.  if "%complemento%"=="" (
  228.  find /I "%codigoEdit%__COMPLEMENTO:" cadastros.cadp >> cadastros2.cadp
  229.  ) else (
  230. echo %codigoEdit%__COMPLEMENTO: %complemento% >> cadastros2.cadp
  231. )

  232. if "%cep%"=="" (
  233. find /I "%codigoEdit%__CEP:" cadastros.cadp >> cadastros2.cadp
  234. ) else (
  235.  echo %codigoEdit%__CEP: %cep% >> cadastros2.cadp
  236. )

  237. if "%telefoneFax%"=="" (
  238. find /I "%codigoEdit%__TELEFONE/FAX:" cadastros.cadp >> cadastros2.cadp
  239. ) else (
  240. echo %codigoEdit%__TELEFONE/FAX: %telefoneFax% >> cadastros2.cadp
  241. )

  242. if "%celular%"=="" (
  243. find /I "%codigoEdit%__CELULAR:" cadastros.cadp >> cadastros2.cadp
  244. ) else (
  245. echo %codigoEdit%__CELULAR: %celular% >> cadastros2.cadp
  246. )

  247. if "%cpf%"=="" (
  248. find /I "%codigoEdit%__CPF:" cadastros.cadp >> cadastros2.cadp
  249. ) else (
  250. echo %codigoEdit%__CPF: %cpf% >> cadastros2.cadp
  251. )

  252. if "%rg%"=="" (
  253. find /I "%codigoEdit%__RG:" cadastros.cadp >> cadastros2.cadp
  254. ) else (
  255. echo %codigoEdit%__RG: %rg% >> cadastros2.cadp
  256. )
  257.  
  258. if "%sexo%"=="" (
  259. find /I "%codigoEdit%__SEXO:" cadastros.cadp >> cadastros2.cadp
  260. ) else (
  261. echo %codigoEdit%__SEXO: %sexo% >> cadastros2.cadp
  262. )
  263.  
  264. if "%estadoCivil%"=="" (
  265. find /I "%codigoEdit%__ESTADO CIVIL:" cadastros.cadp >> cadastros2.cadp
  266. ) else (
  267. echo %codigoEdit%__ESTADO CIVIL: %estadoCivil% >> cadastros2.cadp
  268. )

  269. if "%email%"=="" ( 
  270. find /I "%codigoEdit%__E-MAIL:" cadastros.cadp >> cadastros2.cadp
  271. ) else (
  272. echo %codigoEdit%__E-MAIL: %email% >> cadastros2.cadp
  273. )
  274.  
  275. if "%observacao%"=="" (
  276. find /I "%codigoEdit%__OBSERVACAO:" cadastros.cadp >> cadastros2.cadp
  277. ) else (
  278. echo %codigoEdit%__OBSERVACAO: %observacao% >> cadastros2.cadp
  279. )
  280. rem ###Fim da gravacao dos dados###
  281.  
  282. del cadastros.cadp
  283. rename cadastros2.cadp cadastros.cadp
  284. find /I /V "cadastros.cadp" cadastros.cadp > cadastros2.cadp
  285. rem retira linhas em branco
  286. type cadastros2.cadp | find " " > cadastros3.cadp
  287. rem retira outras linhas em branco
  288. type cadastros3.cadp | find /V "  " > cadastros4.cadp
  289. del cadastros.cadp
  290. del cadastros2.cadp
  291. del cadastros3.cadp
  292. rename cadastros4.cadp cadastros.cadp
  293. echo.
  294. echo.
  295. pause
  296. set operacao=Editar
  297. goto menuEscolha
  298.  
  299. :Desenvolvedor
  300. echo.
  301. echo.
  302. echo ###########################################################
  303. echo #                                                         #
  304. echo # Cadastro de Pessoas eh um programa livre para cadastrar #
  305. echo # pessoas e seus respectivos dados, produzido por Leomar  #
  306. echo # Ilario como parte dos estudos do MS-DOS com arquivos em #
  307. echo # lote desenvolvido para o Blog Cabeca Nerd.              #
  308. echo #                                                         #
  309. echo #                                                         #
  310. echo # Contato desenvolvedor: blogcabecanerd@gmail.com         #
  311. echo #                                                         #
  312. echo ###########################################################
  313. echo.
  314. echo.
  315. echo.
  316. echo.
  317. echo.
  318. pause
  319. cls
  320. goto menuEscolha
O programa ficará da seguinte forma:





Veja também:

sábado, 21 de setembro de 2013

Comandos DOS e arquivos .bat (Parte 4) – Cadastro de Aniversariantes

OBS.: 1) É altamente recomendado, para melhor aprendizagem, que ao invés de copiar e colar, digite todo conteúdo dos exemplos, dessa forma terá maior fixação dos comandos e sintaxe dos mesmos.
2) Todos os testes dos exemplos foram realizados utilizando como sistema operacional o Windows 8, o que não significa que  funcionará no mesmo.


Vamos desenvolver agora um programa que utilizará arquivos como forma de entrada e saída de dados onde poderemos gravar, apagar, fazer listagens e também pesquisas.



É um programa simples chamado NIVER que mostra como é possível realizar certas tarefas, utilizando apenas comandos do MS-DOS. Nele você poderá cadastrar aniversariantes em seu respectivo mês, onde poderá consultá-los e excluí-los posteriormente.



  1. @echo Off
  2. mode con cols=60 lines=30

  3. :mnuPrin

  4. Title Niver - Menu Principal
  5. cls
  6. echo  Niver
  7. echo.
  8. echo  O que deseja fazer?
  9. echo.
  10. echo.
  11. echo                 1-Cadastrar Aniversariantes
  12. echo                 2-Apagar Aniversariantes
  13. echo                 3-Listagem
  14. echo                 4-Pesquisa
  15. echo                 5-Desenvolvedor
  16. echo                 6-Sair
  17. echo.
  18. echo.
  19. set /p "op=Escolha uma opcao: "

  20. rem validacao para aceitar apenas os valores pre determinados
  21. if %op% LSS 1 (
  22. echo.
  23. echo ESCOLHA INCORRETA!
  24. echo.
  25. pause
  26. goto mnuPrin
  27. )
  28. if %op% GTR 6 (
  29. echo.
  30. echo ESCOLHA INCORRETA!
  31. echo.
  32. pause
  33. goto mnuPrin
  34. )
  35. rem fim da validacao para aceitar apenas os valores pre determinados

  36. if %op%==1 set operacao=Cadastrar
  37. if %op%==2 set operacao=Apagar
  38. if %op%==3 set operacao=Listagem
  39. if %op%==4 goto Pesquisa
  40. if %op%==5 goto desenvolvedor
  41. if %op%==6 exit

  42. :escmes

  43. Title Niver - %operacao%
  44. cls
  45. echo  Niver
  46. echo.
  47. echo  Escolha o mes para %operacao% Aniversariantes:
  48. echo.
  49. echo.
  50. echo         1-Janeiro     5-Maio      9-Setembro
  51. echo         2-Fevereiro   6-Junho    10-Outubro
  52. echo         3-Marco       7-Julho    11-Novembro
  53. echo         4-Abril       8-Agosto   12-Dezembro
  54. echo.
  55. echo         M-Menu Principal
  56. echo         S-Sair
  57. echo.
  58. set /p "mes=Escolha uma opcao: "

  59. if %mes%==1 (
  60. set MesEscolhido=Janeiro
  61. set Arquivo=Jan
  62. goto MesEscolhido
  63. )
  64. if %mes%==2 (
  65. set MesEscolhido=Fevereiro
  66. set Arquivo=Fev
  67. goto MesEscolhido
  68. )
  69. if %mes%==3 (
  70. set MesEscolhido=Marco
  71. set Arquivo=Mar
  72. goto MesEscolhido
  73. )
  74. if %mes%==4 (
  75. set MesEscolhido=Abril
  76. set Arquivo=Abr
  77. goto MesEscolhido
  78. )
  79. if %mes%==5 (
  80. set MesEscolhido=Maio
  81. set Arquivo=Mai
  82. goto MesEscolhido
  83. )
  84. if %mes%==6 (
  85. set MesEscolhido=Junho
  86. set Arquivo=Jun
  87. goto MesEscolhido
  88. )
  89. if %mes%==7 (
  90. set MesEscolhido=Julho
  91. set Arquivo=Jul
  92. goto MesEscolhido
  93. )
  94. if %mes%==8 (
  95. set MesEscolhido=Agosto
  96. set Arquivo=Ago
  97. goto MesEscolhido
  98. )
  99. if %mes%==9 (
  100. set MesEscolhido=Setembro
  101. set Arquivo=Set
  102. goto MesEscolhido
  103. )
  104. if %mes%==10 (
  105. set MesEscolhido=Outubro
  106. set Arquivo=Out
  107. goto MesEscolhido
  108. )
  109. if %mes%==11 (
  110. set MesEscolhido=Novembro
  111. set Arquivo=Nov
  112. goto MesEscolhido
  113. )
  114. if %mes%==12 (
  115. set MesEscolhido=Dezembro
  116. set Arquivo=Dez
  117. goto MesEscolhido
  118. )
  119. if /I %mes%==M goto mnuPrin
  120. if /I %mes%==S exit
  121. rem validacao para aceitar apenas os valores pre determinados
  122. if %mes% LSS 1 (
  123. echo.
  124. echo MES INCORRETO!
  125. echo.
  126. pause
  127. goto escmes
  128. )
  129. if %mes% GTR 12 (
  130. echo.
  131. echo MES INCORRETO!
  132. echo.
  133. pause
  134. goto escmes
  135. )
  136. rem fim da validacao para aceitar apenas os valores pre determinados

  137. rem Cadastrar, Apagar e Pesquizar no mes escolhido.
  138. :MesEscolhido
  139. Title Niver - %operacao% em %MesEscolhido%
  140. cls
  141. echo  Niver
  142. echo.
  143. echo  Mes escolhido: %MesEscolhido%
  144. echo.
  145. echo. 

  146. if %op%==1 goto Cadastrar
  147. if %op%==2 goto Apagar
  148. if %op%==3 goto Listagem

  149. :Cadastrar
  150. set /P "nome=Nome do aniversariante: "
  151. set /P "dia=Dia do aniversario: "
  152. echo Nome: %nome% - Dia: %dia% >> %Arquivo%.niv
  153. goto escmes

  154. :Apagar
  155. set /p "apagar=Nome do aniversariante para apagar: "
  156. find /I /V "%apagar%" %Arquivo%.niv > %Arquivo%2.niv
  157. echo.
  158. echo.
  159. pause
  160. del %Arquivo%.niv
  161. rename %Arquivo%2.niv %Arquivo%.niv
  162. find /I /V "JAN.NIV" %Arquivo%.niv > %Arquivo%2.niv
  163. del %Arquivo%.niv
  164. rename %Arquivo%2.niv %Arquivo%.niv
  165. goto escmes

  166. :Listagem
  167. sort %Arquivo%.niv | more /S
  168. echo.
  169. pause
  170. goto escmes

  171. :Pesquisa
  172. Title Niver - Pesquisa
  173. cls
  174. echo  Niver
  175. echo.
  176. set /P "NomePesq=Nome do aniversariante para pesquisar: "
  177. if exist jan.niv find /I "%NomePesq%" jan.niv
  178. if exist fev.niv find /I "%NomePesq%" fev.niv
  179. if exist mar.niv find /I "%NomePesq%" mar.niv
  180. if exist abr.niv find /I "%NomePesq%" abr.niv
  181. if exist mai.niv find /I "%NomePesq%" mai.niv
  182. if exist jun.niv find /I "%NomePesq%" jun.niv
  183. echo.
  184. pause
  185. cls
  186. echo  Niver
  187. echo.
  188. echo                  CONTINUACAO DA PESQUISA...
  189. echo.
  190. if exist jul.niv find /I "%NomePesq%" jul.niv
  191. if exist ago.niv find /I "%NomePesq%" ago.niv
  192. if exist set.niv find /I "%NomePesq%" set.niv
  193. if exist out.niv find /I "%NomePesq%" out.niv
  194. if exist nov.niv find /I "%NomePesq%" nov.niv
  195. if exist dez.niv find /I "%NomePesq%" dez.niv
  196. echo.
  197. pause
  198. goto mnuPrin

  199. :desenvolvedor

  200. Title Niver - Desenvolvedor
  201. cls
  202. echo  Niver
  203. echo.
  204. echo Niver eh um programa livre para agendar datas de
  205. echo aniversarios, produzida por Leomar Ilario como
  206. echo parte dos estudos do MS-DOS com arquivos em lote
  207. echo desenvolvida para o Blog Cabeca Nerd.
  208. echo.
  209. echo Contato desenvolvedor: blogcabecanerd@gmail.com
  210. echo.
  211. pause
  212. cls
  213. goto mnuPrin


O programa ficará da seguinte forma:




Veja também: