Общие вопросы и приёмы эффективного программирования на BASIC

Dim hwndButton As HWND = CreateWindow( _
    WC_BUTTON,
    "Текст кнопки", _
    WS_CHILD Or BS_BITMAP Or BS_PUSHBUTTON Or WS_CLIPSIBLINGS, _
    10, 10, 100, 50, _
    hwndMainForm, _
    Cast(HMENU, 1000), _
    hInst, _
    NULL _
)

 title$ = "Решение квадратного уравнения"
  opis$ = "Квадратное уравнение — это уравнение вида ax^2 + bx + c = 0"
     a$ = "Коэффициент a"
     b$ = "Коэффициент b"
     c$ = "Коэффициент c"
    x1$ = "Корень X1"
    x2$ = "Корень X2"
  rass$ = "Рассчитать"
  exit$ =  "Отмена"
   err$ = "Неверные исходные данные"
noroot$ = "Нет действительных корней"
OpenWindow(0, 0, 0, 566,458,title$, #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
If LoadFont(1, "Arial", 11,#PB_Font_HighQuality):SetGadgetFont(#PB_Default, FontID(1)): EndIf
TextGadget(0,23,60, 540,20, opis$)
TextGadget(1,23,110, 295,33, a$)
StringGadget(2,343,110, 200,33, "4",#ES_RIGHT)
TextGadget(3,23,160, 295,33, b$)
StringGadget(4,343,160, 200,33, "-7",#ES_RIGHT)
TextGadget(5,23,210, 295,33, c$)
StringGadget(6,343,210, 200,33, "-2",#ES_RIGHT)
TextGadget(7,23,260, 295,33, x1$)
StringGadget(8,343,260, 200,33, "", #PB_String_ReadOnly|#ES_RIGHT)
TextGadget(9,23,310, 295,33, x2$)
StringGadget(10,343,310, 200,33, "", #PB_String_ReadOnly|#ES_RIGHT)
ButtonGadget(11,133,400, 135,38, rass$)
ButtonGadget(12,298,400, 135,38,exit$)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
  EventGadget = EventGadget()
  EventType = EventType()
  If EventGadget = 11
  a.d = Val(GetGadgetText(2)) ; дроби преобразуем в целые числа
  b.d = Val(GetGadgetText(4)) 
  c.d = Val(GetGadgetText(6)) 
  If a = 0 And b = 0 
    MessageRequester( title$,err$,#PB_MessageRequester_Error)
   Else
    If a = 0  
      SetGadgetText(8,Str(-c / b))
    Else
      d = b * b - 4 * a * c
      If d < 0 
        MessageRequester( title$,noroot$)
      ElseIf d = 0 
        SetGadgetText(8,StrD((-b / (2 * a))))
        SetGadgetText(10,StrD((-b / (2 * a))))
      Else
        x1.d = (-b - Sqr(d)) / (2 * a)
        x2.d = (-b + Sqr(d)) / (2 * a)
        SetGadgetText(10,StrD(x1))
        SetGadgetText(8,StrD(x2))
        SetGadgetText(2,Str(a))
        SetGadgetText(4,Str(b))
        SetGadgetText(6,Str(c))
      EndIf
    EndIf
  EndIf
  ElseIf EventGadget = 12
    End
  EndIf
; //////////////////////
Case #PB_Event_CloseWindow
  EventWindow = EventWindow()
  If EventWindow = 0
   Break
  EndIf
EndSelect
ForEver