مرجع حل مشکلات زبان فارسی و سورسهای مربوطه

با سلام .لطفا مرا در مورد این کاراکتر(<)راهنمایی کنید که منظور از (<)در کد
تبدیل عدد به حروف آقای غیبی چیست .با تشکر سیامک

با سلام لطفا مرا در مورد این کاراکتر(<)در کد تبدیل عدد به حروف آقای غیبی
راهنمایی کنید.با سپاس سیامک.

کد تون جواب میده فقط تو پنجره کد نویسی به جای حروف فارسی علامت سوال میزنه

همگی خسته نباشید
برای یک شرکت برنامه ای نوشتم که تحت win98 اطلاعات را وارد کرده اند حال به xp ارتقا داده ام
کلماتی که دارای حرف 'ک' هستند در سرچ پیدا نمیشوند و در سورت آخر قرار میگیرند احتمال میدهم کد حرف 'ک' قبلی با 'ک' که در xp تایپ میشود فرق کند برای رفع مشکل چه باید کرد

نقل قول:

---

کلماتی که دارای حرف 'ک' هستند در سرچ پیدا نمیشوند و در سورت آخر قرار میگیرند احتمال میدهم کد حرف 'ک' قبلی با 'ک' که در xp تایپ میشود فرق کند برای رفع مشکل چه باید کرد

---

خب چرا Replace نمیکنید؟

با سلام خدمت اساتید محترم

من به یک مشکل برخورد کردم که به نظرم خیلی عجیبه.

در VBA ACCESS به راحتی فارسی کار می کند اما در VBA EXCEL حتی Caption یک Button رو هم نمی شه فارسی کرد :متعجب: اگر میشه منو راهنمایی کنید

با تشکر فراوان

یه حال اساسی به همه

نقل قول:

---

نوشته شده توسط مسعود غیبی

کد زیر برای تبدیل مقدار عددی به حروف است.
به این نکته دقت داشته باشید که حداکثر مقدار قابل قبول برای این تابع 999,999,999,999 (نهصد و نود و نه میلیارد و نهصد و نود و نه میلیون و نهصد و نود نه هزار و نهصد و نود و نه) می باشد.
تابع زیر نوشته جناب آقای بابک بخشایش هست.

Option Explicit

Private Const hezar = " هزار"

Private Const melun = " میلیون"

Private Const melyard = " میلیارد"

Private Const va = " و "

 

Public Function heji_adad(ByVal adad As Double) As String

Dim hooroof As String

Dim SS As Integer  'sadgan

Dim hh As Integer   'hezargan

Dim mm As Integer  'melungan

Dim yy As Integer   'melyardgan

Dim STRadad As String

Dim LENadad As Integer

 

STRadad = Str(Val(Str(adad)))

LENadad = Len(STRadad)

 

Select Case adad

    Case Is = 0

        hooroof = "صفر"

    Case 1 To 999

        hooroof = Adad_Heji(adad)

    Case 1000 To 999999

       If (adad Mod 1000 = 0) Then hooroof = Adad_Heji(Int(adad / 1000)) + hezar

       If (adad Mod 1000 <> 0) Then hooroof = Adad_Heji(Int(adad / 1000)) + hezar + va + (Adad_Heji(adad Mod 1000))

    Case 1000000 To 999999999

        SS = Val(Right$(STRadad, 3))

        hh = Val(Mid$(STRadad, LENadad - 5, 3))

        mm = Val(Left$(STRadad, LENadad - 6))

        If (SS = 0 And hh = 0) Then hooroof = Adad_Heji(mm) + melun

        If (SS = 0 And hh <> 0) Then hooroof = Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar

        If (SS <> 0 And hh = 0) Then hooroof = Adad_Heji(mm) + melun + va + Adad_Heji(SS)

        If (SS <> 0 And hh <> 0) Then hooroof = Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar + va + Adad_Heji(SS)

    Case 1000000000 To 999999999999#

        SS = Val(Right$(STRadad, 3))

        hh = Val(Mid$(STRadad, LENadad - 5, 3))

        mm = Val(Mid$(STRadad, LENadad - 8, 3))

        yy = Val(Left$(STRadad, LENadad - 9))

        If (SS = 0 And hh = 0 And mm = 0) Then hooroof = Adad_Heji(yy) + melyard

        If (SS = 0 And hh = 0 And mm <> 0) Then hooroof = Adad_Heji(yy) + melyard + va + Adad_Heji(mm) + melun

        If (SS = 0 And hh <> 0 And mm <> 0) Then hooroof = Adad_Heji(yy) + melyard + va + Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar

        If (SS <> 0 And hh <> 0 And mm <> 0) Then hooroof = Adad_Heji(yy) + melyard + va + Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar + va + Adad_Heji(SS)

    Case Is > 999999999999#

        hooroof = "عدد وارد شده بزرگتر از 999999999999 است"

