Mensajes

Buen dia..! Qiero comentar mi problema & qisiera saber si alguien de ustedes a tenido ese problema y como lo ha resuelto :3  mi problema es el Siguiente
      NO ME CONNECTA WINSOCK & SI TENGO INSTALADO EL WINSOCK.OCX LO TENGO REGISTRO REGSVR32    PERO NO SE PORQE NO ME CONECTA YA DESACTIVE FIREWALL & ANTIVIRUS PERO NO ME CONECTA ME AN PASADO troyanos RAT EN VB CON SOCKET COMO VICTIMA  Y NO APARESCO COMO CONECTADO INTENTARON MUCHOS PUERTOS Y NO .

    LA OTRA ES QUE TAMPOCO LOS BACKDOORS FUNCIONAN
& SI LOS PRUEBO EN LOCALHOST LOS BACKDOORS SI ME CONECTAN AL IGUAL QUE LO WINSOCK ME CONECTAN AMI MISMO EN LOCALHOST ..! 

YA LO EH DESARROLLADO UN  troyano CON WINSOCK PERO NO FUNCIONA  & OTROS TAMPOCO     
ME RECOMIENDAN ALGO?
graciass.-.!

[MOD: El próximo abuso de mayusculas te tocará corregirlo a ti]

muchas gracias  :d me sirvio esque eso de (     y   )  no se lo ponia
solo le ponia  if y else  asi que no me funcionaba y busque algo mejor
pero me lo solucionaste   muchas gracias 
        ahora lo que tratare de acer es que funcionen con teclas como f5 f2 etc! 



MOD: El próximo abuso de mayusculas te tocará corregirlo a ti 

[Y LAS FUNCIONES SON : 1.- AGREGAR CLIENTES 2.- BORRAR CLIENTES 3.- VENTAS 4.- VER VENTA 5.- CALCULADORA 6. - NOTAS]

Hola mi nombre es ZEROX  o MR_BOGEY   les comparto mi codigo de punto de venta no imprime - solo impre un reporte en pantalla
ok

EL CODIGO ES ESTE
     Y LAS FUNCIONES SON :
    1.- AGREGAR CLIENTES
   2.- BORRAR CLIENTES
   3.- VENTAS
    4.-  VER VENTA
   5.- CALCULADORA
  6. - NOTAS


EL CODIGO :

Código (DOS) [Seleccionar] Expandir

@echo off
title Base de datos Clientes
color b5
:menu
cls
echo.&&echo.                                        
echo                              °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°                
echo                              °Fecha :: %DATE%  Hora:: %TIME%°°
echo                              °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo .
echo .
echo               °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo               °------1.- Añadir Cliente    °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo               °---------- 2.- Buscar Cliente    °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo               °----------- ---3.- Mostrar Todos Los Clientes Registrados  °°°°
echo               °-----------------4.- Borrar Base de datos Cliente        °°°°°°°°°
echo               °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo               °------------------------5.- VENTA        °°°°°°°°°°°°°°°°°°°°°°°°°°  
echo               °--------------------- -------6.- Ver Ventas    °°°°°°°°°°°°°°°°°°°°
echo               °--------------------------------7.- Calculadora      °°°°°°°°°°°°°°°
echo               °-------------------------------------8.- Borrar Ventas    °°°°°°°°°°
echo               °----------------------------------------- 9.- Notas!   °°°°°°°°°°°°°°
echo               °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo .
echo  NOTA:  
type %homedrive%\nota.txt
echo --------------------------------
set /p o= Elija una opcion :
if not defined o goto menu
if %o%==1 (goto add)
if %o%==2 (goto b)
if %o%==3 (goto x)
if %o%==4 (goto dl)
if %o%==5 (goto ven)
if %o%==6 (goto ver)
if %o%==7 (goto equ)
if %o%==8 (goto vent)  
if %o%==9 (goto nota)
if %o%==exit (goto exit)
if %o%==salir (goto exit)  (goto menu)

:exit
exit




:nota
set /p not= Escriba Alguna Nota =
echo NOTA GUARDADA!!
pause
if exist  %homedrive%\nota.txt  del  %homedrive%\nota.txt
   else  md %homedrive%\nota.txt
echo >>    :%not%>>%homedrive%\nota.txt
goto menu


:vent
cls
echo.
echo Se borrara la base de datos esta seguro si/no
echo Se perderan todo los datos guardados
set /p de=^>^>
if %de%==si (goto del2) else (goto menu)
if %de%==no (goto menu)

:del2
cls
echo Borrando...
ping -n 2 0.0.0.0>nul
del /q /f %homedrive%\ventas.txt
echo Eliminado
pause
goto menu



:equ
goto yesi
IF NOT EXIST  %homedrive%/calc.bat  goto now
:now
echo             EL ARCHIVO CALCULADORA NO ESTA ALOJADO
echo        EN EL DISCO LOCAL C:  COPIELO EN ESA DIRECCION
pause
goto menu

:yesi
start %homedrive%/calc.bat
pause
goto menu

:add
cls
set /p name= Nombre de cliente =
set /p dire= Direccion         =
set /p n= Numero               =
set /p c= Compras Recientes    =
set /p t= Deudas/Describcion                =
set /p s=  N° Ref        =
echo Cliente    :%name%>>%homedrive%\clientes.txt
echo Direccion  :%dire%>>%homedrive%\clientes.txt
echo Numero     :%n%>>%homedrive%\clientes.txt
echo Compras Recientes    :%c%>>%homedrive%\clientes.txt
echo Deudas/Describcion      :%t%>>%homedrive%\clientes.txt
echo  N° Ref      :%s%>>%homedrive%\clientes.txt
echo ------------------------------------------------->>%homedrive%\clientes.txt
echo Generado Correctamente
pause
goto menu

:b
cls
set /p bo= Que desea buscar dentro de la Base de datos :
setlocal enabledelayedexpansion
for /f "tokens=*" %%_ in ('find "%bo%" "%homedrive%\clientes.txt" ') do (
  set "valor=%%_"
  echo El valor es : !valor!
)
pause
goto menu



















:dl
setlocal enabledelayedexpansion enableextensions
echo.
echo. Cargando...
echo.
set "bar="
set "percent=0"
set "count=0"
for /l %%i in (1,1,50) do set "bar=!bar!±"
:loop
set /p "= %bar:~0,20% %percent%%%"<nul
ping -n 1 -w 1 localhost>nul
for /l %%i in (1,1,26) do set /p "="<nul
set "bar=Û%bar%"
set /a "count+=1"
set /a "percent+=5"
if %count% leq 20 goto:loop
echo.
echo.
echo. Done.
echo Se borrara la base de datos esta seguro si/no
echo Se perderan todo los datos guardados
set /p de=^>^>
if %de%==si (goto del) else (goto menu)
if %de%==no (goto menu)
pause>nul


:del
cls
echo Borrando...
ping -n 2 0.0.0.0>nul
del /q /f %homedrive%\clientes.txt
echo Eliminado
pause
goto menu



:x
cls
echo.
type %homedrive%\clientes.txt
pause
goto menu

:ver
cls
echo.
type %homedrive%\ventas.txt
pause
goto menu


:ven
cls
echo  PROGRAMA DE VENTAS
echo   By Mr_bogey
echo ------------------------------
echo
set /p vos= Articulo =
set /p v2= Precio =
set /p v3= Cantidad =
set /p v4= Cliente =
echo  Fecha  %DATE%  Hora:: %TIME%°°>>%homedrive%\ventas.txt
echo Articulo    :%vos%>>%homedrive%\ventas.txt
echo Precio  :%v2%>>%homedrive%\ventas.txt
echo Cantidad     :%v3%>>%homedrive%\ventas.txt
echo Cliente  :%v4%>>%homedrive%\ventas.txt
echo ------------------------------------------------->>%homedrive%\ventas.txt
echo Generado Correctamente
echo EL COBRO DE LA VENTA ES DE
set /a d1=v2*v3
echo %d1%
pause
goto men




:men
cls
echo.&&echo.
echo ----------------------------------
echo  COBRARSE %d1%
echo ----------------------------------
echo desea acer otra venta
echo COBRAR!(C)
echo  SI ( Y )
echo  NO ( N )
echo.
set /p o1= Elija una opcion :
if not defined o goto menu
if %o1%==Y (goto ven1)
if %o1%==N (goto menu)
if %o1%==C (goto cobrar)


:cobrar
echo ----------------------------------
echo  COBRARSE %d1%
echo ----------------------------------
echo DIGITE LA CANTIDAD QUE RECIBIO
set /p num4=   RECIBO:
set /a resu=%num4% - %d1%
pause
echo REPORTE DE VENTA
echo           Fecha  %DATE%  Hora:: %TIME%
echo                    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º  TOTAL: %d1%      º
echo                     º                           º
echo                     º  EFECTIVO  %num4%   º
echo                     º                               º
echo                     º   CAMBIO %resu%   º
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo NO OLVIDE ENTREGAR BIEN EL CAMBIO!!
goto cliente




:ven1
cls
echo.&&echo.
echo -----------------------------------------------------------------------
echo  COBRARSE %d1% DE LOS ARTICULOS ANTERIORES
echo ---------------------------------- ------------------------------------
echo  .
set /p vt= Articulo =
set /p vs= Precio =
set /p vd= Cantidad =
echo Cliente = %v4%
echo  Fecha  %DATE%  Hora:: %TIME%°°>>%homedrive%\ventas.txt
echo Articulo    :%vt%>>%homedrive%\ventas.txt
echo Precio  :%vs%>>%homedrive%\ventas.txt
echo Cantidad     :%vd%>>%homedrive%\ventas.txt
echo Cliente  :%v4%>>%homedrive%\ventas.txt
echo ------------------------------------------------->>%homedrive%\ventas.txt
echo generado correctamente
echo                      TOTAL DE ESTE ARTICULO
set /a f=vs*vd
echo .
echo                CALCULANDO...
pause
echo                                   Total de estos articulos: %f%
set /a total= %f% + %d1%
echo                                      Total de Todo %total%

echo  DIGITE EL
set /p total2=   EFECTIVO;
set  /a  fin=%total% - %total2%
echo
echo                  -------------------------------------------------------
echo              IMPRIMIENDO EN PANTALLA EL RECIBO  
echo --------------------------------------------------------------------------
pause
echo             °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°                
echo             °Fecha :: %DATE%  Hora:: %TIME%°°
echo             °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
echo  ººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº
echo  º cant º                         ºº  articulo    ºººººººººººººº                  
echo  º º %vd%----------                    %vt% ºººººººººººººº
echo  º º %v3% -------------                %vos% ºººººººººººº
echo  º
echo  º                                      --  ºTotal :  %total%º
echo  º                                        
echo  º                                       -- ºEfectivo: %total2%º
echo  º                                      
echo  º                                        --  ºCAMBIO ; %fin%º
echo  ºººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº
echo .
echo                    *GRACIAS POR VISITAR LA TIENDA
goto cliente



:cliente
echo.&&echo.
echo   ººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº
echo   ºººEL CLIENTE %v4% PODRIA NO ESTAR REGISTRADOººº
echo   ºEN LA BASE DE DATOS                         º       º
echo   ºººººººººººººººººOPCIONES: ººººººººººººººººº           º
echo   ººººººººº1.-Buscarlo                            º                º
echo   ºººººººººººººº2.- Agregar                       º              º
echo   ººººººººººººººººº3.- menuºººººººººººººººººººººººººººººººººººººº
set /p user= Digite Opcion
if %user%== 1 (goto be)
if %user%== 2 (goto add1)
if %user%== 3 (goto menu)



:add1
cls
set /p dire= Direccion         =
set /p n= Numero               =
set /p c= Compras en deudas   =
echo  Registro Fecha  %DATE%  Hora:: %TIME%°°>>%homedrive%\clientes.txt
echo Cliente    :%v3%>>%homedrive%\clientes.txt
echo Direccion  :%dire%>>%homedrive%\clientes.txt
echo Numero     :%n%>>%homedrive%\clientes.txt
echo Compras en deudas     :%c%>>%homedrive%\clientes.txt
echo ------------------------------------------------->>%homedrive%\clientes.txt
echo Generado Correctamente
pause
goto menu








:be
cls
echo desea buscar  %v4%
setlocal enabledelayedexpansion
for /f "tokens=*" %%_ in ('find "%v4%" "%homedrive%\clientes.txt" ') do (
  set "valor=%%_"
  echo El valor es : !valor!
)
pause
goto menu






si tiene errores avisen y si pueden mejorarlo , o recomendarme algo
bienvenidas sus palabras  sean

                me despido despues mas cositas

este codigo lo comparto porque mayormente el codigo me apoyo este foro y pense devolverle el favor a los demas dando un empujon a un punto de venta que almacene            
hasta luego



MOD: Modera el uso de las mayúsculas porfavor.

[ES POSIBLE AGREGAR FUNCIONES A LAS TECLAS POR EJEMPLOTECLAS FUNCION F1 > CANCELARF2 > MENUF3 > COBRAR]

HOLA BUEN DIA COMO VEN EL TITULO esa es mi pregunta

ES POSIBLE AGREGAR FUNCIONES  A LAS TECLAS POR EJEMPLO
TECLAS          FUNCION
F1           >      CANCELAR
F2          >     MENU
F3        >     COBRAR


EXPLICARE LO QUE ESTOY HACIENDO ES UN PUNTO DE VENTA EN BATCH
SE QUE EN C++  EXISTE EL CODIGO CASE PARA ASIGNAR FUNCION A LAS TECLAS PERO EN BATCH? SE PODRA?       ESA ES MI DUDA EL QUE ME LO
PUEDA RESPONDER SE LO AGRADECERIA ES PARA MI PUNTO DE VENTA
SI LOGRO ENCONTRAR LA RESPUESTA A ESTA DUDA COMENTARE TODO MI PUNTO DE VENTA Y LAS FUNCIONE 
Y POES LLLA LLEVO TIEMPO BUSCANDO EL CODE PARA LOS COMANDOS EN LAS TECLAS PERO NO LO ENCUENTRO....
              EL QUE LO SABE ME LO PUEDE EXPLICAR PORFAVOR? SE LO AGRADECERIA Y LOS QUE TENGAN LA DUDA TAMBIEN