Question

因为怀旧的原因回到了古老的qbasic，并且在我很小的时候从未在qbasic中使用类型和函数。

TYPE Vector2
    x AS SINGLE
    y AS SINGLE
END TYPE

FUNCTION Vector2Mag (a AS Vector2)
    Vector2Mag = SQR((a.x * a.x) + (a.y * a.y))
END FUNCTION

FUNCTION Vector2Add (a AS Vector2, b AS Vector2)
    DIM r AS Vector2
    r.x = a.x + b.x
    r.y = a.y + b.y
    Vector2Add = r
END FUNCTION

但是我得到了

Illegal SUB/FUNCTION parameter on current line

在两个第一个功能行中使用qb64。谷歌没有帮助，因为看起来我做的一切都是正确的。我检查了传递多个变量，指定参数的类型，如何使用类型但没有任何帮助。

谢谢你们。

Answer 1

在QB中定义或使用函数内部的用户定义变量是非法的。如果函数是由DEF FNname声明的那么无关紧要... END DEF或FUNCTION ... END FUNCTION

您可以做的是发送一个指向用户定义变量地址的指针，然后函数/ sub使用该地址直接从内存中读取它。用户定义变量的元素完全按照定义的顺序存储。在这个例子中，一个（两个字节的整数）将首先以大端格式存储，然后是b，总共四个字节。

TYPE xtyp
DIM a AS INTEGER
DIM b AS INTEGER
END TYPE
DIM var AS xtyp
var.a = 5
var.b = 7
DEF SEG = VARSEG(var)
PRINT "The value of var.a and var.b multiplied is"; mpl(VARPTR(var))
END
'-------------------------- End of main program, function begins here    -------
FUNCTION mpl(addr)
factor1 = PEEK(addr) + PEEK(addr + 1) * 256
factor2 = PEEK(addr + 2) + PEEK(addr + 3) * 256
mpl = factor1 * factor2
END FUNCTION

DEF SEG用于设置当前段，VARSEG()返回数字或用户定义变量的段。 PEEK()用于从某个内存位置读取一个字节，VARPTR()返回其段中数字或用户定义变量的地址。请注意，上面的代码假设两个因素都是无符号的。如果它们是有符号的，则将单个字节转换为整数必须略有不同。

Answer 2

已经有一段时间了，但我认为问题实际上是你无法返回UDT（用户定义的类型，a.k.a。“任何未内置的类型”）。您需要做的是将第三个参数传递给Vector2Add并将其设为SUB。例如：

SUB Vector2Add (r AS Vector2, a AS Vector2, b AS Vector2)
    r.x = a.x + b.x
    r.y = a.y + b.y
END SUB

SUB几乎是具有等效C代码的精确翻译，除了语法差异。我的理由是您通常在QB中为FUNCTION的名称添加类型后缀，或者它将使用其默认类型，该类型可能已被DEFxxx M-N（或QB64中的_DEFINE覆盖;不，你不能将_DEFINE与UDT一起使用）。例如，返回一个字符串：

'Default type for all identifiers beginning with 'S' is STRING.
' Type suffixes, "AS xxxx" clauses and future "DEFxxx" items override the behavior.
DEFSTR S-S

FUNCTION swapFirstLast$ (s)
    swapFirstLast$ = RIGHT$(s, 1) + MID$(s, 2, LEN(s) - 2) + LEFT$(s, 1)
END FUNCTION

QB64在这方面有限，因为它旨在尽可能与QuickBASIC 4.5使用的语法兼容。 FreeBASIC，另一种基于QB的语言，has no such restriction：

'Notice the "AS Vector2" at the end of this next line and the RETURN statement
' that FB introduced for FUNCTIONs (originally it was used to return from an
' "old-style" subroutine that was invoked via the GOSUB statement).
FUNCTION Vector2Add (a AS Vector2, b AS Vector2) AS Vector2
    DIM r AS Vector2
    r.x = a.x + b.x
    r.y = a.y + b.y
    RETURN r
END FUNCTION

要记住的重点是QB64基本上仍然是QB，除了它将编译代码以在现代操作系统（而不是DOS）上运行。另一方面，FreeBASIC选择牺牲一些兼容性来支持创建一种保留QB语法的更“现代”的语言。

Answer 3

让函数写入共享变量并让它返回-1表示成功

TYPE testType
    x AS INTEGER
    y AS INTEGER
END TYPE
DIM SHARED ret AS testType
DIM a AS testType,b as testType
a.x=5
b.x=7
IF add(a,b) THEN a=ret
FUNCTION add(a AS testType, b AS testType)
ret.x=a.x+b.x
ret.y=a.y+b.y
add=-1
END FUNCTION

这使得处理非致命错误比使其成为SUB

更容易

Answer 4

不要尝试将UDT返回到函数名，而是使用全局UDT：

TYPE Vector2
    x AS SINGLE
    y AS SINGLE
END TYPE

DIM SHARED r AS Vector2

FUNCTION Vector2Mag (a AS Vector2)
Vector2Mag = SQR((a.x * a.x) + (a.y * a.y))
END FUNCTION

FUNCTION Vector2Add (a AS Vector2, b AS Vector2)
r.x = a.x + b.x
r.y = a.y + b.y
'Vector2Add = r
END FUNCTION

QBasic传递类型作为函数参数

4 个答案: