Artificial Intelligence - هوش مصنوعی - سایفر روبات (Cypher Robot)

Artificial Intelligence - هوش مصنوعی (http://artificial.ir/intelligence/)

- پروژه های هوش مصنوعی در ایران (http://artificial.ir/intelligence/forum42.html)

- - سایفر روبات (Cypher Robot) (http://artificial.ir/intelligence/thread2.html)

با سلام خدمت دوستان و مخصوصا آقا سياوش ممنونم از زحمات شما دوست عزيز.مي خواستم ببينم دستور <repetitive> رو چي جوري بايد خذفش كنم من از خود بات حذف كردم بعد به روباتم يه دستوري دادم به نام جك
وقتي كه مي زني جك چند بار كه ميزنم پشت سر هم ديگه نمي نويسه الان من مي خوام برنامه رو ويرايش كنم كه من مثلا هر چند بار كه پشت سر هم بزنم جك اونم واسم جك نمايش بده اين از اين.بعد مي خواستم ببينم كه مي خوام اينويسيبل به بات اضافه كنم اگه ميشه يكم بيشتر توضيح بديد.بعدش اين دستور جديد /tip اگه امكانش هست يكم در مورد اين توضيح بديد.بعد الان مي خوام يه دستور اضافه كنم به نام /bf و وقتي كسي زد /bf روبات در status مثلا بنويسه بچه ها اين ياروو بي اف مي خواد .اين طوري آره. يا مثلا دستور gf
بگه اين طرف يا دوستمون gf مي خواد.بعدش سوالي كه ديگه داشتم برنمه رو از راه دور مديريت مي كنيد من هر كاري كردم نتونستم آيپي هم دادم چون adsl دارم هر كاري كردم نشد اگه ميشه يكم بيشتر توضيح بديد.
بعدش نحوه كامل براي نوشن پيغام هاي متداول در دستور /help .ممنونم بازم ازتون تشكر مي كنم به خاطره برنامه تون. با تشكر

در مورد تكرار من در پستي كه نسخه ي آخر رو در اون قرار دادم توضيح دادم، كافيه /joke رو به ثابت repeatSafeTerms در اول فايل frmMain.frm اضافه كنيد...
در مورد /tip كجاشو توضيح مي خواين؟ كافيه هر جا /tip مي بينيد با /joke مثلاً عوضش كنيد... بعد ليست جك هاتون رو توي جدول Tips‌ قرار بديد. يا همون جدول Tips رو توي Access كپي كنيدش با نام Jokes و هر جا Tips در سورس بود هم با Jokes عوض كنيد.
در مورد /gf و /bf هم ببينيد /status جچوري كار مي كنه... PersonId متغيري هست كه ID كسي كه pm داده توشه. با چند خط (دو خط مثلاً) اضافه كردن به بخش سويچ ها (كه كاملا با كامنت مشخصش كردم) مي تونيد اين كار رو انجام بديد...
در مورد /help مي تونيد هر مجموعه پيامي كه مي خواين بدبد. فايل modSwitchHelp رو باز كنيد...

فكر كنم اگر اين تاپيك رو از ابتدا بخونيد خيلي بيشتر با كد آشنا بشيد...

سلام
امیدوارم حال همگی دوستان عزیز خوب باشه.
اول از همه از آقای محمودیان برای ارائه ورژن جدید تشکر می کنم. برنامه نویسی با این سیستم کامنت گذاری خیلی سخته. کلا برنامه نویسی خیلی اعصاب می خواد.
برای این بات یه چند تا پیشنهاد دارم. البته شاید پیاده سازی هاش سخت باشه. اما خوب پیشنهاد دادن که ضرری نداره :) :

1)امکان پاسخ گویی با زمان
مثال:مثلا گفتگوی بین ساعت 11 PM تا 1 AM ، بات: "دیر وقته نمی خوای بخوابی؟"
مثلا گفتگوی بین ساعت 6 AM تا 8 AM ، بات: "صبح به این زودی تو اینترنت چی کار می کنی؟"
مثلا گفتگوی بین ساعات 12 PM تا 2 PM ، بات: "راستی، ناهار خوردی؟ ما که جاتون خالی کباب داشتیم. :)"

2)حس دلتنگی
اگه یوزر مثلا 5 روز با بات چت نداشت، دفعه بعد بات پیغام هایی مثل زیر بدهد :
بات: "کجایی پس؟ میدونی چند روز ازت خبر ندارم؟"
یا
بات: "بابا بی معرفت. مثل اینکه سرت خیلی شلوغه. وقت کردی یه سری هم به ما بزن. دلم خیلی برات تنگ شده."

