Re: [VB6 ] 函式自己呼叫自己
修改幾行程式...
不過我不懂你這函數的用意，不知道計算結果正不正確@@
每次進入函數 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
→
02/28 01:24, , 1F
02/28 01:24, 1F
→
02/28 01:25, , 2F
02/28 01:25, 2F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
33
68