Mensajes

[While]

 * Traduciendo de Ingles a Español seria:

While [condicion]       es Decir      Mientras Que [condicion]
wend

otro

wend
While [condicion]

otros: Do-Loop ("Es lo mismo trabaja igual"... Bueno casi),

Until se usa para cambiar el valor pero en Do-Loop.
Do-Loop trabaja casi igual que While-Wend solo que Do-Loop puede usar Until en su Do o en su loop.

Do while [condicion]
Loop

ó

Do
Loop [condicion]

y la condicion puede ir tanto en Do como en loop de igual forma el Until pero Until es solo usado CUANDO no se usa el While OJO!¡.

Do Until [condicion
Loop

ó

Do
Loop Until [condicion]



Ejemplo con While-Wend

Pega esto en un Form

Código (vb) [Seleccionar] Expandir



Private a As Boolean
Private Sub Form_Click()
   a = Not a   '   //  volteamos el valor con Not
   Call bucle
End Sub
Private Sub Form_Load()
   Show
   a = True
   Call bucle
End Sub
Private Sub bucle()
   'While a = True  '   //  no es nesesario poner a = true
   While a
       DoEvents    '   //  para que no se trabe el programa xP
       Caption = Val(Caption) + 1
   Wend
End Sub



Sin wend

Código (vb) [Seleccionar] Expandir



Private Sub bucle()
   Do While a
       DoEvents    '   //  para que no se trabe el programa xP
       Caption = Val(Caption) + 1
   Loop
End Sub



Do until

Código (vb) [Seleccionar] Expandir



Private Sub bucle()
   Do Until a
       DoEvents    '   //  para que no se trabe el programa xP
       Caption = Val(Caption) + 1
   Loop
End Sub



Loop until

Código (vb) [Seleccionar] Expandir



Private Sub bucle()
   Do
       DoEvents    '   //  para que no se trabe el programa xP
       Caption = Val(Caption) + 1
   Loop Until a
End Sub



OJO la variable a es de tipo booleano por lo tanto no lo iguale a true o a false ya que no me hacia falta, es decir:  5+5=10  esto devuelve true o false seguns ea y seria un tipo booleano

Sangriento Infierno Lunar!¡.

lo haces con la API o la funcion de vb6

Código (vb) [Seleccionar] Expandir


Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
FILE_ATTRIBUTE_NORMAL
FILE_ATTRIBUTE_READONLY

o

setattr


Dulce Infierno Lunar!¡.

Si se lee bien, dice que esos datos en Hex No tiene Cabecera.

P.D.: Espero que almenos sepa de cuanto so las dimensiones porq ue si no creo q le a dar muuchos problemas!¡.

Dulces Lunas!¡

Aprende C++ o java 

Saludos

En lugar de java mejor c/c++ java usalo si te lo exigen otros... pero por mi parte y de forma personal mejor c/c++, esto por lo de la VM de java, aun que a las empresas con sus PC chafas como en Telecom les importa una ***** y piden java para ss sitemas... tardan años en ejecutar sus aplicacione (Experiencia propia).

Sangriento Infierno Lunar!¡.

Código (vb) [Seleccionar] Expandir


'In a module



Function AsyncThread() As Integer

    'Let this thread sleep for 10 seconds

    Sleep 10000
    hThread = 0

End Function


Ojo es es un modulo.

Sangriento Infierno Lunar!¡.

mmm pensaba que era el exe del PowerVB Type Library Editor mmm °°"

He estado investigando mas sobre TLI32 y es muy muy interesante...

Código [Seleccionar] Expandir

http://support.microsoft.com/kb/q224331/

No dije yo esto pero...:

Puedes obtener las funciones/procesos/Propiedades y sus parametros con sus tipos respectivos...

Sangrienta Luna Infernal!¡.

[NO FUNCIONA]

Tambien podrias hacer esto, no?

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim vParams(1)  As Variant
   
    vParams(0) = "Hi ho"
    vParams(1) = 1500
    CallByName Me, "Mensaje", VbMethod, vParams()
End Sub

Public Sub Mensaje(ByRef vParams() As Variant)
    Call MsgBox(vParams(0), , vParams(1))
End Sub

la cosa que si algun parametro es distinto a variant por ejemplo una revoltura de variados parametros de distintos tipos NO FUNCIONA y este era mi problema y no me hubiera gustado estar convirtiendo dentro cada parametro al real.

[TypeLib Information]

Agregando la referencia... TypeLib Information:

Código (vb) [Seleccionar] Expandir



' Required for use in VB5!
Public Enum VbCallType
    VbMethod = 1
    VbGet = 2
    VbLet = 4
    VbSet = 8
End Enum
Public Function CallByNameEx(Obj As Object, ProcName As String, CallType As VbCallType, Optional vArgsArray As Variant)
On Error GoTo Handler
Dim oTLI            As TLIApplication '    //  Set oTLI = CreateObject("TLI.TLIApplication")
Dim ProcID          As Long
Dim numArgs         As Long
Dim i               As Long
Dim v()             As Variant
   
    Set oTLI = New TLIApplication
    If Not oTLI Is Nothing Then
        ProcID = oTLI.InvokeID(Obj, ProcName)
        If IsMissing(vArgsArray) Then
            CallByNameEx = oTLI.InvokeHook(Obj, ProcID, CallType)
        End If
        If IsArray(vArgsArray) Then
            numArgs = UBound(vArgsArray)
            ReDim v(numArgs)
            For i = 0 To numArgs
                v(i) = vArgsArray(numArgs - i)
            Next i
            CallByNameEx = oTLI.InvokeHookArray(Obj, ProcID, CallType, v)
        End If
    End If
Exit Function

Handler:
    Debug.Print Err.Number, Err.Description
End Function



Sangriento Infierno Lunar!¡.

TypeLib Information

TLBInf32.dll

Sangriento Infierno Lunar.