Junio 22, 2018, 06:27:07 pm

Autor Tema: Agenda Personal Inteligente (Proximamente!!!)  (Leído 1721 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Agenda Personal Inteligente (Proximamente!!!)
« en: Octubre 21, 2010, 11:11:42 pm »
Hey Comunidad PortalHacker!!! Proximamente les traigo una Agenda personal.. la posteare en Codigo Abierto Batch...

aki les dejo una parte del codigo que tengo... es 100% hecho por mi :P claro ke con una ke otra ayudita de Javier y Mr.Lerzep pero... eso si.. ke mas del 98% del codigo es hecho por mi :P jajaja ;D ;D

La idea me surgio por alguien ke estaba haciendo una.. si no me ekivoco es TheEGG89... y tambn estuve una vez leyendo algo sobre Batch en Wikipedia (You are not allowed to view links. Register or Login) y hay una agenda muy pobre ahi... entonces.. estoy haciendo esta como reto personal :P


aki una parte del codigo:

Código: (dos) You are not allowed to view links. Register or Login
@echo off
title Agenda Personal By Mr. Batista
goto menu
:preparar
md "%userprofile%\AppData\Local\Agenda Personal"
cd /d "%userprofile%\AppData\Local\Agenda Personal"
if exist "%tmp%\lista" del "%tmp%\lista"
tree /f>>"%tmp%\lista"
type "%tmp%\lista"
goto:eof


:menu
call:preparar
color 1f
cls
call:AgP
echo.                                  ..:: Menu ::..
echo.
echo. 1. Agregar Contacto.
echo. 2. Editar Contacto.
echo. 3. Eliminar Contacto
echo. 4. Ver Listado de Contactos.
echo. 5. Salir
echo.
Set /p opcm=Opcion:
if not defined opcm goto error1
if %opcm%==1 goto agregar
if %opcm%==2 goto editar
if %opcm%==3 goto eliminar
if %opcm%==4 goto ver
if %opcm%==5 goto salir
goto error2

:AgP
cls
echo.
echo.
echo.                                  AGENDA PERSONAL
echo.
goto:EOF

--------------------AGREGAR----------------------

:agregar
call:agp
echo.                            ..:: Agregar  Contacto ::..
echo.
set /p nom=Nombre:
if not defined nom goto error3
set /p apl=Apellido:
if not defined nom goto error3
if exist "%nom% %apl%" goto error4
set /p email=E-Mail:
set /p fecha=Fecha de Nacimiento:
set /p Tel=Numero Telefonico:
set /p Cel=Numero de Celular:
set /p Dir=Direccion:
:mostrar
cls
echo.
echo. Nombre Completo:     %nom% %Apl%
echo. Correo Electronico:  %email%
echo. Fecha de Nacimiento: %fecha%
echo. Numero Telefonico:   %tel%
echo. Numero de Celular:   %cel%
echo. Direccion:           %dir%
echo.
echo.
echo. Es la informacion correcta? (s/n)
set /p conf=
if %conf%==s (
call:escribir
goto menu
)
if %conf%==n goto agregar
goto mostrar

:escribir
set nom2=%nom: =_%
set apl2=%apl: =_%
if exist %nom2%_%apl2% (
echo Contacto ya existente. Desea sobreescribir Contacto? (s/n)
set /p opcesc=Opcion:
if %opcesc%==s goto escribir2
if %opcesc%==n goto:eof
)
:escribir2
if exist %nom2%_%apl2% del %nom2%_%apl2%
echo.>>"%nom2%_%apl2%"
echo %nom% %apl%>>"%nom2%_%apl2%"
echo %email%>>"%nom2%_%apl2%"
echo %fecha%>>"%nom2%_%apl2%"
echo %tel%>>"%nom2%_%apl2%"
echo %cel%>>"%nom2%_%apl2%"
echo %dir%>>"%nom2%_%apl2%"
goto:eof

---------------------EDITAR------------------------

:editar
call:preparar
call:agp
echo.                             ..:: Editar Contacto ::..
echo.
echo. Nombre de contacto a Editar:
set /p nce=
if not defined nce goto error6
set nce=%nce: =_%
if exist "%nce%" (goto EditExist) else (goto error5)

:opcedit
echo Listado de contactos existentes
echo.
for /f "tokens=* skip=3" %%a in ('type "%tmp%\lista"') do echo.   %%a
echo.
echo.
echo. Nombre de contacto a Editar:
set /p nce=
if exist "%nce%" (goto EditExist) else (goto error5)

:EditExist
cls
call:agp
echo.                             ..:: Editar Contacto ::..
echo.
call:Sacar_Datos
echo.             Datos Actuales
echo.
echo. 1. Nombre Completo:     %noma% %Apla%
echo. 2. Correo Electronico:  %emaila%
echo. 3. Fecha de Nacimiento: %fechaa%
echo. 4. Numero Telefonico:   %tela%
echo. 5. Numero de Celular:   %cela%
echo. 6. Direccion:           %dira%
goto que_editar

:Sacar_Datos
:nom
for /f "tokens=1 skip=1" %%a in (%nce%) do set nom=%%a&goto apl
:apl
for /f "tokens=2 skip=1" %%a in (%nce%) do set apl=%%a&goto email
:email
for /f "tokens=1 skip=2" %%a in (%nce%) do set email=%%a&goto fecha
:fecha
for /f "tokens=* skip=3" %%a in (%nce%) do set fecha=%%a&goto tel
:tel
for /f "tokens=* skip=4" %%a in (%nce%) do set tel=%%a&goto cel
:cel
for /f "tokens=* skip=5" %%a in (%nce%) do set cel=%%a&goto dir
:dir
for /f "tokens=* skip=6" %%a in (%nce%) do set dir=%%a&goto sacar_datos2
:sacar_datos2
set noma=%nom%
set apla=%apl%
set emaila=%email%
set fechaa=%fecha%
set tela=%tel%
set cela=%cel%
set dira=%dir%
goto:eof

:que_editar
echo.
echo. Que desea Editar? 
echo.                           Introduzca:
echo.                                "guardar" para guardar cambios.
echo.                                "salir" para volver al menu Principal.
set /p opcedit=Opcion:
if not defined opcedit goto error7
if %opcedit%==1 (
set nomaback=%noma%
set /p noma=Nombre:
if not defined noma set noma=%nomaback%
set aplaback=%apla%
set /p apla=Apellido:
if not defined apla set apla=%aplaback%
goto editExist
)

if %opcedit%==2 (
set emailback=%nom%
set /p email=E-Mail:
if not defined email set email=%emailback%
goto editExist
)

if %opcedit%==3 (
set fechaback=%fecha%
set /p fecha=Fecha de Nacimiento:
if not defined fecha set fecha=%fechaback%
goto editExist
)

if %opcedit%==4 (
set telback=%tel%
set /p tel=Numero de Telefono:
if not defined tel set tel=%telback%
goto editExist
)

if %opcedit%==5 (
set celback=%cel%
set /p cel=Numero de Celular:
if not defined cel set cel=%celback%
goto editExist
)

if %opcedit%==6 (
set dirback=%dir%
set /p dir=Direccion:
if not defined dir set dir=%dirback%
goto editExist
)
if %opcedit%==guardar call:escribir & goto menu
if %opcedit%==salir goto menu

REM  ---------------------ERRORES--------------------------

:error1
set err=Debe elegir una opcion...
call:error
goto menu


:error2
set err=la opcion "%opcm%" no esta disponible
call:error
goto menu

:error3
set err=Este campo es Obligatorio
call:error
goto agregar

:error4
set err=Ya existe este contacto
call:error
goto agregar

:error5
set err=El contacto no existe
call:error
goto opcedit

:error6
set err=Este campo es Obligatorio
call:error
goto editar

:error7
set err=Debe elegir una Opcion.
call:error
goto EditExist

:error
cls
color 1c
for /l %%a in (1,1,8) do echo.
echo.                                       ERROR
echo.
echo.                          %err%
pause>nul
cls
color 1f
goto:eof


bueno.... aun faltan un monton de etiquetas (yo les llamo funciones) como la de Ver listado de contactos... ver datos de contactos... etc etc...

NOTA: Cualkier Duda, Sugerencia, Aclaracion, Reclamacion... no duden en responder al post. Gracias a Todos!
You are not allowed to view links. Register or Login

Desconectado flony

  • Me das tu password?
  • **
  • Mensajes: 253
  • Sexo: Masculino
    • Ver Perfil
Re: Agenda Personal Inteligente (Proximamente!!!)
« Respuesta #1 en: Octubre 22, 2010, 05:27:45 am »
a simple vista  :cool: bien bue a esperar el code completo y ver 
si un problema no tiene solucion entonces no es un problema...es algo inevitable

Desconectado Mr.Lerzep

  • Yo vivo en CPH
  • ***
  • Mensajes: 723
  • Sexo: Masculino
  • En el bloque.
    • Ver Perfil
Re: Agenda Personal Inteligente (Proximamente!!!)
« Respuesta #2 en: Octubre 22, 2010, 08:13:48 am »
Exelente Batista ya me lo esperaba algo como esto ce vos amigo , asi que metele pata , y dale espero el code completo estoy un poco ansioso para ver que nos mostras  :8):

