超级实用模块-2.0版本已经完成！

我的yyy123

学习学习

luguidong2018

看看什么东东

yrw2x2

6666666666666666666666666

nwzhi

下来看看这个超级模块和精易有啥区别

笨来无一悟

  

子程序名	返回值类型	公开	备 注
逻辑运算_取反	逻辑型		如果参数值为真则返回假，如果参数值为假则返回真。
参数名	类 型	参考	可空	数组	备 注
被反转的逻辑值	逻辑型

置入代码 ({ 139, 69, 8, 131, 240, 1, 201, 194, 4, 0 })
' MOV EAX,[EBP+8]
' XOR EAX, 1
' LEAVE
' RET 4
返回 (假)  ' 这个直接用易语言自带的 取反( ) 更简单吧~~~

.版本 2<br /> <br /> .子程序 逻辑运算_取反, 逻辑型, 公开, 如果参数值为真则返回假，如果参数值为假则返回真。<br /> .参数 被反转的逻辑值, 逻辑型<br /> <br /> 置入代码 ({ 139, 69, 8, 131, 240, 1, 201, 194, 4, 0 })<br /> ' MOV EAX,[EBP+8]<br /> ' XOR EAX, 1<br /> ' LEAVE<br /> ' RET 4<br /> 返回 (假)  ' 这个直接用易语言自带的 取反( ) 更简单吧~~~

笨来无一悟

  

子程序名	返回值类型	公开	备 注
逻辑运算_到整数	整数型		将逻辑值转换为整数
参数名	类 型	参考	可空	数组	备 注
逻辑值	逻辑型

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
' MOV EAX,[EBP+8]
' LEAVE
' RET 4
返回 (0)

.版本 2<br /> <br /> .子程序 逻辑运算_到整数, 整数型, 公开, 将逻辑值转换为整数<br /> .参数 逻辑值, 逻辑型<br /> <br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> ' MOV EAX,[EBP+8]<br /> ' LEAVE<br /> ' RET 4<br /> 返回 (0)

笨来无一悟

  

子程序名	返回值类型	公开	备 注
文本_到逻辑	逻辑型		兼容 1 0 真 假 四个字符中间掺杂其他字符 以首次出现的字符为准 若皆无 视作假
参数名	类 型	参考	可空	数组	备 注
处理文本	文本型

置入代码 ({ 139, 85, 8, 139, 18, 15, 182, 2, 133, 192, 116, 61, 131, 248, 48, 116, 56, 131, 248, 49, 116, 42, 61, 213, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 230, 0, 0, 0, 116, 24, 15, 182, 2, 61, 188, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 217, 0, 0, 0, 116, 12, 66, 235, 197, 184, 1, 0, 0, 0, 201, 194, 4, 0, 184, 0, 0, 0, 0, 201, 194, 4, 0 })
' MOV EDX,[EBP+8]
' MOV EDX,[EDX]
' 循环:
' MOVZX EAX,BYTE[EDX]
' TEST EAX,EAX
' JE 假
' CMP EAX,48
' JE 假
' CMP EAX,49
' JE 真
' CMP EAX,213
' JNE 非真前
' MOVZX EAX,BYTE[EDX+1]
' CMP EAX,230
' JE 真
' 非真前:
' MOVZX EAX,BYTE[EDX]
' CMP EAX,188
' JNE 非假前
' MOVZX EAX,BYTE[EDX+1]
' CMP EAX,217
' JE 假
' 非假前:
' INC EDX
' JMP 循环
' 真:
' MOV EAX,1
' LEAVE
' RET 4
' 假:
' MOV EAX,0
' LEAVE
' RET 4
返回 (假)

