• ## 数值模拟

千次阅读 2014-09-19 16:38:33
Private Sub readButton_Click() FileNumber = FreeFile Open "D:\test.txt" For Input As #FileNumber Do While Not EOF(FileNumber) Line Input #FileNumber, TextLine temp = temp + TextLine + vbC
Public getTili As Boolean
Public cishu As Integer
Public dengji As Integer
Public tili As Integer
Public jingyan As Integer
Public zijin As Long
Public tianshu As Integer
Private Sub Check1_Click()
If Check1.Value = 1 Then
'MsgBox "被选择"
getTili = True
Else
'MsgBox "未被选择"
getTili = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
'MsgBox "被选择"
Else
'MsgBox "未被选择"
End If
End Sub
FileNumber = FreeFile
Open "player.txt" For Input As #FileNumber
Do While Not EOF(FileNumber)
Line Input #FileNumber, TextLine
temp = temp + TextLine + vbCrLf
showTxt.Text = temp
Loop
Close #FileNumber
Set re = New RegExp
re.Pattern = "等级：(\d+).*\n当前经验：(\d+).*\n当前体力：(\d+).*\n资金：(\d+).*\n可购买体力次数：(\d+)"
If (re.Test(temp) = True) Then
Set re1 = re.Execute(temp)(0)
cishu = re1.SubMatches(4)
dengji = re1.SubMatches(0)
tili = re1.SubMatches(2)
jingyan = re1.SubMatches(1)
zijin = re1.SubMatches(3)
showMsg
Else
MsgBox "文件错误"
End If
End Sub
Public Sub shuaFB()
Debug.Print "刷副本"
tili = tili - 6
zj = 610 + 10 * Int(dengji / 5)
zijin = zijin + zj
Debug.Print "获得资金：" & zj
jingyan = jingyan + 6
End Sub
Public Sub suanLevel()
Dim a, b As Integer
Set re = New RegExp
re.Pattern = "(\d+)\t(\d+)"
FileNumber = FreeFile
Open "level.txt" For Input As #FileNumber
Do While Not EOF(FileNumber)
Line Input #FileNumber, TextLine
If re.Test(TextLine) = True Then
Set re1 = re.Execute(TextLine)(0)
a = re1.SubMatches(0)
b = re1.SubMatches(1)
If a = dengji And b > jingyan Then
Close #FileNumber
Exit Sub
End If
If a = dengji And b <= jingyan Then
Debug.Print "Level UP"
dengji = dengji + 1
jingyan = jingyan - b
max_tili = dengji + 59
tili = tili + 20
End If
End If
Loop
'Close #FileNumber
End Sub
Public Sub showMsg()
levelTxt(0).Text = dengji
jingyanTxt(2).Text = jingyan
tiliTxt(1).Text = tili
moneyTxt(3).Text = zijin
End Sub
Private Sub runButton_Click()

If (Text1.Text = "") Then
MsgBox "请输入天数"
Else
tianshu = Text1.Text
End If
FileNumber = FreeFile
Open "Log.txt" For Output As #FileNumber
For i = 1 To tianshu
Print #FileNumber, "====  第" + Str(i) + "天  ===="
temp = temp + "第" + Str(i) + "天:" + vbCrLf
tili = dengji + 59
getTili = True
n = 0
While tili >= 6
Print #FileNumber, "角色等级:" + Str(dengji) + "  角色体力:" + Str(tili) + "  当前资金:" + Str(zijin)
shuaFB
n = n + 1
suanLevel
If tili < 6 And Check1.Value = 1 And getTili = True Then
tili = tili + 120
getTili = False
Print #FileNumber, "领取免费体力120点"
End If
If tili < 6 And Check2.Value = 1 And buyTili = True Then
tl = 120 * cishu
tili = tili + tl
Print #FileNumber, "购买体力" + Str(tl) + "点"
End If
Wend
Print #FileNumber, "通关主线次数：" + Str(n)
temp = temp + "当前等级:" + Str(dengji) + " 当前资金:" + Str(zijin) + vbCrLf
temp = temp + "通关主线次数:" + Str(n) + vbCrLf
Next i
showTxt.Text = temp
Print #FileNumber, "角色等级:" + Str(dengji) + " 当前资金:" + Str(zijin)
Close #FileNumber
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Exit Sub
End If
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
MsgBox "只能输入数字"
End If
End Sub


