Re: [VB6 ] 函式自己呼叫自己
※ 引述《A1pha ([αλφα])》之銘言：
: 會出現「堆疊空間不足」的錯誤訊息...
: 其實我不是要寫遞迴函式，
: 只是想呼叫自己一次，
: 不過不知道該怎麼寫QQ
: 希望能請教一下。
: 該函式簡略版：
: Function Ex(Optional hand As String) As Single
Static RunCount As Integer
If RunCount = 1 Then Exit Function
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 = 0
: End Function
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.68.49
※ 編輯: fumizuki 來自: 123.194.68.49 (02/27 07:26)
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
33
68