易语言实现向子程序指针传递各种非基本数据类型(多维数组)参数 (多线程传递)

QAQ

1. 
   
2. * 1234567890
   
3. * “线程参数文本”
   
4. * 字节集:6{0,1,2,3,4,5}
   
5. * 123
   
6. * 456
   
7. * 数组:4{1234567890,1111111111,-2000000000,-222222222}
   
8. * 数组:3*3*3{1,2,3,2,4,6,3,6,9,2,4,6,4,8,12,6,12,18,3,6,9,6,12,18,9,18,27}
   
9. 被调试易程序运行完毕
   

复制代码

1. 
   
2. .版本 2
   
3. .支持库 BmpOperate
   
4. 
   
5. .数据类型 线程参数
   
6.     .成员 整数型, 整数型
   
7.     .成员 文本型, 文本型
   
8.     .成员 字节集, 字节集
   
9.     .成员 位图, 位图
   
10.     .成员 整数型数组, 整数型, , "1"
    
11.     .成员 整数型多维数组, 整数型, , "3,3,3"
    
12. 
    
13. .版本 2
    
14. .支持库 BmpOperate
    
15. .支持库 EThread
    
16. .支持库 spec
    
17. 
    
18. .程序集 程序集1
    
19. 
    
20. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
    
21. 
    
22. 
    
23. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
24. 返回 (0)  ' 可以根据您的需要返回任意数值
    
25. 
    
26. .子程序 _临时子程序
    
27. .局部变量 线程参数, 线程参数
    
28. .局部变量 指针, 整数型
    
29. .局部变量 X, 整数型
    
30. .局部变量 Y, 整数型
    
31. .局部变量 Z, 整数型
    
32. 
    
33. .计次循环首 (3, X)
    
34.     .计次循环首 (3, Y)
    
35.         .计次循环首 (3, Z)
    
36.             线程参数.整数型多维数组 [X] [Y] [Z] ＝ X × Y × Z
    
37.         .计次循环尾 ()
    
38. 
    
39.     .计次循环尾 ()
    
40. .计次循环尾 ()
    
41. 
    
42. 线程参数.整数型 ＝ 1234567890
    
43. 线程参数.文本型 ＝ “线程参数文本”
    
44. 线程参数.字节集 ＝ { 0, 1, 2, 3, 4, 5 }
    
45. 线程参数.整数型数组 ＝ { 1234567890, 1111111111, -2000000000, -222222222 }
    
46. 检查 (线程参数.位图.创建 (123, 456, 24, #绿色))
    
47. 启动线程 (&测试线程, 取变量数据地址 (线程参数), )
    
48. .判断循环首 (真)
    
49.     处理事件 ()
    
50. .判断循环尾 ()
    
51. 
    
52. 
    
53. 
    
54. 
    
55. 
    
56. .子程序 测试线程
    
57. .参数 线程参数指针, 整数型
    
58. .局部变量 线程参数, 线程参数
    
59. 
    
60. 置入代码 ({ 80, 139, 69, 8, 139, 0, 137, 69, 252, 88 })
    
61. ' push eax
    
62. ' mov eax,[ebp+8]
    
63. ' mov eax,[eax]
    
64. ' mov [ebp-4],eax
    
65. ' pop eax
    
66. 
    
67. 调试输出 (线程参数.整数型)
    
68. 调试输出 (线程参数.文本型)
    
69. 调试输出 (线程参数.字节集)
    
70. 
    
71. 
    
72. 
    
73. 调试输出 (线程参数.位图.取宽度 ())
    
74. 调试输出 (线程参数.位图.取高度 ())
    
75. 调试输出 (线程参数.整数型数组)
    
76. 调试输出 (线程参数.整数型多维数组)
    
77. 
    

复制代码

小莉今年7岁

我来看看