Реферат Програмне забезпечення роботи компанії на прикладі "ТОВ Система ПК"

= 21 Then.Text = "Я збуджений". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 22 Then.Text = "Я енергійний". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 23 Then.Text = "Я розлючений ". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 24 Then.Text =" Я пишаюся своїми шкільними успіхами ". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = False

End Ifa = 25 Then.Text = "Я відчуваю себе абсолютно вільно"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 26 Then

Label1.Text = "Я відчуваю, що у мене добре працює голова"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 27 Then.Text = "Я роздратований". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 28 Then.Text = "Я вирішую найважчі завдання". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 29 Then

Label1.Text = "Мені не вистачає впевненості в собі"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 30 Then.Text = "Мені нудно". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 31 Then.Text = "Мені хочеться що-небудь зламати". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 32 Then.Text = "Я намагаюся не отримати двійку". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 33 Then.Text = "Я урівноважений". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 34 Then

Label1.Text = "Мені подобатися думати, вирішувати"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 35 Then

Label1.Text = "Я відчуваю себе обдуреним"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 36 Then

Label1.Text = "Я прагну показати свої здібності і розум"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 37 Then.Text = "Я боюся". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 38 Then.Text = "Я відчуваю смуток і тугу". Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 39 Then

Label1.Text = "Мене багато що приводить в лють"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 40 Then

Label1.Text = "Я хочу бути серед кращих"

RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 41 Then.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = TrueIfa = 41 Then

res = s1 + s2 - s3 - s4

'Висновок і запис результату в сховище

If res> = 40 And res <= 60 Then ("Пізнавальна активність:" & s1 & "(" & n1 & ")" & ; vbCrLf &

"Мотивація досягнення:" & s2 & "(" & n2 & ")" & vbCrLf &

"Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf &

"Гнів:" & s4 & "(" & n4 & ")" & vbCrLf &

"У результаті:" & res & "Рівень I" & vbCrLf &

"Висновок:" & vbCrLf &

"Продуктивна мотивація з вираженим переважанням позновательной мотивації навчання і позитивним емоційним ставленням до нього" & vbCrLf &,. OkOnly, Title: = "Результат тесту"). Computer.FileSystem.WriteAllText ( CurDir () + "/ bd /" + TextBox4.Text + "_" + TextBox1.Text + "_" + TextBox2.Text + "_" + TextBox3.Text + ". txt", " ; Пізнавальна активність: "& s1 &" ("& n1 &") "& vbCrLf &" Мотивація досягнення: "& s2 &" ("& n2 & ")" & vbCrLf & "Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf & "Гнів:" & s4 & "(" & n4 & ")" & vbCrLf & "У результаті:" & res & vbCrLf & "Висновок:" & vbCrLf & ; "Продуктивна мотивація з вираженим переважанням позновательной мотивації навчання і позитивним емоційним ставленням до нього", True)

End Ifres> = 29 And res <= 44 Then ("Пізнавальна активність:" & s1 & "(" & n1 & ")" & ; vbCrLf &

"Мотивація досягнення:" & s2 & "(" & n2 & ")" & vbCrLf &

"Тривожність:" & s3 & "(" & n3 & ")" & vbCrLf &

"Гнів:" & s4 & "(" & n4 & ")" & vbCrLf &

"У результаті:" & res & "Рівень II" & vb...