استفاده کنیمmicrosoft Agentچگونه در برنامه های ویژوال بیسیک از -

واضح آرشیو وب فارسی:سایت ریسک: t=38322">استفاده کنیمmicrosoft Agentچگونه در برنامه های ویژوال بیسیک از RainDigital 24 شهريور 1384, 16:03استفاده کنیمMICROSOFT AGENTچگونه در برنامه های ویژوال بیسیک از ---------------------------------------------------- فقط بنویسید که ترکوندم یانه بوده که من ارور های اون رو دیباگ کردم وامکانات جدیدی هم کشف کردم که نمونش توی مایکروسافت هست تادییر نشده به سایت رسمی این پدیده سربزنیدidevcenterنویسنده اصلی سایت حالا کار رو شروع میکنیم -------------------------------------------- اول باید بونید این پدیده ای که ازش هی مینویسم چی هست؟ یه سری به صفحه محصولات سایتم بزنید در عکس نرم افزار هام میبینید که از آدمک مرلین استفاده کردم(همون جادوگره) و یا در نسخه حای قدیمی تر آفیس همون منگنه ه که براتون شکلک درمیاره حالا حتما دوزاری تون افتاده مگر نه(خطر ریزش دوزاری) این پدیده جز برنامه نویسی شی گرا در ویژوال بیسیک محسوب میشود از قبل شما باید این پدید رو دانلود کنید یعنی همون کنترل اکتیو اکسش و Robby.acs ---------------------------------------------- اول بریم سراغ متغیر هایی که باید براش تعریف بکنیم: Public agent As Object خوب این متغیری هست که اطلاعات این آدمک مارو توخودش نگهداری میکنه ما کنترل اکتیو اکسمونو تو برنامه قرار میدیم و اسمشو میزاریم... "Agent1" Agent1.Characters.Load "myagent", "C:WINDOWSmsagentcharsRobby.acs" Set agent = Agent1.Characters("myagent") با این کد ها اون رو لود میکنیم(چی بگم؟) MyAgent.Show بااین دستور اون رو نماش میدیم اگه شما Microsoft Text2Speech Engine رو تو ویندوزتون نصب کرده باشید میتونید به Agent بگین که براتون صحبت کنه. پس به طریق زیر عمل کنید: MyAgent.Speak "Look! I can speak!" چون حصلشو ندارم اینو به چندین قسمت تقسیم میکنم لطفا این به صورت یک مقاله در بیارید وتو قسمت مقالات سایت قرار بدید من نمیدونم کی باید اینکارو بکنه شاید ابو القاسم علوی زاده یعنی همون مجید علوی زاده فقط صبر کنید تموم که شد اینا رو با هم قاطی کنید و بزارید یادر مقالات مختلف خدا حافظ MnavidM 26 شهريور 1384, 10:21سلام. ممنون جالب بود . منتظر بقیش هستیم . موفق باشی. نوید. RainDigital 07 مهر 1384, 15:22man fekr mkardam esteghbale bishtari az in beshe درس دوم چگونه یک فرم کنترل آدمک درست کنیم؟ اول متابق(شاید هم مطابق!) داده های زیر فرمتان را بسازید: -------------------- Type = Form Name: frmAgent Border Style = 4 Caption = Agent Control Height = 2550 Width = 3645 ------------------- Type = ComboBox Name = Grimace Height = 315 Left = 120 Sorted = True Style = 2 Text = Grimace Top = 120 Width = 1935 -------------------- Type = CommandButton Name = cmdPlay caption = &Play Height = 375 Left = 2160 Top = 120 width = 1335 ---------------------- Type = TexBox Name = TTS Height = 315 Left = 120 Text = Text To Speach Top = 600 Width = 1935 --------------------- Type = CommendButton Name = cmdTTS Caption = &Speach Height = 375 Left = 2160 Top = 600 Width = 1335 -------------------- Type = TextBox Name = T1 Height = 315 Left = 120 Text = 320 Top = 1080 Width = 185 --------------------- Type = TextBox Name = T2 Height = 315 Left = 1080 Text = 240 Top = 1080 Width = 975 -------------------- Type = commendButton Name = cmdMove caption = Mo&ve Height = 375 Left = 2160 Top = 1080 Width = 1335 ------------------- Type = TextBox Name = Think Height = 315 Left = 120 Text = TextToThink Top = 1680 width = 1975 -------------------- Type= CommendButton Name = cmdThink Caption = Think Left = 2160 Top = 1680 width = 1335 ------------------ من که خسته شدم. شما چطور؟ ولی بازم ادمه میدم.:-) Private Sub cmdMove_Click() If T1.Text <= 650 And T2.Text <= 950 Then frmMain.Ag.MoveTo T1.Text, T2.Text ElseIf T1.Text > 650 Or T2.Text > 950 Then MsgBox "ÂÏã˜ Èå ÈíÑæä ÕÝÍå äãÇíÔ ÈÑæÏ¿!!" End If End Sub Private Sub cmdPlay_Click() If Not Grimace.Text = Empty Then frmMain.Ag.Play Grimace.Text cmdPlay.Default = True End If End Sub Private Sub cmdThink_Click() frmMain.Ag.Play "Think" frmMain.Ag.Think Think.Text cmdThink.Default = True End Sub Private Sub cmdTTS_Click() frmMain.Ag.Speak TTS.Text cmdTTS.Default = True End Sub این کد ها ساده هستند ولی بریم سراغ کشفم: Private Sub Form_Load() Grimace.Clear For Each AnimationName In frmMain.Ag.AnimationNames Grimace.AddItem AnimationName Next End Sub اینم آخر سر کد آماده Private Sub TTS_Change() If Not Me.TTS.Text = Empty Then cmdTTS.Enabled = True Else cmdTTS.Enabled = True End If End Sub Private Sub TTS_Click() If TTS.Text = "Text To Speach" Then TTS.Text = " " End If End Sub

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 241]

اضافه شدن مطلب/حذف مطلب

صفحات پیشنهادی

استفاده کنیمmicrosoft Agentچگونه در برنامه های ویژوال بیسیک از
استفاده کنیمmicrosoft Agentچگونه در برنامه های ویژوال بیسیک از --t=38322 >استفاده کنیمmicrosoft Agentچگونه در برنامه های ویژوال بیسیک از RainDigital 24 ...

گوناگون

چرا پرینتر به کامپیوتر وصل نمیشود؟‌بررسی تمامی دلایل

بهترین سایت برای بررسی قیمت لحظه ای ارزهای دیجیتال

تقویم‌های رومیزی هوشمند: آینده‌ای نوآورانه در مدیریت زمان

شرکت طراحی سایت زئوس: انتخابی هوشمندانه برای کسب و کار شما

سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را...

چطور خواص دارویی زعفران ارگانیک می‌تواند زندگی شما را تغیی...

ایا مهاجرت کاری به کانادا بدون مدرک زبان امکان پذیر است؟

روح‌ الله مدبر: ایران باید برای مقابله با تهدیدات فزاینده،...

ماشین اصلاح صورت | مزایا و معایب استفاده از آن برای اصلاح ...

5 مورد از مهم ترین تجهیزات آشپزخانه صنعتی و فست فود

چگونه یک وکیل کیفری خوب می‌تواند مجازات شما را کاهش دهد؟⚖️...