Salu2 & Suerte.

Desconectado hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Re: Agenda Personal Inteligente (Proximamente!!!)
« Respuesta #3 en: Octubre 22, 2010, 10:39:13 am »
hey grax por los animos!!! :D estoy trabajando en la Agenda...
Netdemon... tambn le puse los comentarios... es buena la idea...

Desconectado JaAViEr

  • ¡ Programming the world !
  • Colaborador
  • ****
  • Mensajes: 8218
  • https://uniendo.la
    • Ver Perfil
    • Ethereum Chile
Re: Agenda Personal Inteligente (Proximamente!!!)
« Respuesta #4 en: Octubre 22, 2010, 12:45:46 pm »
Bueno, veo que la llamas inteligente...
Nos puedes explicar la diferencia de tu
agenda con las comunes ? :D

Saludos.
¡MI TWITTER You are not allowed to view links. Register or Login!
You are not allowed to view links. Register or Login !

Desconectado flony

  • Me das tu password?
  • **
  • Mensajes: 253
  • Sexo: Masculino
    • Ver Perfil
Re: Agenda Personal Inteligente (Proximamente!!!)
« Respuesta #5 en: Octubre 22, 2010, 02:42:59 pm »
sin animo de ofender es marketing... :laugh: vende mejor  :cool: es solo un  nombre  ;)

