دوست خيلي خوبم جناب آقاي محمد 2003 (Mamad2003) زحمت يه برنامه خيلي خيلي توپ رو كشيدن كه من جدا خيلي وقت بود دنبالش بودم و ميخواسستم ازش استفاده كنم (فكر ميكردم بايد برنامه بنويسم واسش) . ولي نميدونستم با يه كامپونتت ساده ميشه اين كارو انجام داد (جل الخالق).
حالا هم ايشون زحمت كشيدن و اين برنامه رو اينجا زدن ميخوام ببينم چطور ميشه آپشن هاي اينو عوض كرد و فارسي كردشو و ... واسه همين اينجا اينو زدم تا هر كي هرچي از اين آبجكت ميدونه بزنه.
اول از همه لينك برنامه رو اينجا ميزارم
http://www.iranvig.com/modules.php?name=...=0&thold=0
اينم تصويرش كه جدا آدمو حال مياره
![[تصویر: modules.php?name=News&file=log&sid=183&kind=0]](http://www.iranvig.com/modules.php?name=News&file=log&sid=183&kind=0)
خودم اولش بگم اون نوشته ها اسمش بالونه و خيلي پارامتر داره كه نمونش اينها هستن.
کد:
char1.Balloon.BackColor
char1.Balloon.BorderColor
char1.Balloon.CharsPerLine
char1.Balloon.Enabled
char1.Balloon.FontBold
char1.Balloon.FontItalic
char1.Balloon.FontName
char1.Balloon.FontSize
char1.Balloon.FontStrikethru
char1.Balloon.FontUnderline
char1.Balloon.ForeColor
char1.Balloon.NumberOfLines
char1.Balloon.Style
char1.Balloon.Visible
كه توش char1 اسم آبجكت آجنتمه و Balloon خاصيت بالونه و بقيشم كه حتما ميدونيد.(واسه فارسي شدنش من فقط اين خاصيت رو استفاده كردم خيلي بيس شد)
کد:
char1.Balloon.FontName = "Tahoma"
آقا اشكان با تشكر و همچنين با تشكر از آقا مهدي براي تكميل كردن برنامه .
البته بايد اضافه كنم كه اين كامپوننت غير از Merlin چند شخصيت ديگه هم داره .
دو تا از اونها رو كه ميدونم ميگم :
Robby يك كاراكتر ربات است .
Genie هم همون كاراكتر غول چراغ است .
براي صحبت كردن اين كاراكتر ها هم دستوراتي وجود دارد كه بايد مستقيما در متني كه كاراكتر
مي خونه قرار بديم .
\chr=string\ اين دستور تن صدا را مشخص مي كند كه مقادير ممكنه براي string عبارتند از : normal , monotone , whisper
\Emp\ اين دستور بر روي لغت تاكيد مي كند .
\Lst\ اين دستور آخرين عبارت را تاكيد مي كند .
\Pau=number\ اين دستور ايجاد مكث در گفتار مي كنه به مدت number ميلي ثانيه .
\Pit=number\ اين دستور براي تغيير اوج صدا بين 5 تا 400 هرتز ( بجاي number ).
\Spd=number\ اين دستور براي تغيير در سرعت گفتار بين 50 تا 250 .
\Vol=number\ اين دستور براي تغيير ولوم بين 0 تا 65535 ( از سكوت تا حداكثر صدا ).
اميدوارم مطالب بالا بدرد بخور باشد.
Mamad2003 نوشته است:آقا اشكان با تشكر و همچنين با تشكر از آقا مهدي براي تكميل كردن برنامه .
البته بايد اضافه كنم كه اين كامپوننت غير از Merlin چند شخصيت ديگه هم داره .
دو تا از اونها رو كه ميدونم ميگم :
Robby يك كاراكتر ربات است .
Genie هم همون كاراكتر غول چراغ است .
براي صحبت كردن اين كاراكتر ها هم دستوراتي وجود دارد كه بايد مستقيما در متني كه كاراكتر
مي خونه قرار بديم .
\chr=string\ اين دستور تن صدا را مشخص مي كند كه مقادير ممكنه براي string عبارتند از : normal , monotone , whisper
\Emp\ اين دستور بر روي لغت تاكيد مي كند .
\Lst\ اين دستور آخرين عبارت را تاكيد مي كند .
\Pau=number\ اين دستور ايجاد مكث در گفتار مي كنه به مدت number ميلي ثانيه .
\Pit=number\ اين دستور براي تغيير اوج صدا بين 5 تا 400 هرتز ( بجاي number ).
\Spd=number\ اين دستور براي تغيير در سرعت گفتار بين 50 تا 250 .
\Vol=number\ اين دستور براي تغيير ولوم بين 0 تا 65535 ( از سكوت تا حداكثر صدا ).
اميدوارم مطالب بالا بدرد بخور باشد.
آقا ممنون.
اگه كسي ديگه چيزي ميدونه بگه ها لازمه.
راستي ممد خان اونيكه گفتم رو انجام داردي يا نه.(پشت گوش ننداز بخدا خيلي خوب ميشه)
البته فضولي نباشه !منم يكي از اينها ديدم. يه ميمونه. يكي ديگه هم هست. يه موجوديه توي بعضي جاكليديها ميگن با آدما حرف ميزنه. شارلاتان بازيه چون هيچ كار خاصي نميكنه.چندتا جمله بيشتر بلد نيست. البته با اون حافظه كم نبايد هم بتونه كاري بكنه؟! اما ميمونه معركهاس! بستگي به تو داره كه چه جوري باهاش حرف بزني. يه نرمافزاري هم هست اسمش شكسپيره يه همچي چيزي براش يه سبكه عصبي نوشتند. من ديدم كه زبان يادميگيره و به آدما ياد ميده. يعني جملات رو طبق روالي كه بهش گفتند با بقيه چك ميكنه. ميشه مادلين رو اينطوري آموزشاش داد. من چه ميدونم؟!
سلام به همگي
من در برنامه هايم از اينجنت استفاده ميكنم
براي تغيير حالت برنامه ام از بي روحي
ولي خيلي وقته نميدانم ايجنت ها پيغام ها را نمي خوانند و فقط نمايش ميدهند
در ضمن من نميتوانم تمامي ايجنتها را براي شما بفرستم چون حجم زيپ شده آن برابر 72MG است لطفا مرا در برنامه ام و فرستادن فايلها راهنمايي كندي
من نميدانم چه دستوري بايد بنويسم تا بالن يك ايجنت بصورت مسج باكس نباشه و روي بالن دكمه داشته باشه
من حدود 20 تا فايل ايجنت دارم ACS
لطفا بهم بگويد چطور برايتان بفرستم