Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249161 (10597)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Zeitgesteuerte Meldung
Werner Giese
| 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
Jörg Sellmeyer
| 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
Werner Giese
| 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
Dietmar Horn
| 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
Jörg Sellmeyer
| 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

| Zurück zur Übersicht