VERSION 5.00
Begin VB.Form Kulon 
   BackColor       =   &H00808000&
   Caption         =   "Закон Кулона"
   ClientHeight    =   7395
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7695
   DrawStyle       =   5  'Transparent
   FillColor       =   &H000000FF&
   BeginProperty Font 
      Name            =   "Times New Roman"
      Size            =   9.75
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   7395
   ScaleWidth      =   7695
   StartUpPosition =   3  'Windows Default
   Begin VB.OptionButton Option2 
      BackColor       =   &H00808000&
      Caption         =   "Напряжённости"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   14.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   2640
      TabIndex        =   26
      Top             =   2040
      Width           =   255
   End
   Begin VB.OptionButton Option1 
      BackColor       =   &H00808000&
      Caption         =   "Силы"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   15.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   315
      Left            =   2880
      TabIndex        =   25
      Top             =   120
      Width           =   255
   End
   Begin VB.TextBox Text6 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C000&
      Height          =   495
      Left            =   120
      TabIndex        =   13
      Top             =   2040
      Width           =   2175
   End
   Begin VB.TextBox Text5 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFC0&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   2880
      TabIndex        =   12
      Top             =   6480
      Width           =   1695
   End
   Begin VB.HScrollBar HScroll3 
      Height          =   255
      Left            =   2640
      Max             =   50
      Min             =   26
      TabIndex        =   11
      Top             =   1320
      Value           =   38
      Width           =   2175
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFC0&
      DrawWidth       =   2
      FillColor       =   &H000000FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4755
      Left            =   0
      ScaleHeight     =   4695
      ScaleWidth      =   7635
      TabIndex        =   10
      Top             =   2640
      Width           =   7695
      Begin VB.CommandButton Command3 
         Caption         =   "Результаты"
         Height          =   375
         Left            =   5040
         TabIndex        =   27
         Top             =   0
         Width           =   1455
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Ввод ответа"
         Enabled         =   0   'False
         Height          =   375
         Left            =   3240
         TabIndex        =   24
         Top             =   0
         Width           =   1695
      End
      Begin VB.CheckBox Check2 
         Caption         =   "Тест E"
         Height          =   345
         Left            =   6600
         TabIndex        =   23
         Top             =   0
         Width           =   975
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "Тест F"
         Height          =   345
         Left            =   120
         TabIndex        =   22
         Top             =   0
         Width           =   975
      End
      Begin VB.TextBox Text12 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2655
         Left            =   120
         MultiLine       =   -1  'True
         TabIndex        =   21
         Top             =   360
         Width           =   7455
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H00E0E0E0&
         Caption         =   "Следующий вопрос"
         Default         =   -1  'True
         Enabled         =   0   'False
         Height          =   375
         Left            =   1320
         TabIndex        =   20
         Top             =   0
         Width           =   1815
      End
      Begin VB.TextBox Text11 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5760
         TabIndex        =   19
         Top             =   3000
         Width           =   495
      End
      Begin VB.TextBox Text10 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1920
         TabIndex        =   18
         Top             =   3000
         Width           =   495
      End
      Begin VB.TextBox Text9 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFC0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2040
         TabIndex        =   17
         Text            =   "Силы - 1 клик. Напряжённость - 2 клика"
         Top             =   4410
         Width           =   3735
      End
      Begin VB.TextBox Text8 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   5760
         TabIndex        =   16
         Top             =   3480
         Width           =   495
      End
      Begin VB.TextBox Text7 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFC0&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1800
         TabIndex        =   15
         Top             =   3480
         Width           =   495
      End
   End
   Begin VB.TextBox Text4 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   5160
      TabIndex        =   6
      Top             =   2040
      Width           =   2175
   End
   Begin VB.TextBox Text3 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   435
      Left            =   2520
      TabIndex        =   5
      Top             =   720
      Width           =   2415
   End
   Begin VB.HScrollBar HScroll2 
      Height          =   255
      Left            =   5160
      Max             =   10
      Min             =   -10
      TabIndex        =   3
      Top             =   1320
      Width           =   2055
   End
   Begin VB.TextBox Text2 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   420
      Left            =   5160
      TabIndex        =   2
      Top             =   720
      Width           =   2055
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Left            =   240
      Max             =   10
      Min             =   -10
      TabIndex        =   1
      Top             =   1320
      Width           =   2055
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   420
      Left            =   240
      TabIndex        =   0
      Top             =   720
      Width           =   2055
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      Caption         =   "Напряжённости"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   14.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   2880
      TabIndex        =   29
      Top             =   2040
      Width           =   2175
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      Caption         =   "Силы"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   15.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   345
      Left            =   3270
      TabIndex        =   28
      Top             =   120
      Width           =   1395
   End
   Begin VB.Line Line15 
      BorderColor     =   &H00FF0000&
      X1              =   5640
      X2              =   6720
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Line Line14 
      BorderColor     =   &H00C0C000&
      X1              =   600
      X2              =   1800
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Shape Shape2 
      Height          =   375
      Left            =   5160
      Top             =   240
      Width           =   2055
   End
   Begin VB.Shape Shape1 
      Height          =   375
      Left            =   240
      Top             =   240
      Width           =   2055
   End
   Begin VB.Line Line13 
      X1              =   2520
      X2              =   4920
      Y1              =   600
      Y2              =   600
   End
   Begin VB.Line Line12 
      X1              =   2520
      X2              =   4920
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Line Line11 
      X1              =   4920
      X2              =   4920
      Y1              =   1920
      Y2              =   1200
   End
   Begin VB.Line Line10 
      X1              =   2520
      X2              =   2520
      Y1              =   1920
      Y2              =   1200
   End
   Begin VB.Line Line9 
      X1              =   2520
      X2              =   4920
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Line Line8 
      X1              =   5040
      X2              =   5040
      Y1              =   1680
      Y2              =   120
   End
   Begin VB.Line Line7 
      X1              =   5040
      X2              =   7320
      Y1              =   120
      Y2              =   120
   End
   Begin VB.Line Line6 
      X1              =   7320
      X2              =   7320
      Y1              =   120
      Y2              =   1680
   End
   Begin VB.Line Line5 
      X1              =   5040
      X2              =   7320
      Y1              =   1680
      Y2              =   1680
   End
   Begin VB.Line Line4 
      X1              =   2400
      X2              =   2400
      Y1              =   1680
      Y2              =   120
   End
   Begin VB.Line Line3 
      X1              =   2400
      X2              =   120
      Y1              =   120
      Y2              =   120
   End
   Begin VB.Line Line2 
      X1              =   120
      X2              =   120
      Y1              =   1680
      Y2              =   120
   End
   Begin VB.Line Line1 
      X1              =   120
      X2              =   2400
      Y1              =   1680
      Y2              =   1680
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H00808000&
      Caption         =   "Модуль E2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C000&
      Height          =   375
      Left            =   240
      TabIndex        =   14
      Top             =   1680
      Width           =   1935
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackColor       =   &H00808000&
      Caption         =   "Модуль E1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   5280
      TabIndex        =   9
      Top             =   1680
      Width           =   2055
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H00808000&
      Caption         =   "Заряд2=q2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   5280
      TabIndex        =   8
      Top             =   240
      Width           =   1935
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H00808000&
      Caption         =   "Заряд1=q1"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Top             =   240
      Width           =   1815
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00808000&
      Caption         =   "Расстояние"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   2640
      TabIndex        =   4
      Top             =   1560
      Width           =   2175
   End
End
Attribute VB_Name = "Kulon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim q1, q2, k, f, e1, e2, mk, old3, old4
Dim R, G, B
Dim x1, x2, y1, y2, x3, y3
Dim info As String, качество As Single, num As Integer, infor As String
Dim vstr(1 To 14) As String, ostr(1 To 14, 1 To 3) As String, i As Integer, j As Integer, otv(7) As String, kod(14) As String, strkod As String, strkd(20) As String
Private Sub Update1() 'начальная загрузка
Dim lfcr

vstr(1) = " Сформулируйте закон Кулона."
ostr(1, 1) = " Сила ВЗАИМОДЕЙСТВИЯ между двумя неподвижными точечными зарядами, находящимися в вакууме, прямо пропорциональна произведению модулей зарядов, обратно пропорциональна квадрату расстояния между ними и направлена по прямой, соединяющей заряды."
ostr(1, 2) = " Сила ПРИТЯЖЕНИЯ между двумя неподвижными точечными зарядами, находящимися в вакууме, прямо пропорциональна произведению модулей зарядов, обратно пропорциональна квадрату расстояния между ними и направлена по прямой, соединяющей заряды."
ostr(1, 3) = " Сила ОТТАЛКИВАНИЯ между двумя неподвижными точечными зарядами, находящимися в вакууме, прямо пропорциональна произведению модулей зарядов, обратно пропорциональна квадрату расстояния между ними и направлена по прямой, соединяющей заряды."

