Everything is pointless from a certain perspective.

utena.egloos.com

포토로그




High-intensity interval training용 음성 타이머

1분 95% VO2 max짓하고 75초 쉬는 걸 10번 반복하다보니 타이머가 있으면 좋겠다는 생각이 들어서 결국 text-to-speech를 써서 구현.....................하고보니 이걸 녹음해서 발전화기에서 플레이하면 되것다!라는 생각이 들길래 audacity로 녹음................하고보니 칼같이 시간맞추고 싶어서 결국 편집질 -_-

하여간 다음은 windows에서 vb script로 구현한 TTS. 남의 코드짜깁기.

Sub countdown()
Set SpVoice = CreateObject("SAPI.SpVoice")
SpVoice.Rate = 1
SpVoice.Speak "five"
SpVoice.Rate = 0
SpVoice.Speak "four"
SpVoice.Rate = 1
SpVoice.Speak "three"
SpVoice.Speak "two"
SpVoice.Speak "one"
End Sub

'wait 5 seconds.
'WScript.Sleep 5000
countdown()
Set SpVoice = CreateObject("SAPI.SpVoice")
SpVoice.Rate = 1

For i = 1 To 10

SpVoice.Speak "exercise start" '2 sec
'wait 55 sec
WScript.Sleep 54000
countdown()

if i=10 then
SpVoice.Speak "session over"
exit for
end if

SpVoice.Speak "recovery" '1sec
'wait 69 sec
WScript.Sleep 69400
countdown()
Next