Информационное обеспечение деятельности предприятия "ЕАЕ-Консалт"
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
21 And s2 = 10 And s4 <= 11) Then= "Низкий"Ifn1 = "Высокий" And (n3 = "Низкий" Or n3 = "Норма") And n4 = "Низкий" Then
res1 = "Продуктивная мотивация и позитивное эмоциональное отношение к учебе"
End Ifn1 = "Норма" And (n3 = "Низкий" Or n3 = "Норма") And n4 = "Низкий" Then
res1 = "Позитивное отношение к учебе"
End Ifn1 = "Низкий" And (n3 = "Низкий" Or n3 = "Норма") And (n4 = "Низкий" Or n4 = "Норма") Then= "Переживание скуки"Ifn1 = "Норма" And (n3 = "Низкий" Or n3 = "Норма") And (n4 = "Низкий" Or n4 = "Норма") Then
res1 = "Диффузное эмоциональное отношение"If
If n1 = "Норма" And (n3 = "Низкий" Or n3 = "Норма") And n4 = "Высокий" Then
res1 = "Диффузное эмоциональное отношение при фрустрированности значимых потребностей"
End Ifn1 = "Низкий" And (n3 = "Низкий" Or n3 = "Норма") And n4 = "Высокий" Then
res1 = "Негативное эмоциональное отношение"If
If n1 = "Высокий" And n3 = "Низкий" And n4 = "Высокий" Then
res1 = "Резко отрицательное отношение к учебе"
End Ifn1 = "Высокий" And n3 = "Высокий" And n4 = "Высокий" Then
res1 = "Чрезмерно повышенная эмоциональность на уроке, обусловленная неудовлетворением ведущих социогенных потребностей"
End Ifn1 = "Высокий" And n3 = "Высокий" And n4 = "Норма" Then
res1 = "Повышенная эмоциональность на уроке"
End If(n1 = "Норма" Or n1 = "Низкий") And n3 = "Высокий" And (n4 = "Норма" Or n4 = "Низкий") Then= "Тревожность"Ifn1 = "Высокий" And (n3 = "Норма" Or n3 = "Низкий") And n4 = "Высокий" Then
res1 = "Позитивное отношение при фрустрированности потребностей"
End If(n1 = "Высокий" Or n1 = "Норма") And n3 = "Низкий" And (n4 = "Низкий" Or n4 = "Срений") Then
res1 = "Позитивное отношение при повышенной чувствительности к оценочному аспекту обучения"
End If
End Sub
Открытие инструкции
Private Sub КакПройтиТестToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КакПройтиТестToolStripMenuItem.Click.Show()Sub
Закрытие формыSub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
Me.Close()Sub
Открытие результатов
Private Sub РезультатыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles РезультатыToolStripMenuItem.Click.Show()SubClassClass Form4Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Выводим список файлов из папкиdir As New IO.DirectoryInfo(CurDir() + "\bd\")d1 As IO.FileInfo() = dir.GetFiles()d2 As IO.FileInfoEach d2 In d1.Items.Add(d2).Controls.Add(ListBox1) Sub
Открываем выделенный файл
Dim fl As String
Dim way As StringSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click= ListBox1.Text= My.Computer.FileSystem.ReadAllText(CurDir() + "\bd\" + way)("Результат: " + fl, MsgBoxStyle.OkOnly, Title:="Результат теста")
End SubClass
В Form2 используется только вывод текста.
Выводы
Прохождение практики в Усинском филиале ЕАЕ-Консалт дало мне ни с чем не сравнимый опыт, а также укрепил навыки работы с привычными для меня программами. За это время я познакомился с многими знающими свое дело людьми, которые смогли поделиться со мной опытом работы в этой компании, все эти приобретенные навыки и знания помогут мне в дальнейшем в будущей работе. За время работы я ознакомился со структурой многих обслуживаемых предприятий, увидел много нового, и то как работают люди разных профессий. Иногда при решении проблем приходилось сталкиваться с трудностями (в основном от незнания устройства, того, либо другого устройства или программы), которые решались с помощью долгого гипнотизирования технической документации. Я считаю, что прохождение практики дало мне немного переосмыслить все отношение к этой профессии.