Показать сообщение отдельно
Старый 07.11.2013, 17:54   #3
Devilox
ПроЭктировщик
 
Аватар для Devilox
 
Регистрация: 14.01.2012
Адрес: Зеленоград
Сообщений: 192
Написано 5 полезных сообщений
(для 9 пользователей)
Ответ: Импорт библиотеки из PureBasic-а

Я не пойму, какие параметры загоняются в банк? Как вообще объявлять функцию?
Function Sum(a#,b#)
	bankIN = CreateBank(12)
	bankOUT = CreateBank(12)

	PokeFloat(bankIN,0,a#)
	PokeFloat(bankIN,3,b#)

	CallDLL("awd.dll","Sum",bankIN,bankOUT)

	result# = PeekFloat(bankOUT,0)

	FreeBank bankIN
	FreeBank bankOUT

	Return result
End Function

num# = Sum(5,7)

Print num

WaitKey()
__________________
(Offline)
 
Ответить с цитированием