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

[RainDigital]

استفاده کنیمMICROSOFT AGENTچگونه در برنامه های ویژوال بیسیک از

----------------------------------------------------

فقط بنویسید که ترکوندم یانه

بوده که من ارور های اون رو دیباگ کردم وامکانات جدیدی هم کشف کردم که نمونش توی مایکروسافت هست تادییر نشده به سایت رسمی این پدیده سربزنیدidevcenterنویسنده اصلی سایت

http://www.microsoft.com/msagent

حالا کار رو شروع میکنیم

--------------------------------------------

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

یه سری به صفحه محصولات سایتم بزنید

در عکس نرم افزار هام میبینید که از آدمک مرلین استفاده کردم(همون جادوگره) و یا در نسخه حای قدیمی تر آفیس همون منگنه ه که براتون شکلک درمیاره حالا حتما دوزاری تون افتاده مگر نه(خطر ریزش دوزاری) این پدیده جز برنامه نویسی شی گرا در ویژوال بیسیک محسوب میشود

از قبل شما باید این پدید رو دانلود کنید یعنی همون کنترل اکتیو اکسش و Robby.acs

----------------------------------------------

اول بریم سراغ متغیر هایی که باید براش تعریف بکنیم:

Public agent As Object

خوب این متغیری هست که اطلاعات این آدمک مارو توخودش نگهداری میکنه

ما کنترل اکتیو اکسمونو تو برنامه قرار میدیم و اسمشو میزاریم... "Agent1"

Agent1.Characters.Load "myagent", "C:\WINDOWS\msagent\chars\Robby.acs"
Set agent = Agent1.Characters("myagent")

با این کد ها اون رو لود میکنیم(چی بگم؟)

MyAgent.Show

بااین دستور اون رو نماش میدیم

اگه شما Microsoft Text2Speech Engine رو تو ویندوزتون نصب کرده باشید میتونید به Agent بگین که براتون صحبت کنه. پس به طریق زیر عمل کنید:

MyAgent.Speak "Look! I can speak!"

چون حصلشو ندارم اینو به چندین قسمت تقسیم میکنم لطفا این به صورت یک مقاله در بیارید وتو قسمت مقالات سایت قرار بدید من نمیدونم کی باید اینکارو بکنه شاید ابو القاسم علوی زاده یعنی همون مجید علوی زاده فقط صبر کنید تموم که شد اینا رو با هم قاطی کنید و بزارید یادر مقالات مختلف

خدا حافظ

 

[MnavidM]

سلام.

ممنون جالب بود .

منتظر بقیش هستیم .

موفق باشی.
نوید.

 

[RainDigital]

man 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