KiteGirl-优快云博客

原创 VBScript纯数学星期算法。

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

2011-09-08 02:26:55 969

<html> <head> <title>OutMe</title> </head> <body> </body> <script language="VBScript"> Dim priCodeMe Dim priCode priCodeMe = "3C68746D6C3E0D0A3C686561643E0D0A3C7469746C653E4F75744D653C2F7469746C653E0D0A3C2

2010-06-07 06:50:00 1705 1

原创字库霓虹灯6Bit字库生成器（VB6）

Private priECT() As Byte Bit64编码表Private priDCT() As Byte Bit64解码表Private Const pubECT_Text As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"Private Sub Co

2010-01-01 10:44:00 1665 1

原创 06号参赛作品：字库滚动屏

K.G Script3D 3.00 - 霓虹灯（字库滚动屏）优快云 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_RzDim uD_Mtx_Mx, uD_Mtx_

2010-01-01 09:32:00 1389 3

原创 05号参赛作品：光影精灵

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

2009-12-30 23:59:00 1409 1

原创 04号参赛作品：维纳斯裙摆

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

2009-12-30 23:54:00 1187 3

原创 03号参赛作品：螺旋圣诞树

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

2009-12-30 23:51:00 1118 1

原创 02号参赛作品：孔雀之舞

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

2009-12-30 23:46:00 1588

原创 01号参赛作品：旋转的雕像

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

2009-12-30 23:36:00 866

原创 Script3D引擎核心注释版

成像流水线ModuleS —— ... —— ModuleV —— ELM_Show ModuleVModuleS —— PXE_MTXTram3D DM() —— ModuleD —— FIT —— ModuleD —— PXE_MTXTram3D VM() —— ModuleV —— ELM_Show ModuleV一个典型的成像步骤：[矩阵准备]生

2009-12-30 23:11:00 2069 3

原创取平面坐标相对角度（0-359度）及两角的相对角偏移量的函数

Public Function AngleOffsetValue(ByRef pAngleSur As Double, ByRef pAngleDes As Double) As Double AngleOffsetValue函数格式: [tOutAngle] = AngleOffsetValue(pAngleSur, pAngleDes) 功能: 取得源点与

2009-09-27 04:33:00 1614

原创巨文本索引器——TID 1.0

Option ExplicitKiteGirl TID 1.00 - modIndexText.bas巨型文本文件索引器。（这是一个模块，需要把这些代码复制到模块里）TID使用示例：GIS2.txt文件，以&HA为分隔符，分隔符长度1。利用TID取它的任意行（这里从第3行开始，取2行）（这里举例为特殊文本，Windows下正常文本采用默认值分隔符就可以）Dim tStrings(

2008-12-19 02:19:00 2429 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, ByVal pSwap_Start As Long, ByVal pSwap_End As Lo

2008-01-11 21:04:00 1397

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

这是一个比较常见的问题。某些人的XP系统，有时会弹出一个对话框提示你类似如下信息：应用程序DLL C:/WINDOWS/system32/IMM32.DLL为无效的windows映象,请再检测一遍您的安装盘. 应用程序DLL C:/WINDOWS/system32/LPK.dll为无效的windows映象,请再检测一遍您的安装盘. 以下是关于这个问题的来龙去脉及解决办法：1、对话框

2007-09-01 10:43:00 4241 2

原创 VB6下的BitMap示例：模拟雨点程序

窗体部分Dim N As tpBitMapApplic Dim SPX() As tpPixelRGB24 Dim pubBitMapApplic As tpBitMapApplic Dim pubPixels() As tpPixelRGB24 Dim pubBytes() As Byte Dim pubBitMapInfo As tpBitMapInfo Di

2007-07-11 03:34:00 3683 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 Swap(V1,V2

2007-06-26 04:24:00 3330

原创跳蚤算法：基本原理。

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

2007-06-26 04:07:00 3612

原创 “跳蚤算法”函数模块（不重复随机数高效算法）

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

2007-06-26 03:19:00 2228

原创 ByteFile函数模块

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

2006-06-26 03:56:00 1532 4

原创 Base64编码/解码模块

Attribute VB_Name = "modBase64" 名称: Base64编码/解码模块 Name: Base64 Encode & Decode Module 作者: KiteGirl [中国] Coder: KiteGirl [China] 数据结构 Option

2006-06-26 03:43:00 3786 10

RDM第三个演示程序。

快速成像、文本转换。快速成像、文本转换。快速成像、文本转换。

2009-09-10

RDM第二个演示程序（GUI快速成像）

RDM第二个演示程序（GUI快速成像） RDM第二个演示程序（GUI快速成像）

2009-09-10

二进制RDM程序演示

RDM程序演示RDM程序演示RDM程序演示

2009-09-09

KiteGirl FlashBit 1.0 Simple B.S.L Class

KiteGirl FlashBit 1.0 Simple B.S.L Class模块 用于VB下对Bit操作的一组实用函数。

2008-08-02

KG PAM测试2

KG PAM 测试2

2007-10-31

KG PAM 演示1 For 优快云

2007-10-30

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

玄菟郡