برنامه برای تابلو روان(تبدیل عکس به پیکسل) یا تبدیل متن به پیکسل

[mojtabamalaekeh]

شما از همون Picture1.TextWidth و Picture1.TextHeight استفاده کن.
وقتی Picture1.ScaleMode برابر vbPixels باشه مقدار TextWidth و TextHeight هم بر حسب پیکسل هستند.

کد:

Me.ScaleMode=vbPixels
Picture1.Width = Picture1.Width - Picture1.ScaleWidth + Picture1.TextWidth(Text1.Text)
Picture1.Height = Picture1.Height - Picture1.ScaleHeight + Picture1.TextHeight(Text1.Text)

برای اینکه تصویر به اندازه PictureBox در بیاد اول تصویر رو توی یه PictureBox دیگه Load کن.
مثلا picTemp که مخفی هم هست (picTemp.Visible = False).
بعد با PaintPicture تصویر picTemp رو توی Picture1 با اندازه دلخواه رسم کن.

کد:

Picture1.PaintPicture picTemp.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

من می خوام تا فایل متنی که ایجاد میشه فقط تو هر خط 8تا کاراکتر وجود داشته باشه

این که کاری نداره. فقط اول باید بگی که تعداد ستون ها هم 8 عدده؟ یا تعداد ستون ها هر چی بود بازم تو هر خط از فایل 8 داده ذخیره بشه؟

راستی چه طور می شه همه دیتا ها رو بر عکس کرد

کلی راه داره: موقع ذخیره کردن داده ها ـ موقع بازیابی داده ها - موقع رنگ کردن دایره ها از روی صفر و یک ها. کجای میخوای این کار انجام بشه؟
ضمناً این یه مورد که دیگه کار سختی نیست!

آیا می شه تو این برنامه یه دستور از برنامه دیگه رو اجرا کرد؟
برای کامپایل کردن برنامه می گم

مثلا این برنامه کل برنامه رو برای میکرو درست کنه
می خوام این برنامه تولید شده رو تو کامیلر وارد بشه و کامپایل انجام بشه

من از این چیزا سر در نمیارم. نه فقط از میکرو چیزی نمیدونم که در زمینه برنامه نویسی هم از کامپایل چیزی نمیدونم. فقط بلدم بعد از نوشتن کد Ctrl+F5 رو بزنم و حالشو ببرم.
دوستانی که هم تو بخش الکترونیک هم کامپیوتر فعالیت دارن لطف کنن پاسخ بدن.

رو شیء Image زیاد حساب نکنید. به نظر من فقط برای نمایش عکس و درست کردن دکمه های ساده کاربرد داره. ولی PictureBox شیء قدرتمندی هست.

بعد از خط دوم تو هر خط فقط 8 تا دونه از 0 و 1 ها نوشته بشن

فایل ضمیمه به همین منظوره

صبح شما هم به خیر. زمان ارسال پست صفحه رو Refresh نکرده بودم بعدا متوجه پست شما شدم.
برنامت رو دانلود کردم و یادم اومد که یه کد برای معکوس کردن میخواستید. کدی که نوشتی فقط یه بار معکوس میکنه.
بهتره یه حلقه For به تعداد Shape ها بذاری و اصلا این کد رو بنویس:

کد:

for i=1to shp.ubound
   if shp(i).bordercolor=vbred then
      shp(i).bordercolor=vbbuttonface
   else
      shp(i).bordercolor=vbred
   endif
next

---

ببین موقع حرکت هی شکل متن عوض می شه

قرار بود تعریف متغیرهای W و H رو ببریم به بخش General یعنی به اینصورت

کد:

Option Explicit
Dim xx As Variant
Const W = 15
Const H = 15

مقدار W و H رو نمیتونی اعشاری بدی چون توی مانیتور نصف پیکسل که نداریم.
برای اینکه شکل متن عوش نشه مقدار xx رو باید به اندازه عرض دایره ها کم یا زیاد کنی. البته چون دایره ها کنار هم نیستند و لب به لب همدیگه هستند میشه عرض دایره ها منهای یک.

کد:

'move to right
xx=xx+(w-1)
'move to left
xx=xx-(w-1)

[alirezalahij]

سطر های تابلویی که من ساختم 16 تایی
اما رو 16 تا هر کاری می کنم متن قشنگ نمی شه

[dreamvbfox]

به این عکس نگاه کن . 3 ردیف اول خالیه چرا اینا AutoSize نشدند.. تو فونت های دیگه هم این عدد متغیر است..

اگر میشه picture رو scroll کنید . ممنون

[mojtabamalaekeh]

3 ردیف اول خالیه چرا اینا AutoSize نشدند

ارتفاع هر فونت ثابته. وقتی ارتفاع فونتی 5 پیکسل باشه، ارتفاع کاراکتر نقطه 5 پیکسل میشه ارتفاع حرف L و I و ... هم 5 پیکسل میشه.

اگر میشه picture رو scroll کنید

یعنی چجوری؟

[dreamvbfox]

ارتفاع هر فونت ثابته. وقتی ارتفاع فونتی 5 پیکسل باشه، ارتفاع کاراکتر نقطه 5 پیکسل میشه ارتفاع حرف L و I و ... هم 5 پیکسل میشه.

اینو نمیشه کاریش کرد ؟ اخه وقتی سطر ها 16 تا بشه مشکل ایجاد می کنه


منظورم از Scroll این بود که HScroll و Vscroll بزاری تا بشه کل تصویر رو تو همین اندازه فرم بشه دید و جابه جا کرد !


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

---

این برنامه رو یکی از مدیران این سایت نوشتند !
برنامه ای که منم می خوام بنویسم همین جوری باید باشه

[mojtabamalaekeh]

سلام

سورسش که فکر نکنم تو وب باشه ولی اگه فایل اجرایی رو داری آپلود کن ببینیمش.
باید بدونم امکانات برنامه چیه که من هم بتونم همون امکانات رو ایجاد کنم (تقلید از روی الگو).

اینو نمیشه کاریش کرد ؟ اخه وقتی سطر ها 16 تا بشه مشکل ایجاد می کنه

کار که نشد نداره. مثل Trim Image توی Photoshop.

منظورم از Scroll این بود که HScroll و Vscroll بزاری تا بشه کل تصویر رو تو همین اندازه فرم بشه دید و جابه جا کرد !

عمودی برای چی؟ ارتفاع تابلو که ثابته. البته عرضش هم ثابته ولی متوجه شدم چی میخوای. با توجه به طول متن باید Scrollbar رو تنظیم کرد. اینم کار راحتیه ولی اسکرول عمودی فکر نکنم لازم باشه. درسته؟

پس منتظرم فایل رو آپلود کنی.

[dreamvbfox]

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

اینو تو یه فروم دیدم .همین دوستمون که این تاپیک رو ایجاد کرده بود اونجا هم اینا رو نوشته بود

منم می خواستم ببینم شما می دونید ...

Trim Image اینو میشه کاریش کرد

[mojtabamalaekeh]

سلام
مهمترین ویژگیش اینه که ارتفاع تابلو رو میتونی تنظیم کنی.
البته برای اینکه یک خط از بالا و یک خط از پایین سفید باشه ارتفاع تابلو 2 واحد بیشتر از اون چیزیه که تعیین می کنی (16 میشه 18) اگه خواستی راحت میشه این حاشیه سفید رو حذف کرد.
مشکلی که هست اینه که تابلو با ارتفاع 16 زیاد جالب در نمیاد ولی وقتی ارتفاعش 32 باشه نمایش متن عالی میشه.

من که این برنامه رو ندارم وگرنه دیکامپایل می کردم...

با چه نرم افزاری؟

[dreamvbfox]

مجتبی دستت درد نکنه
واقعا عالی بود.

واسه ریسورس کردن از برنامه VB.Decompiler.Pro میتونی استفاده کنی . می تونی شیوه ی کار طرف رو بفهمی...
site :
http://www.vb-decompiler.org/index.php?p=Products
crack :
http://xkeys4soft.com/page52162.html

[mojtabamalaekeh]

مجتبی دستت درد نکنه
واقعا عالی بود.

واسه ریسورس کردن از برنامه VB.Decompiler.Pro میتونی استفاده کنی . می تونی شیوه ی کار طرف رو بفهمی...
site :
http://www.vb-decompiler.org/index.php?p=Products
crack :
http://xkeys4soft.com/page52162.html

سلام
این که چیزی نیست!
جدیدش رو دانلود کنید حالشو ببرید.
فعلا سرعت اینترنت من 1 کیلوبایت در ثانیه شده و فعالیتم تو سایت تعطیل شده.
بعدا دانلود می کنم (ممنون از لینک هایی که گذاشتی).
برای نمونه برین تو قسمت اجرا و فایل Sina fnt.data رو Open کنید بعد Play رو بزنید.

یک روز بعد ...
من به لینک اول سر زدم یه فایل 3.3MB توش بود ولی وسط دانلود قطع میشد. اگه میونید یه جایی آپلود کنید (ترجیحاً پرشین گیگ) ممنون میشم.

[hamed_mo]

سلام. ببخشید من یهو پابرهنه پریدم وسط! من هم همین مشکل رو داشتم (یعنی تبدیل متن به پیکسل) و یک راه خیلی خیلی عالی و راحت پیدا کردم که حتی فونت های خیلی کوچک رو هم میتونی تبدیل کنی باهاش. البته من همه پست هاتون رو کامل نخوندم ولی فکر کنم از روشی که من اول استفاده میکردم استفاده کردین، یعنی تصویر بزرگ رو اسکن میکنید و اگر اون نقطه پر بود روشن میشه. روش من اینطوریه که شما متن رو با فونت کوچک در نظر میگیری (یعنی مثلا اگه تابلو 32 سطر داره یه فونتی انتخاب میکنی که ارتفاعش 32 پیکسل بشه) بعد این تصویر رو نقطه به نقطه اسکن میکنی. اگه اون نقطه روشن بود یا رنگ داشت، تو عکس بزرگ شده مختصات رو ضربدر اندازه هر پیکسل (مثلا 7) میکنی و اونجا یه دایره 7x7 میکشی... اینطوری کار خیلی راحت میشه و نتیجه خیلی بهتری میده.