Action Script 2.0/3.0 随机插入18个项目到组合框

stillness

Action Script 2.0/3.0  随机插入18个项目到组合框
不想多说...携带EPL代码
EPL代码::

1. .DocVersion 2
   
2. 
   
3. .Module FormModule1
   
4. 
   
5. .Sub _CommandButton1_Click
   
6. .LocalVar 索引, Integer
   
7. 
   
8. .For (1, 18, 1, 索引)
   
9.     ComboBox1.AddItem (数值到简体 (索引), )
   
10. .Next ()
    
11. ComboBox1.SendMessage (335, 1, 0)
    
12. 
    
13. .Sub 数值到简体, String, Export
    
14. .Arg a, Integer, ByRef AllowEmpty
    
15. .LocalVar 采集器, String, , "9"
    
16. .LocalVar 字节长, Integer
    
17. .LocalVar 返回信息, String
    
18. .LocalVar I, Integer
    
19. .LocalVar 数据流, String
    
20. 
    
21. 采集器 [1] = "亿"
    
22. 采集器 [2] = "千"
    
23. 采集器 [3] = "百"
    
24. 采集器 [4] = "十"
    
25. 采集器 [5] = "万"
    
26. 采集器 [6] = "千"
    
27. 采集器 [7] = "百"
    
28. 采集器 [8] = "十"
    
29. 采集器 [9] = ""
    
30. 数据流 = CStr (a)
    
31. ' // 可以写作 采集器 = [ , , ,]
    
32. 字节长 = StrLen (CStr (a))
    
33. ' // 没有提供 翻转数组 那么就只有逻辑翻转
    
34. .For (1, 字节长, 1, I)
    
35.     .If (I > 0 And I < 2)
    
36.         返回信息 = 到简体 (StrMid (数据流, I, 1))
    
37.     .else
    
38.         .If (返回信息 + 采集器 [GetAryElementCount (采集器) - I + 1] + 到简体 (StrMid (数据流, I, 1)) <> "一十零" = true) ' // <> 表示符 true 学E的人不知道就不要冒一句自己是 e语言高级
    
39.             返回信息 = 返回信息 + 采集器 [GetAryElementCount (采集器) - I + 1] + 到简体 (StrMid (数据流, I, 1))
    
40.         .else
    
41.             返回信息 = 返回信息 + 采集器 [GetAryElementCount (采集器) - I + 1]
    
42.         .ife_end
    
43. 
    
44.     .ife_end
    
45. 
    
46. .Next ()
    
47. Return (返回信息)
    
48. 
    
49. .Sub 到简体, String, Export
    
50. .Arg 文本, String
    
51. .LocalVar switch, Integer
    
52. 
    
53. switch = CInt (文本)
    
54. .switch_begin (switch = 0)
    
55.     Return ("零")
    
56. .Case (switch = 1)
    
57.     Return ("一")
    
58. .Case (switch = 2)
    
59.     Return ("二")
    
60. .Case (switch = 3)
    
61.     Return ("三")
    
62. .Case (switch = 4)
    
63.     Return ("四")
    
64. .Case (switch = 5)
    
65.     Return ("五")
    
66. .Case (switch = 6)
    
67.     Return ("六")
    
68. .Case (switch = 7)
    
69.     Return ("七")
    
70. .Case (switch = 8)
    
71.     Return ("八")
    
72. .Case (switch = 9)
    
73.     Return ("九")
    
74. .default
    
75.     Return ("未知?")
    
76. .switch_end
    
77. 
    

复制代码

AS代码::
1：初始化

1. 标签1.text = "随机插入18个项目到组合框";
   
2. 标签1.autoSize = true;
   
3. 标签1._x -= 20;
   
4. 组合框1.rowCount = 18;

复制代码

2：主板程序

1. ·on(release)
   
2. {
   
3.         var 索引:Number = new Number();
   
4.         for(索引;索引<=18;索引++)
   
5.         {
   
6.                 组合框1.addItem(数值到简体(索引));
   
7.         }
   
8.         function 数值到简体(a:Number):String
   
9.         {
   
10.                 var 文本:String = String(a);
    
11.                 var I:Number = new Number();
    
12.                 var 临时:String = new String();
    
13.                 for(I;I<=文本.length;I++)
    
14.                 {
    
15.                         if(I>0)//I<>0 and I>0)
    
16.                         {
    
17.                                 if(I=1)
    
18.                                 {
    
19.                                         临时=到简体(文本,I);
    
20.                                 }
    
21.                                 else
    
22.                                 {
    
23.                                         临时=临时+到简体(文本,I);
    
24.                                 }
    
25.                         }
    
26.                 }
    
27.         return(临时);
    
28.         }
    
29.         function 到简体(文本:String,索引:Number):String
    
30.         {
    
31.                 switch(文本.charAt(索引))
    
32.                 {
    
33.                         case "0":
    
34.                         return("零");
    
35.                         break;
    
36.                         case "1":
    
37.                         return("一");
    
38.                         break;
    
39.                         case "2":
    
40.                         return("二");
    
41.                         break;
    
42.                         case "3":
    
43.                         return("三");
    
44.                         break;
    
45.                         case "4":
    
46.                         return("四");
    
47.                         break;
    
48.                         case "5":
    
49.                         return("五");
    
50.                         break;
    
51.                         case "6":
    
52.                         return("六");
    
53.                         break;
    
54.                         case "7":
    
55.                         return("七");
    
56.                         break;
    
57.                         case "8":
    
58.                         return("八");
    
59.                         break;
    
60.                         case "9":
    
61.                         return("九");
    
62.                         break;
    
63.                         default:
    
64.                         return("未知?");
    
65.                 }
    
66.         }
    
67. }

复制代码

longtengxp

偶真幸运哦...

stillness

思雪° 发表于 2012-11-9 21:02
是吖是吖,老师收下我吧.

特地发了一个简单的历程..自己看吧
Action Script   alpha实现老虎图片淡入淡出
http://www.3600gz.cn/thread-13614383-1-1.html

思雪°

是吖是吖,老师收下我吧.

思雪°

收下我吧,,,老师.  [qq]130971972[/qq]

思雪°

{:soso_e154:} 我要拜师 我要学AS3.0 老师.收下我吧...