سایفر روبات (Cypher Robot) - صفحه 3 - Artificial Intelligence

soroosh-ab · ۰۲-۱۳-۱۳۸۷, ۱۰:۲۴ قبل از ظهر

واقعآ ممنون بخاطر کمک هایی که می کنی ...........

بیشتر مشکلاتم حل شد !

اما هنوز نمی دونم چطوری به VB بگم که مسیج هایی که میاد رو با مسیج هایی که توی Table مسیج در دیتا بیس هست مقایسه کنه و اگه وجود داشت که از ردیف Answer , جواب پی ام رو ارسال کنه و اگه وجود نداشت یه پی ام مخصوص ارسال کنه

و یه مشکل دیگه که نمیتونم یه کدی بنویسم که مثلآ اگه پی ام به صورت :

كد:

/pm L9E3 salam

دریافت کرد به این معنی هست که بعد از فاصله اول آیدی یه نفره و بعد از فاصله دوم متن پی ام که باید به اون آیدی بده !
نمونه ی این کد در دلفی و رویا به صورت :

كد:

if Req = '/pm' then begin
      VarsRoYa.SendStr:='<#459cfe><font face="tahoma"><b>/pm "ID Doostet" "Peyghamet"'+
      #13+#10'Mesal :<#459cfe> <font face="tahoma"><b>/pm "robot_download" "Salam"' ;
     if VarsRoya.ListParam.Count<3 then  exit;
        req:=cut(VarsRoya.UserPM[1],False);
        VarsRoYa.UserPM:=Cut(VarsRoya.ListParam.Strings[1],False);
        Res:=Cut(VarsRoya.ListParam.Strings[2],False);
        varsRoYa.sendstr:=format('<font size="12" face="tahoma">:-$salam %s joon Yeki Behem Goft Behet Begam : '+res+' Goft IDsho Behet Nagam:-$',[VarsRoYa.UserPM]);
    end;

**Siavash** · ۰۲-۱۳-۱۳۸۷, ۱۰:۵۰ قبل از ظهر

دوست عزیز لطف کنید ساختار Table مورد نظرتون رو بگید! چند ستون داره؟ اسم و جنس هر ستون چی هست؟

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

كد:

Dim arrPM() As String
'message = "/pm neol3ot Salam khoobi?"
If Left(message, 3) = "/pm" Then
    arrPM = Split(message, " ", 3)
    If UBound(arrPM) = 2 Then
        sckYahoo.SendData PM_Send(tUser.Text, arrPM(1), arrPM(2))
    End If
End If

اگر مشکلی تو این بخش دارید حتما بپرسید...

soroosh-ab · ۰۲-۱۳-۱۳۸۷, ۱۱:۱۳ قبل از ظهر

اسم جدول (Table) مورد نظر Message هست و دارای 2 ستون هست : Requst ( که مسیجی که دریافت می کنه باید با این مطابقت داشته باشه ) و Response ( همون جوابی که باید ارسال کنه ) که هر دو ستون از نوع Text هستن

**Siavash** · ۰۲-۱۳-۱۳۸۷, ۱۲:۵۷ بعد از ظهر

تصحیح شد!... message بود، ببخشید من روی کامپیوتری که داشتم کار می کردم VB نصب نداشتم... ولی فکر کنم الآن باید کار کنه! دوباره به کد رجوع کنید...

soroosh-ab · ۰۲-۱۳-۱۳۸۷, ۰۲:۵۸ بعد از ظهر

بله ! کاملآ درست شد . مرسی
فقط مشکل اولی هنوز حل نشده .

باز هم تشکر می کنم

**Siavash** · ۰۲-۱۳-۱۳۸۷, ۰۴:۴۸ بعد از ظهر

این تقریبا سورس یک روبات یاهو! مسنجر هست.
می تونید بهش کلمه ی جدید یاد بدید، یا کلمه ی مورد نیاز رو پاک کنید.

یک سویچ ساده مثل همین /pm هم توش هست.

Ashkan_yazdgroup · ۰۲-۱۴-۱۳۸۷, ۰۲:۴۹ قبل از ظهر

نقل قول:

نوشته اصلي بوسيله Siavash

آخرین ورژن سورس کد jYMSG در ضمیمه قابل دریافت هست...

با سلام متشكرم كه خيلي سريع به مشكلات ما رسيدگي ميكنيد