Desconectado hanlly

  • Yo vivo en CPH
  • ***
  • Mensajes: 505
    • Ver Perfil
Re: Agenda Personal Inteligente (Proximamente!!!)
« Respuesta #6 en: Octubre 22, 2010, 05:54:28 pm »

jajajaj JaAVIEr!!! es ke muchas veces las agendas ke hacen escriben datos a lo loco... cuando kieres editar contactos... algunas veces tienen errores... etc etc... no c si entiendas... si kieres usa la ke ta en Wikipedia a ver ke dices de ella :p jaja


exclamation
Ipad 2ªGeneracion Proximamente

Iniciado por Mafiaboy

0 Respuestas
659 Vistas
Último mensaje ſeptiembre 13, 2010, 11:36:42 am
por Mafiaboy
exclamation
Proximamente, Ubuntu Linux en tu móvil

Iniciado por LokoD4rk

3 Respuestas
942 Vistas
Último mensaje Mayo 03, 2008, 05:52:49 pm
por Dj_Dexter
xx
Agente inteligente

Iniciado por Cauich

0 Respuestas
896 Vistas
Último mensaje Febrero 24, 2011, 08:18:32 am
por Cauich
xx
[C]Ordenador vs Hombre ¿Quién es mas inteligente?

Iniciado por myguestp

0 Respuestas
1312 Vistas
Último mensaje Noviembre 13, 2010, 08:41:45 am
por myguestp
xx
Agenda

Iniciado por Vassily

7 Respuestas
3403 Vistas
Último mensaje Enero 21, 2008, 06:58:56 am
por k0be
xx
Mi agenda MDT

Iniciado por -MDT-

4 Respuestas
1319 Vistas
Último mensaje Febrero 18, 2010, 07:22:50 pm
por MDV1996
xx
Agenda

Iniciado por JaSaP9693

1 Respuestas
965 Vistas
Último mensaje Marzo 02, 2012, 05:11:18 pm
por Rubnalq
xx
agenda en c++

Iniciado por koopa2

1 Respuestas
6288 Vistas
Último mensaje Mayo 26, 2007, 04:51:15 pm
por arlendx
exclamation
Apple patenta la iBike: una bicicleta inteligente

Iniciado por cemasmas

2 Respuestas
776 Vistas
Último mensaje Agosto 09, 2010, 12:09:18 pm
por Mafiaboy
thumbup
Como hacer preguntas de manera inteligente

Iniciado por vart001

90 Respuestas
63619 Vistas
Último mensaje Diciembre 26, 2017, 08:41:54 am
por dory1