Fehlermeldungen Programmieren

Hallo Apollo,
welche Steuerung und Softwarestand?

Eigentlich ist bei jedem Robi ist CD mit Dokus immer dabei.

Vielleicht hilft dir das weiter.

DECL MSG_T EMPTY_MSG

EMPTY_MSG = {MSG_T: VALID TRUE, RELEASE FALSE, TYP #DIALOG, MODUL[] " ", KEY[] " ", PARAM_TYP #VALUE, PARAM[] " ", DLG_FORMAT[] " ", ANSWER 0}

MSG_T Fester Strukturname
VALID TRUE gibt die Meldung aus
FALSE hält sie zurück
RELEASE TRUE löscht Meldungen vom TYP #STATE und #QUIT
TYP #NOTIFY Hinweismeldung
#STATE Zustandsmeldung
#QUIT Quittiermeldung
#DIALOG Dialogmeldung
MODUL[ ] Absender
KEY[ ] Meldungstext
PARAM_TYP #VALUE für eigene Text
#WORDS ignoriert PARAM[ ]
#KEY für Meldungen aus einer Datenbank
PARAM[ ] Zusatzparameter der in Meldungstext KEY[ ] eingefügt werden kann. An der gewünschte Stelle muß ein Platzhalter mit %1 eingefügt werden. Funktioniert nur mit dem PARAM_TYP #VALUE
DLG_FORMAT[ ] Namen der Softkeys. Diese müssen mit einem Strich \ getrennt werden.
ANSWER Hierhin wird Nummer des gedrückten Softtkeys bei der
Dialogmeldung gespeichert.

;***************Quittierungsmeldung****
$MSG_T=EMPTY_MSG
$MSG_T.MODUL[]=“User“
$MSG_T.KEY[]="Programmfehler quittieren."
$MSG_T.PARAM_TYP=#VALUE
$MSG_T.TYP=#QUIT
$MSG_T.VALID=TRUE

WHILE $MSG_T.VALID
WAIT SEC 0.05
ENDWHILE
WAIT SEC 0.2

;***************Dialogmeldung**********
$MSG_T=EMPTY_MSG
$MSG_T.MODUL[]="User"
$MSG_T.KEY[]="Programmfehler!Option waehlen."
$MSG_T.PARAM_TYP=#VALUE
$MSG_T.TYP=#DIALOG
$MSG_T.DLG_FORMAT[]="Weiter|Rueckzug"
$MSG_T.VALID=true

WHILE $MSG_T.VALID
WAIT SEC 0.05
ENDWHILE
WAIT SEC 0.2
ANTWORT=$MSG_T.ANSWER

;***************Hinweismeldung*************
$MSG_T=EMPTY_MSG ; Reinitialisierung
$MSG_T.MODUL[]="User" ; Absender
$MSG_T.KEY[]="Kein Vakuum."
$MSG_T.PARAM_TYP=#VALUE
$MSG_T.TYP=#NOTIFY ; Hinweismeldung
$MSG_T.VALID=TRUE ; feuern
WHILE $MSG_T.VALID
WAIT SEC 0.05
ENDWHILE
WAIT SEC 0.2

;***************Statusmeldung*************
$MSG_T=EMPTY_MSG ; Reinitialisierung
$MSG_T.MODUL[]=“User“ ; Absender
$MSG_T.KEY[]="Kein Vakuum."
$MSG_T.PARAM_TYP=#VALUE
$MSG_T.TYP=#STATE ; Statusmeldung
$MSG_T.VALID=TRUE ; feuern
WHILE $IN[n] = = FALSE ; Störungseingang
ENDWHILE
$MSG_T.RELEASE = TRUE ; Statusmeldung löschen