1. // Type agnostic / generic type FIFO queue and ring buffer implementations
   
2. // Programmed in Visual Studio 2015 using Beckhoff TwinCAT development environment
   
3. 
   
4. ////////////////////// Usage Sample ///////////////////
   
5. 
   
6. // DUTs
   
7. TYPE ST_Test :
   
8. STRUCT
   
9.         iTest : INT;
   
10.         fTest : REAL;
    
11. END_STRUCT
    
12. END_TYPE
    
13. 
    
14. 
    
15. // MAIN
    
16. // Header / declarations
    
17. PROGRAM MAIN
    
18. VAR
    
19.         // FIFO queue declaration
    
20.         fbFifoQueue : FB_FifoQueue;
    
21.        
    
22.         // test bit toggles
    
23.         enqueue : BOOL;
    
24.         dequeue : BOOL;
    
25.        
    
26.         // queue data array
    
27.         test_queue : ARRAY[0..4] OF ST_Test;
    
28.        
    
29.         // item loaded to queue
    
30.         item_enqueue : ST_Test;
    
31.        
    
32.         // item retrieved from queue
    
33.         item_dequeue : ST_Test;
    
34.        
    
35. END_VAR
    
36. 
    
37. // BODY
    
38. 
    
39. // instantiate FIFO queue
    
40. fbFifoQueue(ptrArrData:= ADR(test_queue), Length:=5, Ring:=FALSE);
    
41. 
    
42. IF enqueue THEN
    
43.         // load struct with dummy data
    
44.         item_enqueue.iTest := item_enqueue.iTest + 1;
    
45.         item_enqueue.fTest := item_enqueue.fTest + 0.1;
    
46.        
    
47.         // enqueue item
    
48.         fbFifoQueue.Enqueue(item_enqueue);
    
49.        
    
50.         enqueue := FALSE;
    
51. END_IF
    
52. 
    
53. IF dequeue THEN
    
54.         // dequeue item
    
55.             fbFifoQueue.Dequeue(ADR(item_dequeue));
    
56.        
    
57.         dequeue := FALSE;
    
58. END_IF

复制代码

codesys-fifo-master.zip (5.06 KB, 下载次数: 12, 售价: 10 )

2023-3-27 17:03 上传

点击文件名下载附件

这是和哪家的通信。倍福吗？

这能直接导入InoProShop吗？还是要把代码复制出来？