Comment faire des alarmes programmées

[Micoute]

Bonjour à tous,

de retour après un Nième passage par l'hôpital où on m'a informé que je devais irriguer mes reins, je souhaiterais faire un petit utilitaire me faisant des rappels à l'hydratation, car je ne ressent pas la soif et c'est sûrement lié à l'âge

Ne sachant pas comment pratiquer, je m'en remets à votre savoir collectif et je vous en remercie par avance.

[kernadec]

Bonjour Micoute
Sur android tu as une appli formidable pour ca tu peux faire toutes les alarmes repetee sur l annee les heures etc...
Elle s appelle "isotimer"
Je l utilise dans sa version gratuite et elle est top

Cordialement

[Micoute]

Merci kernadec, ça peut m'aider du fait que je possède un smartphone, on est geek ou on ne l'est pas.

[case]

salut micoute, archive a télécharger contenant le code, les image les sons

http://www.moonshade.org/pure/micoute_vas_boire.rar

tu peux modifier l'interval de temps par defaut a 60 minutes,

soit dans le code soit en utilisant le champ, des que tu change la valeur le programme se met en pause.
il faut cliquer sur GO pour relancer le compte.

si tu vas boire un coup et que l'alarme n'a pas retenti tu peux cliquer sur go pour tout reinitialiser.

enfin si tu veux couper le son de l'alarme tu clic sur compris j'ai essaye de trouver une alarme pas trop violente

a toi d’améliorer tout ça a ta sauce, je te fais confiance pour cela.

Code : Tout sélectionner

InitSound()
UsePNGImageDecoder()
Global main= OpenWindow(#PB_Any,0,0,128,120,"micoute vas boire un coup ") ; fenetre
Global interval=60                                                        ; alarme toute les heures valeur par defaut en minutes
AddWindowTimer(main, 7, 60000)                                            ; timer toute les minutes 60000 millisecondes
Global alarmsound=LoadSound(#PB_Any,"219244__zyrytsounds__alarm-clock-short.wav")
Global value=StringGadget(#PB_Any,0,0,60,20,Str(interval))
Global go=ButtonGadget(#PB_Any,0,30,60,20,"go")
Global ok=ButtonGadget(#PB_Any,0,60,60,20,"compris")
Global canv=CanvasGadget(#PB_Any,64,0,64,120)
Global verre=LoadImage(#PB_Any,"verre2.png")
Global eau=LoadImage(#PB_Any,"eau.png")
Global nbmin=00                          ; nombre de minutes ecoulées
Global tempwater
Procedure updateverre()  
  decr.f=ImageHeight(verre)/interval  ; decrementation du contenu du verre
  If IsImage(tempwater)
    FreeImage(tempwater)
  EndIf
  hauteur=nbmin*decr
  If hauteur>119
    hauteur=119
    EndIf
  tempwater=GrabImage(eau,#PB_Any,0,hauteur,64,120-hauteur)
  StartDrawing(CanvasOutput(canv))
  DrawImage(ImageID(verre),0,0)
  DrawAlphaImage(ImageID(tempwater),0,hauteur)
   StopDrawing() 
EndProcedure
updateverre()
Repeat
  ev=WaitWindowEvent()
  If ev
    If ev=#PB_Event_Gadget
      If EventGadget()=value
        pause=1
      EndIf      
      If EventGadget()=go
        pause=0
        nbmin=0
        interval=Val(GetGadgetText(value))
        
      EndIf
      If EventGadget()=ok
StopSound(alarmsound)        
      EndIf      
    EndIf
 If pause=0   
    If ev=#PB_Event_Timer ; UNE MINUTE 
      
      If EventTimer()=7
        nbmin+1
        updateverre()
        If nbmin>=interval
          nbmin=0
          PlaySound(alarmsound)
        EndIf 
      EndIf
    EndIf        
  EndIf
  EndIf
Until ev=#PB_Event_CloseWindow

[Micoute]

Merci beaucoup case, je constate que tu ne manque pas d'humour et j'en rie encore tellement le titre était inattendu.

[case]

content que cela t'ai fait plaisir
j’espère que cela réponds aussi a ton besoin de savoir comment t'y prendre pour créer une alarme.

[Micoute]

Tout à fait, d'ailleurs je m'en suis largement inspiré, j'aurais dû penser aussi à un système de temporisation, merci encore.

[TazNormand]

Salut Tous

Hors Sujet, mais je viens de regarder ton blog Case, faudrait peut-être penser à le mettre à jour

Plus sérieusement, content de voir que je ne suis pas le seul à être un ancien "Amstradiste", t'as encore un CPC chez toi ? Perso je cherche de temps à autre un 464 et un 6128 sur les sites de petites annonces, mais les prix.... ouch !!! Et je ne parle même pas d'un amiga 500/500+ ou d'un 1200

Allez, j'arrête de polluer le Topic de Micoute.

Merci pour le code de Timer en tous Cas(e)

[MLD]

Bonjour a tous
@ Micoute content que tu soit sortie de l'hosto.
J'ai fait une pendule avec alarme que j'ai mis sur le forum. Tu la connais car elle s'inspire de celle que tu avais réalisé.
@Taz. J'ai démarré la programmation sur un 6128, mais il y a très, très longtemps que je m'en suis séparé.
Tu monte un musé ????
@Case Merci du partage

[case]

il me reste un dragon32,un cpc6128,un A1200,un 520STF

le partage c'est bien et surtout quand ça fait avancer des gens qui se donnent du mal, c'est toujours avec plaisir ^^