- Katılım
- 13 Ocak 2010
- Mesajlar
- 1
- Excel Vers. ve Dili
-
Excel 2007
Visual Basic
Powerpoint te msagent - merlin oluşturmaya çalışıyorum ama beceremiyorum...
Bazı örnek vb kodları buldum ancak powerpoint te bu kodları çalıştıramıyorum...
Powerpoint te buton ekleyip kodları aynen kopyaladım ancak çalıştıramıyorum...
Dim merlin As IAgentCtlCharacter
Const datapath = "\deneme\merlin.acs"
merlin.Speak "EĞİLİP SELAM VERİYORUM"
merlin.Play "Uncertain" 'EĞİLİP SELAM VERİR
Private Sub CommandButton1_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
Private Sub CommandButton2_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
Private Sub CommandButton3_Click()
merlin.Speak "Tebrikler - Doğru Cevap"
merlin.Play "Explain" 'ELLERİNİ İKİ YANA AÇAR
End Sub
Private Sub CommandButton4_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
Private Sub CommandButton5_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
kodlar bu şekilde...
eksiğim sanırım Powerpoint le ilgili...
yardımcı olursanız sevinirim...
18 Ocak 2009 Pazartesi gunune ödev yetiştirmem gerekiyor...
Bazı örnek vb kodları buldum ancak powerpoint te bu kodları çalıştıramıyorum...
Powerpoint te buton ekleyip kodları aynen kopyaladım ancak çalıştıramıyorum...
Dim merlin As IAgentCtlCharacter
Const datapath = "\deneme\merlin.acs"
merlin.Speak "EĞİLİP SELAM VERİYORUM"
merlin.Play "Uncertain" 'EĞİLİP SELAM VERİR
Private Sub CommandButton1_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
Private Sub CommandButton2_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
Private Sub CommandButton3_Click()
merlin.Speak "Tebrikler - Doğru Cevap"
merlin.Play "Explain" 'ELLERİNİ İKİ YANA AÇAR
End Sub
Private Sub CommandButton4_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
Private Sub CommandButton5_Click()
merlin.Speak "Üzgünüm - Yanlış"
merlin.Play "Idle1_4"
End Sub
kodlar bu şekilde...
eksiğim sanırım Powerpoint le ilgili...
yardımcı olursanız sevinirim...
18 Ocak 2009 Pazartesi gunune ödev yetiştirmem gerekiyor...