VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "About  Maikelson1   form2"
   ClientHeight    =   4095
   ClientLeft      =   210
   ClientTop       =   945
   ClientWidth     =   6345
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   4095
   ScaleWidth      =   6345
   Begin VB.CommandButton Command1 
      Caption         =   "Закрыть"
      Height          =   300
      Left            =   5040
      TabIndex        =   1
      Top             =   3720
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   3375
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Вертикаль
      TabIndex        =   0
      Top             =   0
      Width           =   6315
   End
   Begin VB.Label Label2 
      Caption         =   "         Эта программа распространяется свободно (для некоммерческих целей)       "
      Height          =   255
      Left            =   0
      TabIndex        =   3
      Top             =   3390
      Width           =   6255
   End
   Begin VB.Label Label1 
      Caption         =   $"Form2.frx":0442
      Height          =   415
      Left            =   120
      TabIndex        =   2
      Top             =   3640
      Width           =   4815
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Text1.BackColor = RGB(255, 255, 255) '&H80000005
Info = "                 ОПИСАНИЕ ДЕЙСТВИЙ КНОПОК ПРОГРАММЫ MAIKELSON1" & vbCrLf & vbCrLf

Info = Info & "                                               ФОРМА 1" & vbCrLf
Info = Info & " <Включить таймер даты> - включается таймер, который через заданный интервал считывает дату и текущее время по часам компьютера и они выводятся в соответствующие окошки." & vbCrLf & vbCrLf
Info = Info & " <Выключить> - останавливает работу таймера даты." & vbCrLf & vbCrLf
Info = Info & " <Задать интервал таймеру, с> - задается интервал времени, через который таймер будет считывать дату и текущее время." & vbCrLf & vbCrLf
Info = Info & " <Показать текущее положение Земли> - на рисунке внизу рисуется положение Земли в гелиоцентрической эклиптической системе координат, а на рисунке вверху изображается ее положение в плоскости перпендикулярной плоскости эклиптики и проходящей через точки расположения Земли и Солнца на данный момент времени" & vbCrLf & vbCrLf
Info = Info & " <Начать движение с шагом (ХХХ) час> - от даты и времени, для которых было показано текущее положение Земли, начинается расчет с заданным шагом гелиоцентрических эклиптических координат Земли и находящейся на ней экспериментальной установки, а потом они отображаются на рисунке. " & vbCrLf & vbCrLf
Info = Info & " <Остановить> - остановить движение." & vbCrLf & vbCrLf
Info = Info & " <Продолжить> - продолжить движение с того места, где была остановка." & vbCrLf & vbCrLf
Info = Info & " <Очистить рисунок> - очистить рисунок анимации сделанных вычислений." & vbCrLf & vbCrLf
Info = Info & " <Сохранить с №> - сохранить в файл с заданным номером изображение на рисунке в формате .bmp." & vbCrLf & vbCrLf
Info = Info & " <Просмотр фото и видео файлов> - загружается форма для работы с полученными в экспериментах фото и видео файлами." & vbCrLf & vbCrLf
Info = Info & " <Вычислительный эксперимент на модели> - переход к форме 4 для моделирования движения лучей света на установках Майкельсона и Юдина." & vbCrLf & vbCrLf
Info = Info & " <Моделирование интерференции> - переход к форме 3 для расчета интерференционной картины, получающейся на экране при падении на него двух лучей с заданными параметрами." & vbCrLf & vbCrLf
Info = Info & " <About> - переход к форме описания действия кнопок программы на всех формах этого проекта." & vbCrLf & vbCrLf
Info = Info & " <Выход> - выход из программы (закрытие всех форм проекта)." & vbCrLf & vbCrLf

Info = Info & "                                        ФОРМА 2" & vbCrLf & vbCrLf
Info = Info & " <Закрыть> - закрыть только данную форму программы." & vbCrLf & vbCrLf

Info = Info & "                                       ФОРМА 3" & vbCrLf & vbCrLf
Info = Info & " <1 - Преобразовать параметры лучей в ИСО> - преобразуются параметры лучей (скорости, координаты и углы под которыми ини движутся) из АСО в ИСО экрана." & vbCrLf & vbCrLf
Info = Info & " <2 - Начать расчет> - начать расчет суммарной напряженности двух лучей во всех точках экрана (от i=-250 до i=+250)." & vbCrLf & vbCrLf
Info = Info & " <Остановить> - остановить расчет." & vbCrLf & vbCrLf
Info = Info & " <Продолжить> - продолжить расчет." & vbCrLf & vbCrLf
Info = Info & " <Найти Xk - Xn, мкм> - находим ширину полос, кликнув перед этим левой и правой кнопками мыши в середины двух соседних полос на рисунке." & vbCrLf & vbCrLf
Info = Info & " <(Yk - Yn) / (Tk - Tn), Vs> - рассчитываем скорость движения полос, кликнув перед этим левой и правой кнопками мыши в двух точках на графике." & vbCrLf & vbCrLf
Info = Info & " <Сохранить рисунок №> - сохранить в файл изображение интерференционной картинки в формате .bmp." & vbCrLf & vbCrLf
Info = Info & " <Закрыть форму> - закрыть только данную форму программы." & vbCrLf & vbCrLf

Info = Info & "                                      ФОРМА 4" & vbCrLf & vbCrLf

Info = Info & " <Начать эксперимент> - начать вычислительный эксперимент на математической модели выбранной установки (Майкельсона или Юдина)." & vbCrLf & vbCrLf
Info = Info & " <Остановить> - остановить вычислительный эксперимент." & vbCrLf & vbCrLf
Info = Info & " <Продолжить> - продолжить вычислительный эксперимент." & vbCrLf & vbCrLf
Info = Info & " <Сделать NC0 шагов решения> - сделать NC0 шагов решения в вычислительном эксперименте." & vbCrLf & vbCrLf
Info = Info & " <Моделирование сплошного эффекта Доплера с параметрами полученными при проведение эксперимента> - моделируется только сплошное движение двух фронтов волн двух лучей с полученными значениями их скоростей и углов движения. " & vbCrLf & vbCrLf
Info = Info & " <Остановить> - остановить вычислительный эксперимент со сплошным эффектом Доплера." & vbCrLf & vbCrLf
Info = Info & " <Продолжить> - продолжить вычислительный эксперимент со сплошным эффектом Доплера." & vbCrLf & vbCrLf
Info = Info & " <Перенести данные на форму расчета интерференции> - перенести полученные данные, необходимые для расчета интерференционной картинки, на форму 3." & vbCrLf & vbCrLf
Info = Info & " <Очистить рисунок> - очистить рисунок анимации расчета." & vbCrLf & vbCrLf
Info = Info & " <Сохранить рисунок №> - сохранить в файл изображение на рисунке в формате .bmp" & vbCrLf & vbCrLf
Info = Info & " <Сохранить размеры и углы в файле> - сохраняем в указанном рядом имени файла параметры установки." & vbCrLf & vbCrLf
Info = Info & " <Загрузить размеры и углы из файла> - загружаем из нужного нам файла параметры установки." & vbCrLf & vbCrLf
Info = Info & " <Расчет Майкельсона> - производим расчет по методике Майкельсона времени движения двух лучей при движение установки в горизонтальном направление и сравниваем с результатом полученном при моделирование этого процесса." & vbCrLf & vbCrLf
Info = Info & " <Закрыть форму> - закрыть только данную форму программы." & vbCrLf & vbCrLf

Info = Info & "                                      ФОРМА 6" & vbCrLf & vbCrLf

Info = Info & " <Открыть видеофайл avi> - открывается стандартная форма Windows для выбора загружаемого файла." & vbCrLf & vbCrLf
Info = Info & " <Начать просмотр с кадра №> - начинается последовательный покадровый просмотр видеофайла с заданным интервалом в миллисекундах между кадрами в файле." & vbCrLf & vbCrLf
Info = Info & " <Остановить> - остановить покадровый просмотр." & vbCrLf & vbCrLf
Info = Info & " <Продолжить> - продолжить покадровый просмотр." & vbCrLf & vbCrLf
Info = Info & " <Сместить на 1 кадр> - выводится на рисунок следующий кадр." & vbCrLf & vbCrLf
Info = Info & " <Сделать раскадровку через> - или в отдельные файлы или в отдельные рисунки, расположенные на форме ниже, выводятся последовательные изображения кадров в видеофайле через заданное в окошке рядом количество кадров." & vbCrLf & vbCrLf
Info = Info & " <Скопировать в окно №> - копируется изображение или кадра из видеофайла или из фотофайла в одно из окон расположенных ниже." & vbCrLf & vbCrLf
Info = Info & " <Задать размер картинки> - задается размер картинки, чтобы соответствовать формату изображения в видео или фото файле." & vbCrLf & vbCrLf
Info = Info & " <Открыть фотофайл (bmp, jpg)> - открывается стандартная форма Windows для выбора загружаемого файла." & vbCrLf & vbCrLf
Info = Info & " <Следующий> - если файлы имеют одинаковое название и отличаются только номерами, то открывается файл со следующим номером." & vbCrLf & vbCrLf
Info = Info & " <Предыдущий> - открывается файл с предыдущим номером." & vbCrLf & vbCrLf
Info = Info & " <Рассчитать ширину полос для выбранного участка из> - рассчитывается ширина полос в мкм по координатам двух отмеченных полос и указанному количеству полос между этими точками." & vbCrLf & vbCrLf
Info = Info & " <Закрыть форму> - закрыть только данную форму программы." & vbCrLf & vbCrLf

Info = Info & "                                     ФОРМА 9" & vbCrLf & vbCrLf
Info = Info & " Кнопки отсутствуют. Форма закрывается или нажатием крестика в правом верхнем углу или снятием галочки у чекбокса <+ отчет> на форме 4." & vbCrLf & vbCrLf

Info = Info & "С наилучшими пожеланиями Сергей Юдин."
Form2.Text1.Text = Info
End Sub