vstr(2) = " Увеличивается или уменьшается сила Кулона при увеличении зарядов? (Проверьте и введите ответ.)"
ostr(2, 1) = " Уменьшается"
ostr(2, 2) = " Увеличивается"
ostr(2, 3) = " Не изменяется"

vstr(3) = " Зависит ли направление сил взаимодействия зарядов от знаков зарядов? (Проверьте и введите ответ.)"
ostr(3, 1) = " Не зависит"
ostr(3, 2) = " Зависит. Одноимённые заряды отталкиваются, разноимённые - притягиваются."
ostr(3, 3) = " Зависит. Разноимённые заряды отталкиваются, одноимённые - притягиваются."

vstr(4) = " Зависит ли величина силы Кулона от расстояния между зарядами? Какая это зависимость? (Проверьте и введите ответ.)"
ostr(4, 1) = " Сила взаимодействия между зарядами от расстояния не зависит"
ostr(4, 2) = " Сила взаимодействия между зарядами прямо пропорциональна квадрату расстояния"
ostr(4, 3) = " Сила взаимодействия между зарядами обратно пропорциональна квадрату расстояния"

vstr(5) = " В чём заключается физический смысл коэффициента k в законе Кулона?"
ostr(5, 1) = " Согласно закону Кулона два точечных заряда по 1 Кл, расположенных в вакууме на расстоянии 1 м друг от друга, взаимодействуют с силой F=9*10^9 Н"
ostr(5, 2) = " Согласно закону Кулона два точечных заряда  взаимодействуют с силой F=9*10^9 Н"
ostr(5, 3) = " Согласно закону Кулона два точечных заряда по 1 Кл взаимодействуют с силой F=9*10^9 Н"

vstr(6) = " Во сколько раз кулоновская сила отталкивания протонов в ядре атома больше их гравитационного притяжения?"
ostr(6, 1) = " В 10^29"
ostr(6, 2) = " В 10^39"
ostr(6, 3) = " В 10^49"

vstr(7) = " Определите силу Кулона, действующую на заряд в 10 нКл со стороны такого же заряда, находящегося на расстоянии 50 см от первого."
ostr(7, 1) = " 0.36 мкН."
ostr(7, 2) = " 3.6 мкН."
ostr(7, 3) = " 36.0 мкН."
kod(1) = 1
kod(2) = 2
kod(3) = 2
kod(4) = 3
kod(5) = 1
kod(6) = 2
kod(7) = 2

vstr(8) = " Сформулируйте определение напряжённости электрического поля."
ostr(8, 1) = " Напряжённость электростатического - векторная физическая величина,равная отношению силы Кулона, с которой поле действует на пробный положительный заряд, помещённый в данную точку поля, к величине этого заряда."
ostr(8, 2) = " Напряжённость электростатического - векторная физическая величина,равная отношению силы Кулона, с которой поле действует на пробный положительный заряд, помещённый в данную точку поля."
ostr(8, 3) = " Напряжённость электростатического - векторная физическая величина."

vstr(9) = " Каковы единицы напряжённости электрического поля?"
ostr(9, 1) = " Н/кг"
ostr(9, 2) = " Н/км"
ostr(9, 3) = " Н/Кл"

vstr(10) = " Как изменяется напряжённость электрического поля при увеличении заряда? (Проверьте и введите ответ.)"
ostr(10, 1) = " Не изменяется"
ostr(10, 2) = " Увеличивается"
ostr(10, 3) = " Уменьшается"

vstr(11) = " Как направлен вектор напряжённости электрического поля заряда? (Проверьте и введите ответ.)"
ostr(11, 1) = " От заряда, если q>0"
ostr(11, 2) = " От заряда, если q<0"
ostr(11, 3) = " К заряду, если q>0"

vstr(12) = " Какая зависимость величины напряжённости электрического поля точечного заряда от расстояния? "
ostr(12, 1) = " Напряжённость пропорциональна 1/r"
ostr(12, 2) = " Напряжённость пропорциональна 1/r^2"
ostr(12, 3) = " Напряжённость пропорциональна r"

