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

r-co · ۰۷-۲۶-۱۳۸۷, ۰۶:۳۰ بعد از ظهر

همانطور که می دونی سیاوش جان من از اولین کسانی بودم که فعالیتم رو تو این سایت آغاز کردم و قبل از اون هم با هم در ارتباط بودیم اگه یادتون باشه.
من در زمینه Help بات آماده ام

r-co · ۰۷-۲۶-۱۳۸۷, ۰۷:۱۲ بعد از ظهر

اینم یه مثال واسه آقا سیاوش درباره پست های قبلی
که سوالو بصورت عکس و دیتابیس گفتم البته همون سوال پست قبلیام بود
Download For Mr Siavash

r-co · ۰۷-۲۶-۱۳۸۷, ۰۷:۳۳ بعد از ظهر

SMClient v1.3.2 تنها چیزی که بهش اضافه شده status/ هست کا بازدن status/ آیدی پی ام دهنده تو استاتوس نشون می ده
status/

Download SMClient v1.3.2

r-co · ۰۷-۲۶-۱۳۸۷, ۱۰:۵۹ بعد از ظهر

سیاوش تو این نسخه جدید مشکلی وجود داره که اگه برطرف کنی عالی میشه
تو نسخه های قبلی با نوشتن کد پایین بات جواب می داد ولی الان جواب نمی ده
---------------------------------------------------------------------------------
If Left(Message, 6) = "testpm" Then
"Response = "Test Pm Ok
End If
---------------------------------------------------------------------------------

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

نقل قول:

نوشته اصلي بوسيله r-co

سیاوش تو این نسخه جدید مشکلی وجود داره که اگه برطرف کنی عالی میشه
تو نسخه های قبلی با نوشتن کد پایین بات جواب می داد ولی الان جواب نمی ده
---------------------------------------------------------------------------------
If Left(Message, 6) = "testpm" Then
"Response = "Test Pm Ok
End If
---------------------------------------------------------------------------------

rco جان به اینصورت این کارو انجام بده شما sckyahoo.senddata رو نمی زنی معلومه جواب نمی ده باید جوابو براش ارسال کنی این خطو اضافه کن جواب می ده
If Left(Message, 5) = "/

time" Then((Response = "Now Time IS:" & str(Time
( sckYahoo.SendData sendPM(tUser.Text, PersonId, Response)
End If

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

نقل قول:

نوشته اصلي بوسيله r-co

اینم یه مثال واسه آقا سیاوش درباره پست های قبلی
که سوالو بصورت عکس و دیتابیس گفتم البته همون سوال پست قبلیام بود
Download For Mr Siavash

مشكلتون رو متوجه شدم... در اولين فرصت يك نمونه براتون قرار ميدم...

نقل قول:

نوشته اصلي بوسيله r-co

SMClient v1.3.2 تنها چیزی که بهش اضافه شده status/ هست کا بازدن status/ آیدی پی ام دهنده تو استاتوس نشون می ده
status/

Download SMClient v1.3.2

بابت اضافه كردن اين قابليت ممنون!

نقل قول:

نوشته اصلي بوسيله r-co

سیاوش تو این نسخه جدید مشکلی وجود داره که اگه برطرف کنی عالی میشه
تو نسخه های قبلی با نوشتن کد پایین بات جواب می داد ولی الان جواب نمی ده
---------------------------------------------------------------------------------
If Left(Message, 6) = "testpm" Then
"Response = "Test Pm Ok
End If
---------------------------------------------------------------------------------

دليل اين مشكلتون اين هست كه در بخش سويچ ها قرار داديد اين شرط رو. شرط اول براي سويچ ها اين هست كه اولين كاراكتر اون / باشه اما testpm با / شروع نميشه!
پس يا بايد شرط رو خارج از اون شرط قرار بديد يا بايد با / شروع كنيد نام سويچ رو، مثلاً /testpm

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

سیاوش من همین کدsendpm رو تونسخه های قبلی قرار می دادم به راحتی جواب می داد ولی تو این نسخه اینطوری نیست. من یه نمونه از هر دو رو واسه دانلود گذاشتم(هم نسخه قدیم هم جدید) ببینیش حتما مشکل رو می فهمی....؟
در SMClient v1.2.4 کار می کنه ولی در SMClient 1.3.2 کار نمی کنه ؟؟؟؟؟؟؟
Download For Siavash

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

اتفاقاً اين به خاطر باگي بود كه در نسخه ي قبل وجود داشت! يعني كار درست در نسخه ي جديد داره انجام ميشه. دليلش هم اين هست كه جواب شما با جواب تهي جايگزين ميشه. براي برطرف كردن اين مشكل از Else بايد استفاده كنيد. يا اينكه اون بخش رو با اين كد تعويض كنيد:

كد:

If Left(Message, 6) = "sendpm" Then
    Response = "Test Send Pm OK"
    sckYahoo.SendData sendPM(tUser.Text, PersonId, Response)
    Exit Sub
End If

دليل اينكه اين اتفاق مي افته اين هست كه ابتدا شما مقدار Response رو تغيير ميديد و بعد در خط هاي بعد مقدار Response رو با استفاده از getResponse ميخواد بدست بياره كه به خاطر پيدا نشدن جواب و تهي بودن اون مقدار "" داخل Response ريخته مي شه و در نتيجه بات فكر مي كنه كه جوابي موجود نبوده.
در ورژن قبلي وقتي جوابي پيدا نميشد تابع getResponse با ارور از تابع خارج مي شد (كه به خاطر استفاده از On error به تا انتهاي تابع getResponse نمي رفت و مقدار تهي جايگزين جواب نميشد) و در 1.3.1 اين مشكل حل شده.
انشاالله در نسخه ي بعدي ساختار بخش GetPM رو كمي تغيير ميدم تا ساده تر بشه به اون امكانات جديد اضافه كرد.

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

به نظر من سیستم قبلی ارسال پی ام مثلاsendpmدر مثال های قبلی خیلی بهتر از این نمونه جدید هست. اگه بشه در نسخه جدید مانند سری قبلی باشه خیلی عالی تره تا اینی که الان هست-- تغییر در این سیستم موجب میشه که ما کلی از کدارو تغییر بدیم--

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

دوست خوب!
در اون حالت در هر بار سوالي كه كاربر مي پرسيد و در بانك اطلاعاتي وجود نداشت يك Error‌داخلي توليد ميشد. اين اصلاً از نظر برنامه نويسي درست نبود. در حال حاضر هم با قرار دادن يك Exit Sub كه در مثال بالا قرار دادم براحتي مي تونيد همين كاري كه مي خواهيد رو انجام بديد. در هر صورت در ورژن بعدي انشاالله يك استاندارد در اين زمينه درست مي كنيم تا دقيقا جاي اضافه كردن كد هاي جانبي مشخص باشه و ديگه تغيير نكنه... در اين ارتباط حق كاملاً با شماست.

يك ايده - لطفاً تمام دوستان بخوانند:
تصميم دارم در نسخه هاي آينده يك قسمت به كد اضافه كنم تا اطلاعات جديدي كه به هر بات اضافه مي شه در يك پايگاه داده ي مركزي ذخيره بشه! مثلاً وقتي من يك الگوي جديد به بات اضافه مي كنم در يك پايگاه مركزي اون الگوي جديد با نام خود من در اونجا ثبت بشه. همينطور براي تمام دوستاني كه از اين بات استفاده مي كنند.
هدف اين هست كه يك بات مركزي با كمك تمام دوستان ساخته بشه كه بتونه به اكثر سوالات جواب بده. اين بانك اطلاعاتي هم در دسترس عموم قرار خواهد گرفت يعني در نهايت به نفع خود دوستان هم خواهد بود.

حالا نظرتون در اين ارتباط چي هست؟ آيا روي نوشتن همچين سيستمي كار كنم يا خير؟