Autor
|
Tema: Programar un Relog (Leído 4,379 veces)
|
andresxdddd
Desconectado
Mensajes: 7
|
buenas me gustaria realizar un relog grande ( muy muy grande) del tamaño de mi monitor pero no solo eso. si no que tenga un menu , es decir, el form1 contenga unos cuentos bottones y cada botton lleve a un relog diferente. no se si me explico el relog es para juegos deportivos futbol y bastket entonces el usuario puede elegir entre que tiempo quiere selecionando futbol o bastket supongamos que futbol sea tiempos de 20 min y 20 min. entonces mi idea es que se pare cuando llegue a 00:20:00 y que suene una especie de alarma. es siemple pero algo confuso. mis preguntas ¿ como programo el relog? ¿ como podria reiniciar el relog? ¿ como agregar o modificar el tiempo del relog? " en el caso de futbol y basket porque no dardan el mismo tiempo. gracias
|
|
|
En línea
|
|
|
|
ignorantev1.1
Desconectado
Mensajes: 617
/\ Así acabo cuando quiero programar...
|
Asi no funcionan las cosas aqui Te recomiendo que leas algo y empiezes a crear tu codigo(a como puedas), en base a eso las personas que saben en este foro te ayudaran, pero nadie querra ayudarte a empezar desde cero... Quizas un Timer te ayudaria... Echale ganas
|
|
|
En línea
|
|
|
|
andresxdddd
Desconectado
Mensajes: 7
|
Asi no funcionan las cosas aqui Te recomiendo que leas algo y empiezes a crear tu codigo(a como puedas), en base a eso las personas que saben en este foro te ayudaran, pero nadie querra ayudarte a empezar desde cero... Quizas un Timer te ayudaria... Echale ganas en realidad se hacer casi todo me falta lo del relog he leido sobre colocar algo asi Private Sub Timer1_Tick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Date.Now.ToLongTimeString End Sub
|
|
|
En línea
|
|
|
|
|
andresxdddd
Desconectado
Mensajes: 7
|
:O pero esta sección es visual basic no? mi proyecto lo quiero hacer en VB :s
|
|
|
En línea
|
|
|
|
ignorantev1.1
Desconectado
Mensajes: 617
/\ Así acabo cuando quiero programar...
|
Ok, vamos a ello, te sugiero pongas sobre la mesa lo que tienes... digo... si quieres
|
|
|
En línea
|
|
|
|
|
andresxdddd
Desconectado
Mensajes: 7
|
Ok, vamos a ello, te sugiero pongas sobre la mesa lo que tienes... digo... si quieres Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Date.Now.ToString("hh:mm:ss")
Es lo que tengo en timer, y la verdad todo funciona bien, el problema es que el relog no empieza de 00:00:00 si no desde la hora que es actualmente. yo creo que es por que le puse Date.Now. pero no se como colocarlo desde cero. alguna idea? amigo no das ninguna idea si intentas ser ofencivo simplemente pierdes el tiempo
|
|
« Última modificación: 17 Enero 2011, 01:49 am por andresxdddd »
|
En línea
|
|
|
|
ignorantev1.1
Desconectado
Mensajes: 617
/\ Así acabo cuando quiero programar...
|
mmmm eso es VB? Parece VB NET... Bueno, como sea, quieres hacer un cronometro o un simple reloj? Bueno, esto es un cronometro en VB, no VBNET... Dim segundos As Integer Dim minutos As Integer Dim tipo As String Private Sub cmdReiniciar_Click() 'reiniciar segundos = 0 minutos = 0 End Sub Private Sub cmdFutbol_Click() tipo = "futbol" Call cmdReiniciar_Click End Sub Private Sub Form_Load() Timer1.Interval = 1000 tipo = "futbol" End Sub Private Sub Timer1_Timer() Dim strMin As String Dim strSeg As String If Len(minutos) <= 9 Then strMin = "0" & minutos Else strMin = minutos If Len(segundos) <= 9 Then strSeg = "0" & segundos Else strSeg = segundos Label1 = tipo & " " & strMin & ":" & strSeg segundos = segundos + 1 If segundos = 59 Then minutos = minutos + 1: segundos = 0 Select Case tipo Case "futbol" If minutos = 45 Then Timer1.Enabled = False End Select End Sub
|
|
|
En línea
|
|
|
|
andresxdddd
Desconectado
Mensajes: 7
|
mmmm eso es VB? Parece VB NET... Bueno, como sea, quieres hacer un cronometro o un simple reloj? Bueno, esto es un cronometro en VB, no VBNET... Dim segundos As Integer Dim minutos As Integer Dim tipo As String Private Sub cmdReiniciar_Click() 'reiniciar segundos = 0 minutos = 0 End Sub Private Sub cmdFutbol_Click() tipo = "futbol" Call cmdReiniciar_Click End Sub Private Sub Form_Load() Timer1.Interval = 1000 tipo = "futbol" End Sub Private Sub Timer1_Timer() Dim strMin As String Dim strSeg As String If Len(minutos) <= 9 Then strMin = "0" & minutos Else strMin = minutos If Len(segundos) <= 9 Then strSeg = "0" & segundos Else strSeg = segundos Label1 = tipo & " " & strMin & ":" & strSeg segundos = segundos + 1 If segundos = 59 Then minutos = minutos + 1: segundos = 0 Select Case tipo Case "futbol" If minutos = 45 Then Timer1.Enabled = False End Select End Sub
Disculpame por estupido inconcientemente confundi lo que queria hacer es un cronomentro lo que queria hacer disculpa no un relog. dejame revisar tu codigo y te cuento muchas gracias
|
|
|
En línea
|
|
|
|
|
|