3)امکان پاسخ اولیه همراه با شوخی و پس از تقاضای مجدد کاربر در رابطه با اون موضوع جواب منطقی. (منظورم جواب Random نیست.)
یوزر:ساعت چنده؟
بات:فروشی نیست:)
یوزر:ای بابا.حالا جدی بگو دیگه.
بات:09:20 AM

4)قابلیت نظرسنجی از افراد برای کارهای آماری برطبق سئوالات مطرح شده Admin بات (می توان دلایل را هم ذخیره کرد.)
بات:"یه سوال. به نظرت IE بهتره یا Firefox ؟
یوزر:"Firefox"
بات:"چرا؟"
یوزر:"خوب تو اینترنت یه سرچ کردم و بررسی ها رو خوندم. اما در کل IE خیلی کند هست و مشکلات زیادی داره."

5)یادآوری مناسبت ها و رویدادهای تاریخی
بات:"راستی محمد اگه گفتی امروز چه روزیه؟"
یوزر:"سه شنبه"
بات:"نه بابا مسخره منظورم اینه که چه مناسبتی هست؟
یوزر:"نمی دونم"
یات:"ای بابا امروز روز معلم هست دیگه"

6)امکان معرفی وب سایت همراه با موضوع
بات:"امروز داشتم تو اینترنت یه چرخی می زدم یه سایت خیلی جالب در رابطه با "هوش مصنوعی" دیدم. اگه به "هوش مصنوعی" علاقه داری لینکش رو بهت بدم."
یوزر:"آره. اتفاقا یه تحقیق در رابطه با هوش مصنوعی دارم.لینکش رو بفرست."
بات:"http://www.artificial.ir"

7)اگر هیچ کسی با بات مثلا 5 دقیقه چت نداشت بات یه وضعیت احساسی از آخرین فرد داشته باشه. مثلا اگه آخرین فرد بات رو ناراحت کرده، بات در اولین چت بعدی با یه شخص دیگه اون وضعیت رو بروز بده.
یوزر:"سلام.خوبی؟"
بات:"سلام.نه"
یوزر:"چرا؟"
بات:"یکی یه حرفی بهم زده خیلی ناراحتم"

8)اگه کاربر یه سئوالی پرسید که بات جوابی برای اون نداشت بتونه کلمات کلیدی اون سئوال رو در بیاره و با حذف اجزای غیر ضروری یه جمله مثل حروف اضافه و علامت سوال و علامت های نگارشی و ... یه جستجو برای یوزر انجام بده و لینک جستجو رو به اون اعلام کنه.
یوزر:"چطوری می شه ویندوز نصب کرد؟" ---(توضیح:جمله تبدیل بشه به "ویندوز نصب")
بات:"یه لحظه صبر کن"
بات:"این رو ببین"---(توضیح:لینک جستجو)
یوزر:"اوه! خیلی ممنونم."

9)عکس العمل در برابر روز تولد یوزر

یه چند تا پیشنهاد فنی :

1)مشکل Add Word و Refresh رو می شه حل کرد. اگه برای دکمه Add Word یه همچین کدی بنویسیم حل می شه و بعد از اضافه شدن رکورد جدید DataGrid بلافاصله Refresh می شه و دیگه نیازی به دکمه Refresh نیست :

كد:

Private Sub cAddWord_Click()

    adoMessage.Recordset.AddNew "Request", txtRequest.Text

    adoMessage.Recordset.Update "Response", txtResponse.Text  

End Sub

2)برای داخل تکست باکس tUser که پیش فرض متن "username" دارد می توان از کدهای زیر هم استفاده کرد :

كد:

Private Sub tUser_GotFocus()

If tUser.Text = "username" Then tUser.Text = ""

End Sub





Private Sub tUser_LostFocus()

If tUser.Text = "" Then tUser.Text = "username"

End Sub

3)حجم بانک های اطلاعاتی Access بعد از مدتی خود به خود افزایش پیدا می کنه و موجب کند شدن بیش از حد بانک می شه. در این رابطه می شه از کدهایی که کار همان گزینه Compact and Repair داخل خود Access را انجام می ده استفاده کرد. فکر کنم من کدش رو داشته باشم.

4)وقتی کاربر دکمه Sign in رو زد متن و عملکرد این دکمه به Cancel تغییر پیدا کنه.

5)در ضمن یه مشکل دیگه ای که داخل پروژه هست اینه که نمی شه فایل EXE رو ساخت و در موقع Make EXE هشدار می ده.

6)یه امکانی داخل VS.NET هست به نام Dataset . کارش اینه که می تونی مثلا یه Query از نوع Select بزنی و نتایج رو بریزی داخل به Dataset که در واقع مثل یه Table مجازی هست و دقیقا عین یه جدول بانک اطلاعاتی می تونی با سطرها و ستون هاش کار کنی و حتی Query هم بزنی. حسن این کار اینه که در مواقعی که داده ها تغییر آن لاین ندارند می شه کل داده ها رو یه بار خوند و ریخت داخل یه Dataset و برای بیرون کشیدن یه مقداری از اون جدول دیگه نیازی نیست که مجددا بخواهیم به اون بانک وصل بشیم بخصوص وقتی که تعداد مراجعات به بانک خیلی زیاد باشه. این کار توی سرعت خیلی تاثیر می گذاره. فکر کنم توی VS 6.0 و VB 6.0 نباشه. اما فکر کنم بشه با یه ترفندهایی پیاده سازی اش کرد. اگه بشه خیلی خوبه.

همین دیگه. خسته شدم اینا رو تایپ کردم. :)
با آرزوی موفقیت برای دوستان عزیز

سلام
اول از همه باید تشکر کرد از تمامی دوستان که یه پروژه بزرگی رو شروع کردن.

من یه مشکلی دارم در بوت
من وقتی یه دستوری اضافه کردم
مثلا کسی زد /Help در status یه چیزی بنویسه ولی وقتی می زنه /help خیلی طول می کشه دستور به status بره یا اینکه اگه دستوری دیگه زده باشی که status توش داشته باشه در آن تایم خاص اون رو می فرسته.
چطوری تنظیم کنم تا می زنه سریع به به status.

كد:



        ' Help switch

        ElseIf Left(Message, 5) = "/help" Then

            statusMessage = PersonId & " Dare Help Mano Mibine!"

            Response = helpSwitch(Message)

باتشکر ازشما

از دوستمون محمد جان اول از همه تشكر مي كنم بابت پست خيلي مفيدشون.
در نسخه هاي بعدي سعي مي كنم اين موارد رو اضافه كنم... و باگها بر طرف بشن.

در ارتباط با سوال آخر، دليل اينكه تأخيري در تعويض Status قرار دادم به خاطر اين هست كه در غير اين صورت اگر شخصي پشت سر هم /help بزنه مثلاً ياهو به خاطر تعويض هاي مكرر Status بات رو قطع مي كنه. و در ضمن اگر سرعت تعويض Status از يك حدي بيشتر بشه ياهو ديگه قبول نمي كنه Status هاي جديد رو كه اگر در صفحات قبل ببيني اين مشكل توضيح داده شده.
اما اگر مي خواين اين كار رو انجام بديد كافيه از دستور زير استفاده كنيد:

كد:

sendData changeStatus(PersonId & " Dare Help Mano Mibine!")

با سلام و عرض خسته نباشی

سیاوش جان من تازه آخرین نسخه مسنجر رو دانلود کردم Yahoo! Messenger 9.0.0.1912 Final بعد به روبوت هر چقدر پی ام میدم جواب نمی ده بعضی وقت از هر صدتا یکیش رو جواب میده اون هم تو بازده های زمانی مختلف بعد من فکر کردم مشکل از جای دیگه هست اینترنت همه چیز رو بررسی کردم فایده نداشت بعد روبوت های خارجیه هم چک کردم دیدم باز هم همین مشکل رو داشتن بعد آخر متوجه شدم از مسنجر هست پاکش کردم نسخه 8و7 رو نصب کردم مشکل به کل حل شد البته اگر یاهو 9 بتاش هم باشه مشکل نداره فقط مثل این که با این آخری مشکل داره

