Презентация на тему Проект Три в одном, компьютерная программа

скомпилирована в исполняемый файл.
Предоставлена возможность модификации и дальнейшего усовершенствования

программы. Представлен исходный программный код.

Цели и задачи:

Создать программу наглядного обучения математике и компьютерного моделирования физических процессов и явлений с использованием математических функций.
Развивать навыки и умения при работе с тригонометрическими функциями, развивать логическое, математическое и пространственное мышление учащихся.
Создание простой и удобной компьютерной программы для изучения и отработки навыков работы с координатной плоскостью и построением графиков функций.

которая предназначена для изучения и отработки навыков работы с

тригонометрическими функциями, с графиками на координатной плоскости, компьютерного моделирования и изучения механического движения.
Предназначена для учителей математики, информатики и физики и, соответственно, учащихся 7-х - 11-х классов при изучении тем "Тригонометрические функции", "Графики функций", "Системы счисления", "Моделирование", "Механическое движение" и т.д.
Отрабатываются навыки и умения работы с графиками функций, координатной плоскостью, отображаются значения функций и их графики, наглядно показано применение математических функций в компьютерном моделировании и физическом эксперименте. Язык программирования Visual Basic позволяет быстро и наглядно решить вопросы создания и улучшения возможностей этой программы. Программа не требует установки, состоит из одного файла, открытый программный код, возможность быстро доработать и внести изменения, совершенно бесплатна.
Учащиеся с удовольствием работают с программой, высказанные пожелания позволяют оперативно улучшить работу и интерфейс программы.

Полученные результаты

на сайте http://egeurok.ru/load/onlajn_kalkuljatory_po_matematike/trigonometricheskij_edinichnyj_krug_onlajn/35-1-0-499

Double
Dim a As Integer
Public u As Double
Public ii As

Double

Private Sub Command1_Click()
Form3.Show
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Form_Load()

Scale (-200, -200)-(200, 200)
DrawWidth = 5
Circle (0, 0), 160, QBColor(2)
DrawWidth = 1
For x = -192 To 192 Step 16
Line (x, -176)-(x, 176)
Line (x + 1, -3)-(x - 1, 2), , BF: Print x / 160
Next x
For y = -176 To 176 Step 16
Line (-192, y)-(192, y)
Line (-3, y + 1)-(2, y - 1), , BF: Print -y / 160
Next y
DrawWidth = 3
Line (-192, 0)-(192, 0)
Line (0, 176)-(0, -176)
For x = -192 To 192 Step 1
PSet (x, 160 * (-1) * Sin(x * 3.141592 / 180)), RGB(255, 0, 0)
Next x

For x = -192 To 192 Step 1
PSet (x, 160 * (-1) * Cos(x * 3.141592 / 180)), RGB(0, 0, 255)
Next x
i = 0: u = 0: a = 1
End Sub
Private Sub Timer1_Timer()
If Text1 <> "" Then If Val(Text1) < -360 Or Val(Text1) > 360 Then VScroll1.Value = -(Val(Text1) - 360 * Int(Val(Text1) / 360)): a = 0 Else VScroll1.Value = -Val(Text1): a = 0
If Option1.Value = True Then a = 0: Option2.Value = False Else a = HScroll1.Value: Option1.Value = False: Option2.Value = True
If VScroll1.Value >= 360 Or VScroll1.Value <= -360 Then VScroll1.Value = 0 Else VScroll1.Value = VScroll1.Value - a
i = (VScroll1.Value + a) * 3.141592 / 180: ii = i
x = 0 + 160 * Cos(i)
y = 0 + 160 * Sin(i)
Shape1.Left = x - 4
Shape1.Top = y - 4
Xx = 0 + u
Yy = 0 + 160 * Sin(i)
Shape2.Left = Xx - 4
Shape2.Top = Yy - 4
Xxx = 0 + u
Yyy = 0 - 160 * Cos(i)
Shape3.Left = Xxx - 4
Shape3.Top = Yyy - 4
Line1.X1 = 0: Line1.Y1 = 0: Line1.X2 = 0 + 160 * Cos(i): Line1.Y2 = 0 + 160 * Sin(i)
Line2.X1 = x: Line2.Y1 = 0: Line2.X2 = 0 + 160 * Cos(i): Line2.Y2 = 0 + 160 * Sin(i)
Line3.X1 = 0: Line3.Y1 = y: Line3.X2 = 0 + 160 * Cos(i): Line3.Y2 = 0 + 160 * Sin(i)
Line5.X1 = x: Line5.Y1 = 0: Line5.X2 = 0: Line5.Y2 = 0
Line4.X1 = 0: Line4.Y1 = y: Line4.X2 = 0: Line4.Y2 = 0

Программный код

= Int(Cos(i) * 100000) / 100000
If Cos(i) 0

Then Label9.Caption = -Int(Tan(i) * 100000) / 100000 Else Label9.Caption = "Н/О"
If Tan(i) <> 0 Then Label10.Caption = -Int((1 / Tan(i)) * 100000) / 100000 Else Label10.Caption = "Н/О"
'u = -Int(i * 180 / (3.141592))
'If u > 360 Then u = u - 360
'If u < -360 Then u = u + 360
u = -(VScroll1.Value + a): uu = -Int(i * 100000) / 100000
If u = 0 Then Label2.Caption = 0: Label4.Caption = 1
If u = 180 Or u = -180 Then Label2.Caption = 0: Label4.Caption = -1
If u = 90 Or u = -90 Then Label2.Caption = 1: Label4.Caption = 0
If u = 360 Or u = -360 Then Label2.Caption = 0: Label4.Caption = 1
If u = 270 Or u = -270 Then Label2.Caption = -1: Label4.Caption = 0
Label6.Caption = Str(u) + " град.=" + Str(uu) + " рад."
End Sub

Dim x, y As Double
Dim u, uu As Double
Dim i, k As Integer
Dim x0(1000), y0(1000), c(1000), d, g As Integer
Dim a As Double

Private Sub Command1_Click()
Cls
Timer1.Interval = 5: If k = 6 Then k = 0
DrawWidth = 1
Scale (-400, -400)-(400, 400)
For x = -360 To 360 Step 36
Line (x, -360)-(x, 360)
Next x
For y = -360 To 360 Step 36
Line (-360, y)-(360, y)
Next y
DrawWidth = 4
Line (-360, 0)-(360, 0)
Line (0, 360)-(0, -360)
i = 0: u = 0: k = k + 1
End Sub

Private Sub Form_Load()
DrawWidth = 1
Scale (-400, -400)-(400, 400)
For x = -360 To 360 Step 36
Line (x, -360)-(x, 360)
Next x
For y = -360 To 360 Step 36
Line (-360, y)-(360, y)
Next y