End Select

heji_adad = hooroof

End Function

 

Private Function Adad_Heji(ByVal adad As Integer) As String

Dim yekan As Byte

Dim dahgan As Byte

Dim sadgan As Byte

Dim behooroof As String

Dim heji(19) As String

Dim heji_dahgan(9) As String

Dim heji_sadgan(9) As String

'-------------------------------

heji(1) = "یک": heji(2) = "دو": heji(3) = "سه": heji(4) = "چهار": heji(5) = "پنج"

heji(6) = "شش": heji(7) = "هفت": heji(8) = "هشت": heji(9) = "نه": heji(10) = "ده"

heji(11) = "یازده": heji(12) = "دوازده": heji(13) = "سیزده": heji(14) = "چهارده": heji(15) = "پانزده"

heji(16) = "شانزده": heji(17) = "هفده": heji(18) = "هیجده": heji(19) = "نوزده"

'-------------------------------

heji_dahgan(1) = "ده"

heji_dahgan(2) = "بیست"

heji_dahgan(3) = "سی": heji_dahgan(4) = "چهل": heji_dahgan(5) = "پنجاه"

heji_dahgan(6) = "شصت": heji_dahgan(7) = "هفتاد": heji_dahgan(8) = "هشتاد"

heji_dahgan(9) = "نود"

'-------------------------------

heji_sadgan(1) = "یکصد": heji_sadgan(2) = "دویست": heji_sadgan(3) = "سیصد"

heji_sadgan(4) = "چهارصد": heji_sadgan(5) = "پانصد": heji_sadgan(6) = "ششصد"

heji_sadgan(7) = "هفتصد": heji_sadgan(8) = "هشتصد": heji_sadgan(9) = "نهصد"

'-------------------------------

yekan = adad Mod 10

dahgan = adad Mod 100

sadgan = Int(adad / 100)

'-------------------------------

If dahgan < 20 Then

    If (sadgan = 0) Then behooroof = heji(dahgan)

    If (sadgan <> 0) Then behooroof = heji_sadgan(sadgan) + va + heji(dahgan)

    If (yekan = 0 And dahgan = 0) Then behooroof = heji_sadgan(sadgan)

Else

    dahgan = (adad Mod 100) - yekan

    If (sadgan = 0 And yekan = 0) Then behooroof = heji_dahgan(dahgan / 10)

    If (sadgan = 0 And yekan <> 0) Then behooroof = heji_dahgan(dahgan / 10) + va + heji(yekan)

    If (sadgan <> 0 And yekan = 0) Then behooroof = heji_sadgan(sadgan) + va + heji_dahgan(dahgan / 10)

    If (sadgan <> 0 And yekan <> 0) Then behooroof = heji_sadgan(sadgan) + va + heji_dahgan(dahgan / 10) + va + heji(yekan)

End If

 

Adad_Heji = behooroof

End Function

طرز استفاده :

Text1.text = heji_adad(156489)

با اجرای کد بالا عبارت "یکصد و پنجاه و شش هزار و چهارصد و هشتاد و نه" در Text1 نمایش داده خواهد شد.
:) :wink:

