< návrat zpět

MS Excel


Téma: DLL knihovna ve freebasicu rss

Zaslal/a 3.9.2014 10:43

Pokud není funkční hodnotou string, vše funguje bezvadně. Při pokusu použít string excel zkolabuje.

Kód Freebasic

Function Pokus alias "Pokus" (Byval cislo as integer) As string Export
select case cislo
case 1
Pokus="jedna"
case 2
pokus="dvě"
end select
end function


Kód Vba
Declare Function Pokus Lib "C:\Moje_prg\DLL\pok.dll" Alias "Pokus@4" (ByVal cislo As Integer) As String

Zaslat odpověď >

#021440
avatar
kedze som toto este neskusal ale pravdu povediac uz aj toto chci skusit :)) takze len hadam:

skuste tu funkciu definovat ako Publiccitovat
#021441
avatar
Zkusím to, ale nemyslím, že to bude mít dobrý výsledek.
Pokud je výsledkem číselná hodnota, vše funguje perfektně.citovat
#021442
avatar
pockat vy davate do vstupu stringovu hodnotu ale tam mate zadefinovane integer??? to je samozrejme ze to padne

musel by tam byt varriantcitovat
#021443
avatar
Ne jako parametr je hodnota integer, výsledkem funkce je string.citovat
#021444
avatar
prilozte prilohu takto mozem len hadatcitovat
#021445
avatar
Posílám přeloženou knihovnu, jinak jsem to zkoušel v immediate.
Příloha: zip21445_pok.zip (7kB, staženo 26x)
citovat
#021446
avatar
Následující kód funguje bezvadně


Kód freebasic

Function Cube alias "Cube" (Byval Strana as double) As double Export
cube=Strana^3
end function

Kód VBA

Declare Function Cube Lib "C:\Moje_prg\DLL\pok.dll" Alias "Cube@8" (ByVal Strana As Double) As Double

citovat
#021447
avatar
no chyba bude v tom dll

ako presne ste dali alias?? resp. naco ho tam davate?

Function Pokus alias "Pokus" .... toto nemoze fungovat

... ale kedze tu nemam visual studio tak si to ani overit nemozem :)) .... ahhh asi vam neporadim ale rad by som to skusil nejak vytvorit to dll ... len tu v robote nejde nic nainstalovatcitovat
#021448
avatar
Cube alias "Cube" funguje nevím proč je tomu tak to jsem někde opsal, zkoušel jsem různé funkce s různými typy parametrů , s více parametry vše funguje, akorát funkční hodnota musí být double.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje