VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: 西门吹雪

VB程序代码行数计算器

[复制链接]
发表于 2006-4-5 20:58:48 | 显示全部楼层
哇,不愧是西门。
意见(共1条)
1.历史记录的说,很好做的。
算法提供(共1条)
1.Basic打乱顺序:
  1.计算出总行数后,定义一个String数组。
  2.Rnd一下将要打乱的顺序,按照顺序将String数组打乱,将信息放在文件头,这非常重要。不怕麻烦的话,可以将该信息用Ascll加加减减,这就随你了。
  3.大公告成,生成vbp.(如有兴趣,可将*.frm,*.bas,*.cls等也加密一下)
====
回复 支持 反对

使用道具 举报

发表于 2006-4-28 00:32:32 | 显示全部楼层
不错,简单实用的小工具.支持,功能还可适当的增强一些.
回复 支持 反对

使用道具 举报

发表于 2006-4-28 09:37:43 | 显示全部楼层
很值得思考,虽然还很次,但在努力中!
回复 支持 反对

使用道具 举报

vista 该用户已被删除
发表于 2006-4-28 21:04:34 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

发表于 2006-8-1 15:50:02 | 显示全部楼层
最好能把 VB.NET 也加上!跟上微软的更新脚步!
回复 支持 反对

使用道具 举报

发表于 2006-8-1 23:18:32 | 显示全部楼层
有本事加上If 控制 打乱顺序用的Goto……
而且判断的变量也不时的变变
回复 支持 反对

使用道具 举报

 楼主| 发表于 2006-8-2 13:03:43 | 显示全部楼层
呵.......要加密嘛,就要做得好一点,这是个主意........
回复 支持 反对

使用道具 举报

发表于 2006-8-4 18:28:15 | 显示全部楼层
程序总行数(不包括空行):3531行

类型文件信息:
窗体文件:
  总行数:1054行
  总函数:0个
  总过程:0个
模块文件:
  总行数:471行
  总函数:9个
  总过程:9个
类模块文件:
  总行数:2006行
  总函数:15个
  总过程:15个
用户控件文件:
  总行数:0行
  总函数:0个
  总过程:0个
属性页文件:
  总行数:0行
  总函数:0个
  总过程:0个

文件信息:
Frame.frm:
  总行数:470行
  总函数:0个
  总过程:15个
Sys.bas:
  总行数:144行
  总函数:0个
  总过程:4个
API.bas:
  总行数:174行
  总函数:0个
  总过程:0个
Menu.bas:
  总行数:62行
  总函数:0个
  总过程:4个
MainWindow.frm:
  总行数:321行
  总函数:0个
  总过程:22个
mTree.cls:
  总行数:379行
  总函数:0个
  总过程:12个
mToolBar.cls:
  总行数:128行
  总函数:0个
  总过程:9个
mReadText.cls:
  总行数:367行
  总函数:2个
  总过程:15个
mTreeItem1.cls:
  总行数:30行
  总函数:0个
  总过程:1个
mStateBar.cls:
  总行数:123行
  总函数:0个
  总过程:7个
mTreeNode2.cls:
  总行数:29行
  总函数:0个
  总过程:1个
mTreeNode3.cls:
  总行数:14行
  总函数:0个
  总过程:0个
mFunc.bas:
  总行数:91行
  总函数:9个
  总过程:1个
NoticeWindow.frm:
  总行数:120行
  总函数:0个
  总过程:9个
mSetFile.cls:
  总行数:66行
  总函数:1个
  总过程:1个
mSetSection.cls:
  总行数:4行
  总函数:0个
  总过程:0个
BMP32.cls:
  总行数:263行
  总函数:1个
  总过程:3个
Setup.frm:
  总行数:143行
  总函数:0个
  总过程:11个
mColor.cls:
  总行数:49行
  总函数:0个
  总过程:3个
mFont.cls:
  总行数:55行
  总函数:0个
  总过程:3个
mFile.cls:
  总行数:1行
  总函数:0个
  总过程:0个
mInet.cls:
  总行数:148行
  总函数:0个
  总过程:5个
mMenu.cls:
  总行数:113行
  总函数:0个
  总过程:7个
mOption.cls:
  总行数:237行
  总函数:11个
  总过程:13个
回复 支持 反对

使用道具 举报

发表于 2006-8-4 18:29:03 | 显示全部楼层
那个,加入一个字符数统计吧,还有 语句+函数+方法+关键字+变量名 个数统计
回复 支持 反对

使用道具 举报

发表于 2006-8-7 19:01:35 | 显示全部楼层
好,收藏
回复 支持 反对

使用道具 举报

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

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-5 17:04

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表