MS Excel

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ěď >

Palooo(3.9.2014 11:00)#021440

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

skuste tu funkciu definovat ako Publiccitovat

Richard99(3.9.2014 11:11)#021441

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

Palooo(3.9.2014 11:13)#021442

pockat vy davate do vstupu stringovu hodnotu ale tam mate zadefinovane integer??? to je samozrejme ze to padne

musel by tam byt varriantcitovat

Richard99(3.9.2014 11:17)#021443

Ne jako parametr je hodnota integer, výsledkem funkce je string.citovat

Palooo(3.9.2014 11:23)#021444

prilozte prilohu takto mozem len hadatcitovat

Richard99(3.9.2014 11:30)#021445

Posílám přeloženou knihovnu, jinak jsem to zkoušel v immediate.

Příloha: zip

21445_pok.zip (7kB, staženo 26x)

citovat

Richard99(3.9.2014 11:45)#021446

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

Palooo(3.9.2014 11:47)#021447

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

Richard99(3.9.2014 12:16)#021448

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

Téma: DLL knihovna ve freebasicu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje