ayuda con VB.
Moderador: Moderadores
ayuda con VB.
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
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
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
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.
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.
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?
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?
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]
http://www.filelodge.com/files/room13/3 ... modulo.txt
y en tu form agrega este otro:
Private Sub Form_Load()
KeepOnTop
End Sub[/url]