c - 将整数与从 VBA 调用的 dll 中的硬编码值进行比较的问题

Question

我要将我用 Applescript 和 Objective C 编写的项目传输到 Excel/VBA/dll。我已经开始使用我想放在 dll 中并通过 VBA 调用的 Objective C 函数。

首先，我是一名统计学家，通过同等的运气、试错和毅力，成功构建了原始的 Mac 程序(一种对我来说非常方便的统计工具)。请考虑到这一点(如果答案非常明显的话)。我使用这个(减去 64 位部分)作为 dll 的起点:https://sites.google.com/site/jrlhost/links/excelcdll

Objective C 是 C 加上一层薄薄的特殊 Obejctive C 代码，让它与 Applescript 和项目的其余部分对话，所以理论上应该很容易从它制作用 C 编写的 dll。

但我已经遇到了所有功能中最微小的问题。我确信它可以更有效地完成，但现在我需要知道如果我能够将更大的功能从 Objective C 转移到 C，为什么它不起作用。

这是我正在尝试的 C 代码:

int _stdcall game(int *games, int *gameskifte)
{
    if (*games == 0){
        if (*gameskifte == 1) return *games + 1;
        else return *games + 2;}
    else{
        if (*games < 3){
            if (*gameskifte == 2) return *games + 2;
            else return *games + 4;}
        else{
            if (*gameskifte == 2) return *games + 3;
            else return games + 5;
            }
        }
    return 0;
}

这是代码应该做的:

• 如果 games = 0 且 gameskifte = 1，则返回 1
• 如果 games = 0(默认情况下 gameskifte 不是 1)，返回 2
• 如果 games < 3 且 gameskifte = 1，返回 games + 2
• 如果 games < 3(默认 gameshift 不是 1)，返回 games + 4
• 如果 games > 2 且 gameskifte = 1，返回 games + 3
• 如果 games > 2(默认 gameshift 不是 1)，返回 games + 5

它所做的是忽略 gameshift 的值并且总是返回 games + 4

我试图改变一些事情......

此代码(所有比较都是“<”但结果应该相同)

int _stdcall game(int *games, int *gameskifte)
{
    if (*games < 1){
        if (*gameskifte < 2) return *games + 1;
        else return *games + 2;}
    else{
        if (*games < 3){
            if (*gameskifte < 2) return *games + 2;
            else return *games + 4;}
        else{
            if (*gameskifte < 2) return *games + 3;
            else return games + 5;
            }
        }
    return 0;
}

总是给我游戏+1

还有这个(所有比较都是“>”并且结果不应该与上面相同):

int _stdcall game(int *games, int *gameskifte)
{
    if (*games > 1){
        if (*gameskifte > 2) return *games + 1;
        else return *games + 2;}
    else{
        if (*games > 3){
            if (*gameskifte > 2) return *games + 2;
            else return *games + 4;}
        else{
            if (*gameskifte > 2) return *games + 3;
            else return games + 5;
            }
        }
    return 0;
}

总是给我游戏 + 5

因此，在进行返回计算时，它知道 *games 的值，但是当将 *games 与另一个硬编码值进行比较时，它会在进行直接或“>”比较时抛出错误，而在进行任何“<”比较时抛出正数如果值更低或更高。

项目的其余部分是

一个 def 文件:defFile.def:

LIBRARY ”minfil”
EXPORTS
game=game

VBA:

Private Declare Function game Lib  "c:\users\musholm\documents\visual studio  2013\Projects\mitprojekt\Debug\mitprojekt.dll" (ByRef games As Integer,  ByRef gameskifte As Integer) As Integer
Function game1(games As Integer, gamesskifte As Integer) As Integer

game1 = game(games, gamesskifte)
End Function

Excel函数为=game1(x,y)

最后是我试图在 C 中重新创建的原始 objective-c :

- (NSNumber *)game:(NSNumber *)games gamechange:(NSNumber *)gameskifte
{
    int gamesab = [games intValue];
    int gameskifteab = [gameskifte intValue];
    int gamesud = 0;
    if (gamesab == 0){
        if (gameskifteab == 1) gamesud=1;
        else gamesud=2;}
    else{
        if (gamesab<3){
            if (gameskifteab==1)gamesud=gamesab+2;
            else gamesud=gamesab+4;}
        else{
            if (gameskifteab==1)gamesud=gamesab+3;
            else gamesud=gamesab+5;

        }
    }
    return [NSNumber numberWithInt:gamesud];
 }

Answer 1

VBA的Integer对应C的short。
您需要 VBA 中的函数参数和返回值 As Long。

此外，您在 else return games + 5; 中还缺少一个 *。尽管您一开始就不需要 *，但您应该将它们全部删除并使用 ByVal 在 VBA 中重新声明函数参数。