Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Converting STL Code to SCL

Created by: efe1409 at: 11/11/2019 3:30 PM (2 Replies)

Rating (1)

Thanks 0

3 Entries

11/11/2019 3:30 PM	Rate (0)
efe1409 Bronze Member Joined: 11/23/2008 Last visit: 3/19/2025 Posts: 70 Rating: (1)	How to convert the FC550 block of the program in the attached file to SCL. [snip] Attachment FC550.txt (367 Downloads)
	Last edited by: Jen_Moderator at: 11/12/2019 08:54:34 Added block as txt. file
Suggestion To thank Quote Answer

11/11/2019 5:19 PM	Rate (0)
Yesterday Advanced Member Joined: 2/23/2016 Last visit: 5/13/2025 Posts: 13 Rating: (1)	You need to find the source that is the easiest solutions. Otherwise you need to recreate it by hand if you want it in SCL desperately. The code itself is not that difficult. Within your step7 go to S-7 Program then go to Source in English or Quellen in german. That is where the source is saved. If you can't find it there try looking in older backups Attachment Source.png (322 Downloads)

Suggestion To thank Quote Answer

11/11/2019 6:52 PM	Rate (1)
Yesterday Advanced Member Joined: 2/23/2016 Last visit: 5/13/2025 Posts: 13 Rating: (1)	Okay I just looked a little bit more, The program just looks at what number was selected and then moves that recipe name into recipe name eye. I just don't know what DB28.DBW50 does. This program is way easier to build in SCL if you use Array's (or pointers in STL). So I build 3 arrays into the DB's then you could build something like this. FUNCTION FC550 : Void VAR_INPUT ChosenNumber : Int; // Formerly MD108 (But an int logically) Marker01 : BOOL; //Probably just always 1 DB28DBW50 : INT; //What is this? END_VAR VAR_TEMP KeepLoop : Bool; LoopNumber : INT; Error : INT; END_VAR //DB651 ==> RecipeName //DB652 ==> RecipeNumber //DB650 ==> RecipeNameEye BEGIN KeepLoop := 1; LoopNumber := 0; WHILE (KeepLoop AND (LoopNumber < 10)) DO IF ChosenNumber = DB_RecipeNumber.RecipeNumber[LoopNumber] THEN KeepLoop := 0; ELSE LoopNumber := LoopNumber + 1; END_IF; END_WHILE; IF ((KeepLoop = 0) AND Marker01) THEN Error := BLKMOV(SRCBLK := DB_RecipeName.RecipeName[LoopNumber] ,DSTBLK := DB_RecipeEye.Eye[DB28DBW50] ); END_IF; END_FUNCTION I Created an Struct (20 chars) to keep the names: STRUCT RecipeChar : ARRAY [0 .. 20 ] OF BYTE ; END_STRUCT ; END_TYPE And an array of that struct. DATA_BLOCK "DB_RecipeName" TITLE = VERSION : 0.1 STRUCT RecipeName : ARRAY [0 .. 20 ] OF UDT 1; END_STRUCT ; BEGIN RecipeName[0].RecipeChar[0] := B#16#0; RecipeName[0].RecipeChar[1] := B#16#0; RecipeName[0].RecipeChar[2] := B#16#0; RecipeName[0].RecipeChar[3] := B#16#0; RecipeName[0].RecipeChar[4] := B#16#0; RecipeName[0].RecipeChar[5] := B#16#0; RecipeName[0].RecipeChar[6] := B#16#0; RecipeName[0].RecipeChar[7] := B#16#0; RecipeName[0].RecipeChar[8] := B#16#0; RecipeName[0].RecipeChar[9] := B#16#0; RecipeName[0].RecipeChar[10] := B#16#0; RecipeName[0].RecipeChar[11] := B#16#0; RecipeName[0].RecipeChar[12] := B#16#0; RecipeName[0].RecipeChar[13] := B#16#0; RecipeName[0].RecipeChar[14] := B#16#0; RecipeName[0].RecipeChar[15] := B#16#0; RecipeName[0].RecipeChar[16] := B#16#0; RecipeName[0].RecipeChar[17] := B#16#0; RecipeName[0].RecipeChar[18] := B#16#0; RecipeName[0].RecipeChar[19] := B#16#0; RecipeName[0].RecipeChar[20] := B#16#0; RecipeName[1].RecipeChar[0] := B#16#0; RecipeName[1].RecipeChar[1] := B#16#0; RecipeName[1].RecipeChar[2] := B#16#0; RecipeName[1].RecipeChar[3] := B#16#0; RecipeName[1].RecipeChar[4] := B#16#0; RecipeName[1].RecipeChar[5] := B#16#0; RecipeName[1].RecipeChar[6] := B#16#0; RecipeName[1].RecipeChar[7] := B#16#0; RecipeName[1].RecipeChar[8] := B#16#0; RecipeName[1].RecipeChar[9] := B#16#0; RecipeName[1].RecipeChar[10] := B#16#0; RecipeName[1].RecipeChar[11] := B#16#0; RecipeName[1].RecipeChar[12] := B#16#0; RecipeName[1].RecipeChar[13] := B#16#0; RecipeName[1].RecipeChar[14] := B#16#0; RecipeName[1].RecipeChar[15] := B#16#0; RecipeName[1].RecipeChar[16] := B#16#0; RecipeName[1].RecipeChar[17] := B#16#0; RecipeName[1].RecipeChar[18] := B#16#0; RecipeName[1].RecipeChar[19] := B#16#0; RecipeName[1].RecipeChar[20] := B#16#0; Up to the RecipeName[9] you need. So you get DB_RecipeNumber DB652: An array[0..9] of int's DB_RecipeName DB651 : An array[0..9] of struct RecipeChar DB_RecipeEye DB560 : An array[0..9] of struct RecipeChar PS STL compiled code below: SET SAVE = L 6.1 = #KeepLoop L 0 T #LoopNumber A7d0: L #LoopNumber L 10 <I A #KeepLoop JCN A7d1 L #LoopNumber ITD L L#16 D L #ChosenNumber TAK LAR1 TAK OPN "DB_RecipeNumber" L DBW [AR1,P#0.0] ==I JCN A7d2 CLR = #KeepLoop JU A7d0 A7d2: L #LoopNumber L 1 +I T #LoopNumber JU A7d0 A7d1: CLR A #KeepLoop NOT A #Marker01 JCN A7d4 L #LoopNumber ITD L L#176 D L #DB28DBW50 ITD TAK T LD 8 TAK L L#176 *D L DW#16#10020016 T LD 12 TAK T LD 22 TAK L W#16#28C T LW 16 L LD 8 OD DW#16#84000000 T LD 18 L DW#16#10020016 T LD 26 L W#16#28A T LW 30 L LD 22 OD DW#16#84000000 T LD 32 UC "BLKMOV" P#L 12.0 P#L 4.0 P#L 26.0 A7d4: CLR A L 6.1 SAVE BE

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on