C++ in QB?

[Kernelpanic]

I think I read somewhere that it is possible to use C++ code within a QB program. But unfortunately I can't find any information about it.
Is it possible, and if so, how?

For example, it goes like this:

The Basic file (Both files in the same ordner):

Code: (Select All)

Option _Explicit



'In QB64 mit "Declare Library" wie angegeben

Declare Library "D:\Lab\QuickBasic64\Extern-nicht-Basic\Basic-ruft-C\bfibonacci"

  Function fibo& (ByVal N As Integer)

End Declare



Dim As Integer N, rueckgabe

Dim As Single zeitstart, zeitende



Timer On



Cls

Locate 3, 3

Input "Berechnet die Fibonacci-Zahl von: ", N



zeitstart = Timer



Locate 5, 3

rueckgabe = fibo&(N%)

If rueckgabe = -1 Then

  Print "Eingabe zu gross!"

  Sleep: System

Else

  Print Using "Die Fibonacci-Zahl von ## = ###,########"; N; fibo&(N%)

End If



zeitende = Timer



Locate 7, 3

Print Using "Sekunden: ##.#### "; zeitende - zeitstart



End

The C-file ( bfibonacci.h):

Code: (Select All)

#include <stdio.h>

#include <stdlib.h>



long fibo(int n)

{

long x, y;

int i;



//Um bei 3 eine Anzeige von: 1 2 3 zu erreichen

x = y = i = 1;

if (n == 0 || n == 1)

{

return(n);

} 

if (n > 40)

{

return(-1);

//sonst Überlauf

}

else while (i < n)

{

x = x + y; y = x - y; i++;

}

return(x);

}