Agent Kullanımı - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html) +--- Konu Başlığı: Agent Kullanımı (/konu-agent-kullanimi.html) |
Agent Kullanımı - esrefigit - 01/04/2009 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 ekler bu adresde https://cid-19191812cc1d9a7e.skydrive.live.com/browse.aspx/access Cvp: Agent Kullanımı - chopper07 - 01/04/2009 hocam resimler çok güzel bişey olduğu belli oluyor. Ellerinize Sağlık Cvp: Agent Kullanımı - C*e*l*o*y*c*e - 01/04/2009 Teşekkürler hocam merakla aslını bekliyoruz Cvp: Agent Kullanımı - accessman - 02/04/2009 teşekkürler Cvp: Agent Kullanımı - esrefigit - 02/04/2009 konuya örnek eklenmiştir Cvp: Agent Kullanımı - esrefigit - 02/04/2009 örnekler |