متشکر
منتظر نظرتون هستم

نقل قول:

نوشته اصلي بوسيله Siavash (پست 691)

در ارتباط با سوال آخر، دليل اينكه تأخيري در تعويض Status قرار دادم به خاطر اين هست كه در غير اين صورت اگر شخصي پشت سر هم /help بزنه مثلاً ياهو به خاطر تعويض هاي مكرر Status بات رو قطع مي كنه. و در ضمن اگر سرعت تعويض Status از يك حدي بيشتر بشه ياهو ديگه قبول نمي كنه Status هاي جديد رو كه اگر در صفحات قبل ببيني اين مشكل توضيح داده شده.
اما اگر مي خواين اين كار رو انجام بديد كافيه از دستور زير استفاده كنيد:

كد:

sendData changeStatus(PersonId & " Dare Help Mano Mibine!")

سلام
آقا من کد جدید رو اضافه کردم ولی وقتی اجرا می کنم اررور می ده.

این هم اررور
http://irani-soft.persiangig.ir/1.JPG

كد:



        ' Help switch

        ElseIf Left(Message, 5) = "/help" Then

           sendData changeStatus(PersonId & " Dare Help Mano Mibine!")

            Response = helpSwitch(Message)

تشکر فراوان.

فكر كنم يكي از ورودي هاش رو در كد فراموش كردم:

كد:

sendData changeStatus(PersonId & " Dare Help Mano Mibine!", false)

اين كد رو امتحان كن...

سلام
باتشکر از شما سیاوش جان.
درست شد.
یه 2 تا مشکل دیگه دارم
شرمنده که هی سوال می کنم.شاید سوال دوستان دیگه هم باشه.
1- مثلا من می خوام 3 تا Help داشته باشم.
دستورات هم به صورت زیر باشه.
/Help
/Help-2
/Help-3
همه رو درست کردم هم ماژوال ها و هم دستورات و لی وقتی می زنی /Help-2 همون Help اول رو نشون می ده.

2- من می خوام یه قسمت اضافه کنم که هرکی خواست ASL به بات بده و بات هو در دیتابیس ذخیره کنه.
من می خواستم اگه بهشه یه راهنمایی کنید.
من اومدم از طریق همان دستور /Lern درست که خودم هم گیج شدم.

بازهم تشکر فراوان.

در مورد /Help ها من حدس مي زنم بعد از دستور Left در قسمتي كه شرط ها رو داريم عدد رو از 5 به مثلا 7 تغيير ندادي... ترتيب هم مهم هست. يعني اول بايد /Help-2 رو قرار بدي و بعد /Help چون در غير اين صورت شرط مي بينه /Help-2 هم 5 كاراكتر سمت چپش Help هست و بقيه ي شرط ها رو چك نمي كنه...
در نهايت كد بايد شبيه كد زير بشه:

كد:

        ' Help2 switch

        ElseIf Left(Message, 7) = "/help-2" Then

            Response = helpSwitch2(Message)

        ' Help switch

        ElseIf Left(Message, 7) = "/help-1" Then

            Response = helpSwitch1(Message)

        ' Help switch

        ElseIf Left(Message, 5) = "/help" Then

            Response = helpSwitch(Message)

در مورد /asl هم مي توني برا ساده شدنش اون رو به چند قسمت تقسيم كني... مثلاً طرف /age كه زد يا گفت Man 12 salam hast بات اون رو ذخيره كنه. نمونش در Pattern‌ ها موجود هست در جواب سوال به esmam * hast. خود /asl رو هم شايد در ورژن بعد قرار بدم... البته بايد توجه داشته باشيم كه هدف ما كم كردن سويچ ها هست. و بات بايد از حرف هاي معمولي كاربر اين اطلاعات رو بكشه بيرون...