| 
	
		|  Autor | Tema: Programar un Relog  (Leído 4,782 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.TickLabel1.Text = Date.Now.ToLongTimeStringEnd 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 IntegerDim minutos As IntegerDim tipo As String Private Sub cmdReiniciar_Click() 'reiniciar    segundos = 0    minutos = 0End Sub Private Sub cmdFutbol_Click()    tipo = "futbol"    Call cmdReiniciar_ClickEnd 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 SelectEnd 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 IntegerDim minutos As IntegerDim tipo As String Private Sub cmdReiniciar_Click() 'reiniciar    segundos = 0    minutos = 0End Sub Private Sub cmdFutbol_Click()    tipo = "futbol"    Call cmdReiniciar_ClickEnd 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 SelectEnd 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 | 
 
 |  |  |  |  |  
 
	
 
   |