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

**siamakuk** · چهارشنبه 17 خرداد 1385, 21:19 عصر

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

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

**Youness** · چهارشنبه 21 تیر 1385, 10:26 صبح

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

**ab_ba** · چهارشنبه 25 مرداد 1385, 10:09 صبح

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

**M-Gheibi** · چهارشنبه 25 مرداد 1385, 13:01 عصر

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

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

**farzad964** · پنج شنبه 02 شهریور 1385, 09:49 صبح

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

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

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

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

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

**eagnasio** · شنبه 04 شهریور 1385, 15:51 عصر

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

**alireza_vb** · پنج شنبه 16 شهریور 1385, 19:43 عصر

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

کد زیر برای تبدیل مقدار عددی به حروف است.
به این نکته دقت داشته باشید که حداکثر مقدار قابل قبول برای این تابع 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 &lt;> 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 &lt;> 0) Then hooroof = Adad_Heji(mm) + melun + va + Adad_Heji(hh) + hezar

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

        If (SS &lt;> 0 And hh &lt;> 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 &lt;> 0) Then hooroof = Adad_Heji(yy) + melyard + va + Adad_Heji(mm) + melun

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

        If (SS &lt;> 0 And hh &lt;> 0 And mm &lt;> 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 &lt; 20 Then

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

    If (sadgan &lt;> 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 &lt;> 0) Then behooroof = heji_dahgan(dahgan / 10) + va + heji(yekan)

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

    If (sadgan &lt;> 0 And yekan &lt;> 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:

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

**M-Gheibi** · پنج شنبه 16 شهریور 1385, 19:49 عصر

@ alireza_vb:

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

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

شب خوش

**saruneh** · شنبه 22 مهر 1385, 01:29 صبح

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

**Hossein Bazyan** · شنبه 22 مهر 1385, 06:49 صبح

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

**amirsadeghi** · یک شنبه 30 مهر 1385, 08:36 صبح

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

**icarus** · پنج شنبه 04 آبان 1385, 10:46 صبح

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

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

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

**mohsenna30ri** · شنبه 13 آبان 1385, 09:38 صبح

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

**amirfz** · جمعه 26 آبان 1385, 14:03 عصر

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

**Hossein Bazyan** · جمعه 26 آبان 1385, 16:27 عصر

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

**amirfz** · شنبه 27 آبان 1385, 09:04 صبح

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

**moslem-visual** · دوشنبه 29 آبان 1385, 20:11 عصر

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

**sknsphr** · سه شنبه 30 آبان 1385, 09:50 صبح

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

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

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

**Hossein Bazyan** · سه شنبه 30 آبان 1385, 11:44 صبح

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

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

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

**sknsphr** · چهارشنبه 01 آذر 1385, 09:01 صبح

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

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

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

**Hossein Bazyan** · چهارشنبه 01 آذر 1385, 11:36 صبح

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

**mjnikbn** · سه شنبه 07 آذر 1385, 17:35 عصر

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

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

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

**aslan_ir** · پنج شنبه 16 آذر 1385, 21:05 عصر

f_h1360

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

**ishafaaty** · سه شنبه 28 آذر 1385, 15:31 عصر

سلام خسته نباشید
آقا مشکل ما از پایه است

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

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

**joker** · سه شنبه 28 آذر 1385, 16:37 عصر

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

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

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

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

**jafardelphi** · چهارشنبه 29 آذر 1385, 00:49 صبح

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

**greenway** · چهارشنبه 29 آذر 1385, 11:21 صبح

نوشته شده توسط 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;

}

**ishafaaty** · دوشنبه 04 دی 1385, 17:32 عصر

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

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

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

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

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

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

**ishafaaty** · دوشنبه 04 دی 1385, 17:40 عصر

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

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

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

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

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

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

**کامپیوتر** · چهارشنبه 13 دی 1385, 17:22 عصر

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

**یاسی صبوری** · شنبه 23 دی 1385, 09:47 صبح

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

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

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

**problem** · شنبه 23 دی 1385, 21:05 عصر

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

**Payam Moradi** · یک شنبه 24 دی 1385, 11:29 صبح

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

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

**INeedHelp** · دوشنبه 25 دی 1385, 20:15 عصر

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

**problem** · سه شنبه 26 دی 1385, 10:35 صبح

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

**yourdkhani** · پنج شنبه 05 بهمن 1385, 18:48 عصر

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

**Payam Moradi** · پنج شنبه 05 بهمن 1385, 21:57 عصر

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

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

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

**Payam Moradi** · پنج شنبه 05 بهمن 1385, 22:02 عصر

نوشته شده توسط 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
..
..
..

**Payam Moradi** · پنج شنبه 05 بهمن 1385, 22:17 عصر

نوشته شده توسط 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 استفاده کنید.
و دومی یک نمونه با اکسس که میخواستید.

**problem** · پنج شنبه 05 بهمن 1385, 22:40 عصر

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

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

ابزار های تاپیک

نمایش

سوال در مورد <

سلام

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

فارسی ساز

کمک

لطفا راهنمایی کنید

لطفا راهنمایی

نیازمند راهنمایی

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

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

ابزار های تاپیک

نمایش

سوال در مورد &lt;

سلام

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

فارسی ساز

کمک

لطفا راهنمایی کنید

لطفا راهنمایی

نیازمند راهنمایی

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

سوال در مورد <