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

 

 


Tema destacado: Estamos en la red social de Mastodon


  Mostrar Mensajes
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14
41  Programación / Programación Visual Basic / Re: Como lo harian? en: 18 Septiembre 2011, 22:58 pm
Buena pregunta... para resolverla fijate en los "requisitos" de tu tarea, si debe llevar db mysql, acces, etc pues haslo asi si no hecha a volar tu imaginacion, si puedes los dos y no sabes nada de db pues aprende una vez por que para un trabajo formal si se necesita manejar db, salu2 !
42  Programación / Programación Visual Basic / Re: Píxeles y Bucle For en: 18 Septiembre 2011, 21:42 pm
Perdon que me meta pero:

Llevo tiempo buscando y no encuentro nada al respecto
¿Hay alguna forma de volcar el contenido de un bitmap(de un contenedor) a un array?

Esa (creo) sería la forma mas rápida de encontrar determinado pixel...

Saludos!

Si, es posible http://carlosagreda.blogspot.com/2008/02/destripando-un-bmp-24-bits.html

43  Programación / Programación Visual Basic / Re: Píxeles y Bucle For en: 18 Septiembre 2011, 20:48 pm
Te recomendaria que averigues sobre el formato Bitmap ... es mucho mas rapido, salu2 !
44  Programación / Programación Visual Basic / Re: SendMessage en: 18 Septiembre 2011, 17:55 pm
A un determinado color no... a una determinada coordenada con/ò hwnd si...  , salu2!
45  Foros Generales / Foro Libre / Re: Cuanto tiempo puedes estar sin dormir? en: 18 Septiembre 2011, 06:07 am
yo nadamas eh aguantado un dia ... me sentia como borracho y mi corazon estaba acelerado (tal vez por unas pastillas que me tome) de ahi ya no pude por que estaba aburrido, el aburrimiento me hizo dormir  :xD
46  Programación / Programación Visual Basic / Re: [Reto] IsHour en: 18 Septiembre 2011, 00:02 am
Bueno aqui el mio...  ;D

Código
  1. Public Function IsHour(ByRef Expresion As String) As Boolean
  2. Dim C()         As Byte
  3. Dim L           As Integer
  4. Dim P           As Integer
  5. Dim F           As Boolean
  6.  
  7. L = Len(Expresion)
  8. If (L And &H8) Then
  9.    L = (L - &H8)
  10.    If (L Or &H0) = &H0 Then
  11.        C = StrConv(Expresion, vbFromUnicode)
  12.        P = &H2
  13. Sig0:
  14.        L = C(P)
  15.        If (L And &H20) Then
  16.            L = (L - &H20)
  17.            If (L And &H10) Then
  18.                L = (L - &H10)
  19.                If (L And &H8) Then
  20.                    L = (L - &H8)
  21.                    If (L And &H2) Then
  22.                        L = (L - &H2)
  23.                        If (L Or &H0) = &H0 Then
  24.                            If (P And &H4) Then
  25.                                GoTo Sig
  26.                            Else
  27.                                P = &H5
  28.                                GoTo Sig0
  29.                            End If
  30.                        End If
  31.                    End If
  32.                End If
  33.            End If
  34.        End If
  35.        Exit Function
  36. Sig:
  37.        L = C(0)
  38.        L = (L - &H33)
  39.        If (L And &H40) Then
  40.            L = (C(0) - &H30)
  41.            If (L And &H40) Then
  42.                Exit Function
  43.            Else
  44.                If (L And &H2) Then F = True
  45.                GoTo Sig2
  46.            End If
  47.        End If
  48.        Exit Function
  49. Sig2:
  50.        L = C(1)
  51.        L = (L - &H3A)
  52.        If (L And &H40) Then
  53.            L = (-&HB - L)
  54.            If (L And &H10) Then
  55.                L = ((Not L) - &H4)
  56.                If (L And &H4) Then
  57.                    GoTo Sig3
  58.                Else
  59.                    If Not F Then GoTo Sig3
  60.                End If
  61.            End If
  62.        End If
  63.        Exit Function
  64. Sig3:
  65.        P = &H3
  66. Sig4:
  67.        L = C(P)
  68.        L = (L - &H36)
  69.        If (L And &H40) Then
  70.            L = (-L - &H7)
  71.            If (L And &H8) Then
  72.                P = (P + &H3)
  73.                If (P And &H8) Then
  74.                    P = &H4
  75.                    GoTo Sig5
  76.                Else
  77.                    GoTo Sig4
  78.                End If
  79.            End If
  80.        End If
  81.        Exit Function
  82. Sig5:
  83.        L = C(P)
  84.        L = (L - &H3A)
  85.        If (L And &H40) Then
  86.            L = (-L - &HB)
  87.            If (L And &H10) Then
  88.                P = (P + &H3)
  89.                If (P And &H8) Then IsHour = True Else GoTo Sig5
  90.            End If
  91.        End If
  92.    End If
  93. End If
  94. End Function
  95.  

Alguien puede subir el proyecto completo del reto?, salu2 !
47  Programación / Programación Visual Basic / Re: [Reto] IsHour en: 15 Septiembre 2011, 07:27 am
@BlackZeroX▓▓▒▒░░: si tienes razon, pero es por que tu función es mas generica... , y claro para resolver un problema puedes usar diferentes soluciones...
Por cierto:
isHour_BlackZX("14:59:09") --- > Fail

Salu2 !
48  Programación / Programación Visual Basic / Re: [Reto] IsHour en: 15 Septiembre 2011, 05:30 am
@Raul100:

R100("aa:aa:aa") --- > Fail

para hacerlo mas interesante acabo de agregar una nueva regla  :P
49  Programación / Programación Visual Basic / [Reto] IsHour en: 15 Septiembre 2011, 04:16 am
Bueno para seguir practicando y calentando, ahora por que no un reto para saber si una expresión es una hora  :laugh:, creo que es mas facil pero bueno  :P
la fecha limite es el 18/09/2011 y como no hay una funcion de vb que haga lo mismo (corregirme si me equivoco) se hara en lo mas logico, que acepte el siguiente formato  HH:MM:SS  (horas,minutos,segundos) y las siguientes reglas

* Debe aceptar de "00:00:00" hasta "23:59:59"
* En base a lo anterior y para hacerlo mas interesante lo correcto es llenar los dos lugares, si es menor que 10 se pondra un cero, ejemplo:
"05:59:59" ----> Correcto
"5:59:59" ---- > Falso
* Debe devolver True si la hora es correcta
* El delimitador para separar los numeros es ":"


Buena suerte a todos.. un saludo !  :D
50  Programación / Programación Visual Basic / Re: [RETO] IsDate en: 13 Septiembre 2011, 18:06 pm
Ya esta corregida  :rolleyes:, pero dos funciones tuyas siguen dando fail

Citar
"31/11/2011" --- Psyke1
"31/11/2011" --- Psyke13

Salu2 !
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines