راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

[abbasmh]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

0RRRRRGGGGGBBBBB باید بشه RRRRRGGGGG0BBBBB تا برای ال سی دی مناسب بشه
کشتی مارو :angry:

:bye

[FAM]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام
همین کارو میکنم ولی نمیشه ؟!!!!!!! :eek: :eek: :eek:
خدا بیا مرزدت حالا ماشدیم قاطل :evil: :evil: :evil: :evil:

[FAM]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام
مشکل از برنامه ام هست به احتمال زیاد کسی میتونه این کارو برام بکنه یعنی یه متغییر WORD که داخلش 0RRRRRGGGGGBBBBB هست رو بکنه
RRRRRGGGGG0BBBBB برای بیسکام. :cry2:

[abbasmh]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

بابا تو دیگه چرا
فقط به خاطر تو
Dim co as word
Dim co2 as word
اول دوبایت از ام ام سی رو بریز توی متغییر کو فرمت این متغییر به صورت زیر است
0RRRRRGGGGGBBBBB
چون از فایل یولید خونده میشه
Co=co2 and 65504
این خط برنامه میاد از متغییر کو رنگهای سبز و قرمز و اون صفرو میگیرمیریزه توی کو2 مثل زیر
Co=0RRRRRGGGGGBBBBB>>>>co2=0RRRRRGGGGG 00000
Shift co2,left,1
این خط برنامه این کارو میکنه
co2=0RRRRRGGGGG00000>>>>co2=RRRRRGGGGG 000000
co=co and 31
این خط این کارو میکنه
Co=0RRRRRGGGGGBBBBB>>>>co=00000000000B BBBB
Co=co+co2
این خط هم
co=00000000000BBBBB , co2=RRRRRGGGGG000000 >>>>>co=RRRRRGGGGG0BBBBB
حالا بفرستش به ال سی دی
Dim co as word
Dim co2 as word
Co=co2 and 65504
Shift co2,left,1
co=co and 31
Co=co+co2
Send to lcd
ببینم چیکار میکنی
خبر بده :bye

[FAM]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام عباس جان فهمیدم خیالت راحت ممنونم که بازم توضیح دادی گفتم خنگم ولی یکم نه خیلی مشکلم توی این بیسکام لعنتیه :cry2:
تابعی نداره که بشه الان میتونم این جوریش کنم RRRRRRGGGGGBBBBB0 ولی این که 0 رو بیارم قبل از آبی دیگه چیزی به زهنم نمیرسه :cry2:

[khast khodaiebehnam]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

خوب اول 6 تا بیت سمت راست رو جدا کن
عدد رو با متغیر اولت(اصلی ) xor کن تا 6بیت اخر متغیر اصلیت 0 بشه
بعد(متغیر 6 تایی) رو یه دونه شیفت بده به راست تا 0 حذف بشه
حالا با متغیر اصلیت (16 بیتیه)دوباره xor کن تا 0 بیاد قبل از ابی و باقیه ابیا بیان پشت صفر :nerd:

[abbasmh]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

بابا امیر حسام مثل اینکه حالت خوب نیست یا اصلا کد منو نخوندی :surprised: oo:
بابا همون کد و بزار دیگه :angry:
این کد همون کارو میکنه دیگه

[FAM]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

نه راستش نگاه نکردم مگه برای بیسکامه ؟ :wow:
امید جان من این برنامه رو نوشتم ولی مثل قبل بعضی از رنگها (خیلی کم با هم فرق دارن) :cry2:
Get #10 , Dat
Shift Dat , Left , 1
Dat_s = Str(dat)
Dat_s2 = Mid(dat_s , 11 , 6)
W = Val(dat_s2)
Dat = W Xor Dat
Shift W , Right , 1
Dat = W Xor Dat

[abbasmh]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

آره دیگه بابا برا بیسکامه دیگه ا
امتحان کن خبر بده منتظرم

[FAM]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام مهندس دستت درد نکنه تقریبا درست شد ولی فکر کنم بازم یه بیت جابجاست راستی یه سوتی تو برنامت بود ببین اگه Dat متغییر ورودی
و خروجی باشه من اینجوری نوشتم درسته؟
Co = Dat
Co2 = Co And 65504
Shift Co2 , Left , 1
Co = Co And 31
Dat = Co + Co2
این خطی که قرمز کردمو شما اینجوری نوشتی فکر کنم سوتی دادی (بس که اذیتت کردم) Co = Co2 And 65504

[abbasmh]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

آره سوتی دادم
پس بلاخره درست شد :agree:
نه جابجا نیست چرا اینجوری فکر میکنی؟ :question:

[FAM]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام ببین متسفانه هنوز کامل درست نشده :twisted: :twisted: :twisted: :twisted: :cry2:
چون بعضی قسمتهای فیلم که قرمز خیلی خیلی کم رنگه ویا ترکیبی های RGB هاش زیاده صورتی رنگ میشه اما این قسمت ها کمه
فکر کنم یه جای برنامه یه مشکل کوچیک داره Avi رو هم دوبا با دو تا فیلم مختلف تست کردم ولی بازم ممنون

[khast khodaiebehnam]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

چون کوچولو ترین عضو این مجموعه هستی و واقعا اکتیو هستی :

این omega که نوشتم واسه تست بوده هااا تو اشتباه نکنیا باید متغیر 16 بیتی اصلی رو جاش بزاریwink:

dim omega as word
Dim L1 As Bit , L2 As Bit , L3 As Bit , L4 As Bit , L5 As Bit , L6 As Bit

Omega = &B1111111111111110
L1 = Omega.0
L2 = Omega.1
L3 = Omega.2
L4 = Omega.3
L5 = Omega.4
L6 = Omega.5
'-------------------------------
Omega.0 = L2
Omega.1 = L3
Omega.2 = L4
Omega.3 = L5
Omega.4 = L6
Omega.5 = 0

Print Bin(omega)
'will print<1111111111011111> ;)
End

تست شدس :agree:

[eca_armin]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

سلام
ببخشید یه مدتی نبودم .
امیرحسام مثل اینکه داری موفق میشی فیلم رو پخش کنی و به احتمال زیاد تا الان خیلی هم پیشرفتی .
یه توضیحی می دی که چه طوری فیلم رو ذخیره می کنی و اصلا با چه فرمتی و با چه برنامه ای و .... تا ما هم بتونیم خودمون رو بهت برسونیم و کمک کنیم .
فقط اگه لطف می کنی کامل بگو ممنون میشم .

موفق باشی .

[FAM]

پاسخ : راه اندازی ال سی دی گرافیکی رنگی ELT240320ATP

الان که داشت مور می رفتم یه چیزی فهمیدم اگه
Ins = Ts_ins_driv_out_ctrl : Call Tslcdoutins
Dat = &H0000 : Gosub Lcdout
اینو بجای 100 هگز 0 قرار بدهیم از لحاظ رنگی درست میشه ولی تصویر آینه (mirror) میشه :cry2:
اساتید مشکل کجاست؟