找回密码
 注册
快捷导航
查看: 3599|回复: 36

大家好我问一句有几个人真正的了解汉语编程的呢?

[复制链接] |自动提醒
阅读字号:

8

回帖

0

积分

-30

资产值

逃学生

注册时间
2008-2-19
发表于 2008-2-20 14:47:02| 字数 10| - 中国–北京–北京–海淀区 联通 | 显示全部楼层 |阅读模式

    有谁了解汉语编程呢?

3486

回帖

59

积分

2815

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2006-4-25
发表于 2008-2-20 15:30:15| 字数 17| - 中国–福建–福州 电信 | 显示全部楼层
我不了解 但是我确定这是个无用的东西
回复 支持 反对

使用道具 举报

6056

回帖

150

积分

1万

资产值

至尊会员II Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2003-4-28
铜牌荣誉勋章(注册8年以上会员)
发表于 2008-2-20 15:50:30| 字数 12| - 美国 加州大学欧文分校 | 显示全部楼层
楼主,你来错地方了。。。
回复 支持 反对

使用道具 举报

565

回帖

0

积分

872

资产值

入门会员 Rank: 1

注册时间
2004-7-23
发表于 2008-2-20 16:02:04| 字数 47| - 中国–北京–北京–海淀区 联通 | 显示全部楼层
系统内核是西文的,汉语编程无用武之地啊。。
记得小日本的数据库表名都用日文。。真是搞不懂为啥。。
I love ThinkPad, I love my T41
回复 支持 反对

使用道具 举报

2847

回帖

93

积分

585

资产值

至尊会员I Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2007-8-15
发表于 2008-2-20 16:12:22| 字数 164| - 中国–广东–深圳 电信 | 显示全部楼层
我没有用过,也不清楚具体的开发流程,所以很想亲眼见见

上次让你给我贴一段演示代码、源文件看看,你却说自己是销售人员,没法给演示,我很失望哦

你还是去找你们的开发人员吧,要一段代码给我看一下

当然,如果条件允许的话,能给我某个你们已完成项目的整个开发文档看看最好

技术论坛么,你还是贴出些务实的东西比较好。如果确实好用,我甚至可以帮你推广
T61-7663AK3/T7300-->T9300/2G-->4G/120G+500G/14.1 WXGA+/NVS 140M/DVDRW/6-Cell/蓝牙/指纹
回复 支持 反对

使用道具 举报

8

回帖

0

积分

-30

资产值

逃学生

注册时间
2008-2-19
 楼主| 发表于 2008-2-20 16:43:15| 字数 4,021| - 中国–北京–北京–海淀区 联通 | 显示全部楼层

这是一个小游戏的代码请大家看一看吧

使用库 比赛结果数据库\发送邮件地址
使用库 比赛结果数据库\评分记录数据库
使用库 比赛结果数据库\临时库

装载  系统模板\数据库模板\表格浏览整理

表格区域窗口模板 数据库表格

扩展模板 新编辑框控制 继承自 编辑框控制
属性 扩展窗口风格: WS_EX_TOPMOST 属性。
模板。

图形按钮控制   编号确定按钮 "图片\录入确定.bmp"

扩展对象 编号填写 继承自 默认窗口对象模板
属性 扩展窗口风格: WS_EX_TOPMOST 属性。
属性 窗口标题: 编字串" 编号填写" 属性。
属性 开始位置: 自动居中: 自本身 30 + 属性。
属性 开始尺寸: 200 100 属性。
属性 最大尺寸: 200 100 属性。
属性 最小尺寸: 200 100 属性。

新编辑框控制 编号填写框


建词 编号记录 50 字节空出

编 比较相应编号
   读控制对象标题: 编号填写框 去前后空格 比赛结果数据库\评分记录数据库&编号 去前后空格 串比较 0 =


0 给 选中的记录
编 上传编号成绩
   比赛结果数据库\评分记录数据库 记录数 1 + 1
   ?循环
        内环数 ♂ 写入 选中的记录 比赛结果数据库\评分记录数据库 为当前记录
        比较相应编号
        就
            比赛结果数据库\临时库 加空记录
            比赛结果数据库\评分记录数据库&编号     去前后空格  替换 比赛结果数据库\临时库&编号
            比赛结果数据库\评分记录数据库&姓名     去前后空格  替换 比赛结果数据库\临时库&姓名
            比赛结果数据库\评分记录数据库&最后得分             替换 比赛结果数据库\临时库&最后得分
            比赛结果数据库\评分记录数据库&参赛时间             替换 比赛结果数据库\临时库&参赛时间
            比赛结果数据库\评分记录数据库&联系方式 去前后空格  替换 比赛结果数据库\临时库&联系方式
            比赛结果数据库\评分记录数据库&游戏名称 去前后空格  替换 比赛结果数据库\临时库&游戏名称
        然后
   回环 字串" 比赛结果数据库\"     编号记录 字串传送
        读控制对象标题: 编号填写框 编号记录 字串+传送
        字串" .DBF" 编号记录 字串+传送
        比赛结果数据库\临时库 数据库存盘
        字串" 比赛结果数据库\临时库.DBF" 编号记录 计字节 文件复制


        比赛结果数据库\临时库 删除所有记录
        比赛结果数据库\临时库 数据库存盘

        选中的记录 比赛结果数据库\评分记录数据库 做删除标记
                   比赛结果数据库\评分记录数据库 删除已标记记录
                   比赛结果数据库\评分记录数据库 数据库存盘


编 上传比赛结果
     关闭: 自本身
     比赛结果数据库\评分记录数据库 数据库存盘
     1 比赛结果数据库\发送邮件地址 为当前记录
     比赛结果数据库\发送邮件地址&邮件地址 去前后空格 终端句柄 "web链接                                             
     mb_ok 字串" 亲爱的小朋友!请注意!!!请您在邮件内正确完整地注明游戏的标题名称,并将游戏目录下 “比赛结果数据库” 文件夹内以您的编号命名的DBF文件做为附件发送到各赛区指定的电子信箱哦!详细内容请登陆http://www.etsj.com.cn"  系统对话框
     1 =
       就
         退出
       然后

编 判断是否上传
   比赛结果数据库\评分记录数据库 取消过滤
   找编 比较相应编号 比赛结果数据库\评分记录数据库 置为过滤
   比赛结果数据库\评分记录数据库 记录数 0=
   就        \ 编字串" 亲爱的小朋友!没有这个编号的成绩记录!"  编字串" 系统给您提示!" 0 信息框: 自本身 ♀
         0 字串" 亲爱的小朋友!没有这个编号的成绩记录!" 系统对话框 ♀
         比赛结果数据库\评分记录数据库 取消过滤
         清空:  编号填写框
   否则 上传编号成绩
        上传比赛结果
   然后


对象事件 对象初始时:
                     禁用最大化按钮: 自本身
                        本身的 开始: 编号填写框
                  50 35 100 25 定位: 编号填写框

                        本身的 开始: 编号确定按钮
                  130 70 70 30 定位: 编号确定按钮
               BS_FLAT 增加窗口风格: 编号确定按钮
对象事件。

对象事件 绘制时:
     
                                           置背景混合方式: 设备描述表
         20 10 字串" 请填写要上传用户的编号!"   文本输出: 设备描述表
对象事件。

模板事件 接受命令:
         接受命令: 自源模板
         ∽ 取低字
         如和  读标识: 编号确定按钮 对应就  判断是否上传
         而后
模板事件。

对象。

编 启动编号填写
   启动: 编号填写


字体对象 数据库显示字体

3 139 234 RGB 新颜色 标题色

图形按钮控制  放弃按钮 "图片\录入放弃.bmp"
图形按钮控制  保存按钮 "图片\录入保存.bmp"
图形按钮控制  上传按钮 "图片\录入上传.bmp"

扩展对象 评分数据库 继承自 默认窗口对象模板
属性 开始尺寸:
              700 560
属性。
属性 最大尺寸: 开始尺寸: 自本身 属性。
属性 最小尺寸: 开始尺寸: 自本身 属性。
\ \\\\\\\\\\\\\\修改成对应游戏的名称\ \\\\\\\\\\\\\\\\\
属性 窗口标题:
     编字串" 第十六届全国“六一”国际儿童节威盛中国芯计算机表演赛——倒数字连线(5~6岁)" 属性。

属性 开始位置:
              自动居中: 自本身  
属性。
\ ------------------------------------------------------------
新编辑框控制 编号编辑框
新编辑框控制 姓名编辑框
新编辑框控制 联系编辑框

0 给 添加一次

\ ------------------------------------------------------------

编 总得分表格显示
   比赛结果数据库\评分记录数据库 置表格处理库: 数据库表格
   本身的 启动: 数据库表格
   20 75 660 470    定位表格: 数据库表格


编 清空编辑框
   清空: 编号编辑框
   清空: 姓名编辑框
   清空: 联系编辑框        


编 增加比赛结果信息
   比赛结果数据库\评分记录数据库 加空记录
   读控制对象标题: 编号编辑框 去前后空格 替换 比赛结果数据库\评分记录数据库&编号
   读控制对象标题: 姓名编辑框 去前后空格 替换 比赛结果数据库\评分记录数据库&姓名
   读控制对象标题: 联系编辑框 去前后空格 替换 比赛结果数据库\评分记录数据库&联系方式
                        总得分 3000 取大 替换 比赛结果数据库\评分记录数据库&最后得分
                   当前日期值 当前时间值 替换 比赛结果数据库\评分记录数据库&参赛时间
\ \\\\ 修改成游戏的名称 \\\\\\\\\\\\
             字串" 倒数字连线(5~6岁)"   替换 比赛结果数据库\评分记录数据库&游戏名称
   清空编辑框
   比赛结果数据库\评分记录数据库 数据库存盘
   绘制时: 数据库表格


编 记录比赛结果
   读控制对象标题: 编号编辑框  去前后空格 字串" "  串比较 0<>  \ 判断输入的数据信息是否为空
   读控制对象标题: 姓名编辑框  去前后空格 字串" "  串比较 0<> 与  
   读控制对象标题: 联系编辑框  去前后空格 字串" "  串比较 0<> 与
   就  添加一次
       就   增加比赛结果信息
            假 写入 添加一次
       否则 编字串" 亲爱的小朋友!本次比赛的结果只能记录一次哦!!!  " 编字串" 系统给您提示!" 0 信息框: 自本身 ♀
       然后
  否则 编字串" 亲爱的小朋友!请您正确完整地填写您的编号、姓名和联系方式信息哦!" 编字串" 系统给您提示!" 0 信息框: 自本身 ♀
  然后  


编 退出数据库提示
   编字串" 亲爱的小朋友!您真的确定退出数据库吗?" 编字串" 系统给您提示!" 1 信息框: 自本身 1 =
   就   退出
   然后  


对象事件 初始时:   
         初始时: 自源模板
               禁用最大化按钮: 自本身
         字串" 隶书" 置字样名:  数据库显示字体
                25 置字体大小:  数据库显示字体
                     150 轻重:  数据库显示字体
                     假  斜体:  数据库显示字体
                     创建字体:  数据库显示字体

         总得分表格显示

              本身的 启动: 编号编辑框
         55 44 90 21 定位: 编号编辑框

               本身的 启动: 姓名编辑框
         190 44 70 21 定位: 姓名编辑框

                本身的 启动: 联系编辑框
         330 44 108 21 定位: 联系编辑框

               本身的 启动: 保存按钮
         450 40 70 30 定位: 保存按钮
BS_FLAT 增加窗口风格: 保存按钮
               本身的 启动: 放弃按钮
         530 40 70 30 定位: 放弃按钮
BS_FLAT 增加窗口风格: 放弃按钮
               本身的 启动: 上传按钮
         610 40 70 30 定位: 上传按钮
      BS_FLAT 增加窗口风格: 上传按钮

         真 写入 添加一次

对象事件。

编 是否启动编号填写
   比赛结果数据库\评分记录数据库 记录数 0 =
   就   编字串" 亲爱的小朋友!现在没有任何成绩记录哦!" 编字串" 系统给您提示!" 0 信息框: 自本身 ♀
   否则 启动编号填写
   然后

对象事件 绘制时:
         绘制时: 自源模板
                          浅蓝色 置文本颜色: 设备描述表
         20  49 字串" 编号:"      文本输出: 设备描述表
         155 49 字串" 姓名:"      文本输出: 设备描述表
         270 49 字串" 联系方式:"  文本输出: 设备描述表

         句柄:  数据库显示字体     设置字体: 设备描述表
                          浅黄色 置文本颜色: 设备描述表
         230 10 字串"   比赛成绩表"  文本输出: 设备描述表

                          浅蓝色 置文本颜色: 设备描述表
         460 10 字串" 本次总得分:" 文本输出: 设备描述表                     
         610 10 总得分 3000 取大 (单转双显)  文本输出: 设备描述表
对象事件。

对象事件 接受命令:
         ∽ 取低字
         如和 读标识: 保存按钮  对应就 记录比赛结果
         而和 读标识: 放弃按钮  对应就 退出数据库提示
         而和 读标识: 上传按钮  对应就 是否启动编号填写
         而后
对象事件。


WM_CTLCOLOREDIT 触发时: ( 界面静态框背景与字体颜色 )
                  ♂
                  如和 读句柄: 编号编辑框 对应就 浅红色 窗口背景颜色  置控制对象颜色方案
                  而和 读句柄: 姓名编辑框 对应就 黑色   窗口背景颜色  置控制对象颜色方案
                  而和 读句柄: 联系编辑框 对应就 黑色   窗口背景颜色  置控制对象颜色方案
                  而后       
触发。

系统关闭消息 触发时:
                    退出数据库提示
             触发。

对象。

编 启动评分数据库

启动: 评分数据库
回复 支持 反对

使用道具 举报

8

回帖

0

积分

-30

资产值

逃学生

注册时间
2008-2-19
 楼主| 发表于 2008-2-20 16:51:37| 字数 30| - 中国–北京–北京–海淀区 联通 | 显示全部楼层

给大家证明的

小游戏发不出去了啊.有谁想要找我啊.

               QQ:381084585
回复 支持 反对

使用道具 举报

8313

回帖

134

积分

2万

资产值

至尊会员II Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2004-8-6
银牌荣誉勋章(注册10年以上会员)月全勤勋章
发表于 2008-2-20 16:51:48| 字数 218| - 中国–湖南–怀化 电信 | 显示全部楼层
下面的英文字母和数字还有"&"之类的全部换成中文好了.

图形按钮控制   编号确定按钮 "图片\录入确定.bmp"

扩展对象 编号填写 继承自 默认窗口对象模板
属性 扩展窗口风格: WS_EX_TOPMOST 属性。
属性 窗口标题: 编字串" 编号填写" 属性。
属性 开始位置: 自动居中: 自本身 30 + 属性。
属性 开始尺寸: 200 100 属性。
属性 最大尺寸: 200 100 属性。
属性 最小尺寸: 200 100 属性。
ThinkPAD X230   FHD/ 220KB/ 3DISK/ 4SPK/ 5GWiFi
I5-3320M 16G 256G/SSD+1T/HDD IPS1080P 蓝指摄
回复 支持 反对

使用道具 举报

3837

回帖

2

积分

1894

资产值

初级会员 Rank: 1

注册时间
2004-9-20
发表于 2008-2-20 16:55:45| 字数 20| - 中国–福建–泉州 电信/IDC机房 | 显示全部楼层
我靠,这么写程序,键盘的敲击量上升了N倍
求助园艺高手:如何修枝??
回复 支持 反对

使用道具 举报

2847

回帖

93

积分

585

资产值

至尊会员I Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2007-8-15
发表于 2008-2-20 17:32:34| 字数 444| - 中国–广东–深圳 电信 | 显示全部楼层
我靠,这就叫汉语编程!?真够壮观啊!

我看这个也就仅仅是把西文开发工具中的关键字、保留字什么的都“翻译”“汉化”为了中文。。。。。居然连语法格式都没变化。。。。。昏倒,这种东西不必要开发20年吧。。。。。找一些开源的 IDE 工具,翻译一下,自己也可以做的。一个熟练的程序员大概三个月也可以做出如演示代码的水平吧

我觉得这个开发者的主要工作就是做了一个中文的 IDE 环境,类似汉化工作,甚至编译器都有可能保留的西文的哦。如果作者以此自比为gates,实在太过

我觉得这东西还不错,对不懂英文又初涉软件开发行业的人来说正合适。不过,这年头,能搞软件开发的,他能不懂英文吗

看了你贴出的代码,总结一下我的想法吧

1、中国的文字,西方的语法格式,不伦不类。主要是我脑袋不够用,没发在写代码、思考逻辑的同时在两种语言中反复来回切换。。。。。受不了

2、这个好像适合不懂英文的人使用,对真想开发软件的人员没多少吸引力。原因参考 1

3、给你个宣传建议:东西不是不好,但要实事求是,莫夸大其词。特别是自比盖茨那类的。。。。
T61-7663AK3/T7300-->T9300/2G-->4G/120G+500G/14.1 WXGA+/NVS 140M/DVDRW/6-Cell/蓝牙/指纹
回复 支持 反对

使用道具 举报

238

回帖

12

积分

2090

资产值

黄金会员 Rank: 3Rank: 3Rank: 3

注册时间
2005-10-31
发表于 2008-2-20 17:55:32| 字数 128| - 中国–广东–深圳 电信 | 显示全部楼层
纯属扯淡
c++里的define用好了也可以完全转变成汉语代码
你这个表面上全是汉字,可惜只是壳子,内核依然是微软的那套(所给的代码像vb),没用
不信?有本事把代码故意敲错,看看提示信息是什么语言~

另外,可惜你这个小小的销售专员投身暗门,趁早脱离苦海才是王道~
回复 支持 反对

使用道具 举报

2232

回帖

49

积分

7102

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2004-11-21
发表于 2008-2-20 18:29:54| 字数 6| - 中国–江苏–无锡 电信 | 显示全部楼层
把英语学好吧
So we beat on, boats against the current, borne back ceaselessly into the past.
回复 支持 反对

使用道具 举报

2847

回帖

93

积分

585

资产值

至尊会员I Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2007-8-15
发表于 2008-2-20 19:55:31| 字数 110| - 中国–广东–深圳 电信 | 显示全部楼层
补充一句,LZ 能来专门网发帖也算是缘分,我很诚心的建议你,如果你现在工资不高,还是尽早离开那里,去别的公司找个职位

我不是说这个汉语编程本身有什么不好,只是以目前的情况来看我不觉得这个有多少前途,为了你自己着想,早点离开吧
T61-7663AK3/T7300-->T9300/2G-->4G/120G+500G/14.1 WXGA+/NVS 140M/DVDRW/6-Cell/蓝牙/指纹
回复 支持 反对

使用道具 举报

930

回帖

22

积分

9060

资产值

白金会员 Rank: 3Rank: 3Rank: 3

注册时间
2004-7-12
铜牌荣誉勋章(注册8年以上会员)
发表于 2008-2-20 19:56:15| 字数 17| - 中国–广东–深圳 电信 | 显示全部楼层
比英文看着更头大 哎, 这到底有用吗?
T42 23738YH \PM1.7 \RADEON 9600 64M \HDD 80G \RAM 1G
T420 4180RW1\I5-2540M \500G\RAM 8G
回复 支持 反对

使用道具 举报

1333

回帖

0

积分

211

资产值

入门会员 Rank: 1

注册时间
2006-2-9
发表于 2008-2-20 20:12:35| 字数 37| - 日本 东京市KDDI通信公司 | 显示全部楼层
神啊。。。作为一个软件开发人员。。。我承认我看到这个source后有点崩溃
回复 支持 反对

使用道具 举报

3768

回帖

1

积分

4052

资产值

初级会员 Rank: 1

注册时间
2006-1-20
发表于 2008-2-20 20:38:20| 字数 84| - 新加坡 | 显示全部楼层
随便搜索了一下:<汉语编程-汉芯之后的中国软件界大骗局(1)>
http://developer.51cto.com/art/200710/58356.htm
回复 支持 反对

使用道具 举报

2362

回帖

1

积分

4952

资产值

初级会员 Rank: 1

注册时间
2004-12-22
发表于 2008-2-20 20:51:38| 字数 9| - 中国–浙江–舟山 电信 | 显示全部楼层
还是学好英语好点。
X200-AD2 WINXPSP3 EN
X23-ELU WINXPSP2 EN
http://69836868.qzone.qq.com
回复 支持 反对

使用道具 举报

7736

回帖

117

积分

1万

资产值

至尊会员I Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2004-6-12
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-2-20 21:19:50| 字数 27| - 中国–广东–深圳 电信 | 显示全部楼层
又来做广告,这次扣NB处理了,帖子留着,让大家讨论一下
X1 Carbon 2018, 16 G ,1T SSD 4K HDR
X1 Carbon 2015, 16 G ,512G SSD
X220T, I5, 8G, 128G SSD
回复 支持 反对

使用道具 举报

5823

回帖

102

积分

1万

资产值

至尊会员I Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2003-1-4
铜牌荣誉勋章(注册8年以上会员)
发表于 2008-2-21 09:22:19| 字数 23| - 中国–河北–衡水 联通 | 显示全部楼层
神呀,真够壮观的。 这样打包出来的文件会很大的呀
回复 支持 反对

使用道具 举报

1103

回帖

0

积分

2786

资产值

入门会员 Rank: 1

注册时间
2004-3-25
发表于 2008-2-21 09:40:57| 字数 99| - 中国–北京–北京 北京中电飞华通信股份有限公司 | 显示全部楼层
如果能做到用自然语言编程,那肯定是一大创举,说能媲美比尔盖茨也能接受。

楼主的汉语编程,和现在的编程语言也没什么区别,还是算了吧。

[ Edited by zhaochuan on 2008-2-21 09:45 ]
为天地立心,为生民立命,为往圣继绝学,为万世开太平。侠之大者,浩然于胸。
回复 支持 反对

使用道具 举报

7736

回帖

117

积分

1万

资产值

至尊会员I Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2004-6-12
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-2-21 09:49:27| 字数 41| - 中国–广东–深圳 电信 | 显示全部楼层
刚刚看到楼主的另外一个帖子,看来是软硬兼施,不知道驱动程序你的编程语言能搞的了吗?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
X1 Carbon 2018, 16 G ,1T SSD 4K HDR
X1 Carbon 2015, 16 G ,512G SSD
X220T, I5, 8G, 128G SSD
回复 支持 反对

使用道具 举报

154

回帖

5

积分

1万

资产值

高级会员 Rank: 2Rank: 2

注册时间
2006-1-3
银牌荣誉勋章(注册10年以上会员)
发表于 2008-2-21 11:01:39| 字数 178| - 中国–浙江–杭州 电信 | 显示全部楼层
所谓汉语编程和汉芯、IPv9一样可以贴到任何一个论坛的Humor区了,可以说是急功近利,心态浮躁的典型表现,如果说汉芯,IPv9还能骗过一些有这方面知识的人,那么所谓的汉语编程就只能骗骗那些老年大学的学员,一个正常的程序员都会一眼看出他的汉化本质,上过计算机系的还都自己写过编译器呢,代码做到汇编级,剩下的调用一下MASM帮帮忙,一个简陋的编译器就出来了。
回复 支持 反对

使用道具 举报

1158

回帖

51

积分

5544

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2007-10-20
发表于 2008-2-21 11:34:02| 字数 96| - 中国–湖北–武汉 电信 | 显示全部楼层
崩溃了,感觉像是直接把代码拿到网译快车上翻译了一编的感觉。。。
数据库表名、字段名用用中文还可以接受,这个。。。。。
虽然我E文很烂,但还是读写代码还是够用的,实在不行就硬记,不需要这个东东哈。。
T460S i5/12g/512ssd nvme,服役
X220T i5/8g/256ssd+256msata,已出
T61 AD3 T7700
回复 支持 反对

使用道具 举报

801

回帖

11

积分

1万

资产值

黄金会员 Rank: 3Rank: 3Rank: 3

注册时间
2007-2-10
银牌荣誉勋章(注册10年以上会员)
发表于 2008-2-21 11:47:58| 字数 1,515| - 中国–广东–中山 电信 | 显示全部楼层
呵呵,在用易语言,偶尔写点儿小程序,感觉对我这种菜鸟还有点儿用处....

也贴点儿代码上来,欢迎大家拍砖....

.版本 2
.支持库 iext2
.支持库 iext
.支持库 shellEx
.支持库 HtmlView

.程序集 启动窗口程序集
.程序集变量 全局原子, 整数型

.子程序 __启动窗口_创建完毕

是否已在运行 ()
_启动窗口.移动 (-1, -1, 取屏幕宽度 () + 4, 取屏幕高度 () - 28)
标题栏.移动 (, , _启动窗口.宽度, )
X.移动 (_启动窗口.宽度 - 8, , , )
最小化.移动 (_启动窗口.宽度 - 72, , , )
最大化.移动 (_启动窗口.宽度 - 48, , , )
关闭.移动 (_启动窗口.宽度 - 24, , , )
浏览框.移动 (-1, -1, _启动窗口.宽度 + 20, _启动窗口.高度 + 2)
载入 (设置窗口, , 真)
设置窗口.销毁 ()
置托盘图标 (#A, “天空左岸”)
.如果 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Skywar”))
    设为自动运行.可视 = 假
.否则
    取消自动运行.可视 = 假
.如果结束


.子程序 _标题栏_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果 (_启动窗口.可视 = 真)
    _启动窗口.可视 = 假
.否则
    _启动窗口.可视 = 真
.如果结束


.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.判断开始 (操作类型 = #单击右键)
    _启动窗口.可视 = 真
    弹出托盘菜单 (程序)
.判断 (操作类型 = #单击左键)
    .如果 (_启动窗口.可视 = 真)
        _启动窗口.可视 = 假
    .否则
        _启动窗口.可视 = 真
    .如果结束

.默认

.判断结束


.子程序 _窗口模式_被选择

浏览框.移动 (, 24, , _启动窗口.高度 - 22)
标题栏.可视 = 真
最小化.可视 = 真
最大化.可视 = 真
关闭.可视 = 真
_.可视 = 假
X.可视 = 假
窗口模式.可视 = 假
全屏模式.可视 = 真

.子程序 _全屏模式_被选择

浏览框.移动 (, -1, , _启动窗口.高度 + 2)
标题栏.可视 = 假
最小化.可视 = 假
最大化.可视 = 假
关闭.可视 = 假
_.可视 = 真
X.可视 = 真
全屏模式.可视 = 假
窗口模式.可视 = 真

.子程序 _热键设置_被选择

设置窗口.可视 = 真
载入 (设置窗口, _启动窗口, 假)

.子程序 _退出_被选择

销毁 ()

.子程序 __启动窗口_将被销毁

撤销热键 (_启动窗口.取窗口句柄 (), 热键ID)
全局删除原子 (全局原子)
置托盘图标 (, )

.子程序 是否已在运行

全局原子 = 全局查找原子 (“Skywar”)
.如果 (全局原子 ≠ 1179648 且 全局原子 ≠ 0)
    信息框 (“程序已在运行中,请点击任务栏小图标!”, #确认钮 + #信息图标, )
    结束 ()
.否则

.如果结束
全局原子 = 全局添加原子 (“Skywar”)

.子程序 _设为自动运行_被选择

设为自动运行.可视 = 假
取消自动运行.可视 = 真
写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Skywar”, 取运行目录 () + “\” + 取执行文件名 ())

.子程序 _取消自动运行_被选择

设为自动运行.可视 = 真
取消自动运行.可视 = 假
删除注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Skywar”)

.子程序 _最小化_被单击

_启动窗口.可视 = 假

.子程序 _最大化_被单击

_全屏模式_被选择 ()

.子程序 _关闭_被单击

销毁 ()

.子程序 ___鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_启动窗口.可视 = 假

.子程序 _X_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

销毁 ()

.子程序 _时钟_周期事件

内存优化 ()
回复 支持 反对

使用道具 举报

1063

回帖

0

积分

6740

资产值

入门会员 Rank: 1

注册时间
2003-10-26
铜牌荣誉勋章(注册8年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-2-21 14:57:06| 字数 39| - 日本 IIJ | 显示全部楼层
所谓的汉语编程不能让我找到合适工作赚钱养活自己,所以我只好一直使用英语编程了。
hp 2710p
回复 支持 反对

使用道具 举报

1755

回帖

32

积分

811

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2003-10-26
铜牌荣誉勋章(注册8年以上会员)金牌荣誉勋章(注册20年以上会员)银牌荣誉勋章(注册10年以上会员)
发表于 2008-2-21 15:55:47| 字数 31| - 中国–河北–石家庄 电信 | 显示全部楼层
呵呵,见识了汉语编程了,挺壮观,不过好像还是看英文程序比较明白
T42p 1.7/2G DDR333/UXGA IPS/T2 128M/BMDC200b/2200BG/7k100 100G/5k80 40G/DVD-ROW
回复 支持 反对

使用道具 举报

320

回帖

7

积分

358

资产值

高级会员 Rank: 2Rank: 2

注册时间
2006-9-8
发表于 2008-2-21 22:44:58| 字数 5| - 中国–广东–佛山 电信 | 显示全部楼层
崩溃。。。
回复 支持 反对

使用道具 举报

2522

回帖

42

积分

4911

资产值

钻石会员 Rank: 3Rank: 3Rank: 3

注册时间
2004-2-28
发表于 2008-2-21 23:13:52| 字数 9| - 中国–广东–深圳 电信 | 显示全部楼层
神啊 让这种贴沉了吧
回复 支持 反对

使用道具 举报

5109

回帖

78

积分

1万

资产值

至尊会员I Rank: 4Rank: 4Rank: 4Rank: 4

注册时间
2007-11-17
发表于 2008-2-22 03:14:08| 字数 4| - 中国–江苏–镇江 移动 | 显示全部楼层
易语言啊
51nb才是正宗的 nb论坛
51nb才是正宗的 nb论坛
51nb才是正宗的 nb论坛
T420
E71 lx5
php coder
回复 支持 反对

使用道具 举报

725

回帖

10

积分

1449

资产值

黄金会员 Rank: 3Rank: 3Rank: 3

注册时间
2006-1-19
发表于 2008-2-23 10:57:03| 字数 34| - 中国–福建–龙岩 移动 | 显示全部楼层
太壮观了!只是看着有点头晕,这样编写程序函数和标注会不会不太好区分?
Samsung Q20
ThinkPad T41
ThinkPad X60
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Powered by Discuz! X3.5 © 2001-2023 Comsenz Inc

GMT+8, 2025-2-7 23:13 , Processed in 0.244214 second(s), 80 queries , Gzip On, OPcache On.

手机版|小黑屋|安卓客户端|iOS客户端|Archiver|备用网址1|备用网址2|在线留言|专门网

返回顶部