Смоделировать движения электрона вокруг ядра атома - VB
Формулировка задачи:
Создать приложение , результат которого является моделирование движения электрона вокруг ядра атома. Движение осуществляется по часовойстрелке. Количество оборотов устанавливается с помощью текстового поля. (Цикл со счетчиком , тело которого содержит рисование круга и его стирание). Цикл вращается с координатами (0,0). Для того чтобы за один шаг цикла угол поворота менялся на 1 градус можно использовать фрмулу : Т=6.28/360*f , где f-счетчик цикла , значение которого меняется на 1 за 1н шаг.
Буду благодарен))
Решение задачи: «Смоделировать движения электрона вокруг ядра атома»
textual
Листинг программы
Dim NumberOfTurns As Integer Private Sub Command1_Click() NumberOfTurns = Val(Text1.Text) Electron End Sub Private Sub Form_Load() Me.Height = 8000: Me.Width = Me.Height Scale (-10, -10)-(10, 10) FillStyle = 0: AutoRedraw = True Command1.Caption = "START" End Sub Private Sub Electron() Dim i As Integer, j As Integer Do While j < NumberOfTurns DoEvents Cls If i < 360 Then i = i + 1 Else i = 0: j = j + 1 FillColor = vbRed Circle (0, 0), 0.5, vbRed FillColor = vbBlue Circle (Cos(6.28 / 360 * i) * 7, Sin(6.28 / 360 * i) * 7), 0.2, vbBlue Loop End Sub Private Sub Text1_Change() NumberOfTurns = Val(Text1.Text) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д