Autor | Thema: Zeitgesteuerte Meldung | | Datum:22.02.02 14:11 
(WGiese@Nevcom.de) | |
Hallo,
gibts in Profan (7.0) die Möglichkeit um eine bestimmte Uhrzeit eine Meldung auf dem Bildschirm auszugeben?
Ich möchte gern meiner Tochter z.B. um 19:00 Uhr eine Botschaft "Genug gespielt - ab ins Bettchen) auf dem Bildschirm ausgeben lassen.
Über Tipps und Infos würd ich mich freuen,
Tschuessi,
Werner
|
| | Datum:22.02.02 15:20 
(joerse@gmx.de) | |
Hallo,
So geht 's:
declare ende%,zeit$
let zeit$="19:00"
whilenot ende%
sleep 1000
if time$(0)=zeit$
let ende%=1
messagebox("Feierabend","Schnell ins Bett !",0)
endif
wend
Gruß
Jörg
|
| | Datum:22.02.02 16:21 
(WGiese@Nevcom.de) | |
Hallo Jörg,
besten Dank. Genau mit dieser Routine hab ich auch schon rumexperimentiert. Das Problem ist aber, das wenn ein Prgramm im Vordergrund läuft, das Profan Programm nur in der Taskleiste angezeigt wird. Es soll aber mitten auf dem Monitor zu sehen sein (über dem momentan benutzen Programm), weils sonst ja übersehen wird.
Gibt es dazu eine Möglichkeit??
Tschuesssi,
Werner
|
| | Datum:22.02.02 18:37 
(MMJ-Hoyerswerda@gmx.de) | |
Hallo Werner,
nimm statt
messagebox("Feierabend","Schnell ins Bett !",0)
-> messagebox("Feierabend","Schnell ins Bett !",4160)
damit sollte die Messagebox immer im Vordergrund zu sehen sein.
MfG
Dietmar
|
| | Datum: 22.02.02 19:22 
(joerse@gmx.de) | |
Hallo Werner,
Wenn Du statt einer Messagebox ein selbstgebautes Fenster nimmst, geht es so:
Def zentHorizontal(1) (%maxx - @%(1)) / 2
Def zentVertikal(1) (%maxy - @%(1)) / 2
Def GetSysColor(1) !"USER32","GetSysColor"
Proc Feierabend
declare ende%,zeit$
let zeit$="19:17"
whilenot ende%
sleep 1000
if time$(0)=zeit$
SetWindowPos %hwnd=zentHorizontal(300),zentVertikal(200)-300,200;-1
SetTrueColor 1
Cls GetSysColor(4)
Print "Ab ins Bett"
let ende%=1
endif
wend
EndProc
WindowStyle $50
SetErrorLevel 0'sonst gibt's 'ne Fehlermeldung wegen negativer Fensterposition
Window -500,10-300,200
Feierabend
WaitInput
Gruß
Jörg
|
|
|