AccessTr.neT

Sayfalar: 1 2 3

Agent yardımcı konuşan nesnelerdir metin yada konuşma olarak size görünürler
neyse
örnek klasördeki acs nesnelerini
C:\WINDOWS\msagent\chars klasörünün içine kopyalayın
sonra örneği çalıştırın

yorumu ondan sonra yapın size bir kaç animasyon ve tipler daha ekliyorum onalrıda deneyip görürsünüz ha unutmadan her acs karakteri bütün hareketleri yapacak diye bir şey yok örneğe eklediğim karakterin yapabileceği hareketler ve tipleri aşağıda veriyorum

BUNLARDA TİPLER

Kirei_Special.Play "stickit"
Kirei_Special.Play "wow"
Kirei_Special.Play "lookaround"
Kirei_Special.Play "quiz"
Kirei_Special.Play "angry"
Kirei_Special.Play "blink1"
Kirei_Special.Play "showing"
Kirei_Special.Play "Meditate"
Kirei_Special.Play "Alien1"
Kirei_Special.Play "Alien2"
Kirei_Special.Play "Biker"
Kirei_Special.Play "Bikini"
Kirei_Special.Play "Body"
Kirei_Special.Play "Plastic"
Kirei_Special.Play "Sensual"

HAREKETLER

Kirei_Special.Play "Afraid" KAŞLARI KALDIR
Kirei_Special.Play "Blink" GÖZLERİ KIRP
Kirei_Special.Play "Cry" AĞLA
Kirei_Special.Play "Furious" DİŞLERİ GÖSTER
Kirei_Special.Play "Furious2" DİŞLERİ GÖSTER
Kirei_Special.Play "Hide" SELAM VER
Kirei_Special.Play "LookLeft" SOLA BAK
Kirei_Special.Play "LookRight" SAĞA BAK
Kirei_Special.Play "Meditate" SELAM VER
Kirei_Special.Play "Perplex" ŞAŞIR
Kirei_Special.Play "Pleased" GÜLÜMSE
Kirei_Special.Play "Restpose"
Kirei_Special.Play "Sad" ŞAŞIR
Kirei_Special.Play "Scared"
Kirei_Special.Play "Show" SELMA YİNE
Kirei_Special.Play "Smile"
Kirei_Special.Play "Surprised"
Kirei_Special.Play "Think" DİNLEN BEKLE

fakat diğerlerinin hareketleri kısıtlı ayrıca size birde acs yapabileceğiniz microsoftun programını ekledim ondada kendi acs lerini yani kendi karakterleriniz yapabilirsiniz

o konudada daha sonra bilgi verilecek

örnekteki kodlar bunlar
Option Explicit
Private WithEvents MSAgent As Agent
Private Kirei_Special As IAgentCtlCharacterEx

Private Sub Form_Load()
'agent yaratma
Set MSAgent = New Agent

'karakter yükleme
MSAgent.Characters.Load "Plastic", "C:\WINDOWS\msagent\chars\Kirei_Special.acs"
Set Kirei_Special = MSAgent.Characters("Plastic")
Kirei_Special.SoundEffectsOn = True
'karakterin yeri
Kirei_Special.Left = 500
Kirei_Special.MoveTo x:=800, y:=300

Kirei_Special.LanguageID = &H41F 'türkçe karakter tanıma
Kirei_Special.GestureAt x:=20, y:=45

'karakteri gösterme
Kirei_Special.Show True
'aslnda bu karakterde text yok ama başka karakterlerde var size onlarda işe yarayacak diye koda ekledim
Kirei_Special.Speak "aloo bu kısıma bir şey yazılmayacak?"

End Sub

Kirei_Special.Play "Think"bu kısım yukrda verdiğim animasyon ve tiplerle değiştirilerek ne ler olduğunu görün

eklenti eklenmiyor sonra eklerim önce resimlerini ekleyeyim

[Resim: resim1h.jpg]