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 - Sanlegas

#41
Programación Visual Basic / Re: Como lo harian?
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 Visual Basic / Re: Píxeles y Bucle For
18 Septiembre 2011, 21:42 PM
Cita de: ignorantev1.1 en 18 Septiembre 2011, 21:14 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 Visual Basic / Re: Píxeles y Bucle For
18 Septiembre 2011, 20:48 PM
Te recomendaria que averigues sobre el formato Bitmap ... es mucho mas rapido, salu2 !
#44
Programación Visual Basic / Re: SendMessage
18 Septiembre 2011, 17:55 PM
A un determinado color no... a una determinada coordenada con/ò hwnd si...  , salu2!
#45
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 Visual Basic / Re: [Reto] IsHour
18 Septiembre 2011, 00:02 AM
Bueno aqui el mio...  ;D

Código (vb) [Seleccionar]
Public Function IsHour(ByRef Expresion As String) As Boolean
Dim C()         As Byte
Dim L           As Integer
Dim P           As Integer
Dim F           As Boolean

L = Len(Expresion)
If (L And &H8) Then
    L = (L - &H8)
    If (L Or &H0) = &H0 Then
        C = StrConv(Expresion, vbFromUnicode)
        P = &H2
Sig0:
        L = C(P)
        If (L And &H20) Then
            L = (L - &H20)
            If (L And &H10) Then
                L = (L - &H10)
                If (L And &H8) Then
                    L = (L - &H8)
                    If (L And &H2) Then
                        L = (L - &H2)
                        If (L Or &H0) = &H0 Then
                            If (P And &H4) Then
                                GoTo Sig
                            Else
                                P = &H5
                                GoTo Sig0
                            End If
                        End If
                    End If
                End If
            End If
        End If
        Exit Function
Sig:
        L = C(0)
        L = (L - &H33)
        If (L And &H40) Then
            L = (C(0) - &H30)
            If (L And &H40) Then
                Exit Function
            Else
                If (L And &H2) Then F = True
                GoTo Sig2
            End If
        End If
        Exit Function
Sig2:
        L = C(1)
        L = (L - &H3A)
        If (L And &H40) Then
            L = (-&HB - L)
            If (L And &H10) Then
                L = ((Not L) - &H4)
                If (L And &H4) Then
                    GoTo Sig3
                Else
                    If Not F Then GoTo Sig3
                End If
            End If
        End If
        Exit Function
Sig3:
        P = &H3
Sig4:
        L = C(P)
        L = (L - &H36)
        If (L And &H40) Then
            L = (-L - &H7)
            If (L And &H8) Then
                P = (P + &H3)
                If (P And &H8) Then
                    P = &H4
                    GoTo Sig5
                Else
                    GoTo Sig4
                End If
            End If
        End If
        Exit Function
Sig5:
        L = C(P)
        L = (L - &H3A)
        If (L And &H40) Then
            L = (-L - &HB)
            If (L And &H10) Then
                P = (P + &H3)
                If (P And &H8) Then IsHour = True Else GoTo Sig5
            End If
        End If
    End If
End If
End Function


Alguien puede subir el proyecto completo del reto?, salu2 !
#47
Programación Visual Basic / Re: [Reto] IsHour
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 Visual Basic / Re: [Reto] IsHour
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 Visual Basic / [Reto] IsHour
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 Visual Basic / Re: [RETO] IsDate
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 !