تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836205361
استفاده کنیم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]
[تعداد بازديد از اين مطلب: 238]
-
گوناگون
پربازدیدترینها