Добрый день форумчане. Кто-нибуть пользуется FireFly Visual Designer for FreeBASIC? Научите. Поделитесь исходными кодами программ, написанных в данном редакторе. Буду рад любой информации.Добавлено (20.11.2015, 09:17)
---------------------------------------------
Вот небольшой пример работы с программой. Решение квадратных уравнений. Может быть кому-нибуть будет полезным.
Код
'--------------------------------------------------------------------------------
Function FORM1_COMMAND1_BN_CLICKED ( _
ControlIndex as Integer, _ ' index in Control Array
hWndForm as HWnd, _ ' handle of Form
hWndControl as HWnd, _ ' handle of Control
idButtonControl as Integer _ ' identifier of button
) as Integer
Dim as Single a
Dim as Single b
Dim as Single c
Dim as Single D
Dim as Single X1
Dim as Single X2
a = Val(FF_Control_GetText (HWND_FORM1_TEXT1))
b = Val(FF_Control_GetText (HWND_FORM1_TEXT2))
c = Val(FF_Control_GetText (HWND_FORM1_TEXT3))
D = b*b-4*a*c
X1=(-b+Sqr(D)) / (2*a)
X2=(-b-Sqr(D)) / (2*a)
FF_Control_SetText (HWND_FORM1_LABEL1), Str(D) & Chr(13) & Chr(10) & Str(X1) & Chr(13) & Chr(10) & Str(X2)
Function = 0 ' change according to your needs
End Function
