[VB.NET] Estendere il tempo di un Timer

**e444** · 05-01-2018, 04:56

Ma se il pallino è VERDE mi deve aprire il Form di scelta per cosa voglio fare...
Si apre quindi, come scritto nel codice questa finestra di dialogo...

Allegato 29123

l'utente, se deve estendere il colloqui, stabilisce prima di quanto cliccando su 1 dei 3 radio button.
Nella vista codice ecco il tutto...

codice:

Public Class FormScelta

    Dim Est As Integer
    Dim StartTime As DateTime

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'pulsante di chiusura del form
        Me.Close()
    End Sub

    Private Sub Scelta_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'all'avvio del form i 3 radio button sono deselezionali e il pulsante di riferimento è disabilitato
        RB1ora.Checked = False
        RB2ore.Checked = False
        RB3ore.Checked = False
        BTNEstendi.Enabled = False
    End Sub
    Private Sub RB1ora_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RB1ora.CheckedChanged
        'se l'utente fa click sul radio button 1 per estendere la durata di 1 ora, si abilita il pulsante "estendi"
        BTNEstendi.Enabled = True
    End Sub

    Private Sub RB2ore_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RB2ore.CheckedChanged
        'se l'utente fa click sul radio button 2 per estendere la durata di 2 ore, si abilita il pulsante "estendi"
        BTNEstendi.Enabled = True
    End Sub

    Private Sub RB3ore_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RB3ore.CheckedChanged
        'se l'utente fa click sul radio button 3 per estendere la durata di 3 ore, si abilita il pulsante "estendi"
        BTNEstendi.Enabled = True
    End Sub
    Private Sub BTNEstendi_Click(sender As System.Object, e As System.EventArgs) Handles BTNEstendi.Click
        'se l'utente ha selezionato il radio botton 1, Est = a 3600
        If RB1ora.Checked = True Then
            Est = 3600
        End If
        'se l'utente ha selezionato il radio botton 2, Est = a 7200
        If RB2ore.Checked = True Then
            Est = 7200
        End If
        'se l'utente ha selezionato il radio botton 3, Est = a 10800
        If RB3ore.Checked = True Then
            Est = 10800
        End If

        Select Case Label2.Text
            Case "S1P1"
                If MsgBox("ATTENZIONE!, stai estendendo la durata del colloquio!... CONFERMI?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                    FormColloqui.LBTimerS1P1.Text += Val(Est) - (Now - StartTime).TotalSeconds
                    FormColloqui.CBSala1Posto1.Text += 1
                End If
            Case "S1P2"
                If MsgBox("ATTENZIONE!, stai estendendo la durata del colloquio!... CONFERMI?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                    FormColloqui.LBTimerS1P2.Text += Val(Est) - (Now - StartTime).TotalSeconds
                    FormColloqui.CBSala1Posto2.Text += 1
                End If
            Case "S1P3"
                If MsgBox("ATTENZIONE!, stai estendendo la durata del colloquio!... CONFERMI?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                    FormColloqui.LBTimerS1P3.Text += Val(Est) - (Now - StartTime).TotalSeconds
                    FormColloqui.CBSala1Posto3.Text += 1
                End If
        End Select
        Me.Close()
    End Sub

    Private Sub BTNInterrompi_Click(sender As System.Object, e As System.EventArgs) Handles BTNInterrompi.Click
        Note.ShowDialog()
        Select Case Label2.Text
            Case "S1P1"
                FormColloqui.LBTimerS1P1.Text = "1"
            Case "S1P2"
                FormColloqui.LBTimerS1P2.Text = "1"
            Case "S1P3"
                FormColloqui.LBTimerS1P3.Text = "1"
            Case "S1P4"
                FormColloqui.LBTimerS1P4.Text = "1"
            Case "S1P5"
                FormColloqui.LBTimerS1P5.Text = "1"
            Case "S1P6"
                FormColloqui.LBTimerS1P6.Text = "1"
            Case "S1P7"
                FormColloqui.LBTimerS1P7.Text = "1"
            Case "S1P8"
                FormColloqui.LBTimerS1P8.Text = "1"
            Case "S1P9"
                FormColloqui.LBTimerS1P9.Text = "1"
            Case "S1P10"
                FormColloqui.LBTimerS1P10.Text = "1"
        End Select
        Me.Close()
    End Sub
    End Class

Onestamente non riesco a capire dove sia l'errore...

**eziogsv** · 05-01-2018, 17:21

Ok, ora si capisce qualcosa di più... permettimi iniziando con alcuni errori "di concetto":

codice:

PublicSubCBSala1Posto1_SelectedIndexChanged(sender AsObject, e AsSystem.EventArgs)HandlesCBSala1Posto1.SelectedIndexChanged
       
       'se è selezionato l'item 0, la label sarà rinominata con il t1 che corrisponde a "3600".
        If CBSala1Posto1.SelectedIndex="0"Then
            LBTimerS1P1.Text= t1
        ElseIf CBSala1Posto1.SelectedIndex="1"Then
           'se è selezionato l'item 1, la label sarà rinominata con il t2 che corrisponde a "7200".                           LBTimerS1P1.Text= t2
       ...............
       ..............

Se non usi ElseIf ti rileggi anche tutti gli If che non ti servono.

codice:

LBTimerS1P1.Text= t1

evidentemente lavori senza aver abilitato "Option Strict = True"

A mio parere uguagliare un testo ad un integer non è buona cosa... VB lo fa, ma l' errore potrebbe essere dietro l' angolo.

codice:

LBTimerS1P1.Text= t1.ToString

E' possibile non mi sia ben svegliato (sono andato a letto alle 4

)... ma in tutto il codice che hai messo non vedo dove "modifichi" le label aggiungendo il tempo.

Cmq una cosa così dovrebbe fungere:

codice:

 Private Sub BTNEstendi_Click(sender As System.Object, e As System.EventArgs) Handles BTNEstendi.Click        
        'se l'utente ha selezionato il radio botton 1, Est = a 3600. 
        '................ MA EST SERVE VERAMENTE????
        If RB1ora.Checked = True Then
            FormPrincipale.LBTimerS1P2.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 3600).ToString
        ElseIf RB2ore.Checked = True Then
            FormPrincipale.LBTimerS1P2.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 7200).ToString
        ...............................

**eziogsv** · 05-01-2018, 17:25

anche in timer:

codice:

PrivateSubTimerS1P1_Tick(sender AsSystem.Object, e AsSystem.EventArgs)HandlesTimerS1P1.Tick
        'ad ogni 1000 millisecondi, scala il numero della label di "1"
         LBTimerS1P1.Text = (Cint(LBTimerS1P1.Text) - 1).ToString

abituati a lavorare con Option Strict = True... non te ne fa passare nemmeno una, ma limiti le probabilità di errore.

**alka** · 05-01-2018, 19:20

Originariamente inviata da e444

Grazie per il tuo intervento ma... non risolvo così il mio problema. :-) o meglio... mi vado ad incasinare molto di più...

Giusto una domanda così per sapere... hai almeno provato?

A me pare che tu ti stia incasinando molto di più in questo momento, almeno dal codice che hai scritto.

In fondo, il valore temporale che ti serve si può memorizzare in una variabile una volta determinato, e aggiornarlo quando serve, senza andare a verificare lo stato del timer, cambiarne l'intervallo (che non è una scadenza ovvero è periodica), ecc.

Ciao!

**e444** · 06-01-2018, 12:29

Originariamente inviata da eziogsv

Ok, ora si capisce qualcosa di più... permettimi iniziando con alcuni errori "di concetto":

codice:

PublicSubCBSala1Posto1_SelectedIndexChanged(sender AsObject, e AsSystem.EventArgs)HandlesCBSala1Posto1.SelectedIndexChanged
       
       'se è selezionato l'item 0, la label sarà rinominata con il t1 che corrisponde a "3600".
        If CBSala1Posto1.SelectedIndex="0"Then
            LBTimerS1P1.Text= t1
        ElseIf CBSala1Posto1.SelectedIndex="1"Then
           'se è selezionato l'item 1, la label sarà rinominata con il t2 che corrisponde a "7200".                           LBTimerS1P1.Text= t2
       ...............
       ..............

Se non usi ElseIf ti rileggi anche tutti gli If che non ti servono.

Ti rispondo passo passo...

Si... avrei potuto usare l'ElseIf... ma, se ci pensi, potrei fare ancor meglio a convertirlo con un Select Case... e molto probabilmente farò così...

codice:

Public Sub CBSala1Posto1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles CBSala1Posto1.SelectedIndexChanged

        Select Case CBSala1Posto1.SelectedIndex
            Case 0
                LBTimerS1P1.Text = t1
            Case 1
                LBTimerS1P1.Text = t2
            Case 2
                LBTimerS1P1.Text = t3
            Case 3
                LBTimerS1P1.Text = t4
        End Select


    End Sub

Forse è ancora meglio... o sbaglio?...

**e444** · 06-01-2018, 12:39

Originariamente inviata da eziogsv

codice:

LBTimerS1P1.Text= t1

evidentemente lavori senza aver abilitato "Option Strict = True"

A mio parere uguagliare un testo ad un integer non è buona cosa... VB lo fa, ma l' errore potrebbe essere dietro l' angolo.

codice:

LBTimerS1P1.Text= t1.ToString

Perdonami ma questa non l'ho capita...

Allora... partiamo dal primo suggerimento...
"Option Strict = True"

Nel mio manuale di Visual Basic Net, questo "parametro" non è proprio citato... che roba è??... a che serve e come funziona? se potessi essere così gentile da spiegarmelo posso così imparare un qualcosina in più...

Poi scusa ma qui il tuo suggerimenti si contraddice...
Ovvio che un testo non è da uguagliare ad un numero... infatti ho specificato che le variabili "t1; t2; t3; e t4" sono integer... e quindi me li deve considerare come "numerici"...

codice:

Dim t1 As Integer = 3600 't1 corrisponde a 1 ora
Dim t2 As Integer = 7200 't2 corrisponde a 2 ore
Dim t3 As Integer = 10800 't3 corrisponde a 3 ore
Dim t4 As Integer = 14400 't4 corrisponde a 4 ore

Perche quindi mi suggerisci di convertire un parametro numerico a string??? ma se io scrivo questo:

codice:

LBTimerS1P1.Text= t1.ToString

lui quel "3600" o chi che sia, me li converte in testo!... e non è peggio? o meglio... non rischio più facilmente ad imbattermi in un errore dal momento che gli chiedo di fare delle operazioni matematiche con quei "t1......"???

**e444** · 06-01-2018, 13:42

Originariamente inviata da eziogsv

E' possibile non mi sia ben svegliato (sono andato a letto alle 4

)... ma in tutto il codice che hai messo non vedo dove "modifichi" le label aggiungendo il tempo.

Azz!.. ed io che mi reputo un animale notturno!... vedo che c'è chi mi batte!!... ahahahaha a dire il vero ci passo le nottate a lavorare al pc perche di notte riesco a concentrarmi meglio... nel pieno silenzio... lavoro meglio...

Mi hai riportato il codice di quello che dici di non aver visto??? ahahahahah... e si.... avevi sonno!.. ahahahah

Allora...
"Est" (che non è altro che l'abbreviazione di "estendi") assolutamente serve si... perche?... perche appunto è un valore "variabile" che può cambiare in base a cosa decide l'utente.... se non creassi questa variabile ti mostro cosa uscirebbe fuori... ma prima, ti faccio una piccola osservazione...
Hai notato quel: S1P2 che hai riportato nel codice?... quelle... non sono lettere e numeri a caso...
S1 = Salone 1
P2 = Poltrona 2
In tutto... ci sono 4 saloni e ogni salone ha 10 poltrone... e tutte devono essere indipendenti.
Se non avessi la variabile "Est", dovrei scrivere il codice del pulsante "Estendi" (chiamato nel programma "BTNEstendi") in questo modo:

codice:

Select Case Label2.Text
            Case "S1P1"
                    If RB1ora.Checked = True Then
                              FormColloqui.LBTimerS1P1.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 3600).ToString
                              FormColloqui.CBSala1Posto1.Text += 1
                    ElseIf RB2ore.Checked = True Then
                              FormColloqui.LBTimerS1P1.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 7200).ToString
                              FormColloqui.CBSala1Posto1.Text += 1
                    ElseIf RB3ore.Checked = True Then
                              FormColloqui.LBTimerS1P1.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 10800).ToString
                              FormColloqui.CBSala1Posto1.Text += 1
                    End If
            Case "S1P2"
                    If RB1ora.Checked = True Then
                              FormColloqui.LBTimerS1P2.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 3600).ToString
                              FormColloqui.CBSala1Posto2.Text += 1
                    ElseIf RB2ore.Checked = True Then
                              FormColloqui.LBTimerS1P2.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 7200).ToString
                              FormColloqui.CBSala1Posto2.Text += 1
                    ElseIf RB3ore.Checked = True Then
                              FormColloqui.LBTimerS1P2.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 10800).ToString
                              FormColloqui.CBSala1Posto2.Text += 1
                    End If
            Case "S1P3"
                    If RB1ora.Checked = True Then
                              FormColloqui.LBTimerS1P3.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 3600).ToString
                              FormColloqui.CBSala1Posto3.Text += 1
                    ElseIf RB2ore.Checked = True Then
                              FormColloqui.LBTimerS1P3.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 7200).ToString
                              FormColloqui.CBSala1Posto3.Text += 1
                    ElseIf RB3ore.Checked = True Then
                              FormColloqui.LBTimerS1P3.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 10800).ToString
                              FormColloqui.CBSala1Posto3.Text += 1
                    End If
            Case "S1P4"
                    If RB1ora.Checked = True Then
                              FormColloqui.LBTimerS1P4.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 3600).ToString
                              FormColloqui.CBSala1Posto4.Text += 1
                    ElseIf RB2ore.Checked = True Then
                              FormColloqui.LBTimerS1P4.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 7200).ToString
                              FormColloqui.CBSala1Posto4.Text += 1
                    ElseIf RB3ore.Checked = True Then
                              FormColloqui.LBTimerS1P4.Text=(Cint(FormPrincipale.LBTimerS1P2.Text) + 10800).ToString
                              FormColloqui.CBSala1Posto4.Text += 1
                    End If