---

فکر نمیکنید خیلی درازه؟
میشه خلاصه اش کرد

@ alireza_vb:

نقل قول:

---

تابع زیر نوشته جناب آقای بابک بخشایش هست.

---

در کد آقای بخشایش هیچگونه تغییری داده نشده لذا تغییر در کد و optimize کردن آن به عهده برنامه نویس است.

شب خوش

دوستان من برای وارد کردن اطلاعات درخواستی برنامه ای که نوشتم، به صورت فارسی،
از همون امکان فارسی win xp میخوام استفاده کنم.منتها حروف "گ" و "ک" بصورت "..." وارد text box هام میشه! مشگل کجاست ؟
از v.b.6(enterprise ) استفاده کردم.

از فونت tahoma استفاده کن و script آنرا Arabic انتخاب کن

فقط همون فونت فارسی فکر کنم کفایت کنه

نقل قول:

---

نوشته شده توسط eagnasio

یه حال اساسی به همه

---

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

ببین این راه حل بدردت می خوره فکر کنم بد نباشد :
https://barnamenevis.org/showthread.php?t=55431

با تشکر قبلی
من دنبال یک تابع هستم که متن فارسی رو از ویندوز به کدپیچ فارسی در داس تبدیل کنه.

دوستان من در مورد فارسی کردن ویندوز مشکلی دارم اگه کسانی راه جلی بنظرشان میرسه بیان کنند
من ویندوز را هر بار که دوباره نصب میکنم تمام مراحل فارسی سازی را دنبال میکنم و سیستم فارسی هم میشه و Fr در System try هم ایجاد میشه و در همه برنامه ها هم میتوانم RightToLeft بنویسم اما در وی بی زمانی که خاصیت RightToLeft را میخوام فعال کنم فعال نمیشه و همیشه False میباشد .
در ضمن همه گزینه های مربوط به Control Panel و Regional and Language Option را نیز فعال نموده ام.

لطفا اگر کد یا تابعی دارین که یک متن تایپ شده رو از کدپیج فارسی داس به ویندوز تبدیل میکنه برای من بفرستید
amirfz_2000@yahoo.ca

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

نقل قول:

---

نوشته شده توسط Hossein Bazyan

دوستان من در مورد فارسی کردن ویندوز مشکلی دارم اگه کسانی راه جلی بنظرشان میرسه بیان کنند

---

مشکلتون باید با فارسی ساز حل بشه. که یه نمونه شو Persiansoft داره. یه فایل 28M.

نقل قول:

---

نوشته شده توسط sknsphr

مشکلتون باید با فارسی ساز حل بشه. که یه نمونه شو Persiansoft داره. یه فایل 28M.

---

دوست عزیز من مشکل فارسی ندارم و راحت فارسی مینویسم و در قسمت زبانها Fr هم آمده و در word و همه برنامه ها هم فارسی مینویسم اما مشکل من اینه که فقط در وی بی گزینه RightToLeft فعال نمیشه و الا در وی بی هم فارسی مینویسم

نقل قول:

---

نوشته شده توسط Hossein Bazyan

دوست عزیز من مشکل فارسی ندارم و راحت فارسی مینویسم و در قسمت زبانها Fr هم آمده و در word و همه برنامه ها هم فارسی مینویسم اما مشکل من اینه که فقط در وی بی گزینه RightToLeft فعال نمیشه و الا در وی بی هم فارسی مینویسم

---

درسته. میدونم. فارسی سازها هم فقط زبان فارسی رو add نمیکنن. این که به قول شما کاری نداره. تا اونجا که یادمه من هم خیلی وقت پیش این مشکلو داشتم. یادم نمیاد به غیر از نصب فارسی ساز کار دیگه ای انجام داده باشم. حالا شما یه امتحانی بکن.

