§. Microsoft Word та ҳүжжетлер үстинде әмеллерди орынлаў 3-§. Текстлер үстинде әмеллерды иске асырыў 22

5. 2. Квадрат теңлемени шешиўде VBA дан пайдаланыў
Квадрат теңлеме алгоритми төмендегише. Буның ушын VS Word программасында Visual Basic for Application басқарыў элементлеринен пайдаланамыз. Төмендеги тәртипттеги әмеллер орынланады.

1. 
   «Вид» менюсында «Панели инструментов» пунктинен Visual Basic ямаса «Элементы управление» ни белгилеймиз (MS office Word 2003 yшын) ол томендегише әмелге асырылады
   

Егер MS office Word 2007 орнатылған болса онда:

1. 
   «Office» кнопкасынан «Параметры Word» кнопкасын таңлаймыз:
   

2. 
   «Настройка» ны таңлап әмеллерди томендеги суўретте көрсетилгендей етип орынлаймыз.
   

2. 
   «Элементы управление» ден квадрат теңлемениң коэффицентлерин киритиў ушын үш рет TexBox(Поле) басқарыў элементлерин орнатамыз.
   

3. 
   Есаплаў ушын «Button» (кнопка) басқарыў элементинен пайдаланамыз.
   

4. 
   Нәтийжени шығарыў ушын Label (Подпись) басқарыў элементин орнатамыз.
   

5. 
   Button кнопкасын 2 рет «Мыш» жәрдеминде басып төмендеги кодты киритемиз:
   

Dim a, b, c As Double
Dim d, x1, x2, x As Double
Private Sub CommandButton1_Click()
a = TextBox1
b = TextBox2
c = TextBox3
d = b * b - 4 * a * c
If d = 0 Then
x = -b / (2 * a)
Label1.Caption = "x=" + Str(x)
GoTo 1
End If
If d < 0 Then
Label1.Caption = "Ха" + ChrW(1179) + "ыйкый шешимге ийе емес"
GoTo 1
End If
x1 = (-b - Sqr(d)) / (2 * a)
x2 = (-b + Sqr(d)) / (2 * a)
Label1.Caption = "x1=" + Str(x1) + Chr(13)
Label1.Caption = Label1.Caption + "x2=" + Str(x2)
1:
End Sub
Private Sub Document_Open()
CommandButton1.Caption = "Те" + ChrW(1187) + "леме кореньлери"
End Sub
«Конструктор» режиминен «Форма» режимине әмеллерди орнатамыз. Бул жерде Val фамилиясы арқалы TexBоx басқарыў элементиндеги қатарлық түр сапалы түрде өзгереди. Str арқалы болса қатарлық түрге өзгереди ҳәм нәтийжени Label басқарыў элементине шығарылады.
Мәселени шешиўдеги MS Word айнасының көриниси томендеги суўретте келтирилген.