Merlin(sihirbaz) Saati Göster

'**********************************************************************************************
'not=Project menüsünden components tıklayın gelen bölümde Microsoft Agent Control 2.0 seçin
'**********************************************************************************************
Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"



Private Sub Command1_Click()
TimeHold = Format(Time, "hh:mm")
TimeHold = Left(TimeHold, 2)
Select Case TimeHold
Case 0 To 12
merlin.Speak "Günaydın "
merlin.Speak "Saat : " & Format(Time, "hh:mm")
Case 13 To 17
merlin.Play "Announce" 'BORAZAN ÇALAR
merlin.Speak "Öğleden Sonra"
merlin.Speak "Saat : " & Format(Time, "hh:mm")
Case 18 To 20
merlin.Play "Announce" 'BORAZAN ÇALAR
merlin.Speak "İyi Akşamlar"
merlin.Speak "Saat : " & Format(Time, "hh:mm")
Case 20 To 23
merlin.Play "Announce" 'BORAZAN ÇALAR
merlin.Speak "İyi Geceler"
merlin.Speak "Saat : " & Format(Time, "hh:mm")
Case Else
merlin.Play "Read"
merlin.Speak "Saat : " & Format(Time, "hh:mm")
End Select
End Sub

Private Sub Form_Load()
Agent1.Characters.Load "merlin.acs", DATAPATH
Set merlin = Agent1.Characters("merlin.acs")
merlin.LanguageID = &H409
merlin.Show 'MERLİNİ GÖSTERİR
End Sub