مرسی از جواب شما
اما من هر بار که ویندوزم را نصب کرده ام و مراحل فارسی سازی را طی کردم هیچوقت همچین مشکلی نداشتم و راحت RightToLeft میشد که هر بار هم من همراه نصب ویندوز فارسی ساز را نصب نکرده ام
اما اینبار نمیدانم چرا ؟

نقل قول:

---

نوشته شده توسط mohsenna30ri

ببین این راه حل بدردت می خوره فکر کنم بد نباشد :
https://barnamenevis.org/showthread.php?t=55431

---

خیلی ببخشیدها
فکر کنم آدرسش تو هواست

f_h1360

من یه convertor برا خودم نوشتم - اگه دوست داشتی چند رکورد از فایل DBF را اینجا بذار تا با برنامم تستش کنم ببینم جواب میده یا نه ؟

سلام خسته نباشید
آقا مشکل ما از پایه است:گریه:
در موقع استفاده از ماجول تبدیل عدد اعشاری به حروف چطور باید فیلدها رو به اون معرفی کرد یعنی مثلا پس از تایپ عدد و فشردن اینتر در فلان فیلد مازول را اجرا کرده ( به حروف ) نمایش دهد؟؟؟
لطفا من را راهنمایی کنید

با تشکر فراوان
ایمان آذر :متفکر:

من یک مشکلی دارن اونم اعداد در ورد هست

توی برنامه یک memo دارم که توش تایپ میکنند مثلا :
" بنام خدا امروز 1385/09/28 و تمام "

وقتی با استفاده از OLE توی یک فایل ورد بازش میکنم مینویسه :
" بنام خدا امروز 28/09/1385 و تمام "
انواع و اقسام تغییرات توی Option.Complex Script هم دادم ( ولی شاید اونی که باید تغییر میدادم را ندادم )
اونایی که توی پاراگراف بالا بودن چون از دیتابیس به صورت فیلد مستقل میخوندم میتونستم با یک تابع برعکس بفرستم به ورد تا ظاهرا درست چاپ کنه ، ولی قسمت بدنه اصلی پیام را مشکل دارم !!!
نمونه فایل را ضمیمه میکنم .
چطوری میتونم مشکل را حل کنم ؟?


پیوست » من یک فایل ورد به صورت تملیت دارم که اطلاعات را توش مینویسم.
بنابراین اگه ممکنه راه حلی بگین که ذاتا مشکل را را حل کنه نه نیاز به تغییرات مقطعی در موقع ورود اطلاعات به ورود داشته باشه.:بوس:

من یه کدی میخوام که دوتاریخ شمسی رو بگیره و در خروجی تعداد روز های مابینشونو بگه مثلا : 8/9/85 و 10/9/85 = 2 روز

نقل قول:

---

نوشته شده توسط alireza_vb

فکر نمیکنید خیلی درازه؟
میشه خلاصه اش کرد

---

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

 



privatestring PrintThreeDigit(int Value)

{

string Result="";

int i,Dummy;

i= Value / 100;

if (i!=0)

{

#region Sadgan

switch(i)

{

case 1:

Result += "یکصد ";

break;

case 2:

Result += "دویست ";

break;

case 3:

Result += "سیصد ";

break;

case 4:

Result += "چهارصد ";

break;

case 5:

Result += "پانصد ";

break;

case 6:

Result += "ششصد ";

break;

case 7:

Result += "هفتصد ";

break;

case 8:

Result += "هشتصد ";

break;

case 9:

Result += "نهصد ";

break;

}

#endregion

}

Dummy = Value % 100;

if (Dummy!=0)

{

if (Value / 100 !=0)

{

Result +="و ";

}

if ((Dummy>=10) && (Dummy<20))

{

#region 10Ta19

switch(Dummy)

{

case 10:

Result +="ده ";

break;

case 11:

Result +="یازده ";

break;

case 12:

Result +="دوازده ";

break;

case 13:

Result +="سیزده ";

break;

case 14:

Result +="چهارده ";

break;

case 15:

Result +="پانزده ";

break;

case 16:

Result +="شانزده ";

break;

case 17:

Result +="هفده ";

break;

case 18:

Result +="هجده ";

break;

case 19:

Result +="نوزده ";

break;

}

#endregion

}

else

{

i= Dummy / 10 ;

#region Dahgan

switch(i)

{

case 2:

Result += "بیست ";

break;

case 3:

Result += "سی ";

break;

case 4:

Result += "چهل ";

break;

case 5:

Result += "پنجاه ";

break;

case 6:

Result += "شصت ";

break;

case 7:

Result += "هفتاد ";

break;

case 8:

Result += "هشتاد ";

break;

case 9:

Result += "نود ";

break;

}

#endregion

}

}

if (!((Dummy>=10) && (Dummy<20)))

{

Dummy = Value % 10;

if (Dummy!=0)

{

if (Value>9)

{

Result +="و ";

}

#region Yekan

switch (Dummy)

{

case 1:

Result +="یک ";

break;

case 2:

Result +="دو ";

break;

case 3:

Result +="سه ";

break;

case 4:

Result +="چهار ";

break;

case 5:

Result +="پنج ";

break;

case 6:

Result +="شش ";

break;

case 7:

Result +="هفت ";

break;

case 8:

Result +="هشت ";

break;

case 9:

Result +="نه ";

break;

}

#endregion

}

}

return Result;

}

 

publicstring ConvertIntToCharachterMoney(int Value)

{

string Result="";

string DummyStr = Value.ToString();

int DigitLen = DummyStr.Length;

int i,VavCount=0;

int[] Sections = newint[5];

if (Value==0) 

{

Result="صفر";

}

else

{

if (DigitLen>15)

{

Result="بسیار بزرگ";

}

else

{

DummyStr=Value.ToString("000000000000000"); 

for (i=0;i<5;i++)

{

Sections[i]=Convert.ToInt32(DummyStr.Substring(i*3,3));

if (Sections[i]!=0)

{

VavCount++;

}

}

VavCount--;

for (i=0;i<5;i++)

{

if (Sections[i]!=0)

{

Result += PrintThreeDigit(Sections[i]);

switch(i)

{

case 0 :

Result +="تریلیون ";

break;

case 1 :

Result +="میلیارد ";

break;

case 2 :

Result +="میلیون ";

break;

case 3 : 

Result +="هزار ";

break;

}

if (VavCount>0)

{

Result+= "و ";

VavCount--;

}

}

}

 

}

}

return Result;

}

 

با سلام خدمت شما

من یک سوال در مورد استفاده از ماجول ها در اکسس داشتم
الان ماجول های زیادی درباره تبدیل اعداد اعشاری به حروف در اینترنت وجود دارد
اولا شما کدام را توصیه می کنید
دوما نحوه استفاده آنرا لطفا توضیح دهید ، هدف من ازاستفاده این ماجول در یک برنامه کارنامه ، با قابلیت خواندن عدد به حروف است ولی چطور فیلدها روبه این ماجول ربط بدم دچار مشکلم !

82.75--------< هشتاد و دو هفتاد و پنج صدم
دقیقا منظور اینه که پس از تایپ عدد ،اتوماتیک در فیلدی دیگری ( به دلخواه) بصورت حروف نوشته شود .

82.75
هشتاد و دو هفتاد و پنج صدم

آیا در ماجول باید فیلدها رو معرفی کرد اگر جواب مثبته چطور؟

با تشکر فراوان- ایمان

با سلام خدمت شما

من یک سوال در مورد استفاده از ماجول ها در اکسس داشتم
الان ماجول های زیادی درباره تبدیل اعداد اعشاری به حروف در اینترنت وجود دارد
اولا شما کدام را توصیه می کنید
دوما نحوه استفاده آنرا لطفا توضیح دهید ، هدف من ازاستفاده این ماجول در یک برنامه کارنامه ، با قابلیت خواندن عدد به حروف است ولی چطور فیلدها روبه این ماجول ربط بدم دچار مشکلم !