.版本 2<br /> <br /> .子程序 文本_到逻辑, 逻辑型, 公开, 兼容 1 0 真 假 四个字符中间掺杂其他字符 以首次出现的字符为准 若皆无 视作假<br /> .参数 处理文本, 文本型<br /> <br /> 置入代码 ({ 139, 85, 8, 139, 18, 15, 182, 2, 133, 192, 116, 61, 131, 248, 48, 116, 56, 131, 248, 49, 116, 42, 61, 213, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 230, 0, 0, 0, 116, 24, 15, 182, 2, 61, 188, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 217, 0, 0, 0, 116, 12, 66, 235, 197, 184, 1, 0, 0, 0, 201, 194, 4, 0, 184, 0, 0, 0, 0, 201, 194, 4, 0 })<br /> ' MOV EDX,[EBP+8]<br /> ' MOV EDX,[EDX]<br /> ' 循环:<br /> ' MOVZX EAX,BYTE[EDX]<br /> ' TEST EAX,EAX<br /> ' JE 假<br /> ' CMP EAX,48<br /> ' JE 假<br /> ' CMP EAX,49<br /> ' JE 真<br /> ' CMP EAX,213<br /> ' JNE 非真前<br /> ' MOVZX EAX,BYTE[EDX+1]<br /> ' CMP EAX,230<br /> ' JE 真<br /> ' 非真前:<br /> ' MOVZX EAX,BYTE[EDX]<br /> ' CMP EAX,188<br /> ' JNE 非假前<br /> ' MOVZX EAX,BYTE[EDX+1]<br /> ' CMP EAX,217<br /> ' JE 假<br /> ' 非假前:<br /> ' INC EDX<br /> ' JMP 循环<br /> ' 真:<br /> ' MOV EAX,1<br /> ' LEAVE<br /> ' RET 4<br /> ' 假:<br /> ' MOV EAX,0<br /> ' LEAVE<br /> ' RET 4<br /> 返回 (假)

wuhaibo

太棒了~~~~

苏轶

笨来无一悟 发表于 2025-4-12 20:59
汇编的求余比易语言自带的快很多很多
[e=4].版本 2

好的，2.1版本会更新

笨来无一悟

汇编的求余比易语言自带的快很多很多

  

子程序名	返回值类型	公开	备 注
算术运算_取数值类型	整数型		取出指定的数值是奇数还是偶数，0=偶数，1=奇数
参数名	类 型	参考	可空	数组	备 注
欲检查的数值	整数型

返回 (求余 (欲检查的数值, 2))

子程序名	返回值类型	公开	备 注
求余	整数型
参数名	类 型	参考	可空	数组	备 注
被除	整数型
除数	整数型

置入代码 ({ 49, 210, 54, 139, 69, 8, 54, 139, 77, 12, 227, 2, 247, 241, 137, 208, 201, 194, 8, 0 })
返回 (0)
' XOR EDX, EDX
' MOV EAX, DWORD PTR SS:[EBP+0X08]
' MOV ECX, DWORD PTR SS:[EBP+0X0C]
' JECXZ END
' DIV ECX
' END:
' MOV EAX, EDX
' LEAVE
' RET 0X08

.版本 2<br /> <br /> .子程序 算术运算_取数值类型, 整数型, 公开, 取出指定的数值是奇数还是偶数，0=偶数，1=奇数<br /> .参数 欲检查的数值, 整数型<br /> <br /> 返回 (求余 (欲检查的数值, 2))<br /> <br /> .子程序 求余, 整数型, 公开<br /> .参数 被除, 整数型<br /> .参数 除数, 整数型<br /> <br /> 置入代码 ({ 49, 210, 54, 139, 69, 8, 54, 139, 77, 12, 227, 2, 247, 241, 137, 208, 201, 194, 8, 0 })<br /> 返回 (0)<br /> ' XOR EDX, EDX<br /> ' MOV EAX, DWORD PTR SS:[EBP+0X08]<br /> ' MOV ECX, DWORD PTR SS:[EBP+0X0C]<br /> ' JECXZ END<br /> ' DIV ECX<br /> ' END:<br /> ' MOV EAX, EDX<br /> ' LEAVE<br /> ' RET 0X08