اما بايد بگم يه خرده چون تخصصي حرف مي زنيد بنده متوجه نميشم كه چه بايد بكنم
از آقا سياوش درخواست دارم در مورد فايلي (سورس کد jYMSG ) كه گذاشتيد براي مبتدي هاي علاقه مندي مثل من بيشتر توضيح دهيد و اينكه چجوري و توسط چه برنامه اي آن را اجرا كنم

باز هم تشكر ميكنم منتظر راهنماييتون هستم

يك سوال ديگر : آيا سايفر رو هم ميتوان مانند رويا از امكاناتي چونhelp/ بهره مند كرد ؟

soroosh-ab · ۰۲-۱۴-۱۳۸۷, ۰۵:۲۵ قبل از ظهر

سلام اشکان جان .
جواب سئوال دومت خیلی واضح ! بله به راحتی میشه اینکار و کرد !
هرکدوم از این دستوراتی که خودمون برای رویا میذاشتیم یک روش خواصی دازه ! مثلآ help چیز خاصی نداره و فقط یک پی ام معمولیه که معرفی میکنه دستورات رو !

c++m · ۰۲-۱۴-۱۳۸۷, ۰۲:۱۸ بعد از ظهر

سلام
خیلی خوبه
من تاحالا در این زمینه کار نکردم
اما خوشم اومد ازش
فکر کنم این مثالها و این صحبتها خیلی با یه روبات سطح بالا مثل مثلاneol3ot فاصله داشته باشه ؟
درست می گم؟

بعدش اینکه من اون فایلی رو که به عنوان یه نمونه سورس گذاشته بودید رو گرفتم اما
بزرگترین مشکلش VB6 بودنشه

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

**Siavash** · ۰۲-۱۴-۱۳۸۷, ۰۵:۳۲ بعد از ظهر

از اونجایی که به نظر من VB6 آسونترین زبان برنامه نویسی برای کسانی که تازه شروع به کار کردن بود این کد رو توی VB6 نوشتم. به راحتی می تونید اون رو تبدیل به VB .Net کنید، خود تبدیل کننده ی .Net این کار رو انجام میده.
در صورتی که با جاوا آشنایی دارید از jYMSG می تونید استفاده کنید، همچنین در صورتی که با C++ آشنایی دارید از پروژه ی Pidgin یا همون gaim قدیمی می تونید استفاده کنید که سورس اون در sf.net قابل دریافت هست.

در جواب اشکان: استفاده از jYMSG برای افرادی که مبتدی هستند فکر نکنم زیاد درست باشه. چون این سورس کاملا Object Oriented هست و درکش برای افرادی که هنوز مثال های زیاد در این زمینه ندیدند کمی سخته.
در جواب سوال دومتون: اگر از یک زبان برنامه نویسی مثل Java یا VB یا ... استفاده کنید روبات شما هر کاری می تونه بکنه تقریبا و هیچ محدودیتی ندارید (همون طور که دوستمون سروش گفتند). در کد VB که به عنوان مثال قرار دادم یک سویچ ساده مثل /pm هم تعریف شده تا ببینید به چه صورت می تونید این کار رو انجام بدید.
کار با این سورس خیلی ساده هست، کافیه نرم افزار VB6 که در پکیج Visual Studio 6.0 هست رو نصب کنید و فایل prjYahoo رو باز کنید، و دکمه ی مثلث رو بزنید، بعد می تونید کلمات یا جملات جدید به روبات یاد بدید (بعد از هر بار کلمه Add کردن برای Update شدن لیست دکمه ی Refresh رو بزنید). همچنین در سورس کد قسمت GetPM می تونید سویچ های جدید مثل /learn و /help و ... رو به روباتتون اضافه کنید.

در جواب c++m: ساختن یک روبات مثل neol3ot خیلی سخت نیست. یک روبات بسیار هوشمند تر از neol3ot می تونه بشه، البته neol3ot برای زمان خودش که 3-4 سال پیش هست روبات نسبتا خوبی بود. برای اینکه یک روبات مثل neol3ot داشته باشید باید یک سری فیلتر ها قبل از پردازش جملات به روبات اضافه کنید و به جای مقایسه کردن دقیق جمله ی کاربر روبات باید از هر جمله یک مفهوم رو دریافت کنه و با توجه به اون مفهوم جواب بده.