Компьютерные технологии в диагностике
Дипломная работа - Психология
Другие дипломы по предмету Психология
2)2КсенияВладимир3144315246147418419141014111412341331144115241621173418311931202121142241
Лист анализ.
AB12314-151617-18-19110111112113-114-115116-117118-119-120-121122-123240без депрессии2551легкая депрессия2660субепрессивное состояние2770истинная депрессия
Форма UserForm3
Процедуры:
Private Sub CommandButton1_Click().Hide.ShowSubSub UserForm_Activate()introSub
Форма UserForm1
Процедуры:
Private Sub CommandButton1_Click()bind(TextBox1.Value)SubSub UserForm_Activate().TextBox1.Value = "".TextBox1.SetFocusSub
Форма UserForm2
Процедуры:
Private Sub CommandButton1_Click()goNextSubSub OptionButton1_Change().CommandButton1.Enabled = TrueSubSub OptionButton2_Change().CommandButton1.Enabled = TrueSubSub OptionButton3_Change().CommandButton1.Enabled = TrueSubSub OptionButton4_Change().CommandButton1.Enabled = TrueSubSub OptionButton5_Change().CommandButton1.Enabled = TrueSubSub UserForm_Activate()goFirstSub
Процедуры книги:
Private Sub Workbook_Open().ShowSub
Текст модуля:
Option ExplicitN As IntegerI As IntegerrepAnsw As BooleanselRes As RangeselAns As RangefinalRes As Rangeintro()head, noteApplication.Workbooks(1).Sheets("параметры теста")= .Range("B1").Value= .Range("C1").ValueWithUserForm3= head= noteWithSubbind(username)username = "" Then"Необходимо ввести имя и фамилию!"SubIfApplication.Workbooks(1).Sheets("результаты").Range("A2").Value = "" ThenselRes = .Range("A1").Range("B2").Value = "" ThenselRes = .Range("B1")selRes = .Range("A1").End(xlToRight).Range("B1")IffinalRes = selResselRes = selRes.Range("A2").FormulaR1C1Local = .Range("A1").FormulaR1C1Local.Value = usernameWith.Hide.ShowSubgoFirst()str As StringApplication.Workbooks(1).Sheets("параметры теста")= .Range("B1").Value= .Range("B2").Value= 1= (.Range("B3").Value = "да")UserForm2= .Caption + str= N= IWithWithselAns = Application.Workbooks(1).Sheets("содержание теста").Range("B2")UserForm2= selAns.Value.Caption = selAns.Range("B2").ValueselAns = selAns.Range("A3")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")IfIfIfIfWithSubgoNext()UserForm2.Enabled = FalseselRes = selRes.Range("A2").OptionButton1 Then selRes.Value = 1.OptionButton2 Then selRes.Value = 2.OptionButton3 Then selRes.Value = 3.OptionButton4 Then selRes.Value = 4.OptionButton5 Then selRes.Value = 5= I + 1I <= N Then= N= I= selAns.Value.Value = False.Value = False.Value = False.Value = False.Value = FalseNot repAnsw Then.Visible = False.Visible = False.Visible = False.Visible = False.Caption = selAns.Range("B2").ValueselAns = selAns.Range("A3")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")selAns.Value = "" Then.Caption = selAns.Range("B1").Value.Visible = TrueselAns = selAns.Range("A2")IfIfIfIfselAns = selAns.Range("A2")If' последний вопрос.Visible = False.Visible = False.Visible = False.Visible = False.Value = False.Value = False.Value = False.Value = False.Value = False.Enabled = False"Результат " & ": " & finalRes.ValueIfWithSub
Для анализа результатов в другой книге используется формула:
='[Шкала депрессии VBAтест.xls]результаты'!A1