玄菟郡

KiteGirl的老窝

VBScript纯数学星期算法。

Function WeekGetByDate(pDate, pMode) 'WeekGetByDate函数 '格式:[tOutWeekName] = WeekGetByDate(pDate, pMode) '说明:获取日期对应的星期名称。 '格式:date

2011-09-08 02:26:55

阅读数 573

评论数 0

代码返回自己

<br /><html><br /><head><br /><title>OutMe</title><br /></head><br /><body><br /...

2010-06-07 06:50:00

阅读数 1399

评论数 1

字库霓虹灯6Bit字库生成器(VB6)

Private priECT() As Byte Bit64编码表Private priDCT() As Byte Bit64解码表Private Const pubECT_Text As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefg...

2010-01-01 10:44:00

阅读数 1221

评论数 1

06号参赛作品:字库滚动屏

K.G Script3D 3.00 - 霓虹灯(字库滚动屏) CSDN KiteGirl 原创Dim uSP_x, uSP_y, uSP_zDim uSP_cr, uSP_cg, uSP_cbDim uD_Mx, uD_My, uD_MzDim uD_Rx, uD_Ry, uD_Rz...

2010-01-01 09:32:00

阅读数 1056

评论数 3

05号参赛作品:光影精灵

观看效果:(1)复制粘贴到一个新建的文本文件里。(2)改扩展名为html。注意事项:(1)VBScript目前只能在IE浏览器下运行。(2)某些版本的IE会提示安全警告信息,请选择“允许阻止的内容” K.G Script3D 3.00 - 霓虹灯(光影精灵) ...

2009-12-30 23:59:00

阅读数 1121

评论数 1

04号参赛作品:维纳斯裙摆

观看效果:(1)复制粘贴到一个新建的文本文件里。(2)改扩展名为html。注意事项:(1)VBScript目前只能在IE浏览器下运行。(2)某些版本的IE会提示安全警告信息,请选择“允许阻止的内容” K.G Script3D 3.00 - 霓虹灯(维纳斯裙摆) ...

2009-12-30 23:54:00

阅读数 928

评论数 3

03号参赛作品:螺旋圣诞树

观看效果:(1)复制粘贴到一个新建的文本文件里。(2)改扩展名为html。注意事项:(1)VBScript目前只能在IE浏览器下运行。(2)某些版本的IE会提示安全警告信息,请选择“允许阻止的内容” K.G Script3D 3.00 - 霓虹灯(螺旋圣诞树) ...

2009-12-30 23:51:00

阅读数 780

评论数 1

02号参赛作品:孔雀之舞

观看效果:(1)复制粘贴到一个新建的文本文件里。(2)改扩展名为html。注意事项:(1)VBScript目前只能在IE浏览器下运行。(2)某些版本的IE会提示安全警告信息,请选择“允许阻止的内容” K.G Script3D 3.00 - 霓虹灯(孔雀之舞) ...

2009-12-30 23:46:00

阅读数 1362

评论数 0

01号参赛作品:旋转的雕像

观看效果:(1)复制粘贴到一个新建的文本文件里。(2)改扩展名为html。注意事项:(1)VBScript目前只能在IE浏览器下运行。(2)某些版本的IE会提示安全警告信息,请选择“允许阻止的内容” K.G Script3D 3.00 - 霓虹灯(旋转的雕像) ...

2009-12-30 23:36:00

阅读数 608

评论数 0

Script3D引擎核心注释版

成像流水线ModuleS —— ... —— ModuleV —— ELM_Show ModuleVModuleS —— PXE_MTXTram3D DM() —— ModuleD —— FIT —— ModuleD —— PXE_MTXTram3D VM() —— ModuleV —— EL...

2009-12-30 23:11:00

阅读数 1810

评论数 3

取平面坐标相对角度(0-359度)及两角的相对角偏移量的函数

Public Function AngleOffsetValue(ByRef pAngleSur As Double, ByRef pAngleDes As Double) As Double AngleOffsetValue函数 格式: [tOutAngle] = AngleOffse...

2009-09-27 04:33:00

阅读数 1024

评论数 0

巨文本索引器——TID 1.0

Option ExplicitKiteGirl TID 1.00 - modIndexText.bas巨型文本文件索引器。(这是一个模块,需要把这些代码复制到模块里)TID使用示例:GIS2.txt文件,以&HA为分隔符,分隔符长度1。利用TID取它的任意行(这里从第3行开始,取2行)(这...

2008-12-19 02:19:00

阅读数 1720

评论数 2

跳蚤算法完整类模块UltraFlea 2.0

Option ExplicitUltraFlea ModuleKiteGirl 2008Public Sub UltraFlea_Confusion(ByRef pList() As Long, ByVal pScan_Start As Long, ByVal pScan_End As Long,...

2008-01-11 21:04:00

阅读数 1156

评论数 0

系统提示某些DLL为“无效的windows映象”问题详解

这是一个比较常见的问题。某些人的XP系统,有时会弹出一个对话框提示你类似如下信息:应用程序DLL C:/WINDOWS/system32/IMM32.DLL为无效的windows映象,请再检测一遍您的安装盘. 应用程序DLL C:/WINDOWS/system32/LPK.dll为无效的windo...

2007-09-01 10:43:00

阅读数 2795

评论数 2

VB6下的BitMap示例:模拟雨点程序

窗体部分Dim N As tpBitMapApplic Dim SPX() As tpPixelRGB24 Dim pubBitMapApplic As tpBitMapApplic Dim pubPixels() As tpPixelRGB24 Dim pubBytes() As Byte D...

2007-07-11 03:34:00

阅读数 2718

评论数 3

跳蚤算法:快速跳蚤算法

跳蚤算法:快速跳蚤算法在原理当中讲了跳蚤算法的原型,用来获得x个0 to n范围内的不重复随机数。 初始化 For i=0 to n a(i)=i Next 乱序 For i=0 to n r=int(rnd*(n+1)) Swap a(i),a(r) Next Sub Swa...

2007-06-26 04:24:00

阅读数 2708

评论数 0

跳蚤算法:基本原理。

跳蚤算法:基本原理。一、算法的诞生及设计初衷。传统教材中取得x个0 to n之间不重复随机数的方法一般是这样: (x个不重复随机数输出到a()数组) For i=1 to x Do r=int(rnd*(n+1)) c= Loop Until c Ne...

2007-06-26 04:07:00

阅读数 2916

评论数 0

“跳蚤算法”函数模块(不重复随机数高效算法)

Attribute VB_Name = "modFleaRandom" FleaRandom Module KiteGirl 2005 Public Sub FleaRandom(ByRef pList() As Long, Optional ByVal pSet_Scan ...

2007-06-26 03:19:00

阅读数 1961

评论数 0

ByteFile函数模块

Attribute VB_Name = "modByteFile" Public Function TextLineSplitByLength(ByVal pString As String, ByVal pLength As Long) As String Dim tOu...

2006-06-26 03:56:00

阅读数 1310

评论数 4

Base64编码/解码模块

Attribute VB_Name = "modBase64" 名称: Base64编码/解码模块 Name: Base64 Encode & Decode Module 作者: KiteGirl [中国] Cod...

2006-06-26 03:43:00

阅读数 3258

评论数 11

提示
确定要删除当前文章?
取消 删除