82.75--------< هشتاد و دو هفتاد و پنج صدم
دقیقا منظور اینه که پس از تایپ عدد ،اتوماتیک در فیلدی دیگری ( به دلخواه) بصورت حروف نوشته شود .

82.75
هشتاد و دو هفتاد و پنج صدم

آیا در ماجول باید فیلدها رو معرفی کرد اگر جواب مثبته چطور؟

با تشکر فراوان- ایمان

سلام
خسته نباشین دوستان
کد سورس تقویم کامپیوتر رو به زبان vb یا vb.net یا php میخوام اگه راهنمایی کنید خیلی ممنون میشم.

نقل قول:

---

نوشته شده توسط setarehman

اگه منظورتون اینه که توی برنامه vb چه جوری تاریخ ها رو شمسی کنیم که باید از یه تابع تبدیل تاریخ تو برنامه استفاده کنید

---

سلام میشه بگید چه تابعی؟ متشکرم

قبل از اینکه این سوال را مطرح کنم، در تاپیک‌ها جستجو کردم، اما به نتیجه دلخواه نرسیدم. لذا این سوال را مطرح می‌کنم:
بدون این که در Control Panel بخش Regional and Language Settings لبه Advanced گزینه مربوط به برنامه‌های «غیر یونیکد» را به فارسی تغییر دهیم، می‌خواهیم برنامه‌ای داشته باشیم، که فقط یک عدد Textbox داشته باشد، که بشود تویش فارسی تایپ کرد، و بعد بتواند به یک دیتابیس (فایل Access) وصل شود، و عین متن تایپ شده را در جدول داخل آن ذخیره کند، به طوری که وقتی خود فایل Access را باز می‌کنیم هم متن را فارسی بنینیم، نه کاراکترهای عجیب و غریب.
توجه داشته باشید که برنامه قرار است فقط روی ویندوز XP‌ کار کند، و روی ویندوز ۹۸ و ... لازم نیست اصلاً باز بشود! (لذا من دنبال راه حل‌های مبتنی بر CodePage نیستم.)
توضیح دیگر آن که بنده اصلا سابقه کار با VB6 ندارم، و این سوال را به نیابت از کس دیگری می‌پرسم. لذا تا حد امکان ساده توضیح دهید. اگر به کامپوننت یا تکنیکی که برای شما شناخته شده‌است اشاره می‌کنید، لطف کنید برای من هم لینکی بگذارید که آشنا شوم.
(چیزی که تا الآن به آن پی بردم این است که VB6‌ کنترلهای پیش‌فرضش به صورت ANSI‌ هستند و بنابراین احتمالاً راه حل سوال من یا در گروی استفاده از کنترلهای دیگر است، یا در گروی ارتباط مستقیم برنامه با API‌ ویندوز و تعریف کنترلها از آن طریق.)

یک کنترل قبلا گذاشته بودم:

Dim s As New Payam_ActiveX_lib.Calender

s.DateDifference("1385/01/01", "1386/01/01", pr_DayInterval, pr_Persian)

اینم لینکش
https://barnamenevis.org/showthread.php?t=58091

سلام تابع تبدیل عدد به حروف (Num to Str) چند تا ایراد داره مثلا عدد 22000258000 رو نمی تونه محاسبه کنه که برای این کار درقسمت Case 1000000000 To 999999999999# باید 4 دستور if دیگر وارد بشه

من هنوز منتظر راهنمایی شما بزرگواران هستم. (درباره این سوال)

من ویندوزمو 2 بار عوض کردم اما فونت های فارسیم به هم ریخته چی کارکنم

نقل قول:

---

نوشته شده توسط yourdkhani

من ویندوزمو 2 بار عوض کردم اما فونت های فارسیم به هم ریخته چی کارکنم

---

یعنی چی بهم ریخته. دقیقتر بگید. مثلا فونت "نازنین" رو ندارید یا به جای ژ، پ میزنه؟

نقل قول:

---

