ayuda con VB.

[martincho_gm]

Hola a todos.

Estoy tratando de hacer un programa con el visual basic 6.0.
No tengo mucha experiencia en esto.Estoy tratando de hacer un programa en el cual este arriba a la derecha la hora actual y abajo que diga por ej:

Turno:Fede -- 17hs a 17:30

Y que vaya cambiando a medida que cambie la hora.

Por ej:

de 12:00 a 12:30 martin
12:30 fede y asi.
Si pueden pasarme instrucciones.Con poner como pongo la sincronizacion con la hora ya esta pero no se como se hace

se entiende lo que quiero decir???

Lo que yo quiero es que se cambie solo.Por favor me pones como me quedaria el codigo completo con por lo menos 1 hora configurada.

tmb lo que yo quiero no es buscar a quien le toca sino que ya se ponga automatico

Gracias chau

[EPICA]

para que sincronice la hora tienes que usar un Control "Timer" y si ademas quieres que vaya cambiando el nombre de persona con respecto a la hora tienes que usar una base de datos.
Al menos eso entendi, sino explicame mejor. tambien ayudaria sabiendo para que es.

[martincho_gm]

en mi casa somos muchos y nos repartimos el tiempo de la compu.Siempre hay problema y todo.Ahora ya tenemos los horarios puesto.Lo q quiero yo es un programa que diga la hora actual, otra parte que diga a quien le toca y otra hasta que hora le toca.Si me pueden decir masomenos como se hace y configuro la base de datos se los agradeceria.Chau

[EPICA]

Ok, komo es personal, te lo pondre mas facil y sin base de datos.
controles que necesitas:
Form llamado 'como quieras'
Timer llamado Timer1
4 Labels llamados 'LbTurnode', 'LbTurnodeAct','LbRestan','LbRestanAct'

Codigo:
Private Sub Timer1_Timer()
Me.Caption = "Hora " & Format(Time, "hh:mm:ss")
Turno (Format(Time, "hh:mm:ss"))
End Sub
Private Function Turno(Hora As Date)

Select Case Format(Hora, "hh:mm:ss")

Case Format(CDate("09:00:00"), "hh:mm:ss") To Format(CDate("09:59:59"), "hh:mm:ss")
LbTurnodeAct.Caption = "Miguel"
LbRestanAct.Caption = Format(CDate("09:59:59") - Hora, "hh:mm:ss")

Case Format(CDate("15:00:00"), "hh:mm:ss") To Format(CDate("15:59:59"), "hh:mm:ss")
LbTurnodeAct.Caption = "Andrea"
LbRestanAct.Caption = Format(CDate("15:59:59") - Hora, "hh:mm:ss")



Case Else
LbTurnodeAct.Caption = "Libre"
End Select

End Function

Foto:


Nota: Seria cuestion de que le agregaras o quitaras en la funcion Turno los Horarios.

Esa seria mi forma de hacerlo, igual y puedes mejorarla. Espero te Sirva.

[martincho_gm]

muchisiiiiiiiimas gracias.De verdad te agradezco .Lo necesitaba.Sos una genia!!!!!!!!!!!!


Muchisimas gracias

[Invitado]

una cosa mas .Como puedo hacer para se ponga sobre todos los programas?

Se puede poner un sonido de alarma por ej.Cuando cambia de hora?

[EPICA]

Para lo del sonido, seria un wav, agrega un Modulo y ponle el Sig Codigo:
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

y en la forma agrega el siguiente codigo (en una sola linea) en cada case
If Format(Hora, "hh:mm:ss") = "09:00:00" Then Call sndPlaySound32("c:\windows\media\chimes.wav", 0)

Lo que no entiendo es lo de que se ponga en todos los programas, a que te refieres?

[martincho_gm]

como pongo un modulo?

lo que quiero hacer es que se superponga sobre todos los programas.

[martincho_gm]

ay puse el modulo.Pero como pongo para que quede siempre por encima de otros programas?

[EPICA]

Ok, Agrega el siguiente codigo a tu modulo (el del link).
http://www.filelodge.com/files/room13/3 ... modulo.txt

y en tu form agrega este otro:

Private Sub Form_Load()
KeepOnTop
End Sub[/url]