/span>
Для вирішення поставленої задачі була використана середовище швидкої розробки додатків Visual Basic.
Список посилань
1. Visual Basic [Електрон. ресурс]. - Режим доступу: # "justify">. Visual Basic [Електрон. ресурс]. - Режим доступу: # "justify">. Visual Basic [Електрон. ресурс]. - Режим доступу: # "justify"> Додаток А
Екранні форми
В
Ріс.А1.
В
Ріс.А2.
В
Ріс.А3.
В
Ріс.А4.
В
Ріс.А5.
В
Ріс.А6.
В
Ріс.А7.
В
Рис А8.
В
Ріс.А9.
В
Рис А10.
В
Ріс.А11.
В
Ріс.А12.
В
Рис. А13
В
Рис. А14
Додаток В
Лістинг програми
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongDeclare Function ExtFloodFill Lib " gdi32 "(ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Longx0 As Single, y0 As Singlex1 As Single, y1 As SinglepicDrawFirst As BooleanpicDrawWidth As IntegerpicMouseDown As BooleanSub Form_Load ( ) i As Integeri = 0 To 15 (i). BackColor = QBColor (i) (0) = 1.MouseIcon = Image5.Filter = "*. bmp | *. bmp" SubSub PictureRedraw (Index As Integer) i As Integeri = 0 To 4i = Index Then (i). BackColor = vbHighlight (i). ForeColor = vbHighlightText (i). BackColor = vbButtonFace (i). ForeColor = vbButtonTextIf (i). Line (0, 4) - (41, 4 ) SubSub Option1_Click (Index As Integer) Case Index1.MouseIcon = Image22.MouseIcon = Image33.MouseIcon = Image44.MouseIcon = Image55.MouseIcon = Image60, 6 To 9.MouseIcon = Image7SelectText1.Visible = True Then TextExitPicture9.Visible = True Then PictureExitSubSub TextExit (). Visible = FalsePicture1.Font = Text1.Font.CurrentX = Text1.Left + 2.CurrentY = Text1.Top + 2.ForeColor = Picture8 (1). BackColor.Print Text1.TextSubSub PictureExit (). Visible = False . PaintPicture Picture9.image, Picture9.Left + 1, _.Top + 1, Picture9.Width - 2, Picture9.Height - 2, _
, 0, Picture9.Width - 2, Picture9.Height - 2SubSub Option1_GotFocus (Index As Integer). SetFocusSubSub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1. Visible = True Then TextExitPicture9.Visible = True Then PictureExitButton = 1 Then Picture1.ForeColor = Picture8 (1). BackColor _Picture1.ForeColor = Picture8 (0). BackColorOption1 (0). Value = True Or Option1 (6). Value = True Then.D...
