BABILONIA CYBER II01.
FoxPro/Visual FoxPro
Publicado el 22 de Noviembre del 2019 por Las Raices
1.955 visualizaciones desde el 22 de Noviembre del 2019
CLEAR
&&
ACTIVATE SCREEN
*CLEAR
*@ 15,5 FILL TO 22,145 COLOR GR+/B
@ 15,50 FILL TO 22,130 COLOR GR+/B
SET HOURS TO 24 && FORMATO DE LA HORA
SET CLOCK TO 2,187 && POSICION DONDE IMPRIME LA HORA
STORE DATETIME() TO TTT45
*STORE DATE( ) TO gdDayNum
&& RUTINE DE CONVERSION DE DIAS
STORE DATE( ) TO gdDayNum
DO case
CASE DOW(gddaynum)=1
STORE 'DOMINGO'TO cv
*@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE DOW(gddaynum)=2
STORE 'LUNES'TO cv
*@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE DOW(gddaynum)=3
STORE 'MARTES'TO cv
*@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE DOW(gddaynum)=4
STORE 'MIERCOLES'TO cv
*@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE DOW(gddaynum)=5
STORE 'JUEVES'TO cv
*@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE DOW(gddaynum)=6
STORE 'VIERNES'TO cv
*@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE DOW(gddaynum)=7
STORE 'SABADO'TO cv
*@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
ENDCASE
*? CDOW(gdDayNum)
tToday = DATE( )
*@ 4,5 SAY 'HOY ES' FONT 'ARIAL ',13 COLOR RGB(0,0,128)
*@ 4,24SAY TTODAY FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
FF= YEAR(DATE( ))
*@ 4,52 SAY FF FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255 RESPONSABLE DEL AÑO 48
&& RUTINA DE CONVERSION DE NOMBRE DE MESES
CLOSE ALL
CLOSE TABLES ALL && Cierra todas las tablas abiertas
CLOSE DATABASES ALL && Cierra todas las bases de datos abiertas
USE FLECHA.DBF
*@7,75 say FLECHA BITMAP SIZE 4,7 ISOMETRIC
SET COLOR OF SCHEME 1 TO , , RGB(255,255,255,0,0,255)
SET READBORDER ON && PONE COLOCA BORDE A LAS VARIABLES
SET ECHO OFF &&ON
SET TALK OFF&&ON && Determina si Visual FoxPro muestra los resultados de los comandos.
SET STATUS OFF && Muestra o quita la barra de estado basada en caracteres
SET TALK OFF&&ON && Determina si Visual FoxPro muestra los resultados de los comandos.
SET SAFETY OFF && Determina si Visual FoxPro muestra o no un cuadro de diálogo antes de sobrescribir un archivo existente.
SET HELP OFF && Activa o desactiva la Ayuda en pantalla de Visual FoxPro o especifica un archivo de Ayuda.
SET DATE DMY && AMERICANmm/dd/yyANSIyy.mm.ddBRITISH/FRENCHdd/mm/yyGERMANdd.mm.yyITALIANdd-mm-yyJAPANyy/mm/ddTAIWANyy/mm/ddUSAmm-dd-yyMDYmm/dd/yyDMYdd/mm/yyYMDyy/mm/dd
&&SHORT Short date format determined by the Windows Control Panel short date setting.LONGLong date format determined by the Windows Control Panel long date setting.
SET CENTURY ON && Acomoda el formato del año a cuatro digitos AAAA
SET ESCAPE OFF && Determina si al presionar la tecla ESC se interrumpirá la ejecución de un programa y un comando.
SET HOURS TO 24 && Establece el formato de hora del reloj del sistema en 12 ó 24 horas.
SET AUTOSAVE ON && Determina si Visual FoxPro vaciará o no los búferes de datos al disco cuando salga de READ o cuando vuelva a la ventana Comando
SET EXCLUSIVE OFF && Especifica si Visual FoxPro abre los archivos de tabla para uso exclusivo o compartido en una red.
SET STATUS BAR OFF && Muestra o quita la barra de estado gráfica.
TP=SPACE(71)
SAVE=SPACE(1)&& VARIABLE PARA GRABAR ATCHIVO O SALIR
USUARIO=SPACE(12)
USE TECLADO.DBF
@4,45 GET TECLADO FONT'ARIAL ',12 COLOR RGB(0, 128, 128)
@11,30 SAY ' Copia esta URL y Pégala en tu Motor de Búsqueda; Copy this URL and Paste it into your Search Engine.'
@13,5 SAY 'Recomendamos usar un Teclado Virtual para mas Seguridad; We recommend using a Virtual Keyboard for more Security.' FONT'ARIAL ',12 COLOR RGB(0, 0, 255)
********
**************
*DEFINE WINDOW wEnter FROM 16,7 to 23,108 PANEL &&7,10 to 13,70
*ACTIVATE WINDOW wEnter
*@ 1,3 SAY 'Nombre de Usuario; Username.' GET USUARIO DEFAULT SPACE (12)&&(40)
*@ 3,3 SAY 'Digite Clave de acceso.' GET TP DEFAULT SPACE (71)&&(40)
*READ
*@ 15,50 FILL TO 22,130 COLOR GR+/B
************
******************
@16,5 SAY 'Nombre de Usuario; Username.' FONT'ARIAL BLACK',11 COLOR RGB(0, 0, 255)
@16,54 GET USUARIO
@19,5 SAY 'Digite Clave de acceso.' FONT'ARIAL BLACK',11 COLOR RGB(0, 0, 255)
@21,5 SAY 'Type Access Password.' FONT'ARIAL BLACK',11 COLOR RGB(0, 0, 255)
@19,54 GET TP
READ
*WAIT
*GHG
*DO CASE
*TELO=" AGUADEPANELAconcarne "
*STORE TELO TO CDR
STORE CDR TO YUCABUENA
IF TP<>'SU CLAVE' OR USUARIO <> 'ENTRANDO'
QUIT
*DO VALIDADOR11 && LLAMA A OTRO PROGRAMA
ELSE TP='SU CLAVE' AND USUARIO = 'ENTRANDO'
* QUIT
*ENDCASE
ENDIF
CLEAR
DO case
CASE MONTH(DATE( ))=1
STORE 'ENERO'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=2
STORE 'FEBRERO'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=3
STORE 'MARZO'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=4
STORE 'ABRIL'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=5
STORE 'MAYO'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=6
STORE 'JUNIO'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=7
STORE 'JULIO'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=8
STORE 'AGOSTO'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=9
STORE 'SEPTIEMBRE'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=10
STORE 'OCTUBRE'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=11
STORE 'NOVIEMBRE'TO MES
*@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)&&255
CASE MONTH(DATE( ))=12
STORE 'DICIEMBRE'TO MES
CLEAR
*@8,28 SAY "HOY ES" + MES +"NUEVO" FONT 'ARIAL ',50 COLOR RGB(255,0,0)&&255
*@6,6 SAY MES
*@8,10 SAY "NUEVO" &&FONT 'ARIAL ',20 &&COLOR RGB(255,0,0)&&255
*@10,10 SAY" "
ENDCASE
*WAIT "UN MOMENTO"
*WAIT
*USE DATEFECHA
TY=TIME()
CLEAR
DIAMES= MONTH(DATE( ))&& NUMERO DEL DIA DEL MES
*@6,22 SAY DIAMES && NUMERO DEL DIA DEL MES
*8R
*IF lExpression [THEN]
* Commands
*[ELSE
* Commands]
*ENDIF
varA1=SPACE(1)
varB1=SPACE(1)
varC1=SPACE(1)
varD1=SPACE(1)
varE1=SPACE(1)
varF1=SPACE(1)
varG1=SPACE(1)
varH1=SPACE(1)
varI1=SPACE(1)
varJ1=SPACE(1)
varK1=SPACE(1)
varL1=SPACE(1)
varM1=SPACE(1)
varN1=SPACE(1)
varÑ1=SPACE(1)
varO1=SPACE(1)
varP1=SPACE(1)
varQ1=SPACE(1)
varR1=SPACE(1)
varS1=SPACE(1)
varT1=SPACE(1)
varU1=SPACE(1)
varV1=SPACE(1)
varW1=SPACE(1)
varX1=SPACE(1)
varY1=SPACE(1)
varZ1=SPACE(1)
&&& SEGUNDA LINEA
&&& SEGUNDA LINEA
varA2=SPACE(1)
varB2=SPACE(1)
varC2=SPACE(1)
varD2=SPACE(1)
varE2=SPACE(1)
varF2=SPACE(1)
varG2=SPACE(1)
varH2=SPACE(1)
varI2=SPACE(1)
varJ2=SPACE(1)
varK2=SPACE(1)
varL2=SPACE(1)
varM2=SPACE(1)
varN2=SPACE(1)
varÑ2=SPACE(1)
varO2=SPACE(1)
varP2=SPACE(1)
varQ2=SPACE(1)
varR2=SPACE(1)
varS2=SPACE(1)
varT2=SPACE(1)
varU2=SPACE(1)
varV2=SPACE(1)
varW2=SPACE(1)
varX2=SPACE(1)
varY2=SPACE(1)
varZ2=SPACE(1)
&& FIN SEGUNDA PARTE DE VARIABLES
&& FIN SEGUNDA PARTE DE VARIABLES
******************************
*************************
*************************
&& PRINCIPIO DE LAS VARIABLES TERCERA PARTE
varA3=SPACE(1)
varB3=SPACE(1)
varC3=SPACE(1)
varD3=SPACE(1)
varE3=SPACE(1)
varF3=SPACE(1)
varG3=SPACE(1)
varH3=SPACE(1)
varI3=SPACE(1)
varJ3=SPACE(1)
varK3=SPACE(1)
varL3=SPACE(1)
varM3=SPACE(1)
varN3=SPACE(1)
varÑ3=SPACE(1)
varO3=SPACE(1)
varP3=SPACE(1)
varQ3=SPACE(1)
varR3=SPACE(1)
varS3=SPACE(1)
varT3=SPACE(1)
varU3=SPACE(1)
varV3=SPACE(1)
varW3=SPACE(1)
varX3=SPACE(1)
varY3=SPACE(1)
varZ3=SPACE(1)
**************************
********************
******
&& FIN DE LA TERCERA PARTE DE LAS VARUABLES
*****************
****************
*****************
&& PRINCIPIO DE LA CUARTA PARTE DE VARIABLES
varA4=SPACE(1)
varB4=SPACE(1)
varC4=SPACE(1)
varD4=SPACE(1)
varE4=SPACE(1)
varF4=SPACE(1)
varG4=SPACE(1)
varH4=SPACE(1)
varI4=SPACE(1)
varJ4=SPACE(1)
varK4=SPACE(1)
varL4=SPACE(1)
varM4=SPACE(1)
varN4=SPACE(1)
varÑ4=SPACE(1)
varO4=SPACE(1)
varP4=SPACE(1)
varQ4=SPACE(1)
varR4=SPACE(1)
varS4=SPACE(1)
varT4=SPACE(1)
varU4=SPACE(1)
varV4=SPACE(1)
varW4=SPACE(1)
varX4=SPACE(1)
varY4=SPACE(1)
varZ4=SPACE(1)
*********************
********************
**************
&&FIN DE LA CUARTA PARTE DE VARIABLES
**************
***********************
**************
&& PRINCIPIO DE LA QUINTA PARTE DE VARIABES
varA5=SPACE(1)
varB5=SPACE(1)
varC5=SPACE(1)
varD5=SPACE(1)
varE5=SPACE(1)
varF5=SPACE(1)
varG5=SPACE(1)
varH5=SPACE(1)
varI5=SPACE(1)
varJ5=SPACE(1)
varK5=SPACE(1)
varL5=SPACE(1)
varM5=SPACE(1)
varN5=SPACE(1)
varÑ5=SPACE(1)
varO5=SPACE(1)
varP5=SPACE(1)
varQ5=SPACE(1)
varR5=SPACE(1)
varS5=SPACE(1)
varT5=SPACE(1)
varU5=SPACE(1)
varV5=SPACE(1)
varW5=SPACE(1)
varX5=SPACE(1)
varY5=SPACE(1)
varZ5=SPACE(1)
***********
*************
***********
&& FIN DE LA QUINTA PARTE DE VARIABLES
****************
************
**************
&&PRINCIPIO DE LA SEXTA PARTE VARIABLES
varA6=SPACE(1)
varB6=SPACE(1)
varC6=SPACE(1)
varD6=SPACE(1)
varE6=SPACE(1)
varF6=SPACE(1)
varG6=SPACE(1)
varH6=SPACE(1)
varI6=SPACE(1)
varJ6=SPACE(1)
varK6=SPACE(1)
varL6=SPACE(1)
varM6=SPACE(1)
varN6=SPACE(1)
varÑ6=SPACE(1)
varO6=SPACE(1)
varP6=SPACE(1)
varQ6=SPACE(1)
varR6=SPACE(1)
varS6=SPACE(1)
varT6=SPACE(1)
varU6=SPACE(1)
varV6=SPACE(1)
varW6=SPACE(1)
varX6=SPACE(1)
varY6=SPACE(1)
varZ6=SPACE(1)
*******
***************
********
&&FIN DE LA SEXTA PARTE VARIABLES
************
*************
&& PRINCIPIO DE LA SEPTIMA PARTE VARIABLES
varA7=SPACE(1)
varB7=SPACE(1)
varC7=SPACE(1)
varD7=SPACE(1)
varE7=SPACE(1)
varF7=SPACE(1)
varG7=SPACE(1)
varH7=SPACE(1)
varI7=SPACE(1)
varJ7=SPACE(1)
varK7=SPACE(1)
varL7=SPACE(1)
varM7=SPACE(1)
varN7=SPACE(1)
varÑ7=SPACE(1)
varO7=SPACE(1)
varP7=SPACE(1)
varQ7=SPACE(1)
varR7=SPACE(1)
varS7=SPACE(1)
varT7=SPACE(1)
varU7=SPACE(1)
varV7=SPACE(1)
varW7=SPACE(1)
varX7=SPACE(1)
varY7=SPACE(1)
varZ7=SPACE(1)
****
*********
&&FIN DE LA SEPTIMA PARTE VARIABLES
*********
**********
&& PRINCIPIO DE LA OCTAVA PARTE VARIABLES
varA8=SPACE(1)
varB8=SPACE(1)
varC8=SPACE(1)
varD8=SPACE(1)
varE8=SPACE(1)
varF8=SPACE(1)
varG8=SPACE(1)
varH8=SPACE(1)
varI8=SPACE(1)
varJ8=SPACE(1)
varK8=SPACE(1)
varL8=SPACE(1)
varM8=SPACE(1)
varN8=SPACE(1)
varÑ8=SPACE(1)
varO8=SPACE(1)
varP8=SPACE(1)
varQ8=SPACE(1)
varR8=SPACE(1)
varS8=SPACE(1)
varT8=SPACE(1)
varU8=SPACE(1)
varV8=SPACE(1)
varW8=SPACE(1)
varX8=SPACE(1)
varY8=SPACE(1)
varZ8=SPACE(1)
**********
&& FIN DE LA OCTAVA PARTE VARIABLES
*****
********
&& PRINCIPIO VARIABLES NOVENA
varA9=SPACE(1)
varB9=SPACE(1)
varC9=SPACE(1)
varD9=SPACE(1)
varE9=SPACE(1)
varF9=SPACE(1)
varG9=SPACE(1)
varH9=SPACE(1)
varI9=SPACE(1)
varJ9=SPACE(1)
varK9=SPACE(1)
varL9=SPACE(1)
varM9=SPACE(1)
varN9=SPACE(1)
varÑ9=SPACE(1)
varO9=SPACE(1)
varP9=SPACE(1)
varQ9=SPACE(1)
varR9=SPACE(1)
varS9=SPACE(1)
varT9=SPACE(1)
varU9=SPACE(1)
varV9=SPACE(1)
varW9=SPACE(1)
varX9=SPACE(1)
varY9=SPACE(1)
varZ9=SPACE(1)
**
***
&&& FIN VARIABLES NOVENA
***+
*********
&& 10 PRINCIPIO
varA10=SPACE(1)
varB10=SPACE(1)
varC10=SPACE(1)
varD10=SPACE(1)
varE10=SPACE(1)
varF10=SPACE(1)
varG10=SPACE(1)
varH10=SPACE(1)
varI10=SPACE(1)
varJ10=SPACE(1)
varK10=SPACE(1)
varL10=SPACE(1)
varM10=SPACE(1)
varN10=SPACE(1)
varÑ10=SPACE(1)
varO10=SPACE(1)
varP10=SPACE(1)
varQ10=SPACE(1)
varR10=SPACE(1)
varS10=SPACE(1)
varT10=SPACE(1)
varU10=SPACE(1)
varV10=SPACE(1)
varW10=SPACE(1)
varX10=SPACE(1)
varY10=SPACE(1)
varZ10=SPACE(1)
*********
&& 10 FIN
*@11,30 say 'PROCESADOR Y EDITOR DE TEXTO CODIFICADOR DE CARACTERES' FONT'CHILLER ',10 COLOR RGB(255,255,255,0,0,255)
*@11,30 say 'PROCESADOR Y EDITOR DE TEXTO CODIFICADOR DE CARACTERES ' COLOR RGB(0, 0, 0)
***
***
* ZONA DESHABILITADA
*@12,38 say ' O O O O O O O O'COLOR RGB(0, 0, 0)
*ACTIVATE SCREEN
*@ 12,37 FILL TO 15,93 COLOR GR+/B
*@ 36,37 FILL TO 38,93 COLOR GR+/B
****
****
*@15,37 say '------------------------------------------------------------------------------------' COLOR RGB(0, 0, 128)
*@1,10 SAY 'C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 9\foto.BMP' BITMAP SIZE 3,20 ISOMETRIC
*USE BASELETRAS.DBF
*STORE A TO MESSI
*STORE BABI TO SUN
*CLOSE BABILONIA.DBF
USE CAMELLO1.DBF && IMPRIME EL CAMELLO
@3,4 say CAM BITMAP SIZE 10,30 ISOMETRIC && IMPRIME EL CAMELLO
***
****
****
****
****
*****
*****
****
*USE LAPIZ.DBF
*@14,26 say LA BITMAP SIZE 5,15 ISOMETRIC
*@15,37 say '|-----------------------------------------------------------------------------------|' COLOR RGB(0, 0, 128)
@3,55 GET VARA1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&&COLOR RGB(0,0,128)
*@16,37 say '| |' COLOR RGB(0, 0, 128)
*@17,37 say '------------------------------------------------------------------------------------' COLOR RGB(0, 0, 128)
*@17,37 say '|-----------------------------------------------------------------------------------|' COLOR RGB(0, 0, 128)
*@16,37 say '| |' COLOR RGB(0, 0, 128)
@3,57 GET VARB1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
*@14,38 say 'ESTE ES UN PROCESADOR Y EDITOR DE TEXTO CODIFICADIR DE CARACTERES '
@3,59 GET VARC1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
&&********************************************************
&&***********************************************************
@3,61 GET VARD1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,63 GET VARE1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,65 GET VARF1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
*==========================================================
*==========================================================
@3,67 GET VARG1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,69 GET VARH1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,71 GET VARI1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
*==========================================================
*==========================================================
@3,73 GET VARJ1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,75 GET VARK1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,77 GET VARL1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
*==========================================================
*==========================================================
@3,79 GET VARM1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,81 GET VARN1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
@3,83 GET VARÑ1 FONT 'VERDANA',11 COLOR RGB(255,0,0,255,255,225)&& COLOR RGB(0,0,128)
&&ESTE CÓDIGO TIENE APROXIMADAMENTE 16 MIL PAGINAS TAMAÑO CARTA 13 QUE CODIFICAN Y 13 MIL DECODIFICAN EL TEXTO
&& SI LES INTERESA MI CORROEO ES: dysan2025@gmail.com
Comentarios sobre la versión: 1.0 (0)
No hay comentarios