elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


  Mostrar Mensajes
Páginas: 1 ... 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 [58] 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 ... 137
571  Comunicaciones / Android / Re: Motorola Atrix o Samsung Galaxy S2 en: 1 Febrero 2012, 17:59 pm
HOLA!!!

Les comento...

Me compre el Atrix por que salio una oferta navideña en movistar que me salio 2300 con la lapdock incluida...

En cuanto a materiales es muy bueno, muy resistente...

En cuanto a procesador es una bestia, lo tengo con la rom Evoginger 2.3.4 con un OC de 1.4 Ghz y vuela, la bateria dura un dia (18hs)...

Android se banca cualquier cosa, hasta cosas mejores que en la pc podes encontrar por ahi...

Pero en cuanto a Conectividad... MALISIMO, los mails llegan tarde, mensajes tambien, llamadas no llegan, redes sosciales y chats lentos y ademas se desconectan entre muchas otras contras!

 Vengo de 4 años de Blackberry siendo mi ultimo equipo un 9800 (torch) ahi me llegaban los mails en Exactamente 4 segundos, los sms en 2 o 3 , los chats, msn facebook, gtalk y skype a veces me llegaban antes a la blackberry que al ordenador, una interfaz mucho mas practica y organizada, con teclado fisico y la trackball el trackpad (me estoy quedando viejo). En fin cuando cambie el atrix (con el cual estoy muy conforme) me compro otra BB.

GRACIAS POR LEER!!!
572  Foros Generales / Dudas Generales / Uploading Mediafire help en: 30 Enero 2012, 19:20 pm
HOLA!!!

La cuestion es la siguiente, estoy intentando hacer un uploader para mediafire, pero leyendo los hearders y las respuestas tengo un problema...

Obtengo la cookie:

Código:
GET / HTTP/1.1
Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*
Accept -Language: es -ar
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; FunWebProducts; .NET CLR 2.0.50727; FunWebProducts; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Accept -Encoding: gzip , deflate
Host: mediafire.com
Connection: Keep -Alive



Busco los datos para la configuracion de subida, con el siguiente hearder...

