AWL den SCL e dönüsüm

[exclis066]

Ustalar Almanyada bitirme tezim icin acil yardiminiza ihtiyacim var.25 tane FC bitti ama bu FC de kaldim

Bana sadece FC nin ne yaptigini aciklarsaniz, satir satir cevirmeden sifirdan yeni bi FC yi scl ile yazabilirim.Ama bu FC yi bi türlü cözemedim, anlamama yardimci olursaniz sevinirim.
Yardimlariniz icin simdiden tesekkürler.

FC ve DB(tahmin ettigim) sini ekte görebilirsiniz.


FUNCTION "Diagnose_Auswertung" : VOID
TITLE =Diagnose Auswertung
VERSION : 2.1


VAR_INPUT
INSTANZ_DB : INT ;
DIAGNOSE_DB : INT ;
END_VAR
VAR_TEMP
daten_pos : DWORD ;
element_pos : DWORD ;
ruecksprung_pos : INT ;
klammerebene : INT ;
ende : DWORD ;
ruecksprung_adr : ARRAY [0 .. 20 ] OF DWORD ;
befehl : INT ;
kl_vke : DWORD ;
e_vke : DWORD ;
pointer_speicher : DWORD ;
instanz_db1 : INT ;
diagnose_db1 : INT ;
END_VAR
BEGIN
NETWORK
TITLE =Initialisierung

L #DIAGNOSE_DB;
T #diagnose_db1;
AUF DB [#diagnose_db1];
L P#DBX 1550.0;
T #daten_pos;
L P#DBX 300.0;
T #element_pos;
L 0;
T #ruecksprung_pos;
L P#DBX 1500.0;
T #e_vke;
L P#DBX 1516.0;
T #kl_vke;
L #INSTANZ_DB; //Instanz DB vom SPS_SIM Baustein(FB91)
T #instanz_db1;
AUF DI [#instanz_db1];
NETWORK
TITLE =Sonu Bul

LAR1 #element_pos;
l1: L DBB [AR1,P#0.0];
L B#16#1C; // 1c bulundu
==I ;
SPB egef; //Son bulundu
+AR1 P#8.0;
L P#DBX 1500.0;
TAR1 ;
<D ; //sonuna kadar bulunamadi
BEB ;
SPA l1;

 

[exclis066]

Admin Konuyu silermisin gerek kalmadi.