vstr(13) = " При взаимодействии 2-х зарядов направление векторов напряжённости электрического поля совпадает. Как взаимодействуют эти заряды? (Проверьте и введите ответ.)"
ostr(13, 1) = " Притягиваются"
ostr(13, 2) = " Отталкиваются"
ostr(13, 3) = " Не взаимодействуют"

vstr(14) = " Что из себя представляет геометрическое место точек с одинаковым по направлению вектором напряжённости электростатического поля точечного заряда?"
ostr(14, 1) = " Дугу"
ostr(14, 2) = " Линию"
ostr(14, 3) = " Плоскость"
kod(8) = 1
kod(9) = 3
kod(10) = 2
kod(11) = 1
kod(12) = 2
kod(13) = 1
kod(14) = 2
strkod = ""
i = 1
lfcr = Chr(13)
info = "Привет"
Text1.Text = info
info = ""
Text1.Text = Str(HScroll1.Value) + "нКл"
Text2.Text = Str(HScroll2.Value) + "нКл"
Text5.Text = Str(HScroll3.Value) + "см"
End Sub

Private Sub Check1_Click()
 Command1.Enabled = True
End Sub

Private Sub Check2_Click()
 Command1.Enabled = True
End Sub

Private Sub Command1_Click()

If Check1.Value = 1 And i <= 7 Then
 Check2.Enabled = False
infor = ""
For j = 1 To 3
infor = infor + Str(j) + " " + ostr(i, j) + Chr(13)
Next
Text12.Text = Str(i) + " " + vstr(i)
'MsgBox
End If

If Check2.Value = 1 And i <= 7 Then
Check1.Enabled = False
infor = ""
For j = 1 To 3
infor = infor + Str(j) + " " + ostr(i + 7, j) + Chr(13)
Next
Text12.Text = Str(i + 7) + " " + vstr(i + 7)
'MsgBox Str(i + 7) + " " + vstr(i + 7)
End If

Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
If Check1.Value = 1 And i <= 7 Then
Text12.Text = Str(i) + " " + vstr(i)

otv(i) = InputBox("Выберите ответ (1,2 или 3): " + Str(i) + " " + infor)
i = i + 1
Command1.Enabled = True
Command2.Enabled = False
End If

If Check2.Value = 1 And i <= 7 Then
Text12.Text = Str(i + 7) + " " + vstr(i + 7)

otv(i) = InputBox("Выберите ответ (1,2 или 3): " + Str(i + 7) + " " + infor)
i = i + 1
Command1.Enabled = True
Command2.Enabled = False
End If

If Check2.Value = 1 And i > 7 Then
For j = 8 To 14
If otv(j - 7) = kod(j) Then
strkod = strkod + Str(1)
качество = качество + 1
Else
strkod = strkod + Str(0)
End If
Next
качество = качество / 7 * 100
 Text12.Text = "Запишите код вашего ответа " + strkod + Chr(13) + Chr(13) + "Качество знаний=" + Str(качество) + "%"
i = 1
num = num + 1
strkd(num) = strkod
strkod = ""
качество = 0
Check1.Enabled = True
Check2.Enabled = True
Check1.Value = 0
Check2.Value = 0

End If

If Check1.Value = 1 And i > 7 Then
For j = 1 To 7
If otv(j) = kod(j) Then
strkod = strkod + Str(1)
качество = качество + 1
Else
strkod = strkod + Str(0)
End If
Next

качество = качество / 7 * 100
Text12.Text = "Запишите код вашего ответа " + strkod + Chr(13) + Chr(13) + "Качество знаний=" + Str(качество) + "%"
i = 1
num = num + 1
strkd(num) = strkod
strkod = ""
качество = 0
Check1.Enabled = True
Check2.Enabled = True
Check1.Value = 0
Check2.Value = 0
End If

End Sub

Private Sub Command3_Click()
info = ""
For i = 1 To num
info = info + Str(i) + "-" + strkd(i) + Chr(13)
Next
Text12.Text = info
info = ""
i = 1
End Sub

Private Sub Form_DblClick()
End
End Sub

Private Sub Form_Load()
Update1
Text12.FontSize = 16
info = "Выбери тест, изменяя величины зарядов и расстояние, определи направление и величины соответствующих векторов F и E. Желаю удачи!"
Text12.Text = info
info = ""
End Sub

