3D益智游戏摇方块vb源代码 - vb源码程序

下载频道> 资源分类> 编程语言> VB源码> 3D益智游戏摇方块vb源代码

标题：3D益智游戏摇方块vb源代码
分享到：

所属分类: VB源码资源类型：程序源码文件大小: 1.49 MB 上传时间: 2016-01-20 22:03:22 下载次数: 7 资源积分：1分提供者: vb源码代做 3D益智游戏摇方块vb源代码

内容：
3D益智游戏摇方块vb源代码，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！

部分代码如下：

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

Persistable = 0 'NotPersistable

DataBindingBehavior = 0 'vbNone

DataSourceBehavior = 0 'vbNone

MTSTransactionMode = 0 'NotAnMTSObject

END

Attribute VB_Name = "clsSimpleRnd"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

Option Explicit

'Download by http://www.codefans.net

'a stupid logistic random

Private x(1 To 10) As Double

Public Sub Randomize(ByVal s As String)

Dim i As Long, j As Long, k As Long

For i = 1 To 10

x(i) = Abs(Sin(i))

Next i

i = 0

s = UCase(s)

For j = 1 To Len(s)

k = Asc(Mid(s, j, 1)) - 65

If k >= 0 And k < 26 Then

i = i + 1

If i > 10 Then Exit For

x(i) = x(i) + 0.03846 * k + 0.01234

If x(i) > 1 Then x(i) = x(i) - 1

End If

Next j

End Sub

Public Function ValidateRndSeed(ByVal s As String) As String

Dim s2 As String

Dim i As Long, j As Long, k As Long

s = UCase(s)

For j = 1 To Len(s)

k = Asc(Mid(s, j, 1)) - 65

If k >= 0 And k < 26 Then

i = i + 1

If i > 10 Then Exit For

s2 = s2 + Chr(65 + k)

End If

Next j

ValidateRndSeed = s2

End Function

Public Function RndSeed() As String

Dim i As Long, s As String

For i = 1 To 10

s = s + Chr(65 + Int(26 * VBA.Rnd))

Next i

RndSeed = s

End Function

Public Function Rnd() As Single

Dim i As Long, f As Single

Dim f2 As Single

f2 = 0.5

For i = 1 To 10

x(i) = 4 * x(i) * (1 - x(i))

If x(i) > 0.5 Then f = f + f2

f2 = f2 * 0.5

Next i

Rnd = f

End Function

文件列表（点击上边下载按钮，如果是垃圾文件请在下面评价差评或者投诉）:

3D益智游戏摇方块vb源代码/
3D益智游戏摇方块vb源代码/code/
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/CLogFont.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/Default.box
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/Form1.frm
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/Form1.frx
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/IBloxorzCallBack.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/ISort.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/MainMovie_frame15.as
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/MainMovie_frame50.as
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/Time.xls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/TurningSquare.exe
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/TurningSquare.res
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/TurningSquare.vbp
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/TurningSquare.vbw
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/asm.dat
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/back.jpg
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/block.dat
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/block.jpg
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/block2.bmp
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/block2.jpg
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/block2_mask.gif
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/block_mask.gif
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/cAlphaDibSection.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/cCommonDialog.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/cDIBSection.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/cScrollBar_UsesWinSubHook.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/cSubclass.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/clsBloxorz.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/clsBloxorz_Old.bak.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/clsLZSS_ASM.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/clsSimpleRnd.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/clsTheFile.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/edit.bmp
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/edit.gif
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/iSubclass.cls
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/mGradientFill.bas
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/random.box
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/shadow.dat
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/shadow.jpg
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/shadow_mask.gif
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/test1.box
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/test2.box
3D益智游戏摇方块vb源代码/code/3D益智游戏摇方块vb源代码/testDefault.box
3D益智游戏摇方块vb源代码/谷速说明.txt