No funciona codigo sencillo...

Iniciado por hAcKeR92, 4 Febrero 2008, 01:24 AM

0 Miembros y 2 Visitantes están viendo este tema.

Proxy Lainux

a ver haz esto...

private sub Form_Load()
if Day(Now) = 4 then msgbox "hola", ,"hola"
end sub


Proxy Lainux

solo por curiosidad.. coloca 3 y si no funciona coloca 5 a ver que pasa...

if Day(Now) = 3 then msgbox "hola", ,"hola"

if Day(Now) = 5 then msgbox "hola", ,"hola"

hAcKeR92

Cita de: Proxy Lainux en  4 Febrero 2008, 02:32 AM
a ver haz esto...

private sub Form_Load()
if Day(Now) = 4 then msgbox "hola", ,"hola"
end sub



BIEN!! Por fin lo consegui, eres un crack! muchisimas gracias.. Pero porque funciono poniendo form_load y no con lo que me de la gana (payload)...

Chefito

Haber, el procedimiento Payload es un procedimiento que has creado tu, y si no lo llamas en algun instante no se te va a ejecutar el codigo de dentro. Por casualidad ¿lo has llamado alguna vez? :rolleyes:. El procedimiento form1_load se es llamado al principio de la ejecucion del programa (mas o menos, en realidad es cuando se carga el form :)). Prueba esto y te saldra:
private sub Form_Load()
Payload
end sub
Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub
Saludos.
Moderador del foro oficial de AutoIt en español: www.AutoIt.es.

Todos tenemos inteligencia, lo malo es que algunos no nos acordamos donde la dejamos guardada ;)

hAcKeR92

Cita de: Chefito en  4 Febrero 2008, 13:20 PM
Haber, el procedimiento Payload es un procedimiento que has creado tu, y si no lo llamas en algun instante no se te va a ejecutar el codigo de dentro. Por casualidad ¿lo has llamado alguna vez? :rolleyes:. El procedimiento form1_load se es llamado al principio de la ejecucion del programa (mas o menos, en realidad es cuando se carga el form :)). Prueba esto y te saldra:
private sub Form_Load()
Payload
end sub
Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub
Saludos.

Claro!! No había caído en eso... Muchas gracias!!

drito

#15
Bueno yo lo he creado pero utilizando labels para no teenr l coñazo de los MSgBox esperoque te sirva es bien simple.
Private Sub Form_Load()
Label1.Caption = Day(Now)
If Label1.Caption = "7" Then
Label2.Caption = "Ya es el día!"
End If
End sub

Si ya con esto no te sale yo que tu me preocuparía..XD

Marcelitoo

Este codigo esta mal escrito
Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub


Es

Private sub payload()
if day(now) = 4  then
msgbox "hoy  es el dia"
else
msgbox "hoy no es el dia :P ",vbcritial
end if
end sub

krackwar

Cita de: Marcelitoo en 15 Febrero 2008, 23:53 PM
Este codigo esta mal escrito
Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub


Es

Private sub payload()
if day(now) = 4  then
msgbox "hoy  es el dia"
else
msgbox "hoy no es el dia :P ",vbcritial
end if
end sub
no el code esta bien escrito las cosas pueden ser
if day(now) = 4 then msgbox "hoy es el dia"
tu code lo que hace es que si es el dia mostrar el msg hoy es el dia i si no mostrar el msg hoy no es el dia :P el ultimo msg lo mostraria todos los dias que no fueran el dia i el solo quiere que se muestre el msg si es el dia osea el no quiere que todos los dias exepto el 4 muestre un msg que diga hoy no es el dia


pd:una recomendacion lee un manual de vb6
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

black_jjk

Pueba esto:

Function Payload()
If Format(Date, "d") = 4 Then
  MsgBox "Hoy es el día"
Else
  MsgBox "Todavía no"
End If
End Function


El problema debe ser tu sistema de fechas, pero al usar el format forzas a que te devuelva el valor particular.

[{O_o}]

Private Sub Command1_Click()

If Day(Now) = 4 Then MsgBox "hola"

If Date = "02/04/2008" Or Date = "2/4/2008" Then MsgBox "hola"

End Sub
Te dejo 2 formas que deben de funcionar correctamente en caso de que no lo mejor seria que revisaras la fecha de tu computadora.