在FreeBASIC中调用另一个bas文件中的函数

Question

如何调用在另一个bas文件中声明的函数？例如，我有两个bas文件。

sum.bas

Declare Function sum( As Integer, As Integer ) As Integer

Function sum( a As Integer, b As Integer ) As Integer
Return a + b
End Function

main.bas

Dim a As Integer
a = sum(1, 2)
Print a
Sleep

我将main.bas设置为主模块，但无法调用sum函数...

Answer 1

解决方案是使用main.bas编写的Declare语句

sum.bas

Function sum( a As Integer, b As Integer ) As Integer
Return a + b
End Function

main.bas

Declare Function sum( As Integer, As Integer ) As Integer
Dim a As Integer
a = sum(1, 2)
Print a
Sleep

Answer 2

在FreeBASIC中，像其他语言一样，可以将代码分成多个文件，其中主文件必须包含包含使用#include "filename.bas“的其他代码片段的子文件。

sum.bas

Declare Function sum( As Integer, As Integer ) As Integer

Function sum( a As Integer, b As Integer ) As Integer
Return a + b
End Function

main.bas

#include "sum.bas"
'with "INCLUDE" it is as if the code contained in another file was written 
'at that point.

Dim a As Integer
a = sum(1, 2)
Print a
Sleep