TIA Variablen aus DB laden und in einen DB ablegen

[Magni]

Zuviel Werbung?
-> Hier kostenlos registrieren

Aktuell scheitert es noch an der Zeit und die Gelegenheit es mal zu testen. :-? Werde es aber bestimmt nächste Woche schaffen.

 

[Magni]

Und woran scheitert es noch?

Moin, also ich habe mal so versucht.
Aber es scheitert vermutlich am DAU vor dem Monitor.



die Anweisung wird so nicht akzeptiert. (TIA V16)

PS: Bei SCL fehlt mir die Übung

 

[Tigerente1974]

Zuviel Werbung?
-> Hier kostenlos registrieren

Nach dem END_FOR fehlt auf jeden Fall schon mal das Semikolon

 

[Magni]

Nach dem END_FOR fehlt auf jeden Fall schon mal das Semikolon

Sach ich doch.... SCL-DAU

 

[Tigerente1974]

Deine Anweisung sieht trotzdem so aus, als würde sie nicht das tun, was du erwartest.
Stimmt das noch, was in deinem ersten Post stand?

 

[Magni]

Zuviel Werbung?
-> Hier kostenlos registrieren

Aktuell sieht es so und ich habe es auch getestet. Es scheint zu funktioneren.

 

[Magni]

So... also das Auslesen von Word Variablen funktioniert schon einmal. Jetzt müsste ich es noch hinbekommen REAL Werte auszulesen. Doch PEEK und Poke können nur Word :-(
mit

#temp := PEEK_WORD(area := 16#84, dbNumber := 130, byteOffset := 16);
#temp2 := PEEK_WORD(area := 16#84, dbNumber := 130, byteOffset := 18);
POKE(area := 16#84,
dbNumber := 1000,
byteOffset := 214,
value := #temp);
POKE(area := 16#84,
dbNumber := 1000,
byteOffset := 216,
value := #temp2);

geht zumindest schon ein Wert. Aber wie setze ich das in eine FOR Schleife um?

 

[PN/DP]

Für REAL (32 Bit) musst Du DWORD (32 Bit) peeken und poken.

Harald

 

[Magni]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ich habe jetzt das Proggi noch einmal überarbeitet. Hatte einen Denkfehler (mangels Wissen über SCL)

#Anzahl_DB := #Nr_EndDB - #Nr_StartDB;

FOR #i := 0 TO #Anzahl_DB BY 1 DO

#temp := PEEK_DWORD(area := 16#84, dbNumber := #Nr_StartDB + #i, byteOffset := #Nr_StatusWord);

POKE(area := 16#84,
dbNumber := #Nr_SpeicherDB,
byteOffset := #Nr_StartWord_SpeicherDB + (#i * 4),
value := #temp,
ENO => ENO);

END_FOR;

So funzt es jetzt...