نوشته شده توسط INeedHelp

سلام تابع تبدیل عدد به حروف (Num to Str) چند تا ایراد داره مثلا عدد 22000258000 رو نمی تونه محاسبه کنه که برای این کار درقسمت Case 1000000000 To 999999999999# باید 4 دستور if دیگر وارد بشه

---

اکه با وی بی کار میکنید اکتیوایکس موجود درلینک را دانلود و رجیسترنمایید. و از این کد استفاده نمایید تا 15 رقم محاسبه میکنه.

Dim c As New FarsiConverter

MsgBox c.Conv_NumToText(Text1.Text)

https://barnamenevis.org/showthread.php?t=58091
..
..
..

نقل قول:

---

نوشته شده توسط ishafaaty

با سلام خدمت شما

من یک سوال در مورد استفاده از ماجول ها در اکسس داشتم
الان ماجول های زیادی درباره تبدیل اعداد اعشاری به حروف در اینترنت وجود دارد
اولا شما کدام را توصیه می کنید
دوما نحوه استفاده آنرا لطفا توضیح دهید ، هدف من ازاستفاده این ماجول در یک برنامه کارنامه ، با قابلیت خواندن عدد به حروف است ولی چطور فیلدها روبه این ماجول ربط بدم دچار مشکلم !

82.75--------< هشتاد و دو هفتاد و پنج صدم
دقیقا منظور اینه که پس از تایپ عدد ،اتوماتیک در فیلدی دیگری ( به دلخواه) بصورت حروف نوشته شود .

82.75

هشتاد و دو هفتاد و پنج صدم

آیا در ماجول باید فیلدها رو معرفی کرد اگر جواب مثبته چطور؟

با تشکر فراوان- ایمان

---

سلام

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

https://barnamenevis.org/showthread.php?t=58091

 

Public Function NumToText() As String

    Dim c As New FarsiConverter

    Dim Result As String

    Dim Asli As String

    Dim Ashar As String

    Dim dot_Pos As Integer

 

    dot_Pos = InStr(1, Text1.Text, ".")

 

    If dot_Pos = 0 Then

        Result = c.Conv_NumToText(Text1.Text)

    Else

        Asli = Mid(Text1.Text, 1, dot_Pos - 1)

        Ashar = Mid(Text1.Text, dot_Pos + 1, 2)

        If Ashar = "" Or Val(Ashar) = 0 Then

            Result = c.Conv_NumToText(Asli)

        Else

            If Len(Ashar) = 1 Then Ashar = Ashar & "0"

            Result = c.Conv_NumToText(Asli) & " ممیز " & c.Conv_NumToText(Ashar) & " صدم"

        End If

    End If

 

    If Result = "" Then

        MsgBox "خطا در وارد کردن عدد"

    End If

    MsgBox Result

 

    NumToText = Result

 

End Function

 

.
.
.

اینم سورس تبدیل به حروف
از تابع Conv_NumToText استفاده کنید.
و دومی یک نمونه با اکسس که میخواستید.

من هنوز هم منتظر راهنمایی شما بزرگواران (درباره این سوال) هستم.

سلام به تمام دوستان
من از فایل Shamsi.dll استفده کردمولی در هنگام اجرا یک exception رخ میده
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Lan.exe
Additional information: COM object with CLSID {C36A6B80-D6A8-4F08-91DD-402E39456FE4} is either not valid or not registered.
کسی میتونه منو راهنمایی کنه که چه کار باید انجام بدم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

salam
man moshkele farsi neveshtan tu vb daram
va tu access
khode windows ba farsi moshkeli nadare
hatta word ham moshkeli nadare vali ba vb va access injuri mishe
http://www.uploadhut.com/upload/345964.jpg??

نقل قول:

---

نوشته شده توسط music

salam
man moshkele farsi neveshtan tu vb daram
va tu access
khode windows ba farsi moshkeli nadare
hatta word ham moshkeli nadare vali ba vb va access injuri mishe
http://www.uploadhut.com/upload/345964.jpg??

