Page 1 sur 1
Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 10:19
par 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.
Re: Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 10:51
par 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
Re: Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 11:53
par Micoute
Merci kernadec, ça peut m'aider du fait que je possède un smartphone, on est geek ou on ne l'est pas.
Re: Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 12:02
par 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
Re: Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 13:08
par Micoute
Merci beaucoup case, je constate que tu ne manque pas d'humour et j'en rie encore tellement le titre était inattendu.
Re: Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 13:46
par 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.
Re: Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 18:03
par Micoute
Tout à fait, d'ailleurs je m'en suis largement inspiré, j'aurais dû penser aussi à un système de temporisation, merci encore.
Re: Comment faire des alarmes programmées
Publié : sam. 20/mars/2021 19:04
par 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)
Re: Comment faire des alarmes programmées
Publié : dim. 21/mars/2021 9:43
par 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
Re: Comment faire des alarmes programmées
Publié : dim. 21/mars/2021 18:32
par 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 ^^