Private Sub HScroll1_Change() 'заряд q1
Dim x, y
k = 9
f = Abs(Int(Int((HScroll1.Value * HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000)
q1 = HScroll1.Value
q2 = HScroll2.Value
If q1 <> 0 Then e1 = Int(Int((HScroll1.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
If q2 <> 0 Then e2 = Int(Int((HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000


Text3.Text = Str(f) + " мкН"
Text1.Text = Str(HScroll1.Value) + "нКл"
Text2.Text = Str(HScroll2.Value) + "нКл"
If Option1 = True Then
Dvig
Else
Dvig1
End If

End Sub

Private Sub HScroll1_Scroll()
HScroll1_Change

End Sub

Private Sub HScroll2_Change() 'заряд q2
Dim x, y
k = 9
f = Abs(Int(Int((HScroll1.Value * HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000)
q1 = HScroll1.Value
q2 = HScroll2.Value
If q1 <> 0 Then e1 = Int(Int((HScroll1.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
If q2 <> 0 Then e2 = Int(Int((HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000

Text3.Text = Str(f) + " мкН"
Text1.Text = Str(HScroll1.Value) + "нКл"
Text2.Text = Str(HScroll2.Value) + "нКл"
If Option1 = True Then
Dvig
Else
Dvig1
End If


End Sub

Private Sub HScroll2_Scroll()
HScroll2_Change
End Sub

Private Sub HScroll3_Change() 'расстояние
Dim x, y
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 2

Text5.Text = "r = " + Str(HScroll3.Value) + "см"
k = 9
f = Abs(Int(Int((HScroll1.Value * HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000)
q1 = HScroll1.Value
q2 = HScroll2.Value

If q1 <> 0 Then e1 = Int(Int((HScroll1.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
If q2 <> 0 Then e2 = Int(Int((HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000

Text3.Text = Str(f) + " мкН"
Text1.Text = Str(HScroll1.Value) + "нКл"
Text2.Text = Str(HScroll2.Value) + "нКл"

If Option1 = True Then
Dvig
Else
Dvig1
End If
If old3 > HScroll3.Value Then
Text7.Left = x - HScroll3.Value * 50 + 20
Text8.Left = x + HScroll3.Value * 50 + 190
Else
Text7.Left = x - HScroll3.Value * 50 + 20
Text8.Left = x + HScroll3.Value * 50 + 190
End If

old3 = HScroll3.Value

End Sub

Private Sub Label1_Click() 'Выход

End Sub

Private Sub Label2_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Способность частиц (или тел) к электромагнитному взаимодействию характеризует электрический заряд."
Text12.Text = info
info = ""
End If
End Sub

Private Sub Label3_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Электрический заряд - физическая величина, определяющая силу электромагнитного взаимодействия."
Text12.Text = info
info = ""
End If
End Sub

Private Sub Label4_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Сила ВЗАИМОДЕЙСТВИЯ между двумя неподвижными точечными зарядами, находящимися в вакууме, прямо пропорциональна произведению модулей зарядов, обратно пропорциональна квадрату расстояния между ними и направлена по прямой, соединяющей заряды."
Text12.Text = info
info = ""
End If

End Sub

Private Sub Label5_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "(Вектор) Е = (вектор) F / q0. Единица напряжённости - Н/Кл."
Text12.Text = info
info = ""
End If

End Sub

Private Sub Label6_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Напряжённость  поля - силовая характеристика электростатического поля."
Text12.Text = info
info = ""
End If

End Sub

Private Sub Label7_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Напряжённость электростатического поля - векторная физическая величина, равная отношению силы Кулона, с которой поле действует на пробный положительный заряд, помещённый в данную точку поля, к величине этого заряда."
Text12.Text = info
info = ""
End If
End Sub

Private Sub OLE1_Updated(Code As Integer)

End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Dvig
End If

End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Dvig1
End If

End Sub

Private Sub Picture1_Click()
Picture1_Change

End Sub
Private Sub Picture1_Change()
Dim R, G, B, x, y
Dim x1, x2, y1, y2, x3, y3
Dvig
End Sub

Private Sub Picture1_DblClick()
Dim R, G, B, x, y
Dim x1, x2, y1, y2, x3, y3
x = 0
y = 0
Picture1.Cls
Dvig1
R = 127
G = 127
B = 127
x1 = 0
y1 = 0
End Sub
Private Sub Dvig()
Dim x, y, dx, dy, mk
k = 9
f = Int(Int((HScroll1.Value * HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
q1 = HScroll1.Value
q2 = HScroll2.Value
If q1 <> 0 Then e1 = Int(Int((HScroll1.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
If q2 <> 0 Then e2 = Int(Int((HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
Text6.Text = ""
Text4.Text = ""
'Text3.Text = Str(f)

mk = 100
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 1.4
dx = Int(x / 50)
dy = dx - 40
Picture1.Cls
R = 125
G = 125
B = 225


'рис векторов сил
 
If (q2 < 0 And q1 < 0) Or (q1 > 0 And q2 > 0) Then
Picture1.PSet (x, y), RGB(R, G, B)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, FillColor ' RGB(R, 0, 0)
Picture1.Line Step(0, 5)-Step(-f * mk, 0), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(5, 0)-Step(dx, dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(-dx, -dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(dx, -dy), FillColor  'RGB(R, 0, 0)

Picture1.PSet (x, y), RGB(R, G, B)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, FillColor ' RGB(R, 0, 0)
Picture1.Line Step(0, 5)-Step(f * mk, 0), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(-5, 0)-Step(-dx, dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(dx, -dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(-dx, -dy), FillColor  'RGB(R, 0, 0)

End If

If ((q2 < 0 And q1 > 0) Or (q1 < 0 And q2 > 0)) And (q1 <> 0 And q2 <> 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 5)-Step(-f * mk, 0), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(-5, 0)-Step(-dx, dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(dx, -dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(-dx, -dy), FillColor  'RGB(R, 0, 0)

Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 5)-Step(f * mk, 0), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(5, 0)-Step(dx, dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(-dx, -dy), FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 0)-Step(dx, -dy), FillColor  'RGB(R, 0, 0)
End If

'рис зарядов и знаков
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, G, B)
Picture1.Line Step(0, 160)-Step(0, y / 10), RGB(0, G, B)


If q1 > 0 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, FillColor ' RGB(0, G, B)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(R, 0, 0)
Picture1.Line Step(-90, -90)-Step(0, 180), RGB(R, 0, 0)
Picture1.Line Step(0, 110)-Step(0, y / 10), RGB(0, G, B)
End If

If q1 < 0 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, G, B)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(0, G, B)
Picture1.Line Step(-90, 160)-Step(0, y / 10), RGB(0, G, B)
End If

Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, G, B)
Picture1.Line Step(0, 160)-Step(0, y / 10), RGB(0, G, B)

If q2 > 0 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, FillColor  'RGB(R, 0, 0)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(R, 0, 0)
Picture1.Line Step(-90, -90)-Step(0, 180), RGB(R, 0, 0)
Picture1.Line Step(0, 110)-Step(0, y / 10), RGB(0, G, B)
End If

If q2 < 0 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, G, B)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(0, G, B)
Picture1.Line Step(-90, 160)-Step(0, y / 10), RGB(0, G, B)
End If

Picture1.PSet (x, y), RGB(R, G, B)
Picture1.Line Step(0, y / 10)-Step(HScroll3.Value * 50 + 90, 0), RGB(0, 2 * G, B)
Picture1.Line Step(0, 0)-Step(-dx, dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(dx, -dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(-dx, -dy), RGB(0, G, B)

Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Line Step(0, y / 10)-Step(-HScroll3.Value * 50 - 120, 0), RGB(0, 2 * G, B)
Picture1.Line Step(0, 0)-Step(dx, dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(-dx, -dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(dx, -dy), RGB(0, G, B)

Picture1.ToolTipText = "Силы"
If old4 > HScroll3.Value Then
Text10.Left = x - f * mk - HScroll3.Value * 50 - 320
Text11.Left = x + f * mk + HScroll3.Value * 50 + 90
Else
Text10.Left = x - f * mk - HScroll3.Value * 50 - 320
Text11.Left = x + f * mk + HScroll3.Value * 50 + 90
End If

old4 = HScroll3.Value

If q1 <> 0 And q2 <> 0 Then
Text10.Text = "F12"
Text11.Text = "F21"
Text7.Text = "q1"
Text8.Text = "q2"
End If

If q1 = 0 And q2 = 0 Then
Text10.Text = ""
Text11.Text = ""
Text7.Text = ""
Text8.Text = ""
End If

If q1 <> 0 And q2 = 0 Then
Text10.Text = ""
Text11.Text = ""
Text7.Text = "q1"
Text8.Text = ""
End If

If q1 = 0 And q2 <> 0 Then
Text10.Text = ""
Text11.Text = ""
Text7.Text = ""
Text8.Text = "q2"
End If
End Sub
Private Sub Dvig1() 'напряжённость
Dim x, y, dx, dy, mk
k = 9
f = Int(Int((HScroll1.Value * HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
q1 = HScroll1.Value
q2 = HScroll2.Value
If q1 <> 0 Then e1 = Int(Int((HScroll1.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
If q2 <> 0 Then e2 = Int(Int((HScroll2.Value * k * 10000000000#) / HScroll3.Value ^ 2) / 1000000) / 1000
Text3.Text = ""

mk = 1000
x = Picture1.ScaleWidth / 2
y = Picture1.ScaleHeight / 1.4

dx = Int(x / 50)
dy = dx - 40
Picture1.Cls
R = 127
G = 127
B = 127

Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Line Step(0, y / 10)-Step(HScroll3.Value * 50 + 90, 0), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(-dx, dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(dx, -dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(-dx, -dy), RGB(0, G, B)

Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Line Step(0, y / 10)-Step(-HScroll3.Value * 50 - 120, 0), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(dx, dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(-dx, -dy), RGB(0, G, B)
Picture1.Line Step(0, 0)-Step(dx, -dy), RGB(0, G, B)

'рис векторов напряжённости
If (q2 < 0 And q1 = 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 5)-Step(-e2 * mk, 0), &HC0C000
Picture1.Line Step(5, 0)-Step(-dx, dy), &HC0C000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HC0C000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HC0C000
End If

If (q2 < 0 And q1 < 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, G, B)
Picture1.Line Step(0, 5)-Step(-e2 * mk, 0), &HC0C000
Picture1.Line Step(5, 0)-Step(-dx, dy), &HC0C000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HC0C000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HC0C000
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, G, B)
Picture1.Line Step(0, 5)-Step(e1 * mk, 0), &HFF0000
Picture1.Line Step(-5, 0)-Step(dx, dy), &HFF0000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HFF0000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HFF0000
End If

If (q2 = 0 And q1 < 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 5)-Step(e1 * mk, 0), &HFF0000
Picture1.Line Step(-5, 0)-Step(dx, dy), &HFF0000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HFF0000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HFF0000
End If

If (q1 > 0 And q2 = 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 5)-Step(e1 * mk, 0), &HFF0000
Picture1.Line Step(-5, 0)-Step(-dx, dy), &HFF0000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HFF0000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HFF0000
End If

If (q1 > 0 And q2 > 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 5)-Step(e1 * mk, 0), &HFF0000
Picture1.Line Step(-5, 0)-Step(-dx, dy), &HFF0000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HFF0000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HFF0000
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, FillColor  'RGB(R, 0, 0)
Picture1.Line Step(0, 5)-Step(-e2 * mk, 0), &HC0C000
Picture1.Line Step(5, 0)-Step(dx, dy), &HC0C000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HC0C000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HC0C000
End If

If (q1 = 0 And q2 > 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 5)-Step(-e2 * mk, 0), &HC0C000
Picture1.Line Step(5, 0)-Step(dx, dy), &HC0C000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HC0C000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HC0C000
End If

If (q2 < 0 And q1 > 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, FillColor  'RGB(0, 0, 0)
Picture1.Line Step(0, 5)-Step(-e2 * mk, 0), &HC0C000
Picture1.Line Step(-5, 0)-Step(-dx, dy), &HC0C000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HC0C000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HC0C000
End If

If (q1 < 0 And q2 > 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 5)-Step(-e2 * mk, 0), &HC0C000
Picture1.Line Step(-5, 0)-Step(dx, dy), &HC0C000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HC0C000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HC0C000
End If

If (q2 < 0 And q1 > 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 5)-Step(e1 * mk, 0), &HFF0000
Picture1.Line Step(5, 0)-Step(-dx, dy), &HFF0000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HFF0000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HFF0000
End If

If (q2 > 0 And q1 < 0) Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, FillColor ' RGB(R, 0, 0)
Picture1.Line Step(0, 5)-Step(e1 * mk, 0), &HFF0000
Picture1.Line Step(5, 0)-Step(dx, dy), &HFF0000
Picture1.Line Step(0, 0)-Step(-dx, -dy), &HFF0000
Picture1.Line Step(0, 0)-Step(dx, -dy), &HFF0000
End If
'рис зарядов и знаков
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 160)-Step(0, y / 10), RGB(0, G, B)
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, 0, 0)
Picture1.Line Step(0, 160)-Step(0, y / 10), RGB(0, G, B)

If old4 > HScroll3.Value Then
Text10.Left = x - e2 * mk - HScroll3.Value * 50 - 320
Text11.Left = x + e1 * mk + HScroll3.Value * 50 + 90
Else
Text10.Left = x - e2 * mk - HScroll3.Value * 50 - 320
Text11.Left = x + e1 * mk + HScroll3.Value * 50 + 90
End If

old4 = HScroll3.Value

If q1 > 0 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, FillColor  'RGB(0, G, B)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(R, 0, 0)
Picture1.Line Step(-90, -90)-Step(0, 180), RGB(R, 0, 0)
Picture1.Line Step(0, 110)-Step(0, y / 10), RGB(0, G, B)
End If

If q1 < 0 Then
Picture1.PSet (x, y), RGB(R, G, B)
Picture1.Circle Step(-HScroll3.Value * 50 - 120, 0), 100, RGB(0, G, B)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(R, 0, 0)
Picture1.Line Step(-90, 160)-Step(0, y / 10), RGB(0, G, B)
End If


If q2 > 0 Then
Picture1.PSet (x, y), RGB(R, G, B)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, FillColor  'RGB(R, 0, 0)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(R, 0, 0)
Picture1.Line Step(-90, -90)-Step(0, 180), RGB(R, 0, 0)
Picture1.Line Step(0, 110)-Step(0, y / 10), RGB(0, G, B)
End If


If q2 < 0 Then
Picture1.PSet (x, y), RGB(0, 0, 0)
Picture1.Circle Step(HScroll3.Value * 50 + 90, 0), 100, RGB(0, G, B)
Picture1.Line Step(-90, 5)-Step(180, 5), RGB(R, 0, 0)
Picture1.Line Step(-90, 160)-Step(0, y / 10), RGB(0, G, B)
End If
If q1 <> 0 And q2 <> 0 Then
Text6.Text = Str(Abs(e2)) + " мкН/Кл"
Text4.Text = Str(Abs(e1)) + " мкН/Кл"
Text10.Text = "E2"
Text11.Text = "E1"
Text7.Text = "q1"
Text8.Text = "q2"
End If

If q1 = 0 And q2 = 0 Then
Text7.Text = ""
Text8.Text = ""
Text6.Text = ""
Text4.Text = ""
Text10.Text = ""
Text11.Text = ""
End If

If q1 <> 0 And q2 = 0 Then
Text7.Text = "q1"
Text8.Text = ""
Text6.Text = ""
Text4.Text = Str(Abs(e1)) + " мкН/Кл"
Text10.Text = ""
Text11.Text = "E1"
End If

If q1 = 0 And q2 <> 0 Then
Text7.Text = ""
Text8.Text = "q2"
Text6.Text = Str(Abs(e2)) + " мкН/Кл"
Text4.Text = ""
Text10.Text = "E2"
Text11.Text = ""
End If

Picture1.ToolTipText = "Напряжённости"
End Sub

Private Sub Text1_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Точечный заряд - заряженное тело, размер которого много меньше расстояния его возможного действия на другие тела."
Text12.Text = info
info = ""
End If
End Sub

Private Sub Text2_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Алгебраическая сумма зарядов электрически изолированной системы постоянна: Q1 + Q2 + ... + Qn = const."
Text12.Text = info
info = ""
End If
End Sub

Private Sub Text3_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "F = k*|q1|*|q2|/r^2 - формула закона Кулона, k=9*E+9."
Text12.Text = info
info = ""
End If

End Sub

Private Sub Text4_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "E = k*|Q|/r^2 = модуль вектора напряжённости, созданного точечным зарядом Q на расстоянии r."
Text12.Text = info
info = ""
End If

End Sub

Private Sub Text6_Click()
If Check1.Value = 0 And Check2.Value = 0 Then
info = "Направление вектора напряжённости совпадает с направлением силы Кулона, действующей на единичный положительный заряд, помещённый в данную точку поля."
Text12.Text = info
info = ""
End If
End Sub
