Ciao a tutti sono nuovo di questo forum cercherò di spiegare il mio problema:
Ciao grazie di avermi risposto.
Cerco di spiegarmi meglio: la presentazione la carico dentro a l'oggetto groupbox utilizzando controlli office. Ho utilizzato un group box xchè sopra alla presentazione ho messo il nome del relatore e il timer. Il timer l'ho fatto io. Cerco di spiegarti il funzionamento del mio timer:
appena parte la presentazione sarà visualizzato in questo modo:
30:00 dove 30 sono i minuti e 00 sono i secondi.
Quando premo il tasto 'c' inizia il count down cioè: 29:59, 29:58, ....... ecc, ecc. e se il tampo a sua disposizione finisce diventerà negativo cioè -00:01, -00:02, -00:03, -00:04................ -01:58 ecc. lampeggiando in rosso.
Ma se io vado avanti velocemente con le slide intendo velocemente del tipo che tengo premuto il tasto di avanzamento per pareccghi secondi il timer si ferma, poi appena rilascio questo il tasto scorre indietro velocemente finche nn arriva al tempo corretto. Metto un po' di codice:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim p As Array
Dim secondi As Integer
Dim Minuti As Integer
Dim divisione_numero As String
Dim totale As Integer
divisione_numero = Me.Label1.Text
p = divisione_numero.Split(\":\")
Minuti = CInt(p(0))
secondi = CInt(p(1))
totale = (Minuti * 60) + secondi
If (Me.Label1.Text.Substring(0, 1) = \"-\") Then
Me.Label1.ForeColor = Color.Red
If (totale Mod 2) = 0 Then
Me.Label1.ForeColor = Color.Red
Me.Label1.Visible = False
Else
Me.Label1.Visible = True
Me.Label1.ForeColor = Color.Red
End If
End If
If Minuti = 0 And prova = True Then
If secondi = 59 Then
secondi -= 1
Minuti = 0
ElseIf secondi = 0 Then
Minuti = 0
secondi = 0
prova = False
Else
secondi -= 1
End If
End If
If Minuti = 0 And prova = False Then
If secondi = 0 Then
secondi += 1
Minuti = 0
ElseIf secondi = 59 Then
secondi = 0
Minuti -= 1
prova = True
Else
secondi += 1
End If
End If
If (Minuti > 0) And prova = False Then
If (secondi = 0) Then
secondi = 59
If Minuti = 1 Then
Minuti = 0
prova = True
Else
Minuti -= 1
End If
Else
secondi -= 1
End If
End If
If (Minuti < 0) Then
If (secondi = 59) Then
secondi = 0
Minuti -= 1
Else
secondi += 1
End If
End If
Dim minuti2 As String
Dim secondi2 As String
minuti2 = Minuti.ToString
secondi2 = secondi.ToString
If minuti2 = \"0\" And prova = True Then
minuti2 = \"00\"
End If
If minuti2 = \"0\" And prova = False Then
minuti2 = \"-00\"
End If
If minuti2.Length = 1 Then
minuti2 = \"0\" & minuti2
End If
If secondi2.Length = 1 Then
secondi2 = \"0\" & secondi2
End If
If (minuti2.Substring(0, 1) = \"-\" And (minuti2.Length = 2)) Then
Dim minuti3 As String
minuti3 = \"-0\" & minuti2.Substring(1, 1)
minuti2 = minuti3
End If
Me.Label1.Text = minuti2 & \":\" & secondi2
End Sub
Spero che qualcuno mi aiuti grazie.
Ciao