FreeBasic
Главная
Вход
Регистрация
Воскресенье, 24.09.2017, 18:40Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Freebasic » Вопросы по языку FreeBasic » Использование Re: FireFly Visual Designer for FreeBASIC. (Приемы работы и исходные коды.)
Использование Re: FireFly Visual Designer for FreeBASIC.
FrostДата: Пятница, 20.11.2015, 09:17 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 10
Репутация: 0
Статус: Offline
Добрый день форумчане. Кто-нибуть пользуется 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
 
Форум » Freebasic » Вопросы по языку FreeBasic » Использование Re: FireFly Visual Designer for FreeBASIC. (Приемы работы и исходные коды.)
Страница 1 из 11
Поиск: