+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 14 su 14

Allarme quotidiano

  1. #11
    Francesco53 non è in linea Scolaretto
    Grazie Brontolo per il suggerimento che ho affrontato nel seguente modo:

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            lbOrario.Text = TimeOfDay
            If lbAllarme.Text = lbOrario.Text Then
                Dim Allarme As Integer = 0
                Do While Allarme <= 50
                    If Allarme = 1 Then Avviso.Show()
                    If Allarme > 50 Then
                        Exit Do
                    End If
                    Console.Beep()
                    Allarme += 1
                Loop
            End If
        End Sub
    
    Ho creato un loop e all'avvio mi apre una piccola form con un avviso testuale che l'Allarme è scattato,
    pertanto dopo una serie di beep, rimane l'avviso sulla piccola form.
    Ho trovato questa soluzione in quanto è l'unica che non mi blocca il Timer, cosa che fa se utilizzo un Message.box.
    Mi farebbe piacere avere un vostro riscontro se è una stupidata o va bene.
    Francesco

  2. #12
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    Il Do While "gira" finché Allarme è minore o uguale a 50, quindi non serve che tu gli dica di uscire quando supera 50. (Tra l'altro non accadrà mai).

    Inoltre credo che i 50 beep non si sentiranno distinti l'uno dall'altro. Io valuterei l'idea di introdurre un secondo timer.
    ℹ️ Leggi di più su Brontolo ...

  3. #13
    Sgrubak non è in linea Scribacchino
    Quote Originariamente inviato da Brontolo Visualizza il messaggio
    Io valuterei l'idea di introdurre un secondo timer.
    Un Thread.Sleep(1000) è troppo brutale?

  4. #14
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    Quote Originariamente inviato da Sgrubak Visualizza il messaggio
    Un Thread.Sleep(1000) è troppo brutale?
    E' meno istruttivo.
    ℹ️ Leggi di più su Brontolo ...

+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12

Potrebbero interessarti anche ...

  1. allarme tra due date
    Da primoprogramma nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 08-02-2018, 19:38
  2. Allarme che non si ferma
    Da Pirouge nel forum Visual Basic 6
    Risposte: 11
    Ultimo Post: 03-02-2016, 18:37
  3. Allarme d Aggiustare
    Da Pirouge nel forum Visual Basic 6
    Risposte: 24
    Ultimo Post: 09-08-2015, 18:48
  4. Function allarme(cell As Range) MsgBox
    Da vale_marie nel forum Microsoft Excel
    Risposte: 11
    Ultimo Post: 24-02-2015, 20:57