برنامه تبديل حرف به تصوير

[gholeh]

سلام دوستان 7 نفر سوال منو ديدن ولي دريغ از يه پاسخ!!
لطططفا هر چي ميدونيد بگيد ولللوو بي ربط(البته از نظر خودتون)
:11: قبلا از همكاري شما متشكرم

[Cyberlife]

دوست عزیز میشه منظورتون رو دقیقتر بگید ، برنامه حرف به تصویر یا تصویر به حرف

[gholeh]

سلام دوستم قبلا هم عنوان كردم در حال انجام پروژه اي براي ناشنوايان هستم به زبان c يا ++c يا pascal
كار رو به دو فاز تقسيم كردم
فاز اول:تبديل حرف به تصوير
حالا هم برنامه انجام اين كار رو مي خوام. اگه به زبان ديگه اي به جز موارد بالا مسلط هستيد با اشتياق منتظر ديدنش هستم
ممنون از توجهت.مويد باشي

[gholeh]

راستي اگه به هر دو(تبديل حرف به تصوير و تبديل تصوير به حرف) واقف هستيد عنوان كنيد لطفا .متشكرم

[Cyberlife]

برای تبدیل حرف ، فکر کنم منظورتون صحبت کردن باشه که میخواهید به تصویر تبدیل کنید ، اگه اشتباه نکرده باشم . خوب برای این کار فکر نکنم برنامه ای در اینترنت موجود باشه یا لااقل اگر هم باشه و در ضمن مجانیم باشه به زبان انگلیسیه که یک نمونش که شاید کمی بهش نزدیک باشه اجرای دستورات و باز کردن منوها در نرم افزار Microsoft Office یا خود ویندوز اگه اشتباه نکنم باشه ، در مورد تبدیل عکس به حرف خوب شما میتونید از نرم افزارهای Ocr استفاده کنید که نمونه هایی از آنها توسط شرکتهای داخلی همچون نویسه خوان آراکس یا یکی دیگه به اسم واژه شناس کاری از شرکت هوش مصنوعی رایورز که یک نمونه از برنامه اون رو میتونید از سایتهای فارسی اینترنتی و انجمن ها با یک جستجوی ساده پیدا کنید.

[Cyberlife]

دوست عزیز نگاهی به سایت های :
سایت هوش مصنوعی رایورز :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

و سایت نویسه خوان آراکس به آدرس :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
بزنید مطمئنا چیزهایی در رابطه با موضوع شما در این سایتها پیدا میشه و کلا این کاری که شما میخواهید انجام بدید کار یک گروه خبره از افرادی که در زمینه های مختلف مثل هوش مصنوعی و برنامه نویسی و ... است ، ولی مایوس نشید و به کارهاتون ادامه بدید بدون سختی هیچ کاری خوب از آب در نمیاد من هم تا جایی که بتونم کمکتون میکنم .

[gholeh]

سلام دوست عزيز منظور من از حرف يعني حروف الفبا كه قراره به تصوير تبديل بشه
با اين تفاسير جوابتون همونه؟ راستي من چطور ميتونم با شما ارتباط برقرار كنم؟البته راجع به سوالم و اگه شما مايل بودين. به من ايميل بزنيد.متشكرم

[dustjun]

:40:به نظر من باتوجه به اینکه در وی بی با دستور print میتوانی بر روی اشیا نوشته چا کنی یک picturebox بنویس و بر روی آن نوشته خود را بنویس.
حتی میتوانی نوع فونت رنگ و اندازه را تعیین کنی
خروجی هم با پسوندهای jpg - bmp - gif می‌تواند باشد

[s_paliz]

کسی برنامه تبدیل عکس به کد اسکی و ارسال اون به سریال رو داره .cpp یا vb یا C# فرقی نداره

[gholeh]

سلام دوست جون! ممنون از راهنماييتون ، ممكنه كمي بيشتر راهنمايي بفرماييد چون من به وي بي مسلط نيستم
اگه امكان داره كتاب يا نرم افزاري جهت اين مطالب معرفي كنيد. بسيار متشكرم

[gholeh]

دوست جون پس چی شد من منتظرم!!

[dustjun]

شرمنده تاخیر داشتم - اول اینکه این تاپیک رو خیلی وقت بود سر نزده بودم و دوم اینک یک ذره گرفتاریم زیاد بود.

عزیز وی بی 6 رو بریز یک standard exe بساز و توش یک picturebox بزار. می تونی یک textbox بزاری و یا اینکه یه روتین ثابت رو با یک حلقه for ایجاد کنی و حروف رو بفرستی به توابع زیر هر جور که دوست داری

کمکی خواستی بازم بگو

فقط واسه خودم پیام بفرست تا زودتر ببینمت (دو نقطه دی)



Private Sub PutCharacterInPictureBox(PIC As PictureBox, Character As String)
Dim WDT As Single, HGH As Single, AlphaWDT As Single, AlphaHGH As Single
Dim i As Integer
' check konim bebinim ye character ferestade ya ye reshte
If Len(Character) - 1 Then
i = MsgBox("azizjan lotfan yek character befrest na ye reshte", vbExclamation + vbOKOnly)
Exit Sub
End If
WDT = PIC.ScaleWidth
HGH = PIC.ScaleHeight
' bebin inja agar daram finglish minevisam p30world geroontar hesab mikoneha :D
' khob nyaz be tozih nist WDT, HGH abaade picture ro migirand
' hala nyaz darim bebinim abaad horoof cheghadre
' ta agar horoof bozorgtar az picturebox bood irad begire
AlphaWDT = PIC.TextWidth("A")
AlphaHGH = PIC.TextHeight("A")

If AlphaWDT > WDT Or AlphaHGH > HGH Then
i = MsgBox("aziz picturet koochooloost", vbExclamation + vbOKOnly)
Else
PIC.Cls 'tasvir ra pak mikonad va mogheyat makannama ro myare avvale khat

PIC.Print Character
'in ghesmatham tozih nemidam fekr konid mifahmid

End If
' agar deletoon mikhad az khasyathaye fontname, fontsiza, fontbold, fontitalic estefade konid
' vali ghabl az ejraye in zirbarname
End Sub
Private Sub PicSave(PIC As PictureBox, FileName As String)
Dim i As Integer
' filename bayad shamele address va pasvand bashad
' tarjihan BMP bezarid baghyash ro ba keyfyate bad mide
On Error GoTo IradateKazayeOS
Call SavePicture(PIC, FileName)
'bn ghesmat ro ham mesle bala aslan toozih nemidam che amali anjam mishavad
Exit Sub
IradateKazayeOS:
i = MsgBox("boro ye fekri be hale oon computere ghorazat bekon", vbOKOnly + vbExclamation)
End Sub