## Voice Handicap Index- 9 international (VHI-9)
## Source:  T. Nawka; I.M. Verdonck-de Leeuw; M. De Bodt; I. Guimaraes; E.B. Holmberg; C.A. Rosen; 
## A. Schindler; V. Woisard; R. Whurr; U. Konerding (2009). Item reduction of the voice handicap index based 
## on the original version and on European translations. Folia Phoniatrica et Logopaedica, 61: 37-48. 
## [DOI: 10.1159/000200767]
## Scripted by Lei He, Phonetics Laboratory, University of Zurich.
## lei.he@uzh.ch; helei@rocketmail.com


form Voice Handicap Index- 9 international (VHI-9i)
comment These are statements that many people have used to describe
comment their voices and the effects of their voices on their lives. Check the
comment response that indicates how frequently you have the same experience.
choice Language_preference 1
	button English
	button Deutsch 
endform

if language_preference = 1

	beginPause: "[Question ID: F1]"
		comment: "Question 1/9"
		comment: "My voice makes it difficult for people to hear me."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_1", 0
	endPause: "Next", 1

	beginPause: "[Question ID: F3]"
		comment: "Question 2/9"
		comment: "People have difficulty understanding me in a noisy room."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_2", 0
	endPause: "Next", 1

	beginPause: "[Question ID: P4]"
		comment: "Question 3/9"
		comment: "The sound of my voice varies throughout the day."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_3", 0
	endPause: "Next", 1

	beginPause: "[Question ID: F5]"
		comment: "Question 4/9"
		comment: "My family has difficulty hearing me, when I call them throughout the house."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_4", 0
	endPause: "Next", 1

	beginPause: "[Question ID: F16]"
		comment: "Question 5/9"
		comment: "My voice difficulties restrict my personal and social life."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_5", 0
	endPause: "Next", 1

	beginPause: "[Question ID: P17]"
		comment: "Question 6/9"
		comment: "The clarity of my voice is unpredictable."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_6", 0
	endPause: "Next", 1

	beginPause: "[Question ID: P21]"
		comment: "Question 7/9"
		comment: "My voice is worse in the evening."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_7", 0
	endPause: "Next", 1

	beginPause: "[Question ID: E24]"
		comment: "Question 8/9"
		comment: "I am less outgoing because of my voice problem."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_8", 0
	endPause: "Next", 1

	beginPause: "[Question ID: E29]"
		comment: "Question 9/9"
		comment: "My voice makes me feel incompetent."
		comment: "0=never; 1=almost never; 2=sometimes; 3=almost always; 4=always"
		integer: "Answer_9", 0
	endPause: "Finish", 1
	
elsif language_preference = 2

	beginPause: "[Frage ID: F1]"
		comment: "Frage 1/9"
		comment: "Man hört mich wegen meiner Stimme schlecht."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_1", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: F3]"
		comment: "Frage 2/9"
		comment: "Anderen fällt es schwer, mich in einem lauten Raum zu verstehen."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_2", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: P4]"
		comment: "Frage 3/9"
		comment: "Der Klang meiner Stimme ändert sich im Laufe des Tages."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_3", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: F5]"
		comment: "Frage 4/9"
		comment: "Meine Familie hört mich kaum, wenn ich zuhause nach ihnen rufe."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_4", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: F16]"
		comment: "Frage 5/9"
		comment: "Meine Stimmschwierigkeiten schränken mich in meinem Privatleben ein."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_5", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: P17]"
		comment: "Frage 6/9"
		comment: "Bevor ich spreche, weiss ich nicht wie klar meine Stimme klingen wird."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_6", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: P21]"
		comment: "Frage 7/9"
		comment: "Abends ist meine Stimme schlechter."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_7", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: E24]"
		comment: "Frage 8/9"
		comment: "Ich bin weniger kontaktfreudig wegen meines Stimmproblems."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_8", 0
	endPause: "Nächster", 1

	beginPause: "[Frage ID: E29]"
		comment: "Frage 9/9"
		comment: "Wegen meiner Stimme fühle ich mich unfähig."
		comment: "0=nie; 1=selten; 2=manchmal; 3=oft; 4=immer"
		integer: "Answer_9", 0
	endPause: "Fertig", 1

endif

sum = answer_1 + answer_2 + answer_3 + answer_4 + answer_5 + answer_6 + answer_7 + answer_8 + answer_9

if language_preference = 1

	writeInfoLine: ">>>Report<<<" 
		if sum < 9
				appendInfoLine: "You have healthy voice."
			elsif sum >= 9
				appendInfoLine: "You may need to consult a specialist." 
		endif

elsif language_preference = 2

	writeInfoLine: ">>>Bericht<<<"
		if sum < 9
				appendInfoLine: "Sie haben eine gesunde Stimme."
			elsif sum >= 9
				appendInfoLine: "Möglicherweise müssen Sie einen Spezialisten zu konsultieren."
		endif

endif