Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249161 (10597)
  Suchen
 Zurück zur Übersicht
 AutorThema: Zeitgesteuerte Meldung
Werner Giese
Datum:22.02.02 14:11 Antwortenals Email verschicken (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



Jörg Sellmeyer
Datum:22.02.02 15:20 Antwortenals Email verschicken (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


Werner Giese
Datum:22.02.02 16:21 Antwortenals Email verschicken (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



Dietmar Horn
Datum:22.02.02 18:37 Antwortenals Email verschicken (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



Jörg Sellmeyer
Datum: 22.02.02 19:22 Antwortenals Email verschicken (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


 Zurück zur Übersicht