Messages ausgeben in KRC 2

Hallo,

ich habe ein Problem bei der Formatierung von Hinweismeldungen.

Habe folgenden Code:

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






  ;------------------HINWEISMELDUNG------------------



  $MSG_T=EMPTY_MSG
  $MSG_T.MODUL[]=" "
  $MSG_T.KEY[]="HINWEISMELDUNG_UP: Die Variable Parameter = %1      Parameter 2 = %2" ;
  OFFSET=0 
  SWRITE($MSG_T.PARAM[],STATE,OFFSET,"%d",Parameter,"%f",312.235)
  $MSG_T.PARAM_TYP=#VALUE

  $MSG_T.VALID=TRUE


  WHILE  $MSG_T.VALID
    WAIT SEC 2.05
  ENDWHILE

Die Ausgabe funktioniert soweit dass er schreibt:

"HINWEISMELDUNG_UP: Die Variable Parameter = 3 Parameter 2 = %2" (die variable Parameter wurde vorher im programm mit 3 initialisiert)

Ich möchte nun aber dass er eben noch nen zweiten Wert hinschreibt anstatt der %2
Dachte das wäre ähnlich wie in C so dass man bei

SWRITE($MSG_T.PARAM[],STATE,OFFSET,"%d",Parameter,"%f",312.235)

eben den typ schreibt (%d für decimal/integer) und dann den wert.. also %f für float und dann als Wert die 312.235
des weiteren dann %s für nen String oder so?
Funktioniert aber so nicht.

Kann mir da jemand weiterhelfen?
Gibt es eine Hilfe zu Messages mit der KRC 2? (Im Prog Handbuch für Experten find ichs nicht)
Kann man auch gleich nen ganzen String übergeben und dfann sagen:

DECL String bla="blablabla"
$MSG_T.KEY[]=bla

Hab auch noch was für nen Dialog gefunden mit:

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


  $MSG_T=EMPTY_MSG
  $MSG_T.MODUL[]=" "
  $MSG_T.KEY[]="MULTIDIALOG_UP: Bitte triff eine Auswahl %1, %2 oder %3"
  $MSG_T.PARAM[]="Akt.1|Akt.2|Akt.3"
  $MSG_T.RELEASE=FALSE
  $MSG_T.PARAM_TYP=#KEY
  $MSG_T.TYP=#DIALOG
  $MSG_T.DLG_FORMAT[]="Home Pos|Geifer auf|Greifer zu"


  $MSG_T.VALID=TRUE

ich kann aber nicht für schreiben
$MSG_T.PARAM[]=Parameter, 312.325,...

Bin grad etwas verzweifelt weil nix was ich ausprobiere so funktioniert wie ich mir das vorstelle was aber natürlich auch daran liegen könnte dass ich keine Hilfe dazu finde

Cya
Thoms

Cool, funktioniert!

Mit String/%s funktionierts auch aer leider nur so halb

was nicht funktioniert ist

SWRITE($MSG_T.KEY[], STATE, OFFSET, "MSG_UP: V1= %d V2= %f String: %s", Parameter, 312.235, "abc %d", 12)

Man kann also leider nicht schachteln.
Die Ausgabe ist dann "MSG_UP: V1= 3 V2= 312.235 String: abc %d"

Aber danke für deine Hilfe.
Wenn mir jetzt noch einer sagen kann wozu ich dann den $MSG_T.KEY[] brauche...

LG

Hallo, ich habe ein neues Problem was damit zu tun hat:

habe folgenden code:

DEF hinweismeldung(Parameter[]: IN)


 DECL CHAR Parameter[50] ; Parameter der in der Meldung ausgegeben wird


;FOLD Variablendeklaration für die Meldung
  DECL INT ANSWER
  DECL INT OFFSET
  DECL STATE_T STATE
  DECL MSG_T EMPTY_MSG
;Endfold




;Parameter[]="wetter"
EMPTY_MSG={MSG_T: VALID FALSE,RELEASE FALSE,TYP #NOTIFY,MODUL[] " ",KEY[] " ",PARAM_TYP #VALUE,PARAM[] " ",DLG_FORMAT[] " ",ANSWER 0}






  ;------------------HINWEISMELDUNG------------------



  $MSG_T=EMPTY_MSG
  $MSG_T.MODUL[]=" "
  $MSG_T.KEY[]=" "
  OFFSET=0 
  SWRITE($MSG_T.KEY[],STATE,OFFSET," %s",Parameter[])  


  $MSG_T.PARAM_TYP=#VALUE

  $MSG_T.VALID=TRUE


  WHILE  $MSG_T.VALID
    WAIT SEC 2.05
  ENDWHILE
  WAIT SEC 0.2
;Endfold
END

dabei tritt erstmal folgendes problem auf:
zeile 1: Parameter nirgends deklariert
zeile 3: Keine Feldgrenzen in Parameterspezifikation zulässig
zeile 25: Name nicht als Feld vereinbart SWRITE($MSG_T.KEY[],STATE,OFFSET," %s",Parameter[])

wenn ich in der zeile 3 die feldgrenzen raus lasse, also: DECL CHAR Parameter[] dann bringt er mir zwar keine fehler aber sagt mir dann als STOP: Speicherbedarf für Parameterliste zu hoch

des weiteren habe ich dann in einem anderen programm einen string definiert bei dem das geht

in der dat:

DECL CHAR sVerloren[50]

in der src:

sVerloren="Sie haben verloren!"


heinweismeldung (sVerloren)

Fehlermeldung: Typ aktueller/formaler Parameter nicht verträglich

wo ist das problem? sind doch beides strings..
und

hinweismeldung ("sie haben verloren")

bringt die gleiche fehlermeldung.

des weitern: wenn ich beim ersten problem die deklaration in die dat verschiebe:

also

DEFDAT hinweismeldung PUBLIC


DECL CHAR Parameter[50]


ENDDAT

dann sagt er mir bei der dat als fehlermeldung:
zeile 2: ENDDAT Satz nicht vorhanden

wäre schön wenn jemand helfen kann

Also ich glaube das erste Problem hab ich gelöst:

Es muss heißen:

DEF heinweismeldung (Parameter[50]:IN)
...
DECL CHAR Parameter[]
...
SWRITE($MSG_T.KEY[],STATE,OFFSET," %s",Parameter[])  
...

Allerdings immernoch das Problem in dem anderen Programm dass aktueller/formaler Parameter nicht vertäglich sind

AHHHHH.. ich werd hier noch blöde!!!
Jetzt sagt er mir nicht mehr dass die Parameter nicht verträglich sind - jetzt ist hinweismeldung angeblich nicht als Unterprogamm vereinbart.. AHHHHH

Sooo.. die Endmeldung:

Es funktioniert. Und die Lösung ist ziemlich trivial.
Es geht mit Definition:

DEF hinweismeldung (Parameter[]: OUT)
...
CHAR Parameter []
...
SWRITE($MSG_T.KEY[],STATE,OFFSET," %s",Parameter[]
...

Wichtig ist hierbei dass dort OUT und nicht IN steht --> fragt mich aber bitte nicht warum das so sein muss...
Aufruf:

DECL CHAR Meldung[50]
...
Meldung[]= "es funktioniert"
hinweismeldung(Meldung[])

Was nicht funktioniert ist Aufruf:

... hinweismeldung ("es funktioniert nicht")

Schade dass man an sich selber kein "Danke" schicken kann

Hmm, also ich habs bei meinem mit IN ausprobiert, da bringt er mir nen Fehler. Welchen weiß ich nicht mehr.
Hab deins nicht abgepinselt, nur bei meinem anstatt dem OUT das IN rein geschrieben.

Naja, ist aber auch nicht weiter tragisch. Mach ichs eben über den Umweg den Text erst in ein CAHR-Feld zu schieben und dann auszugeben. Die zwei Zeilen mehr machens auch nicht mehr fett ... danke trotzdem.

Vielleicht pinsel ich deins bei gelegenheit mal ab und probiers damit.

Gruß Thoms