---

سلام

از منوی Tools به option و در دیالوگ باز باز شده از بالا لبه Editor Format و گزینه Font را به

 Courier New (Arabic)

تغییر بده.

نقل قول:

---

نوشته شده توسط AlirezaSaberi

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

---

از این لینک هم میتونی برداشت میکنی:
http://www.barnamenevis.org/sh...&postcount=233

نقل قول:

---

نوشته شده توسط hamedv

بهترین کدی که برای تبدیل تاریخ دیدم که میتونه چند نوع تقویم رو به هم تبدیل کنه : عبری، میلادی، هجری شمسی، هجری قمری
میتونه بگه هر روز چند شنبه ست
میتونید باهاش روزای تعطیل رو پیدا کنید ( مثلا 22 بهمن یا 10 محرم )
روشش هم اینه که برای هر تاریخ دو تا تابع داره که یک تابع تاریخ رو به یه عدد تبدیل میکنه و یه تابع عدد رو به تاریخ
اینطوری میتونید بگید که مثلا 32 روز دیگه کی میشه
هیچ گونه ایرادی هم من توش پیدا نکردم

---

نقل قول:

---

نوشته شده توسط BlackDal

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

آقای غیبی توی یه تاپیک دیگه گوشش منو کشیدن که اگه تابع تبدیل میلادی به هجری داری بیار بذار اینجا

آقای غیبی من بازم از شما معذرت میخوام :wink:

اینم لینک اون توابع ، این توابع رو متاسفانه نمی دونم کی نوشته ولی خیلی عالیه :mrgreen:

<span dir=ltr>

http://www.barnamenevis.org/download.php?id=2971


</span>

---

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

in karo kardam vali nashod
man fonte Courier New ro daram vali Courier New arabic ro nadaram
hatman bayad arabic bashe ?
font aye arabice digaro emtehan kardam nashode
:(

نقل قول:

---

نوشته شده توسط music

in karo kardam vali nashod
man fonte Courier New ro daram vali Courier New arabic ro nadaram
hatman bayad arabic bashe ?
font aye arabice digaro emtehan kardam nashode
:(

---

پس تنها یک راه مونده:

وارد کنترل پنل شده و قسمت Regional And Language Option را باز کنید.
از فرم باز شده لبه بالا و دکمه وسطی به نام Languages را انتخاب کنید.
در قسمت Supplemental language Support (پایین) گزینه Install Files For Complex script And right-to-left Languages باید تیک خورده باشد. اگر نبود تیک بزنید و Apply نمایید. ممکن است نیاز به سی دی ویندوز داشته باشد.
بعد در لبه های بالا گزینه Advanced را انتخاب نمایید و از لیست زبان فارسی را انتخاب کنید. ممکن است نیاز به راه انداری مجدد سیستم باشد.

پس از راه اندازی تنظیماتی که در پست قبلی گفتم در VB انجام داده (تغییر فونت) و وضعیت را امتحان کنید.

از منوی Tools به option و در دیالوگ باز باز شده از بالا لبه Editor Format و گزینه Font را به

 Courier New (Arabic)

تغییر بده.

موفق باشید.

mersi
moshkel har shod
Regional And Language Option
advanced
farsi ro englisi kardam
dobar farsi kardam restart kardam hal shod
mersi :)

نقل قول:

---

نوشته شده توسط SSoleimani

سلام به تمام دوستان
من از فایل Shamsi.dll استفده کردمولی در هنگام اجرا یک exception رخ میده
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Lan.exe
Additional information: COM object with CLSID {C36A6B80-D6A8-4F08-91DD-402E39456FE4} is either not valid or not registered.
کسی میتونه منو راهنمایی کنه که چه کار باید انجام بدم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

---

سلام
شما می خواستید از این dll در دات نت استفاده کنید ولی نشد؟؟؟!!!!
dll هایی که با وی بی تولید شدند در سایر محیط ها این اشکال رو دارند.