自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

玄菟郡

KiteGirl的老窝

  • 博客(20)
  • 资源 (6)
  • 收藏
  • 关注

原创 VBScript纯数学星期算法。

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

2011-09-08 02:26:55 885

原创 代码返回自己

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

2010-06-07 06:50:00 1648 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 1591 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_RzDim uD_Mtx_Mx, uD_Mtx_

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

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

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

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

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

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

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

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

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

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

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

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

2009-12-30 23:46:00 1539

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

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

2009-12-30 23:36:00 814

原创 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 2021 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 1528

原创 巨文本索引器——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 2253 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 1342

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

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

2007-09-01 10:43:00 4105 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 3534 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 3247

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

跳蚤算法:基本原理。一、算法的诞生及设计初衷。传统教材中取得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 3538

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

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 2179

原创 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 1492 4

原创 Base64编码/解码模块

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

2006-06-26 03:43:00 3702 11

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模块<br>用于VB下对Bit操作的一组实用函数。

2008-08-02

KG PAM测试2

KG PAM 测试2

2007-10-31

KG PAM 演示1 For CSDN

KG PAM 演示1 For CSDN

2007-10-30

空空如也

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

TA关注的人

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