Código:
GET /basicapi/uploaderconfiguration.php?71487 HTTP/1.1
Accept: */*
Accept-Language: es-ar
Referer: http://www.mediafire.com/
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; FunWebProducts; .NET CLR 2.0.50727; FunWebProducts; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Host: www.mediafire.com
Connection: Keep-Alive
Cookie: ukey=anb6yti5a66b1cdpd55e1unribuo7r7n

La respuesta es: http://pastebin.com/4H2kS3FB

Luego de ahi hay que sacar los datos para el siguiente hearder, el de subida:

Código:
POST /douploadtoapi/?track=%track%&ukey=%ukey%&user=%user%&uploadkey=%uploadkey%&upload=0 HTTP/1.1
Accept: text/*
Content-Type: multipart/form-data; boundary=%boundary%
User -Agent: Shockwave Flash
Host: www.mediafire.com
Content-Length: 469
Connection: Keep -Alive
cache -Control: no -cache
Cookie: ukey=%ukey%;


Como veran ahi ya coloque para reemplazar las variables...

Track la tengo es la etiqueta trackkey, Ukey es la cookie que obtengo al principio,user lo obtengo de la config.

Pero uploadkey y boundary no se de donde sacarlos, alguna idea?

GRACIAS POR LEER!!!
573  Programación / Programación Visual Basic / Re: [SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair). en: 26 Enero 2012, 02:05 am
HOLA!!!

Lo decis por las bases de datos de texto que cargo con split?

GRACIAS POR LEER!!!
574  Programación / Programación Visual Basic / Re: [SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair). en: 26 Enero 2012, 00:06 am
HOLA!!!

XD si, aparte pueden hacer diferentes combinaciones de colores que hacen que quede muy bueno.

para ver de donde saque la idea miren esta web al fondo:
http://www.google.com/intl/en/events/sciencefair/index.html

GRACIAS POR LEER!!!
575  Programación / Programación Visual Basic / Re: Duda con este codigo en: 25 Enero 2012, 19:37 pm
HOLA!!!

Es bien simple lo que hace al utilizar un buffer de entrada quedan bytes vacios, estos los borra con el mid, aunque es mejor usar Replace(cadena,chr(0),vbnullstring).

GRACIAS POR LEER!!!
576  Programación / Programación Visual Basic / Re: VB6 Ayuda Bloquear el cambio de hora. en: 19 Enero 2012, 13:27 pm
HOLA!!!

@Saberuneko:
Tranqui no me contradijiste, solo afirmaste lo que yo decia, en fin la hora siempre va a responder al horario de la bios que es cambiado sin inconvenientes, incluso si se le coloca password al inicio y el jefe va y arranca la pc todos los dias el usuario puede quitar la pila de reloj y mato la contraseña ahi entra y cambia el horario.

GRACIAS POR LEER!!!
577  Programación / Programación Visual Basic / Re: VB6 Ayuda Bloquear el cambio de hora. en: 18 Enero 2012, 18:55 pm
HOLA!!!

Es imposible anular el cambio de horario, ya que el horario responde a la bios, lo que podes hacer es respetar el horario de un servidor.

GRACIAS POR LEER!!!
578  Programación / Programación Visual Basic / [SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair). en: 16 Enero 2012, 16:44 pm
HOLA!!!

Una imagen vale mas que 1000 palabras:



Y un link de donde salio la idea (miren abajo de la pagina)
depende la conbinacion de colores que uses
http://www.google.com/intl/en/events/sciencefair/index.html
mira abajo

Código
  1. Private Sub Command1_Click()
  2. Call Print7913Char(Picture1, Text2.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
  3. Call Print7913Char(Picture2, Text1.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
  4. Call Print7913Char(Picture3, Text3.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
  5. Call Print7913Char(Picture4, Text4.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
  6. End Sub
  7.  
  8. Private Sub Print7913Char(Pic As PictureBox, expression As String, Optional ColorOff As Long = 8421504, Optional ColorOn As Long = 65280, Optional AnchorOn As Long = 3, Optional AnchorOff As Long = 2, Optional BetweenChars As Long = 0)
  9. Dim ChrPos As String
  10. Dim char(72) As Boolean
  11. Dim charpos(288) As Long
  12. Dim a() As String
  13. Dim AChr As Double
  14. '123456789
  15. '    5      0
  16. ' 25/|\75 1 125
  17. ' /|\|/|\ 2 25
  18. '|\|/|\|/|3 375
  19. '|/|\|/|\|4 500
  20. '|\|/|\|/|5 625
  21. '|/|\|/|\|6 750
  22. ' \|/|\|/ 7 875
  23. '   \|/   8 1000
  24. '                        "99.72X1...72Y1...72X2...72Y2"
  25. ChrPos = "99.0.0.0.500.500.500.0.0.0.0.250.250.250.500.750.750.750.0.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.0.0.0.0.250.500.750.0.0.0.0.0.0.0.0.0.0.0.0.0.125.125.125.125.125.125.125.0.250.250.250.250.250.250.250.250.250.375.375.375.375.375.375.375.375.375.500.500.500.500.500.500.500.500.500.625.625.625.625.625.625.625.625.625.0.750.750.750.750.750.750.750.0.0.0.0.875.875.875.0.0.0.0.0.0.250.500.750.0.0.0.0.0.250.500.500.500.750.1000.0.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.0.0.0.0.500.500.500.0.0.0.0.0.0.125.125.125.0.0.0.0.250.250.250.250.250.250.250.0.375.375.375.375.375.375.375.375.375.500.500.500.500.500.500.500.500.500.625.625.625.625.625.625.625.625.625.750.750.750.750.750.750.750.750.750.0.875.875.875.875.875.875.875.0.0.0.0.1000.1000.1000.0.0.0"
  26. Pic.ScaleMode = 3
  27. Pic.DrawWidth = AnchorOff
  28. Pic.Cls
  29. AChr = Pic.ScaleHeight / 1000
  30. a = Split(ChrPos, ".")
  31. For x = 1 To 288
  32. charpos(x) = a(x)
  33. Next
  34. For y = 1 To Len(expression)
  35.     Select Case Asc(Mid(LCase(expression), y, 1))
  36.             Case 48 '0
  37.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  38.             Case 49 '1
  39.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 0 0 0")
  40.             Case 50 '2
  41.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 1 1 1 1 1 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
  42.             Case 51 '3
  43.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  44.             Case 52 '4
  45.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
  46.             Case 53 '5
  47.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  48.             Case 54 '6
  49.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  50.             Case 55 '7
  51.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
  52.             Case 56 '8
  53.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 0 0 0 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  54.             Case 57 '9
  55.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 0 0 0")
  56.             Case 97 'a
  57.                 a = Split("9 0 1 0 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
  58.             Case 98 'b
  59.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  60.             Case 99 'c
  61.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  62.             Case 100 'd
  63.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  64.             Case 101 'e
  65.                 a = Split("9 0 0 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  66.             Case 102 'f
  67.                 a = Split("9 0 0 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
  68.             Case 103 'g
  69.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  70.             Case 104 'h
  71.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 0 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
  72.             Case 105 'i
  73.                 a = Split("9 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
  74.             Case 106 'j
  75.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  76.             Case 107 'k
  77.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
  78.             Case 108 'l
  79.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  80.             Case 109 'm
  81.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0")
  82.             Case 110 'n
  83.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
  84.             Case 111 'o
  85.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  86.             Case 112 'p
  87.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
  88.             Case 113 'q
  89.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
  90.             Case 114 'r
  91.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
  92.             Case 115 's
  93.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  94.             Case 116 't
  95.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
  96.             Case 117 'u
  97.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
  98.             Case 118 'v
  99.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 1 1 0 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
  100.             Case 119 'w
  101.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
  102.             Case 120 'x
  103.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
  104.             Case 121 'y
  105.                 a = Split("9 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
  106.             Case 122 'z
  107.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 0 0 0")
  108.             Case 32 '" "
  109.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
  110.             Case 46 '.
  111.                 a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
  112.             Case Else
  113.                 a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 0 0 0")
  114.     End Select
  115.     For x = 1 To 72
  116.     char(x) = a(x)
  117.     Next
  118.     For x = 1 To 72
  119.         If char(x) Then
  120.             Pic.DrawWidth = AnchorOn
  121.             Pic.Line (((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x) * AChr, charpos(x + 72) * AChr)-(((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x + 144) * AChr, charpos(x + 216) * AChr), ColorOn
  122.             Pic.DrawWidth = AnchorOff
  123.         Else
  124.             Pic.Line (((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x) * AChr, charpos(x + 72) * AChr)-(((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x + 144) * AChr, charpos(x + 216) * AChr), ColorOff
  125.         End If
  126.     Next
  127. Next
  128.  
  129. End Sub
  130.  

GRACIAS POR LEER!!!
579  Programación / Programación Visual Basic / Re: [RETO] + Funcion Extraer Numeros de Cadenas! en: 9 Enero 2012, 03:45 am
HOLA!!!

Cita de: Psyke1 en  9 Enero 2012, 00:30 am
Código:
OJO mi función limpia sTest en otras palabras, despues de mi funcion sTest es una cadena vacia... por lo tanto deberian hacerse los test de otra menera:
Comprendo, ahora encaja todo... por cierto...
¿Y eso no es trampa? :huh: Se supone que sTest lo debe dejar como está, como las demás funciones, ¿no?

DoEvents! :P

+1

GRACIAS POR LEER!!!
580  Programación / Programación Visual Basic / Re: [RETO] + Funcion Extraer Numeros de Cadenas! en: 9 Enero 2012, 02:03 am
HOLA!!!

Ejemmm hoy es ocho! y en españa ya es 9 ponganse las pilas!

GRACIAS POR LEER!!!
Páginas: 1 ... 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 [58] 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 ... 137
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines