Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

BLKMOV in SCL

Created by: Maizlow at: 11/1/2011 2:01 PM (14 Replies)

Rating (3)

Thanks 8

Result pages:: |; 1 | 2; |

15 Entries

Entries per page: 10 | all

11/1/2011 2:01 PM	Rate (0)
Maizlow Advanced Member Joined: 10/27/2011 Last visit: 8/15/2024 Posts: 13 Rating: (0)	Dear all, [schnippschnapp] In the attachment a .txt with abit of some code iv'e been working on can be seen. Im only wondering if this is the easiest way too use BLKMOV in SCL. Seems that all information i find on the forum point to this way of usage. If anyone know of a "smaller" way to handle this in SCL could tell me i would be very thankful! Best regard, Johan Attachment SCL CODE.zip (1346 Downloads)
	Last edited by: O_Moderator at: 11/2/2011 10:44 AM new subject after splitting from /tf/WW/en/Posts/65035#top Last edited by: Maizlow at: 11/1/2011 4:49 PM Last edited by: Maizlow at: 11/1/2011 4:47 PM ****EDIT**** New question arrised:
Suggestion To thank Quote Answer

11/2/2011 12:21 PM	Rate (0)
yy1 Gold Member Joined: 3/24/2009 Last visit: 7/9/2024 Posts: 535 Rating: (112)	Dear Maizlow, instead of the IF-statements, you can use a CASE-statement: [code] CASE PROFILE_SELECTED OF 1: erg := SFC20(srcblk:= pAny1, dstblk:= pAnyOUT); 2: erg := SFC20(srcblk:= pAny2, dstblk:= pAnyOUT); : END_CASE; [/code] Best regards, yy1

Suggestion To thank Quote Answer

11/2/2011 12:40 PM	Rate (0)
Maizlow Advanced Member Joined: 10/27/2011 Last visit: 8/15/2024 Posts: 13 Rating: (0)	Thank you, that is better. I got another problem,I thought this way of doing it in SCL would work but I seem to have thought wrong. I tested with our test-plc we got here and nothinghappens. WhatI want to do is this: I have a DB, DB1, that is filled with 10 profiles + 1 "Selected profile", each profile is of data type UDT1, I wanna blkmov the profile that is selected in the HMI, say "Profile1" to "Selected profile" by doing it this way i thought i could accomplish that.The profiles has adresses 0.0-76.1 , 78.0 - 154.1 and so on. Anyone know what i have done wrong? Maybe I missunderstood Smiffy in THISpost. Anyone know of a way I can solve this with the way im trying right now or any other way in SCL? Code should be in attachment in OP. Best regards, Maizlow
	Last edited by: Maizlow at: 11/2/2011 12:41 PM Bad spelling...
Suggestion To thank Quote Answer

11/2/2011 12:48 PM	Rate (2)
smiffy Platinum Expert Joined: 1/17/2007 Last visit: 8/21/2024 Posts: 1545 Rating: (537)	I recognise that code! Looks very like some of mine Good to see that someone is finding it useful. This is a more optimal solution you will find. [code]FUNCTION_BLOCK FB12 TITLE = 'PROFILE SELECTION' AUTHOR : Johan VAR_INPUT PROFILE_SELECTED : INT; END_VAR VAR_TEMP pSRC, pDST : ANY; // DB address ANY pointer - used for accessing DB data pAnySRC AT pSRC : STRUCT // Diassembled ANY pointer structure S7Code : BYTE; // Code for S7 (fixed at 16#10) DataType : BYTE; // Code for data type Length : INT; // Repetition factor = Send/receive length DBNumber : INT; // Data block Number MemoryArea : BYTE; // Specified memory area ByteAddressMSB : BYTE; // Byte address most significant bits ByteAddressLSB : WORD; // Byte address least significant bits END_STRUCT; pAnyDST AT pDST : STRUCT // Diassembled ANY pointer structure S7Code : BYTE; // Code for S7 (fixed at 16#10) DataType : BYTE; // Code for data type Length : INT; // Repetition factor = Send/receive length DBNumber : INT; // Data block Number MemoryArea : BYTE; // Specified memory area ByteAddressMSB : BYTE; // Byte address most significant bits ByteAddressLSB : WORD; // Byte address least significant bits END_STRUCT; erg : INT; END_VAR VAR DestAddr : ARRAY[1..10] OF WORD := 0,100,200,300,400,500,600,700,800,900; END_VAR pAnySRC.S7Code := 16#10; pAnySRC.DataType := 16#02; pAnySRC.Length := 100; pAnySRC.DBNumber := 1; pAnySRC.MemoryArea := 16#84; pAnySRC.ByteAddressMSB := 0; pAnySRC.ByteAddressLSB := 1000; pAnyDST.S7Code := 16#10; pAnyDST.DataType := 16#02; pAnyDST.Length := 100; pAnyDST.DBNumber := 1; pAnyDST.MemoryArea := 16#84; pAnyDST.ByteAddressMSB := 0; IF PROFILE_SELECTED >= 1 AND PROFILE_SELECTED <= 10 THEN pAnyDST.ByteAddressLSB := DestAddr[PROFILE_SELECTED]; erg := SFC20(srcblk:= pAnySRC, dstblk:= pAnyDST); ELSE ; // Some sort of error trap? END_IF; END_FUNCTION_BLOCK[/code]
	Programming today is the race between software engineers building bigger and better idiot proof programs, and the universe producing bigger and better idiots. So far, the universe is winning...
Suggestion To thank Quote Answer
This contribution was helpful to 5 thankful Users hdhosseini Maizlow FK_Wiesbaden executer01 yolgezer00

11/2/2011 1:01 PM	Rate (0)
Maizlow Advanced Member Joined: 10/27/2011 Last visit: 8/15/2024 Posts: 13 Rating: (0)	Hey smiffy! Thank you for simplifying my/ur/our code :) Yes i found that the explanation for this way of doing thissuited my need. But as i said the way i wrote it first and the way its looking now (see attachment) i thought atleast should have worked even though it wasnt the smartest way of writing it. I will test your new code now and see if that works but if you only rewrote the statements and declarations in a nicer way than I did i dont see this working either, but i'll come back with an answer on that when i tested it! Note that the inputs and the if statement declaring what profile is used are only for testing. Best regards, Maizlow Iv'e now modified and tested the program that you wrote and still it doesnt move my profiles. Iv'e given up for today but i hope you can answer my last question that i wrote. /Maizlow Attachment SCL CODE.zip (617 Downloads)
	Last edited by: Maizlow at: 11/2/2011 4:15 PM Update for smiffy Last edited by: Maizlow at: 11/2/2011 1:13 PM
Suggestion To thank Quote Answer

11/4/2011 12:40 PM	Rate (0)
Maizlow Advanced Member Joined: 10/27/2011 Last visit: 8/15/2024 Posts: 13 Rating: (0)	Maizlow WhatI want to do is this: I have a DB, DB1, that is filled with 10 profiles + 1 "Selected profile", each profile is of data type UDT1, I wanna blkmov the profile that is selected in the HMI, say "Profile1" to "Selected profile" by doing it this way i thought i could accomplish that.The profiles has adresses 0.0-76.1 , 78.0 - 154.1 and so on. As you can see in the quote of myself asking how this can be possibly by doing as Smiffy has so kindly showed. I still hasn't gotten an answer on that matter. I've kept reading FAQ, Manuals and forums looking for an solution. But there seem as there is none. Please if anyone have knowledge of a way of doing this tell me :) Best regards, Maizlow

Suggestion To thank Quote Answer

11/4/2011 12:51 PM	Rate (0)
yy1 Gold Member Joined: 3/24/2009 Last visit: 7/9/2024 Posts: 535 Rating: (112)	Dear Maizlow, with which parameter-values did you call your block? I think, that the 'SETUP_LOADERS' - input is false. If it's true, your WHILE-loop will never end. Best regards, yy1

Suggestion To thank Quote Answer

11/4/2011 12:54 PM	Rate (0)
Maizlow Advanced Member Joined: 10/27/2011 Last visit: 8/15/2024 Posts: 13 Rating: (0)	Dear. Here is my last version of that code, forgot to attach it with my last post. [code] FUNCTION_BLOCK FB12 AUTHOR : Johan VAR_INPUT PROFILE_SELECTED : INT; END_VAR VAR_OUTPUT FAULT : BOOL; END_VAR VAR_TEMP pSRC, pDST : ANY; // DB address ANY pointer - used for accessing DB data pAnySRC AT pSRC : STRUCT // Diassembled ANY pointer structure S7Code : BYTE; // Code for S7 (fixed at 16#10) DataType : BYTE; // Code for data type Length : INT; // Repetition factor = Send/receive length DBNumber : INT; // Data block Number MemoryArea : BYTE; // Specified memory area ByteAddressMSB : BYTE; // Byte address most significant bits ByteAddressLSB : WORD; // Byte address least significant bits END_STRUCT; pAnyDST AT pDST : STRUCT // Diassembled ANY pointer structure S7Code : BYTE; // Code for S7 (fixed at 16#10) DataType : BYTE; // Code for data type Length : INT; // Repetition factor = Send/receive length DBNumber : INT; // Data block Number MemoryArea : BYTE; // Specified memory area ByteAddressMSB : BYTE; // Byte address most significant bits ByteAddressLSB : WORD; // Byte address least significant bits END_STRUCT; erg : INT; END_VAR VAR DestAddr : ARRAY[1..10] OF WORD := 0,78,156,234,312,390,468,546,624,702; END_VAR pAnySRC.S7Code := 16#10; pAnySRC.DataType := 16#02; pAnySRC.Length := 76; pAnySRC.DBNumber := 1; pAnySRC.MemoryArea := 16#84; pAnySRC.ByteAddressMSB := 0; pAnyDST.S7Code := 16#10; pAnyDST.DataType := 16#02; pAnyDST.Length := 76; pAnyDST.DBNumber := 1; pAnyDST.MemoryArea := 16#84; pAnyDST.ByteAddressMSB := 0; pAnyDST.ByteAddressLSB := 780; IF PROFILE_SELECTED >= 1 AND PROFILE_SELECTED <= 10 THEN pAnySRC.ByteAddressLSB := DestAddr[PROFILE_SELECTED]; erg := SFC20(srcblk:= pAnySRC, dstblk:= pAnyDST); ELSE FAULT := TRUE; // Some sort of error trap? END_IF; END_FUNCTION_BLOCK [/code]

Suggestion To thank Quote Answer

11/4/2011 7:57 PM	Rate (0)
yy1 Gold Member Joined: 3/24/2009 Last visit: 7/9/2024 Posts: 535 Rating: (112)	Dear Maizlow, currently I only can make a guess, because I don't have access to STEP7. What looks strange to me is the 'ByteAddressLSB '. The ANY-pointer contains an adress with BYTE and BIT-offset. So I think, that the DestAdress should be 780 * 8. Hope this helps Best regards, yy1

Suggestion To thank Quote Answer

11/7/2011 8:25 AM	Rate (1)
yy1 Gold Member Joined: 3/24/2009 Last visit: 7/9/2024 Posts: 535 Rating: (112)	Dear Maizlow, here's the code, which should be able to copy the data. The parameters of the SFC20 have to be provided with the ANY-pointer (pSRC, pDST) instead of the STRUCTs (pAnySRC, pAnyDST). [code] FUNCTION_BLOCK FB12 AUTHOR : Johan VAR_INPUT PROFILE_SELECTED : INT; END_VAR VAR_OUTPUT FAULT : BOOL; END_VAR VAR_TEMP pSRC, pDST : ANY; // DB address ANY pointer - used for accessing DB data pAnySRC AT pSRC : STRUCT // Diassembled ANY pointer structure S7Code : BYTE; // Code for S7 (fixed at 16#10) DataType : BYTE; // Code for data type Length : INT; // Repetition factor = Send/receive length DBNumber : INT; // Data block Number MemoryArea : BYTE; // Specified memory area ByteAddressMSB : BYTE; // Byte address most significant bits ByteAddressLSB : WORD; // Byte address least significant bits END_STRUCT; pAnyDST AT pDST : STRUCT // Diassembled ANY pointer structure S7Code : BYTE; // Code for S7 (fixed at 16#10) DataType : BYTE; // Code for data type Length : INT; // Repetition factor = Send/receive length DBNumber : INT; // Data block Number MemoryArea : BYTE; // Specified memory area ByteAddressMSB : BYTE; // Byte address most significant bits ByteAddressLSB : WORD; // Byte address least significant bits END_STRUCT; erg : INT; END_VAR VAR DestAddr : ARRAY[1..10] OF INT := 0,78,156,234,312,390,468,546,624,702; END_VAR pAnySRC.S7Code := 16#10; pAnySRC.DataType := 16#02; pAnySRC.Length := 76; pAnySRC.DBNumber := 1; pAnySRC.MemoryArea := 16#84; pAnySRC.ByteAddressMSB := 0; pAnyDST.S7Code := 16#10; pAnyDST.DataType := 16#02; pAnyDST.Length := 76; pAnyDST.DBNumber := 1; pAnyDST.MemoryArea := 16#84; pAnyDST.ByteAddressMSB := 0; pAnyDST.ByteAddressLSB := INT_TO_WORD(7808); IF PROFILE_SELECTED >= 1 AND PROFILE_SELECTED <= 10 THEN pAnySRC.ByteAddressLSB := INT_TO_WORD(DestAddr[PROFILE_SELECTED]8); erg := SFC20(srcblk:= pSRC, dstblk:= pDST); FAULT := FALSE; // Some sort of error trap? ELSE FAULT := TRUE; // Some sort of error trap? END_IF; END_FUNCTION_BLOCK [/code] Best regards, yy1

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Maizlow

|

Share this page:

Share this page on...

Follow us on