用易语言实现中文转换英文, 怎么写源代码?

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _选择框1_被单击

.如果 (选择框1.选中 ＝ 真)

文件.标题 ＝ “File”

打开.标题 ＝ “Open”

关闭.标题 ＝ “Close”

退出.标题 ＝ “Exit”

.否则

文件.标题 ＝ “文件”

打开.标题 ＝ “打开”

关闭.标题 ＝ “关闭”

退出.标题 ＝ “退出”

待我仔细道来：

（1）扩展名为“.edb”的文件：易数据库主文件。

（2）扩展名为“.edt”的文件：易数据库辅助数据文件。仅在数据库中有备注型或者字节集型字段时才存在，文件名除了后缀外与易语言主文件相同，它必须与.edb文件放在同一目录中。

（3）扩展名为".enx"的文件：易数据库索引文件。索引文件由用户根据需要自行创建，使用它可加快查找记录的速度。

并会不会像楼上说的：有时没有字节集字段，也会有EDT文件出现。

.版本

2

.子程序

__启动窗口_创建完毕

.局部变量

字母,

文本型

.局部变量

十进制,

整数型

.局部变量

二进制,

文本型

字母

＝

“a”

十进制

＝

取代码

(字母,

1)

二进制

＝

十进制转换为二进制

(十进制)

输出调试文本

(二进制)

.子程序

十进制转换为二进制,

文本型

.参数

十进制数,

整数型

.局部变量

结果,

文本型

.局部变量

余数,

整数型

.局部变量

长度,

整数型

.局部变量

n,

整数型

.局部变量

临时结果1,

文本型

.局部变量

临时结果2,

整数型

.判断循环首

(十进制数

＞

1)

余数

＝

十进制数

％

2

十进制数

＝

十进制数

＼

2

结果

＝

到文本

(余数)

＋

结果

.判断循环尾

()

结果

＝

到文本

(十进制数)

＋

结果

长度

＝

取文本长度

(结果)

.判断循环首

(长度

＜

8)

结果

＝

“0”

＋

结果

长度

＝

取文本长度

(结果)

.判断循环尾

()

返回

(结果)

给分吧.以上是代码

---