PDA

View Full Version : تابلوروان



reza_hajizade
پنج شنبه 23 اسفند 1386, 20:08 عصر
با سلام خدمت دوستان
بنده دارم روی برنامه طراحی فونت یه تابلوروان کار می کنم

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

حالا سوال
1- چطوری متن رو به عکس تبدیل بکنم
2- چطوری کد اون عکس ها رو بخونم

ایده بدین
کد بذارین که محبت کردین :خجالت:

ali_habibi1384
پنج شنبه 23 اسفند 1386, 20:23 عصر
سلام .
با استفاده از توابع API می تونی عکس بگیری.
با استفاده از دستور point میتونی مختصات دو بعدی یه عکس رو بصورت ماتریسی از عناصر شماره رنگ برای عکسهای bmp پیدا کنی.
موفق باشی

reza_hajizade
جمعه 24 اسفند 1386, 19:13 عصر
دوست عزیز
ممنونم
ولی جواب قسمت 1؟؟؟ :خجالت:

shahpari
جمعه 24 اسفند 1386, 19:55 عصر
من فکر میکنم یه نمونه برنامه دارم که در مورد عکس گرفتن یه کمی بتونه بهتون کمک کنه

سعی می کنم به همین زودی براتون بزارم

ali_habibi1384
جمعه 24 اسفند 1386, 21:50 عصر
خاطرم نیست کجا خوندم . اما توی همین سایت طریقه عکس گرفتن از فرم رو گذاشته بودن . الآن هم گشتم فکر کردم ذخیره اش کردم اما پیداش نکردم واست بزارم . جستجو کن به نتیجه می رسی

shahpari
جمعه 24 اسفند 1386, 22:04 عصر
فکر میکنم منم از تو همین سایت دانلود کردم

ali_habibi1384
جمعه 24 اسفند 1386, 22:11 عصر
فکر میکنم منم از تو همین سایت دانلود کردم
درسته مال همین سایته اما این مال عکس گرفتن از صفحه نیست برای پرینت گرفتن از صفحه هستش .
پسوند فایل ذخیره شده رو دقت کنیدMDI هست . واسه پیش نمایش گزارشات هست

shahpari
جمعه 24 اسفند 1386, 22:27 عصر
درسته مال همین سایته اما این مال عکس گرفتن از صفحه نیست برای پرینت گرفتن از صفحه هستش .
پسوند فایل ذخیره شده رو دقت کنیدMDI هست . واسه پیش نمایش گزارشات هست

حق با شماست جناب ali_habibi1384

یه نگاه به مطلب قبلی که نوشته بودم بندازید من که خدمت دوستمون گفتم شاید بتونه بهشون کمک کنه

با این کد ها میتونه از صفحه عکس بگیره




On Error Resume Next
With CommonDialog1
.ShowSave
If Trim(.FileName) <> "" Then
Chart1.EditCopy
SavePicture Clipboard.GetData, .FileName & ".jpg"
MsgBox " save as picture", vbInformation, "system"
End If
End With







On Error Resume Next
Printer.Print ""

Printer.PaintPicture Form3.p1.Picture, 1 * 1440, 0.75 * 1440

Printer.EndDoc




با این قسمت میشه اون تصویر ساخته شده رو به پرینتر داد

vbhamed
شنبه 25 اسفند 1386, 12:06 عصر
سلام
خب این که کاری نداره
شما نوشته هات رو تو PictureBox بنویس به جای TextBox
اگر هم کاربر باید وارد کنه بعد از اینکه تو TextBox وارد کرد شما ببر تو PictureBox بنویس
عکس گرفتن نیاز نداره
تصویر PictureBox هم با دستور زیر می تونی ذخیره کنی


SavePicture Picture1.Image, "C:\test.bmp"

برای نوشتن توی PictureBox هم این دستور


Picture1.Print "This is a test"

فونت PictureBox رو هم می تونی ست کنی
فقط حتما خاصیت AutoRedraw مربوط به PictureBox برابر True باشه


با متد Point هم می تونی رنگ هر نقطه دلخواه از PictureBox رو بخونی


msgbox Picture1.Point(0,0)

reza_hajizade
دوشنبه 27 اسفند 1386, 13:06 عصر
دستتون درد نکنه
راستش این برنامه رو اگه بتونم راش بندازم واسه در آوردن جدول دیتای نوشته های طولانی واسه تابلو روان و ال سی دی گرافیکی ها خوبه
واسه ایجاد فونت برنامه زیاده هست ولی این یه کم کمه مخصوصا واسه ایجاد فونت فارسی با توجه به نوشته

منم تنها به فکرم رسید که توی باکس تکست ساده بنویسیم بعد اون رو تبدیل به عکس بکنم و دیتای اون عکس فونت رو که سیاه و سفیده بخونم و توی یه ماترس خاص 8*8 بصورت جدول دیتای هگز ذخیره بکنم

ممنونم :خجالت:

aminramezan
چهارشنبه 02 مرداد 1387, 11:07 صبح
آقا کسي ميتونه پيکسل ها(نقطه ها) را روي picture box به صورت ستون هاي شانزده تايي به صورت دايره تقسيم بندي کند.و بعد از هر کليک در يک آرايه مقدار 0 اگر خاموش بود و 1 اگر روشن بود را بدهد
خيلي به اين برنامه نيازدارم اگه کسي مي تونه حتما بزاره خيلي ممنون

male_violet
دوشنبه 19 تیر 1391, 23:29 عصر
سلام جناب حاجی زاده اگه نمونه برنامه تبدیل فونت به هگز آماده دارین منم دنبال می گردم بذارین ممنون می شم

MohammadGh2011
دوشنبه 19 تیر 1391, 23:37 عصر
سلام جناب حاجی زاده اگه نمونه برنامه تبدیل فونت به هگز آماده دارین منم دنبال می گردم بذارین ممنون می شم
سلام عليکم خدمت شما دوست گرامي
تاريخ ايجاد تاپيک رو ببينيد:

پنج شنبه 23 اسفند 1386 21:38 عصر


شما يک تاپيک جداگانه اي ايجاد کنيد با عنوان مناسب و با توضيح کامل ،تا زودتر و بهتر به جوابتون برسيد.


موفق باشيد