Смоделировать движения электрона вокруг ядра атома - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.571 из 5
Похожие ответы