易语言实现长整数型自增ID 长整数型与字节集数据互转 (8字节储存ID,程序运行次数计数)

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. 信息框 (“程序第” ＋ 到文本 (自增ID ()) ＋ “次运行!”, 0, , )
    
15. 
    
16. 
    
17. .子程序 写ID, 逻辑型, 公开, 成功返回真，失败返回假
    
18. .参数 ID, 长整数型
    
19. 
    
20. 返回 (写到文件 (“id.dat”, 到字节集 (ID)))
    
21. 
    
22. .子程序 读ID, 长整数型, 公开
    
23. 
    
24. 返回 (取字节集数据 (读入文件 (“id.dat”), #长整数型, ))
    
25. 
    
26. 
    
27. .子程序 自增ID, 长整数型, 公开, ID+1 成功返回ID，失败返回0
    
28. .局部变量 ID, 长整数型
    
29. 
    
30. ID ＝ 长整数_相加 (读ID (), 1)
    
31. .如果真 (写ID (ID) ＝ 假)
    
32.     返回 (0)
    
33. .如果真结束
    
34. 返回 (ID)
    
35. 
    
36. 
    
37. 
    
38. .子程序 长整数_相加, 长整数型
    
39. .参数 被加数, 长整数型
    
40. .参数 加数, 长整数型
    
41. 
    
42. 置入代码 ({ 139, 69, 8, 139, 85, 12, 3, 69, 16, 19, 85, 20, 201, 194, 16, 0 })
    
43. ' mov eax,[ebp+8]
    
44. ' mov edx,[ebp+12]
    
45. ' add eax,[ebp+16]
    
46. ' adc edx,[ebp+20]
    
47. ' leave
    
48. ' retn 16
    
49. 返回 (0)
    

复制代码