ecc... ecc... ecc...

Io, invece di scrivere tutto sto casino, ho pensato che era più semplice e veloce per il programma, se non più leggero, ragionare in questo modo:

codice:

Private Sub BTNEstendi_Click(sender As System.Object, e As System.EventArgs) Handles BTNEstendi.Click
       
        If RB1ora.Checked = True Then
            Est = 3600
        End If
        If RB2ore.Checked = True Then
            Est = 7200
        End If
        If RB3ore.Checked = True Then
            Est = 10800
        End If


        Select Case Label2.Text
            Case "S1P1"
                If MsgBox("ATTENZIONE!, stai estendendo la durata del colloquio!... CONFERMI?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                    FormColloqui.LBTimerS1P1.Text += Val(Est) - (Now - StartTime).TotalSeconds
                    FormColloqui.CBSala1Posto1.Text += 1
                End If
            Case "S1P2"
                If MsgBox("ATTENZIONE!, stai estendendo la durata del colloquio!... CONFERMI?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                    FormColloqui.LBTimerS1P2.Text += Val(Est) - (Now - StartTime).TotalSeconds
                    FormColloqui.CBSala1Posto2.Text += 1
                End If
            Case "S1P3"
                If MsgBox("ATTENZIONE!, stai estendendo la durata del colloquio!... CONFERMI?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                    FormColloqui.LBTimerS1P3.Text += Val(Est) - (Now - StartTime).TotalSeconds
                    FormColloqui.CBSala1Posto3.Text += 1
                End If
            Case "S1P4"
                If MsgBox("ATTENZIONE!, stai estendendo la durata del colloquio!... CONFERMI?", MsgBoxStyle.YesNo + MsgBoxStyle.Information) = MsgBoxResult.Yes Then
                    FormColloqui.LBTimerS1P4.Text += Val(Est) - (Now - StartTime).TotalSeconds
                    FormColloqui.CBSala1Posto4.Text += 1
                End If


ecc... ecc... ecc...

Ho riportato SOLO le prime 4 postazioni del salone 1!.... ne mancano altre 46 di postazioni... che ovviamente evito qui di trascrivere...
Che succede come ho fatto io?
Il programma crea questa variabile di nome "Est" e sa che è un valore numerico che cambia in base al radio botton scelto dall'utente.... poi...
In primis il programma mi chiede la conferma se voglio estendere la durata... cosa che potrebbe tornare utile in caso di "click accidentali"... (purtroppo devo pensare pure a questo!...)
Perche ho usato poi il "Select Case"?... perche essendoci 50 postazioni, devo in qualche modo dire al programma a QUALE di quelle 50 postazioni deve estendere la durata!...

Quando l'utente fa click sul pallino VERDE del FormColloqui, per esempio, sulla postazione 5 del salone 3, il programma, prima di aprire l'apposita finestra per la scelta (FormScelta), modifica la proprietà text della "Label2" del FormScelta scrivendo "S3P5".
Si apre poi il FormScelta.
L'utente seleziona il radio botton 1, 2 o 3 per dire al programma se vuole estende di 1 ora, 2 ore o 3 ore e poi clicca sul bottone "Estendi".
Quando poi l'utente ha fatto click sul bottone "Estendi" il programma legge la proprietà text della label2 del medesimo form e comincia ad andare in rassegna dei casi con il Select Case.
Inizia comparando il testo della label2, che è diventato: "S3P5" con...
Case S1P1, no...
Case S1P2, no...
Case S1P3, no...

ecc... ecc...

Case S1P9, no...
Case S1P10, no...
Case S2P1, no...
Case S2P2, no...

ecc... ecc...

Case S3P3, no...
Case S3P4, no...
Case S3P5, BINGO!.... e così capisce che l'estensione della durata è riferito al Salone 3, Poltrona 5.

**eziogsv** · 06-01-2018, 14:32

Originariamente inviata da e444

Perdonami ma questa non l'ho capita...

Allora... partiamo dal primo suggerimento...
"Option Strict = True"

Nel mio manuale di Visual Basic Net, questo "parametro" non è proprio citato... che roba è??... a che serve e come funziona? se potessi essere così gentile da spiegarmelo posso così imparare un qualcosina in più...

Option Strict = Opzione RIGOROSA: se abilitata ti COSTRINGE a scrivere codice corretto. Ad esempio non accetterebbe di eguagliare TESTO a NUMERI.

L' opzione si abilita in "Progetto / Proprietà / Compilazione".

Originariamente inviata da e444

Poi scusa ma qui il tuo suggerimenti si contraddice...
Ovvio che un testo non è da uguagliare ad un numero... infatti ho specificato che le variabili "t1; t2; t3; e t4" sono integer... e quindi me li deve considerare come "numerici"...

Perche quindi mi suggerisci di convertire un parametro numerico a string??? ma se io scrivo questo:

codice:

LBTimerS1P1.Text= t1.ToString

lui quel "3600" o chi che sia, me li converte in testo!... e non è peggio? o meglio... non rischio più facilmente ad imbattermi in un errore dal momento che gli chiedo di fare delle operazioni matematiche con quei "t1......"???

Ti sfugge il particolare che il TESTO di una label è un parametro TEXT, mentre un numero è un parametro NUMERIC. Se uguagli un testo ad un numero VB.NET LO FA (nel senso che fa LUI la conversione che avresti dovuto fare TE), ma è una forzatura che Option Strict non ti consentirebbe, proprio perché in codice magari più complesso del semplice esempio in questione scrivere codice così potrebbe più facilmente portare ad errori.

Tieni inoltre presente che scrivendo "t1.ToString" NON MODIFICHI IN NESSUN MODO T1, che ovviamente rimane una variabile Integer... semplicemente converti "momentaneamente" il suo valore in TEXT per poter inserire correttamente quel valore nella Label, che si aspetta un parametro TESTUALE.

Adesso esco... il secondo post lo guardo nel pomeriggio.

**eziogsv** · 06-01-2018, 19:18

Originariamente inviata da e444

Ti rispondo passo passo...

Si... avrei potuto usare l'ElseIf... ma, se ci pensi, potrei fare ancor meglio a convertirlo con un Select Case... e molto probabilmente farò così...
[CUT]

Forse è ancora meglio... o sbaglio?...

Personalmente se possibile preferisco il SELECT al ELSEIF.... ma è una questione "estetica" di pulizia del codice: se fai reverse engineering del codice compilato vedi che il SELECT viene comunque "trasformato" dal compilatore in una serie di If... ElseIf...

Riguardo al codice:

codice:

        Select Case CBSala1Posto1.SelectedIndex
            Case 0
                LBTimerS1P1.Text = t1
            Case 1
                LBTimerS1P1.Text = t2
            Case 2
                LBTimerS1P1.Text = t3
            Case 3
                LBTimerS1P1.Text = t4
        End Select

personalmente, onde evitare di creare 35.600 variabili, userei la variabile "Durata" che vedo che hai dichiarato (Dim Durata as Integer = 3600).

codice:

        Select Case CBSala1Posto1.SelectedIndex
            Case 0
                LBTimerS1P1.Text = Durata
            Case 1
                LBTimerS1P1.Text = Durata * 2
            Case 2
                LBTimerS1P1.Text = Durata * 3
            Case 3
                LBTimerS1P1.Text = Durata * 4
        End Select

che mi pare più pulito e meglio leggibile in futuro

**eziogsv** · 06-01-2018, 19:29

Torniamo "a bomba" e riparliamo del problema n° 1, cioè che quando vai a sommare "Est" i conti non ti tornano.

codice:

FormColloqui.LBTimerS1P1.Text+=Val(Est)-(Now-StartTime).TotalSeconds

(Now - StartTime).TotalSeconds lo ho suggerito quando credevo che il tempo andasse "avanti", ma se va indietro non mi pare che serva.

NOTA: Val(ESt) non ha senso, visto che Est è già un valore numerico. Inoltre come già detto aggiungere Numeri a testo non è il massimo della correttezza.

codice:

LBTimerS1P1.Text=(Cint(FormPrincipale.LBTimerS1P2.Text)+Est).ToString

Non hai precisato se usando questo codice finalmente il problema di partenza (cioè aggiungere correttamente Est al valore corrente della label) è risolto.

Discussione: [VB.NET] Estendere il tempo di un Timer

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio