作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 函式自己呼叫自己
时间Tue Feb 27 12:41:39 2007
修改几行程式...
不过我不懂你这函数的用意，不知道计算结果正不正确@@
每次进入函数 RunCount 加 1，离开则减 1，
当进入函数次数超过 1 次时，就离开函数，并传回结果为 1。
※ 引述《A1pha ([αλφα])》之铭言：
: Function Ex(Optional hand As String) As Single
Static RunCount As Integer
If RunCount > 1 Then Ex = 1: Exit Function
RunCount = RunCount + 1
: Dim per_sec, Spec As Single
: Dim CountMain, CountOff, IsUse, OffFix As Integer
: Select Case hand
: Case "m"
: CountMain = 1
: CountOff = 0
: IsUse = 1
: OffFix = 0
: Case "o"
: CountMain = 0
: CountOff = 1
: IsUse = chk.Value
: OffFix = 0
: Case Else
: CountMain = 1
: CountOff = 1
: IsUse = 1
: If chkOffhand.Value = 1 Then OffFix = 0 Else OffFix = 1
: End Select
: per_sec = CountMain * 某常数 + CountOff * 某常数
: Ex = per_sec * (某函式) * (某常数) + CountMain * (某常数) * (某函式)
: Spec = 某函式 * 某函式
: Ex = Ex + Ex * IsUse * Spec - OffFix * Ex("o") * Spec
: Ex = Round(to_hit_times, 2)
RunCount = RunCount - 1
: End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.175.60
1F：→ A1pha:赶谢板大～XD 我後来有用笔验算 是正确的XD 02/28 01:24
2F：→ A1pha:感 02/28 01:25