| Pregunta: | 27386 - SIMULACION DE BOTONES 3D |
| Autor: | gabriel rodas preza |
| quisiera saber si se puede hacer una simulacion de un boton 3d que al pulsar sobre ese se vea que se presiona hacia dentro.
:::>>>me imagino que es cuestion de lineas y colores. at gracias clipperos | |
| Respuesta: | José Luis Cadena Rojas |
| Espero que esto te pueda servir de algo.
Solo tienes que copiarlo y seguir los pasos habituales para crear un ejecutable. SET COLOR TO N+/W @ 11,23 CLEAR TO 19,57 @ 12,25 TO 18,55 SET COLOR TO W+/W @ 13,25 TO 18,25 @ 18,25 TO 18,54 @ 18,25 SAY CHR(192) SET COLOR TO N+/W @ 14,33 SAY 'Ingrese CLAVE' colu1=29 do while colu1<=49 @ 15,colu1 TO 17,colu1+2 colu1=colu1+4 enddo SET COLOR TO W+/W colu1=30 do while colu1<=50 @ 15,colu1 SAY CHR(196) @ 15,++colu1 SAY CHR(191) @ 16,colu1 SAY CHR(179) @ 17,colu1 SAY CHR(217) colu1=colu1+3 enddo SET COLOR TO N/W colu1=30 do while colu1<=50 @ 16,colu1 SAY '?' colu1=colu1+4 enddo @ 16,30 SAY '' SET CONSOLE OFF tecla=0 clavepas='' colu1=29 SET COLOR TO w/N do while tecla<>13.and.colu1<=49 inkey(0) tecla=lastkey() if tecla<>13 clavepas=clavepas+chr(lastkey()) set console on SET COLOR TO w+/W @ 15,colu1++ TO 17,colu1+1 SET COLOR TO n+/W @ 15,colu1 SAY CHR(196) @ 15,++colu1 SAY CHR(191) @ 16,colu1 SAY CHR(179) @ 17,colu1 SAY CHR(217) colu1=colu1+3 @ 16,colu1-- SAY '' set console off endif enddo SET CONSOLE ON IF UPPER(CLAVEPAS)!='GA5BP' set color to GR+*/r @ 06,26 clear to 09,54 @ 06,26 to 09,54 @ 06,31 say ' *** E R R O R *** ' @ 07,28 SAY 'CLAVE incorrecta no puede' @ 08,28 say 'ingresar a software.' CLEAR ALL SET COLOR TO CLEAR QUIT ENDIF SET COLOR TO RB/N CLEAR | |