Silver Soft
کاربر متخصص مولتی مدیا بیلدر
سلام به همگی ... خیلی وقت بود نیامده بودم انجمن ولی انجمن مثل همیشه سرحاله ...
شرمنده نیمدم , نیمدم حالا هم که اومدم مثل همیشه با این سوال ها اومدم که ...
دوستان ببینید من یه مشکل دارم که هر چی روش کار کردم نتونستم راهی براش پیدا کنم البته الان درگیر امتحاات هستم و نتونستم زیاد باهاش کلنجار برم نمیدونم شاید بشه شایدم نشه .
مشکل :
ببینید من 2 تا کلید تو پروژه دارم که با زدن کلید اول صفحه ی انتخاب رنگ Color Picker ضاهر میشود و با انتخاب رنگ مقدار اون در یک متغیر ذخیره میشه و کلید دوم هم همینطور.
حالا میخوام کاربر وقتی 2 کلید رو زد و 2 رنگ مورد نظر رو انتخاب کرد برنامه دو رنگ رو با هم جمع کنه و رنگ به دست اومده رو نشون بده
من خودم این کد رو نوشتم ولی بد یادم افتاد رنگی که شمارش تو متغییر ذخیره میشه ممکنه هر سه رنک قرمز و سبز و آبیش 3 کارکتری نباشه و MMB هم به جاش 0 که نمیزاره بلکه خالی میمونه مثلا :
رنگ سفید = 255و255و255
رنگ بنفش=128و.و255
کد:
** Open Color Picker To Chose Color
ColorPicker()
** Set 'a' string To NUM Of R,G,B Color Of Selected Color
a$=CBK_SelColor
** Get The Red Numbers Of 'a' String
cr1$=StrGet(a$,1)
cr2$=StrGet(a$,2)
cr3$=StrGet(a$,3)
cr1$=cr1$+cr2$+Cr3$
** Get The Green Numbers Of 'a' String
cg1$=StrGet(a$,5)
cg2$=StrGet(a$,6)
cg3$=StrGet(a$,7)
cg1$=cg1$+cg2$+Cg3$
** Get The Blue Numbers Of 'a' String
cb1$=StrGet(a$,9)
cb2$=StrGet(a$,10)
cb3$=StrGet(a$,11)
cb1$=cb1$+cb2$+Cb3$
DisplayValue("Color 1","a$")
حالا این صفر این وسط کار رو خراب میکنه چون 1 کارکتر ما به برنامه گفتیم 3 کارکتر رو بخونه و چیدمان من رو بهم میزنه و نمیزاره عددها صحیح با هم جمع شن و رنگ جدید رو درست کنن .
نمونه رو که درست کردم گزاشتم تو پیوست ... لطفا کمک کنید که کارم خیلی گیره
شرمنده نیمدم , نیمدم حالا هم که اومدم مثل همیشه با این سوال ها اومدم که ...
دوستان ببینید من یه مشکل دارم که هر چی روش کار کردم نتونستم راهی براش پیدا کنم البته الان درگیر امتحاات هستم و نتونستم زیاد باهاش کلنجار برم نمیدونم شاید بشه شایدم نشه .
مشکل :
ببینید من 2 تا کلید تو پروژه دارم که با زدن کلید اول صفحه ی انتخاب رنگ Color Picker ضاهر میشود و با انتخاب رنگ مقدار اون در یک متغیر ذخیره میشه و کلید دوم هم همینطور.
حالا میخوام کاربر وقتی 2 کلید رو زد و 2 رنگ مورد نظر رو انتخاب کرد برنامه دو رنگ رو با هم جمع کنه و رنگ به دست اومده رو نشون بده
من خودم این کد رو نوشتم ولی بد یادم افتاد رنگی که شمارش تو متغییر ذخیره میشه ممکنه هر سه رنک قرمز و سبز و آبیش 3 کارکتری نباشه و MMB هم به جاش 0 که نمیزاره بلکه خالی میمونه مثلا :
رنگ سفید = 255و255و255
رنگ بنفش=128و.و255
کد:
** Open Color Picker To Chose Color
ColorPicker()
** Set 'a' string To NUM Of R,G,B Color Of Selected Color
a$=CBK_SelColor
** Get The Red Numbers Of 'a' String
cr1$=StrGet(a$,1)
cr2$=StrGet(a$,2)
cr3$=StrGet(a$,3)
cr1$=cr1$+cr2$+Cr3$
** Get The Green Numbers Of 'a' String
cg1$=StrGet(a$,5)
cg2$=StrGet(a$,6)
cg3$=StrGet(a$,7)
cg1$=cg1$+cg2$+Cg3$
** Get The Blue Numbers Of 'a' String
cb1$=StrGet(a$,9)
cb2$=StrGet(a$,10)
cb3$=StrGet(a$,11)
cb1$=cb1$+cb2$+Cb3$
DisplayValue("Color 1","a$")
حالا این صفر این وسط کار رو خراب میکنه چون 1 کارکتر ما به برنامه گفتیم 3 کارکتر رو بخونه و چیدمان من رو بهم میزنه و نمیزاره عددها صحیح با هم جمع شن و رنگ جدید رو درست کنن .
نمونه رو که درست کردم گزاشتم تو پیوست ... لطفا کمک کنید که کارم خیلی گیره