+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 14

Allarme quotidiano

  1. #1
    Francesco53 non è in linea Scolaretto
    Buongiorno a tutti, ho realizzato adattando alle mie necessità un codice per emettere un beep
    ad un orario prestabilito, e tutto funziona, la mia necessità è però quella di rendere il tutto perpetuo,
    nel senso che deve avvenire ogni giorno e non soltanto per il giorno di avvio.
    Posto il codice adattato:

    Private Sub SvegliaSemplice_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            lbAllarme.Text = "11:30:00"
            Timer1.Start()
            Avvia()
        End Sub
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            lbOrario.Text = TimeOfDay
        End Sub
        Sub Avvia()
            Timer2.Start()
        End Sub
        Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
            If lbAllarme.Text = lbOrario.Text Then
                Label3.Text = lbAllarme.Text
            End If
            If Label3.Text = lbAllarme.Text Then
                Timer2.Stop()
                Console.Beep()
            End If
        End Sub
    
    Ringrazio chi può darmi le indicazioni per rendere perpetuo l'Allarme.
    Francesco

  2. #2
    L'avatar di _alka_
    _alka_ non è in linea Very Important Person
    Quote Originariamente inviato da Francesco53 Visualizza il messaggio
    Ringrazio chi può darmi le indicazioni per rendere perpetuo l'Allarme.
    Sorvolando temporaneamente sul codice, che potrebbe avere diverse cose da sistemare, per rendere "perpetuo" l'allarme non ti basta lasciare il programma aperto?
    ℹ️ Leggi di più su _alka_ ...

  3. #3
    Più che altro non devi fare lo Stop del timer. E poi perché tutte quelle If?

            If lbAllarme.Text = lbOrario.Text Then
                Label3.Text = lbAllarme.Text
                Console.Beep()
            End If
    
    Ultima modifica di AntonioG; 12-05-2021 13:07 
    ℹ️ Leggi di più su AntonioG ...

  4. #4
    Francesco53 non è in linea Scolaretto
    Vi ringrazio per i consigli, modifico il codice e provo a lasciare per le prossime 24 ore per vedere come si comporta.
    Francesco

  5. #5
    Non si capisce perché usi Timer1 e Timer2. Non ha senso
    ℹ️ Leggi di più su AntonioG ...

  6. #6
    Francesco53 non è in linea Scolaretto
    Buongiorno a tutti, hai ragione Antonio quel Timer2 è inutile, ho apportato le seguenti modifiche:

    Private Sub SvegliaSemplice_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            lbAllarme.Text = "11:30:00"
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            lbOrario.Text = TimeOfDay
            If lbAllarme.Text = lbOrario.Text Then
                Console.Beep()
            End If
        End Sub
    
    Questo pomeriggio vi scrivo se ha funzionato anche nelle 24 ore successive.
    Francesco

  7. #7
    Scusa ma l'applicazione deve fare solo questo rimanendo aperta H24 ?

    Se è così, esistono le Operazioni Pianificate di Windows che possono eseguire delle Azioni , tra cui avviare ad esempio la tua applicazione ad un orario prestabilito, anche in modo ricorrente.

    In questo modo la tua APP verrà richiamata dal Sistema Operativo, all'avvio eseguirà quello che deve eseguire ed infine si potrà anche chiudere, senza rimanere aperta inutilmente e senza che a causa di una chiusura venga meno la sua "funzionalità"
    ℹ️ Leggi di più su Fix ...

  8. #8
    Ovviamente concordo con Fix ma non sapendo quale sia il fine ultimo di Francesco53. mi astengo da altri commenti (ad esempio, ma è necessario un computer e un programma per una sveglia??)
    ℹ️ Leggi di più su AntonioG ...

  9. #9
    Francesco53 non è in linea Scolaretto
    Ringrazio tutti per i vostri interventi, essendo io un autodidatta (molto ignorante in materia), spesso chiedo un aiuto per capire meglio le funzionalità di alcuni componenti del mondo di visual studio.
    Non ho necessità se non per qualche rara volta che cerco di fare qualcosa per un conoscente, tutte le altre volte, sono io che mi invento un qualcosa da realizzare per passare il tempo ed apprendere qualcosa di nuovo.
    Il caso di questa richiesta è facilmente superabile dal cellulare o se riferito al pc dalle Operazioni Pianificate di Windows, ma ripeto per me è un modo di passare qualche ora e apprendere cose nuove, infatti dai codici che posto penso sia evidente la mia impreparazione.
    Pertanto quando posto qualcosa, dovete avere pazienza, se è possibile e vi viene bene darmi qualche consiglio.
    Grazie,
    Francesco

  10. #10
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    OK. Avevo immaginato infatti che lo scopo fosse puramente sperimentale. Ti suggerisco allora di fare in modo che il "bip" si ripeta finché non si preme un pulsante di tacitazione, altrimenti rischi di perdertelo e devi aspettare altre 24 ore
    ℹ️ Leggi di più su Brontolo ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

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