展开全文
• 水环境数值模拟应用案例分
• 可用于数值模拟 模拟各种应力受力分析可用于数值模拟 模拟各种应力受力分析
• 一款可以进行数值模拟分析的强大软件
• 矿山数值模拟，有关煤矿井下巷道的数值模拟，方便大家下载
• 数值模拟方法科学研究与解决工程问题的基础在于物理实验与实物观测，例如对金属材料的凝固过程进行物理实验、对天体运行进行观测。现代科学研究方法的核心是通过实验或观测建立研究对象的数学模型，基于数学模型进行...
数值模拟方法科学研究与解决工程问题的基础在于物理实验与实物观测，例如对金属材料的凝固过程进行物理实验、对天体运行进行观测。现代科学研究方法的核心是通过实验或观测建立研究对象的数学模型，基于数学模型进行研究与分析。这种研究方法可以追溯到伽利略的工作，成熟于牛顿的三大定律与微积分。采用实物模型进行物理实验的研究周期长、投入大，有时甚至无法在实物上进行，如天体物理的研究。在数学模型上进行的数值模拟研究具有研究周期短、安全、投入少，已经成为不可或缺的工具。数值模拟方法的应用对象分为三个层次1)宏观层次：常见的工程建筑、制造设备、零件等;2)界观层次：材料的微观组织与性能，如金属材料的晶粒度影响其屈服强度;3)微观层次：基本物理现象与机理，如金属材料凝固时的结晶与晶粒生长过程。宏观与界观层次的数值模拟方法包括：1)有限差分方法(Finite Difference Method, FDM)：微分方程的直接离散方法;2)有限元单法(FiniteElementMethod,FEM)：用有限尺度的单元的集合来代替连续体，分为Lagrange方法，Euler方法，ALE方法;3)边界单元方法(Boundary Element Method, BEM)：一种半解析方法;4)有限体积方法(Finite Volume Method, FVM)：把空间划分成有限尺度的体积单元，连续体通过这些在空间上固定的体积单元，单元的空间位置不变;5)无网格方法(Meshless Method)：只布置结点，不需要划分单元网格，有权函数。微观层次的数值模拟方法包括：1)第一原理法(FirstPrincipleSimulation)：量子力学方法，直接计算原子的电子结构;2)元胞自动机方法(Cellular Automata)：把空间用元胞演化、元胞的局部相互作用来描述复杂的、全局的系统。3)蒙特卡洛方法(Monte Carlo Method )：把颗粒运动定义为随机过程，用势能的变化来判断颗粒运动能否被接受。4)分子动力学方法(Molecular Dynamics)，分为经典方法、嵌入原子模型(Embedded Atom
展开全文
• 水环境数值模拟应用与前沿问题研讨
• 流体力学数值模拟，本书介绍了采用差分方法求解流体力学方程、数值模拟各种绕流流场的工作及不同类型的分离流流场的计算结果。 已打好书签
• 预应力协同支护数值模拟，李元，李波，针对某矿深部巷道支护现状，提出预应力协同支护思想。文章采用数值模拟方法，对锚杆、锚索的协同支护进行研究；数值模拟设置锚杆
• 数值计算原理，分析海洋数值计算原理和方法，介绍海洋数值模拟流行模式
• 超声波声场数值模拟
• 参激屈曲梁非线性现象的数值模拟rar-参激屈曲梁非线性现象的数值模拟.rar 参激屈曲梁非线性现象的数值模拟.rar
• ——————————直接数值模拟DNS教材与书籍——————
• 镍氢电池的数值模拟、电子技术,开发板制作交流
• 油藏数值模拟，关于石油工程的资料，入门级别的资料，
• 利用波动方程对地震波传播进行数值模拟，利用MATLAB实现。同时还可研究不同速度及地层密度时地震波的传播。
• 气浮池数值模拟初探，黄博，，本文利用CFD技术对气浮池的分离段流场进行了二维数值模拟，对不同池型的运行工况进行了比较分析，得出了合理的结果。说明CFD技术应
• 湍流数值模拟的经典文档,大涡模型和离散涡模型
• 行波管中噪声的数值模拟
• 地震勘探 数值模拟 正演 matlab 程序 波动方程正演 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE ...
• 基于ABAQUS的数值模拟，基于ABAQUS的数值模拟课件，基于ABAQUS的数值模拟PPT
• 油藏数值模拟技术
• 热加工过程的数值模拟 ABAQUS等软件应用 实例分析 铸造过程的数值模拟
• 数值模拟模拟分支分支角度的逐渐变化对动脉血流的影响
• 校园二氧化碳分布数值模拟，许小龙，曾忠，本文以沈阳建筑大学校园内二氧化碳分布为研究对象，运用计算流体力学数值模拟方法对校园内二氧化碳分布进行风模拟计算，采用组分
• 用来做数值模拟的软件，flac3d，用起来很好用，主要做采矿方面的模拟
• 矩形管挤压过程数值模拟，唐妍，高锦张，本文以Al6063矩形管为例，分别利用有限元法和有限体积法对矩形管平面分流模挤压过程进行数值模拟分析，比较了2种模拟方法针对矩形�
• 本章先分析说明伪谱法求解波动方程的算法原理，再给出弹性波场伪谱法数值模拟的改进算法；然后，通过直接引入P波波场变量和S波波场变量，给出可实现弹性波场的P波和S波分解的波动方程，并用伪谱法实现弹性波场的P波...
• 沥青混合料裂纹发展过程的颗粒数值模拟，为了在细观尺度下描述沥青混合料的裂纹发展行为，运用离散元程序PFC2D内置“Fish”语言，重构了沥青混合料非均质(集料、胶浆和空隙)多层次(矿料级配)结构虚拟试件
• 电厂粉煤灰场渗流数值模拟，纪佑军，刘建军，通过对灰坝的稳态及非稳态渗流数值模拟计算分析了在两种情况下渗透压力,水头变化规律及其对灰坝边坡稳定性的影响。数值模拟采用�

...