Презентация ИНФОРМАТИКА В ШКОЛЕ и комплекс компьютерных программ, предназначенный для использования в учебном процессе, компьютерном моделировании и проведении компьютерного эксперимента.

Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru ИНФОРМАТИКА В ШКОЛЕ Выполнили: Кузнецов Никита Игоревич, 6 л5 классАлякин Александр Павлович, 6 л1 класс МОУ "Лицей № 26", г.Подольск, Московская область. Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Выполнено в Visual Basic, скомпилировано в исполняемые файлы.Предоставлена возможность модификации и дальнейшего усовершенствования. Представлен исходный программный код. Цели и задачи:Использование информатики в учебном процессе, а также в компьютерном моделировании и эксперименте. Разработка компьютерных инструментов поддержки учебного процесса.Для учителей информатики, математики, физики, других учебных предметов и учащихся 5-х - 11-х классов при изучении тем "Компьютерная графика", "Метод координат", "Метод половинного деления", "Системы счисления", "Моделирование" и т.д.Отрабатываются навыки и умения работы с координатной плоскостью, наглядно показано применение математических функций и методов в компьютерном моделировании и эксперименте. Отличный комплекс программ для ученика и учителя. ИНФОРМАТИКА В ШКОЛЕ Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Разработан комплекс компьютерных программ ИНФОРМАТИКА В ШКОЛЕ, предназначенный для использования в учебном процессе, компьютерном моделировании и проведении компьютерного эксперимента.Для учителей информатики, математики, физики, других учебных предметов и учащихся 5-х - 11-х классов при изучении тем "Компьютерная графика", "Метод координат", "Метод половинного деления", "Системы счисления", "Моделирование" и т.д.Отрабатываются навыки и умения работы с координатной плоскостью, наглядно показано применение математических функций и методов в компьютерном моделировании и эксперименте. Отличный комплекс программ для ученика и учителя.Программы - приложения Windows не требуют установки, открытый программный код, возможность быстро доработать и внести изменения, совершенно бесплатны.Представленный ряд тем по данным учебным предметам постоянно растёт и расширяется.Решена задача разработки целого ряда компьютерных инструментов для поддержки учебного процесса и их применения в различных учебных предметах. Учителя и учащиеся с интересом работают с программами, высказанные пожелания позволяют оперативно улучшить их работу и интерфейс. Полученные результаты Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Dim x, y, y2, ni, vi, t, pp As IntegerDim ss As StringPrivate Sub Command1_Click()pp = pp + 1: ni = y: y2 = y: y = Int((ni + vi) / 2)Label1.Caption = yEnd SubPrivate Sub Command2_Click()pp = pp + 1: vi = y: y2 = y: y = Int((ni + vi) / 2)Label1.Caption = yEnd SubPrivate Sub Command3_Click()Command3.Visible = FalseText2.Visible = FalseTimer1.Interval = 1000End SubPrivate Sub Command4_Click()Form2.ShowEnd SubPrivate Sub Form_Load()pp = 0: t = 0: y2 = 0: y = 50: ni = 1: vi = 101Label1.Caption = yLabel2.Caption = tEnd SubPrivate Sub Timer1_Timer()x = Int(Val(Text1))t = t + 1: Label2.Caption = tIf y = x Then ss = "Я угадал число за" + Str(pp) + " попыток!": Label1.Caption = ss: Timer1.Interval = 0: Command1.Enabled = False: Command2.Enabled = FalseIf y = y2 Then ss = "Вы обманывали!": Label1.Caption = ss: Timer1.Interval = 0: Command1.Enabled = False: Command2.Enabled = FalseEnd Sub Dim x, y, p As IntegerPrivate Sub Command1_Click()Text2.Visible = FalseRandomize Timerx = Int(Rnd(1) * 100 + 1)p = 0Text1 = ""Label1 = ""Label2 = ""Command1.Visible = FalseEnd SubPrivate Sub Command2_Click()p = p + 1y = Val(Text1)If y = x Then Label1 = "УГАДАЛИ!": Label2 = "Попыток:" + Str(p)If y < x Then Label1 = "МАЛО!"If y > x Then Label1 = "МНОГО!"Text1 = ""End SubPrivate Sub Command3_Click()Form1.ShowEnd Sub Программный код «Угадайки» и их интерфейс Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Dim x, g, y, t, i, y0, x0, v0 As DoubleDim a As BooleanPrivate Sub Command1_Click()a = TrueCommand1.Caption = "ОГОНЬ !!!"End SubPrivate Sub Form_Load()Scale (0, 750)-(850, 0)g = 9.8y0 = 72t = 0u0 = HScroll2.Value * 3.14159 / 180: Label2.Caption = "Угол=" + Str(HScroll2.Value)v0 = HScroll1.Value: Label1.Caption = "V0=" + Str(v0)x0 = 25'Timer1.Interval = 0a = FalseEnd SubPrivate Sub Timer1_Timer()v0 = HScroll1.Value: Label1.Caption = "V0=" + Str(v0): u0 = HScroll2.Value * 3.14159 / 180: Label2.Caption = "Угол=" + Str(HScroll2.Value)If a = True Theny = y0 + v0 * Sin(u0) * t - g * t ^ 2 / 2'x = x + 5x = x0 + v0 * Cos(u0) * tShape1.Left = xShape1.Top = yt = t + 0.1End IfIf x > 850 Or y < 10 ThenIf (y > 500 And y < 700) And (x > 550 And x < 880) Then Command1.Caption = "ПОПАЛ!" Else Command1.Caption = "МИМО!"'Timer1.Interval = 1a = Falsey0 = 83t = 0v0 = HScroll1.Value: Label1.Caption = "V0=" + Str(v0): u0 = HScroll2.Value * 3.14159 / 180: Label2.Caption = "Угол=" + Str(HScroll2.Value)x0 = 25: x = x0Shape1.Left = x0Shape1.Top = y0End IfEnd Sub Программный код «Из пушки на Луну!» и интерфейс Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Интерфейс программы «Тестирование» Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Dim i, n, k, m As IntegerDim a(20) As StringDim kk(20) As IntegerPrivate Sub Command1_Click()k = 1If k = kk(i) Then Shape1(i).Visible = True: m = m + 1If i < 20 Then i = i + 1: Label1(0).Caption = a(i) Else Timer1.Interval = 0If Timer1.Interval = 0 Then Label1(0).Caption = "Ваша оценка: " + Str(Int(m / 21 * 5)) : Command1.Enabled = False: Command2.Enabled = FalseEnd SubPrivate Sub Command2_Click()k = 2If k = kk(i) Then Shape1(i).Visible = True: m = m + 1If i < 20 Then i = i + 1: Label1(0).Caption = a(i) Else Timer1.Interval = 0If Timer1.Interval = 0 Then Label1(0).Caption = "Ваша оценка: " + Str(Int(m / 21 * 5)) : Command1.Enabled = False: Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Timer1.Interval = 1000Label2(0).Visible = FalseFor i = 0 To 20Shape1(i).Visible = FalseNext iCommand3.Visible = Falsen = 0: i = 0Label1(0).Visible = TrueLabel1(0).Caption = a(i)End SubPrivate Sub Form_Load()Timer1.Interval = 0i = 0: n = 0: k = 0: m = 0a(0) = "оловя_ый"a(1) = "стекля_ый"a(2) = "каме_ый"a(3) = "деревя_ый"a(4) = "ути_ый"a(5) = "песча_ый"a(6) = "нефтя_ой"a(7) = "соломе_ый" a(8) = "станцио_ый"a(9) = "со_ый"a(10) = "ю_ый"a(11) = "багря_ый"a(12) = "сви_ой"a(13) = "пря_ый"a(14) = "обеде_ый"a(15) = "восторже_ый"a(16) = "обыкнове_ый"a(17) = "овся_ый"a(18) = "румя_ый"a(19) = "письме_ый"a(20) = "кожа_ый"kk(0) = 2kk(1) = 2kk(2) = 2kk(3) = 2kk(4) = 1kk(5) = 1kk(6) = 1kk(7) = 2kk(8) = 2kk(9) = 2kk(10) = 1kk(11) = 1kk(12) = 1kk(13) = 1kk(14) = 2kk(15) = 2kk(16) = 2kk(17) = 1kk(18) = 1kk(19) = 2kk(20) = 1End SubPrivate Sub Timer1_Timer()Label4.Caption = nn = n + 1End Sub Программный код «Тестирование» Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Интерфейс программы «Калькулятор» Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Dim as1, as2, as3, as4, bs, traf, res, ss As StringDim b, i, j, dlina, f, ost As LongDim s As DoublePrivate Sub Command11_Click()as3 = "": as4 = ""traf = "0123456789ABCDEF"as1 = Text11: as3 = Text33: as4 = Text44dlina = Len(as1)i = 0: j = 0: s = 0For i = 1 To dlinaf = 0: b = 0: bs = ""bs = Mid(as1, i, 1)For j = 1 To 16If bs = Mid(traf, j, 1) Then b = j - 1: f = 1Next jIf f = 0 Or (b >= Val(as3)) Then Text22 = "Ошибка!": GoTo 10s = s + b * (Val(as3)) ^ (dlina - i)Next ires = "": ss = ""Do While s >= Val(as4)ost = Int(s - Int(s / Val(as4)) * Val(as4)): ss = Mid(traf, ost + 1, 1)s = Int(s / Val(as4))res = ss + resss = "": ost = 0Loopres = Str(s) + resIf (Val(res) > 9) And (Val(as4) > 10) Then res = Mid(traf, Val(res) + 1, 1)Text22 = res10 End SubPrivate Sub Command12_Click()Text11 = ""Text22 = ""Text33 = ""Text44 = ""End SubPrivate Sub Command1_Click()Text3 = Val(Text1) + Val(Text2)End Sub Private Sub Command10_Click()If Text1 <> "" Then If Sin(Val(Text1) / 180 * 3.141592) <> 0 Then Text3 = 1 / Tan(Val(Text1) / 180 * 3.141592) Else Text3 = "Ошибка!"If Text2 <> "" Then If Sin(Val(Text2)) <> 0 Then Text3 = 1 / Tan(Val(Text2)) Else Text3 = "Ошибка!"End SubPrivate Sub Command2_Click()Text3 = Val(Text1) - Val(Text2)End SubPrivate Sub Command3_Click()Text3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command4_Click()If Val(Text2) <> 0 Then Text3 = Val(Text1) / Val(Text2) Else Text3 = "Ошибка!"End SubPrivate Sub Command5_Click()If Val(Text2) <= 50 And Val(Text1) < 100000 Then Text3 = Val(Text1) ^ Val(Text2) Else Text3 = "ОШИБКА!"End SubPrivate Sub Command6_Click()Text3 = ""Text1 = ""Text2 = ""End SubPrivate Sub Command7_Click()If Text1 <> "" Then Text3 = Sin(Val(Text1) / 180 * 3.141592) Else Text3 = Sin(Val(Text2))End SubPrivate Sub Command8_Click()If Text1 <> "" Then Text3 = Cos(Val(Text1) / 180 * 3.141592) Else Text3 = Cos(Val(Text2))End SubPrivate Sub Command9_Click()If Text1 <> "" Then If Cos(Val(Text1) / 180 * 3.141592) <> 0 Then Text3 = Tan(Val(Text1) / 180 * 3.141592) Else Text3 = "Ошибка!"If Text2 <> "" Then If Cos(Val(Text2)) <> 0 Then Text3 = Tan(Val(Text2)) Else Text3 = "Ошибка!"End Sub Программный код «Калькулятор» Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Интерфейс «Бегущая рекламная строка» Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Программный код «Бегущая рекламная строка» Dim a, b, c, d, e As StringDim x, y, i, i1, x1, y1, r, r1, u, ccc As IntegerDim j, s As DoubleConst pi = 3.1416Private Sub Form_Load()a = «Конференция «ПРАЗДНИК НАУКИ - 2015 "x = Len(a)i = 0j = 0i1 = 0u = 2x1 = Form1.ScaleWidth / 2y1 = Form1.ScaleHeight / 2r = Form1.ScaleHeight / 2 - 100r1 = rs = 0.05End SubPrivate Sub Timer1_Timer()y = x - ib = Right(a, y)c = Left(a, x - y)d = b + cText1.Text = dLabel1.Caption = dCommand1.Caption = dPSet (x1 + r * Cos(-j), y1 + r * Sin(-j)), &H8000000Fe = Mid(a, x - i1, 1)Form1.ForeColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)Print ei = i + 1i1 = i1 + 1j = j + sr = r - uIf r < 10 Or r > r1 Then u = -uIf i = x + 1 Then i = 0If i1 = x Then i1 = 0End Sub Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Интерфейс «Движение по окружности» Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Dim x, y, x2, y2 As Integer Dim i, t As Double Private Sub Command1_Click() End End Sub Private Sub Form_Load() Scale (0, 0)-(200, 200) i = 0 End Sub Private Sub Timer1_Timer() DrawWidth = 10 Circle (100, 100), 80, &HFF0000 i = i + VScroll1.Value / 500 x = 100 + (80 - Shape1.Width / 2 * Cos(i)) * Cos(i) y = 100 + (80 - Shape1.Height / 2 * Sin(i)) / 0.82 * Sin(i) Shape1.FillColor = &HFF& Shape1.Left = x Shape1.Top = y x2 = 100 + (80 - Shape2.Width / 2 * Cos(i + 3.14)) * Cos(i + 3.14) y2 = 100 + (80 - Shape2.Height / 2 * Sin(i + 3.14)) / 0.82 * Sin(i + 3.14) Shape2.FillColor = &HFF& Shape2.Left = x2 Shape2.Top = y2 Line (100, 100)-(100 + 45 * Cos(i), 100 + 45 / 0.82 * Sin(i)), RGB(Rnd * 255, Rnd * 255, Rnd * 255) Line (100, 100)-(100 + 45 * Cos(i + 3.14), 100 + 45 / 0.82 * Sin(i + 3.14)), RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub Программный код «Движение по окружности» Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Интерфейс программы «Координатная плоскость» и результаты работы Интерфейс программы «Три в одном»(общий) и окна Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Руководитель: Незнанов Сергей Александрович – nsa59@mail.ru Интерфейс программ