Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Zeroql

#571
Programación Visual Basic / Re: Tengo esta duda
18 Octubre 2006, 23:10 PM
Cita de: Valkyr_Spain en 30 Septiembre 2006, 19:07 PM
CLS 'limpia la pantalla
SCREEN 12 'posiscion del texto en la pantalla
COLOR 15 ' color que se va a usar para el texto
LOCATE 1, 20: PRINT "PROGRAMA CREADO POR: -=CICKLOW CIS WOLW=-"  'texto mostrado en la pantalla
COLOR 9
LOCATE 5, 20: PRINT "descifrando INFORMACION!!"
SLEEP 4 'tiempo de espera para seguir con la operacion
N$ = "123456" 'CODIGO UNO PARA descifrar  'N$,C$ se usan para la variables
C$ = "123456" 'CODIGO DOS PARA descifrar
CR$ = "" ' variable
A = 0: B = 0: C = 0: M$ = "" operacion
CR$ = "ÊØÚؤ›'ÛÝߘÎËÒÇÚÓœÕ'É×ךÃÖ•ÞÓÞ×וáÕØÑÌ"ØÒÜ" 'INFORMACION cifrada 'la info que esta cifrada
DO WHILE A < LEN(CR$) proceso de repeticion
A = A + 1 'variable contadora
B = B + 1: IF B > LEN(N$) THEN B = 1 si. sino
C = C + 1: IF C > LEN(C$) THEN C = 1
D = ASC(MID$(CR$, A, 1)) - (ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1))) 'se envia a D los valores en caractres del texto cifrado
Loop3: 'finalizar el repetir
IF D < 1 THEN D = D + 255: GOTO Loop3 ' si esto es igual a lo otro valla a repeteir #3
M$ = M$ + CHR$(D) 'variable donde se almacena los caracteres ya descifrados
LOOP
COLOR 5
LOCATE 12, 20: PRINT "INFORMACION descifrada CON EXITO"
COLOR 10
LOCATE 15, 13:

esto esta hecho en Qick basic (D.O.S) si sabes algo de programacion no importa el lenguaje debes a ver reconocido al menos unas lineas, es tanto esto de algoritmos...
bueno espero que haya sido de utilidad.
#572
Programación Visual Basic / Re: Tengo esta duda
18 Octubre 2006, 19:35 PM
pero en que se te puede ayudar si ya te han dichjo todo
#573
Electrónica / cajas de banda anchA
16 Octubre 2006, 18:57 PM
alguien sabe donde puedo encontrar info de como funcionas las cajas de las bandas anchas,y si alguien sabe donde encontrar info de como construir una. no me caeria mal
de ante mano gracias
#574
CeLaYa gracias por tu aporte. tendre encuenta lo de los campos con las imagenes.
#575
Cita de: CeLaYa en 12 Octubre 2006, 20:04 PM
como de que no se puede guardar fotos, he utilizado las base de access y claro que se puede, solo que debes de tener el SP4 o postrerior del visual instalado

te explicas?
#576
gracias hotmail_pop3, skapunky lo que yo realmente deseo hacer es un programa de seguridad.
como saben en las bases de datos de access no se pueden meter imagen, la idea de mi programa es que una persona cuando valla a entrar a algun sitio se necesite una credencial o identificacion con fotorafia, la base de datos debe guardar los datos y una foto de la persona. en casdo de que se desee hacer una copia de la base de datos no haya que hacer copia de las fotografias tambien. por eso deben guardadse como string y luego que  el programa pueda abribrirlo como una imagen.
#577
hablo de tranfotmar la imagen a string por medio de visual basic
#578
hola muchachos
la verdad es que llevo tiempo en este foro y aun nose como se hacen ciertas cossa aqui.
por ejm:
las encuestas, ver quien esta conectado, entre otros que en este mometno no me acuerdo. asi que pido amablemente por fa que me expliken
#579
Programación Visual Basic / de imagen a string
10 Octubre 2006, 20:45 PM
bueno muchachos se que muchos le ha dado por abrir una imagen por el block de notas y apareceran muchos caracteres, eso dependien ketan grande sea la imagen.
yo lo que quiero es lograr esto en visula basic pero no se como.
ya que si le digi text1.text=picture.picture aparecera un numero asi 24513221545 pero nada mas

la idea es crearlo en string para luego meterlo en una base de tipo string
asi que como lo hago?
#580
open archivo.txt for ramdon as #1
variable= archivo.txt
close #1
open archivo2.txt for ramdon as #2
archivo2.txt= variable
close #2


lo mejor es uses un tipo (TYPE) para especificar los rangos de los caracteres que has guardado


type arc
vari1 as string*1000
en type
variable2 as arc