سوال
من مطالب جدولم را در محیط وی بی و در Textbox ها و در ویندوز ایکس پی تایپ کرده ام هنگام نمایش تکست ها در هیچ ویندوزی مشکلی ندارد.اما من با کمک دیتاریپورت از این ها ریپورت ساختم.حالا مشکل این است: هنگام پیش نمایش چاپ برای بعضی از تکست ها حروف رادرهم برهم و خرچنگ و قورباغه می زند. جالب این جا است که 3 خط اون درسته و مثلا 1 خط خراب است. این اشکال در ویندوز ایکس پی من وجود دارد.
قابل ذکر است که هنگام چاپ حروف را درست چاپ میکند.
چکار کنم که پیش نمایش چاپم هم درست بشه؟
راه حل
بجای خط
If date1 = "" Then date1 = DateAdd("d", 1, Date)
بنویسید
If date1 = "" Then
date1 = DateAdd("d", 1, Date)
Else
date1 = DateAdd("d", 1, date1)
End If
البته علت اضافه کردن 1 روز به تاریخ را برای انجتم محاسبه نمیدانم :sad2:
بله من هم این مشکل را دیدمنوشته شده توسط coral
البته اگر zoom را بالا ببریم خوب دیده میشن ولی درحالت معمولی عجق وجق دیده میشن :sad2:
من zoom را تا 200 درصد افزایش دادم اما فایدهای نداشت این هم تصویر حروف من:
سلام به همگی دوستان و برنامه نویسان عزیز
آقای غیبی توی یه تاپیک دیگه گوشش منو کشیدن که اگه تابع تبدیل میلادی به هجری داری بیار بذار اینجا
آقای غیبی من بازم از شما معذرت میخوام :wink:
اینم لینک اون توابع ، این توابع رو متاسفانه نمی دونم کی نوشته ولی خیلی عالیه :mrgreen:
<span dir=ltr>
http://www.barnamenevis.org/download.php?id=2971
</span>
تابع رو به این شکل فراخوانی کنید
Shamsi(, True)
با این کار فقط تاریخ تبدیل میشه و به شکل فارسی نمایش داده نمیشه
با سلام
اطلاعات یک برنامه رو با برنامه ای که تو vb نوشتم برداشتم و تو یه فایل متن ذخیره کردم
اطلاعت برنامه فارسی بوده و با فونت azarakhsh10 , parsfix قبلا وارد شده
حالا من این فایلی که ذخیره کرده بودم رو تو vb باز کردم و ریختم تو یک textbox و در ضمن
فونت textbox رو هم به فونت مربوطه ست کردم
ولی وقتی با تابع instr جستجو میکنم متن مورد نظر رو پیدا نمیکنه
لطفا راهنمایی کنید.
در ضمن از parsa2001 استفاده میکنم
آیا میشه فونشو به unicode تبدیل کرد ؟ چگونه؟
مرسی
دوستان! این جا یک نرم افزار فارسی ساز تاریخ ایکس پی را گذاشته اند می خواهید یک سری بزنید:
www.sinapardazeshsoft.com
بهترین کدی که برای تبدیل تاریخ دیدم که میتونه چند نوع تقویم رو به هم تبدیل کنه : عبری، میلادی، هجری شمسی، هجری قمری
میتونه بگه هر روز چند شنبه ست
میتونید باهاش روزای تعطیل رو پیدا کنید ( مثلا 22 بهمن یا 10 محرم )
روشش هم اینه که برای هر تاریخ دو تا تابع داره که یک تابع تاریخ رو به یه عدد تبدیل میکنه و یه تابع عدد رو به تاریخ
اینطوری میتونید بگید که مثلا 32 روز دیگه کی میشه
هیچ گونه ایرادی هم من توش پیدا نکردم
حامد جان اگه این طوری که گفتی باشه که خیلی عالیه!
ممنون! :موفق:
من این برنامه رو قبلا دیده بودم ولی مثل الان مثالی ازش مشاهده نکردن. این برنامه حاوی بیش از 10 تابع است که هر کدوم وظیفه خاصی دارند. که متاسفانه هیچ مثالی از شون نزدید به همین دلیل براحتی نمیتوان دریافت که هر تابع را چگونه میشود فراخوانی کرد و نیز پارامترهای ورودی هر یک چیست. متاسفانه در کد توابع نیز توضیحی داده نشده است.بهترین کدی که برای تبدیل تاریخ دیدم که میتونه چند نوع تقویم رو به هم تبدیل کنه : عبری، میلادی، هجری شمسی، هجری قمری
میتونه بگه هر روز چند شنبه ست
میتونید باهاش روزای تعطیل رو پیدا کنید ( مثلا 22 بهمن یا 10 محرم )
روشش هم اینه که برای هر تاریخ دو تا تابع داره که یک تابع تاریخ رو به یه عدد تبدیل میکنه و یه تابع عدد رو به تاریخ
اینطوری میتونید بگید که مثلا 32 روز دیگه کی میشه
هیچ گونه ایرادی هم من توش پیدا نکردم
اگر مثالی در مورد نحوه استفاده این توابع دارید ممنون میشوم در اختیار این جانب نیز بگذارید.
موفق باشید و پرتوان
من خودم از این ماجولها استفاده کردماگر مثالی در مورد نحوه استفاده این توابع دارید ممنون میشوم در اختیار این جانب نیز بگذارید.
فقط اگر توی دات نت بخواهید استفاده کنید باید یکی از توابعش رو که run time error میده رو یه تغییر کوچولو بدید
استفاده کردن ازش خیلی سادست
شما تمام ماجولها رو به برنامه add کن
بعدش میتونی تابعهای زیادی رو صدا بزنی
مثلا :
dim y as integer
dim m as integer
dim d as intger
y=2005
m=2
d=2
call civil_persian(y,m,d)
بعد از اجرای کد توی y عدد 1383 و توی m عدد 11 و توی d عدد 14 خواهد بود
اگر بخواهیم ببینیم که مثلا 10 روز بعد چه روزیه به جای تبدیل تاریخ civil (میلادی) به شمسی یا شمسی به میلادی میشه تاریخ رو به jdn یا jullian day number تبدیل کرد و اون عدد رو با 10 جمع کرد و دوباره به هر تاریخی که میخواهد تبدیل کنید
تابع هاش اینا هستن :
civil_jdn
jdn_civil
persian_jdn
jdn_persian
در واقع توی این تابعها هر تاریخی دو تا تابع داره یکی یک روز رو به jdn تبدیل میکنه و دیگری jdn رو به روز و ماه و سال تبدیل میکنه
هر کدوم از تقویمهاش هم کار یه ستاره شناسه
مثلا یه ستاره شناس ایرانی تابعهای persian_jdn و jdn_persian رو نوشته و الخ :wink:
اگر باز هم مشکلی هست بهم بگین
hamedv دستت درد نکنه از توضیحات. :flower:
اینم تقویم
این تقویم فقط ایرادش اینه که باید سیستم تاریخ شما به صورت mm/dd/yyyy باشه که این ایراد هم
بزودی برطرف میشه .
و اینکه شما امکان کنترل رنگ تمام قسمتها رو پیدا میکنید.
این مشکلات رو به دیده اغماض بنگرید تا نسخه جدید آماده باشه
پست زیر رو یکی از کاربران سایت (ehsan707) در بخشی دیگر ارسال کرده بودند که عینا به اینجا منتقل شده :
این هم یکبار برای همیشه
این اکتیوایکس رو به پروژه اضافه کنید و 2 متد رو فراخوانی کنید یکی برای قرار دادن تاریخ و یکی برای گرفتن تاریخ
البته برای محاسبه روز هفته میتونید تابع weekday رو در وی بی فراخوانی کنید.
خودم نوشتمش و تا جایی که تست کردم کاملا دقیقه خیلی هم سریعه !
اگر خطا یا اشتباهی دیدین به من میل بزنید ehsan2022002@yahoo.com
و اگر برای تبدیلات ماهای قمری و یهودی و فارسی به هم نیاز به اکتیو ایکس دارید.
دانلود
http://ehsan707.topcities.com/pcal.zip
(با تشکر از موناااااا که آدرس سایت برنامه نویس اورگ رو به من داد) :wink:
تابع زیر برای تبدیل اعداد به حروف نوشته شده. میدونم دیگه داره تو این تاپیک یه کم زیاد میشه. اما میتونید با این یکی اعدا شمارشی هم داشته باشید که تو هیچکدوم از قبلیا ندیدم. (مثلا سوم، سی ام. چهل و پنجم و ...)!!
همچنین مثلا -1 رو بصورت «منفی یک» نمایش میده. پشتیبانی از اعداد اعشاری هم بعدا اضافه میکنم و میزارم همینجا .
درضمن کد توی کریستال ریپورتز هم در بخش فرمول نویسی بدرستی کار میکنه(البته باید دو تابع رو در دو Function جدا قرار بدید.)
کد توضیحات کامل هم داره.
اگر مشکلی یا نظری داستید لطفا به این آدرس میل بزنید vbadvanced@gmail.com
'This Function convert Numbers To Text
Public Function NoToText(eNo As Double, _
Optional isCounter As Boolean = False) As String
Dim tStr, tNo, eNumber As String
Dim i, j, k As Double
Dim m_isNeg As Boolean
'This Number is Negative Or Positive?
m_isNeg = IIf(Sgn(eNo) = -1, True, False)
If eNo = 0 Then 'This Number is Zero; Don't Continue anymore
NoToText = IIf(isCounter, "صفرم ", "صفر ")
Exit Function
'NOTE: We can delete Following 3 Lines of code to have "یکم" instead of "اول"
'TODO: we can Make a new optional Argument to ask this from user
ElseIf (eNo = 1) And isCounter And (Not m_isNeg) Then
NoToText = "اول "
Exit Function
End If
'TODO: Add Support for decimal Numbers
'convert input to Absolute value w/o Thousand separators, as a String
eNumber = Abs(eNo)
'Add Some Extra Zero at the begining of String
eNumber = Choose(Len(eNumber) Mod 3, "00", "0") & eNumber
tStr = ""
k = Len(eNumber) / 3
For i = 1 To Len(eNumber) Step 3
'
tNo = Mid(eNumber, i, 3)
If tNo <> "000" Then
'Convert The First Digit Of Group --> `5`12
tStr = tStr & _
DigitToText(Mid(tNo, 1, 1) & "00")
'If the Second Digit is <1> Then We Have a number between _
Ten and Nineteen;
If Mid(tNo, 2, 1) = "1" Then '--> 5`12`
tStr = tStr & _
DigitToText(Mid(tNo, 2, 2))
Else 'elsewhere, do normal method
tStr = tStr & _
DigitToText(Mid(tNo, 2, 1) & "0") '--> 5`2`6
tStr = tStr & _
DigitToText(Mid(tNo, 3, 1))
End If
'if u know greater values then >>>>>>>>>>>>>>>>>>>>just Add it below
tStr = tStr & Choose(k, "", "هزار ", "میلیون ", "میلیارد ", "تریلیون ") '<<< here before `)`
End If
k = k - 1
Next i
'If in Counting Mode then add appropriate Suffixes to end of string
If isCounter Then
If Right(eNumber, 1) = "3" Then
tStr = Left(tStr, Len(tStr) - 2) & "وم" 'is `سهم` true?! ;)
ElseIf Right(eNumber, 2) = "30" Then
tStr = Left(tStr, Len(tStr) - 1) & "ام" 'and u know `سیم` is wrong! ;)
Else
tStr = RTrim(tStr) & "م" 'make countable strings like `دوازدهم`,`پنجم`, etc...
End If
End If
'This is Result!! ;)
NoToText = IIf(m_isNeg, "منفی ", "") & Mid(tStr, 3)
End Function
Private Function DigitToText(eNo As String)
Dim tStr As String
Dim tDbl As Double
If eNo = "" Or eNo = "0" Or eNo = "00" Or eNo = "000" Then
DigitToText = ""
Exit Function
End If
tDbl = Val(eNo)
Select Case tDbl
Case Is >= 1000
tStr = ""
Case Is >= 900
tStr = "نهصد"
Case Is >= 800
tStr = "هشتصد"
Case Is >= 700
tStr = "هفتصد"
Case Is >= 600
tStr = "ششصد"
Case Is >= 500
tStr = "پانصد"
Case Is >= 400
tStr = "چهارصد"
Case Is >= 300
tStr = "سیصد"
Case Is >= 200
tStr = "دویست"
Case Is >= 100
tStr = "صد"
Case Is >= 90
tStr = "نود"
Case Is >= 80
tStr = "هشتاد"
Case Is >= 70
tStr = "هفتاد"
Case Is >= 60
tStr = "شصت"
Case Is >= 50
tStr = "پنجاه"
Case Is >= 40
tStr = "چهل"
Case Is >= 30
tStr = "سی"
Case Is >= 20
tStr = "بیست"
Case Is >= 19
tStr = "نوزده"
Case Is >= 18
tStr = "هیجده"
Case Is >= 17
tStr = "هفده"
Case Is >= 16
tStr = "شانزده"
Case Is >= 15
tStr = "پانزده"
Case Is >= 14
tStr = "چهارده"
Case Is >= 13
tStr = "سیزده"
Case Is >= 12
tStr = "دوازده"
Case Is >= 11
tStr = "یازده"
Case Is >= 10
tStr = "ده"
Case Is >= 9
tStr = "نه"
Case Is >= 8
tStr = "هشت"
Case Is >= 7
tStr = "هفت"
Case Is >= 6
tStr = "شش"
Case Is >= 5
tStr = "پنج"
Case Is >= 4
tStr = "چهار"
Case Is >= 3
tStr = "سه"
Case Is >= 2
tStr = "دو"
Case Is >= 1
tStr = "یک"
Case Is >= 0
tStr = ""
End Select
DigitToText = "و " + tStr + " "
End Function
'ALL RIGHTS RESERVED BY: Mohammad Shiran
این هم برای اعداد اعشاری. تابع زیر رو برای تبدیل اعداد اعشاری به متن استفاده کنید و حالشو ببرید.
همین الان تموم شد. داغ داغ، تنوری!!
آرگومان اولش که معلومه. دومیش هم برای تعیین نوع خروجی هست. یعنی مثلا برای 12.5 خروجی بصورت «دوازده و نیم» یا « دوازده ممیز پنج دهم»
Function DecimalToText(eNo As Double, _
Optional DecStyle As Boolean = False _
) As String
Dim eFixed As String, eDecimal As String
Dim sResult As String
'return fixed value of given number as string
eFixed = Fix(eNo)
'if this number has some decimals
If (Len(CStr(eNo)) - Len(eFixed)) Then
'get it as a string, Example: return `125` for `12.125`
eDecimal = Mid(CStr(eNo), Len(eFixed) + 2)
'return fixed part as text
sResult = NoToText(CDbl(eFixed)) & IIf(DecStyle, "و ", "ممیز ")
'if decimal section is `5` then use `نیم` Instead of `پنج دهم`
'this is optional, u can remove it if u like
If eDecimal = 5 Then
sResult = sResult & "نیم"
Else
'convert the decimal part of number to text
sResult = sResult & _
NoToText(CDbl(eDecimal))
'add extra suffix at end of string, depending to number of decimal places
sResult = sResult & _
Choose(Len(eDecimal), "دهم", "صدم", _
"هزارم", "ده هزارم", _
"صد هزارم", "میلیونیم") ', _
....
End If
Else
'if this number is originally an integer then convert it using normal method
sResult = NoToText(eNo)
End If
'return the result. ;)
DecimalToText = sResult
End Function
دوست عزیز vbadvanced دستت درد نکنه سورس کد شما هم
نکات خاص خودش رو داشت .
بهر حال ممنون
vbadvanced دستت درد نکنه. جالب بود. :flower:
:flower:
من هم ممنونم. مسلما بدون نقص هم نیست. اگه مشکلی داشت خوشحال میشم منم در جریان بزارید.
درضمن بخش عمده کد توضیحات اضافیه که برای قابل فهم تر شدن کد گذاشتم
اگه دوست داشتید میتونید اونا رو حذف کنید
من یه سورس برنامه «یا هر چیز دیگه ای که کمکم کنه» ترجیحا به زبان ویژوال بیسیک دات نت می خام که کاربر بدون داشتن صفحه کلید فارسی بتونه فارسی بنویسه.
در واقع می خام یه برنامه بنویسم که نیاز به صفحه کلید فارسی و از این جور چیزا نداشته باشه با فونت مریم یا IPT یا هر فونت دیگه که Unicode نباشه.
خیلی توی این سایت گشتم ولی متاسفانه در این سایت در مورد همه چیز صحبت شده به جز همین مورد.
متاسفانه در این سایت در مورد همه چیز صحبت شده به جز همین مورد.من کد برای نوشتن با فونت IPT رو داشتم ولی پیدا نمی کنم. اگه مشکل شما یونیکد هست خوب از Iransystem استفاده کنید. کدش هم در همین تاپیک هست.با فونت مریم یا IPT یا هر فونت دیگه که Unicode نباشه.
آقای غیبی اگر این کد رو پیدا کردید ممنون میشم اونو به اشتراک بذاریدمن کد برای نوشتن با فونت IPT رو داشتم ولی پیدا نمی کنم.
من یک برنامه مشابه این چیزی که شما میخوای داشتم. منتها نه برای IPT
اونو تغییرش میدم و براتون میزارم
ممنون اگر لطف کنید
سلام
من وقتی در richeditbox یک متنی را کپی می کنم نقطه آخر خط را اول می آورد
برای حل این مشکل چه باید بکنم؟
در ضمن من آن فایل dll را در فایل سیستمی ویندوز دارم
خیلی متشکرم
وقتی تایپ میکنید یک بار ctrl+shift سمت راست صفحه کلید خودتون رو با هم بزنید. اینکار پاراگراف شما رو بصورت RightToLeft تغییر میده. علت این مشکل شما هم همین هست.
سلام
اما تمام متنها تایپ شده
آیا راه دیگری وجود ندارد
خیلی متشکرم
اگه همه متنهات توی یک فایل هستند اول یک بار ctrl+a رو بزن بعد هم ctrl+shift
خیلی ممنون
الان در دستگاه خودم متنهای فارسی را درست می بینم
ولی وقتی که برنامه را در یک دستگاه که ویندوز 2000 دارد اجرا می کنم متون فارسی به شکل علامت سوال نمایش داده می شوند
دستگاه خودم ویندوز xp دارد البته روی دستگاه دیگری که ویندوز xp دارد هم تست کردم ولی همان مشکل را داشت
مشکل علامت سوال رو با پستهایی که در اوایل همین تاپیک ارسال کردم حل کنید.
سلام دوستان.
من یه تازه ویژوال دیده ام.
نمیدونم چرا توی فورم گزینه Right To Left همیشه False میشه و True نمیشه
اگه میشه منو راهنمایی کنید
از چه سیستم عاملی استفاده میکنید؟
اگر XP یا دوهزار هست. اول امکانات فارسی رو توی اون نصب کنید.
سلام
من تمام مطالب این تاپیک را خواندم و تمام چیزهایی که گفته شده بود را انجام دادم
از جمله ست کردن فارسی در ویندوز و استفاده از فایل dll
ولی هنوز این مشکل را دارم
لطفا راهنمایی بفرمایید
باید سیستمتون امکانات فارسی را ساپورت کنه.نمیدونم چرا توی فورم گزینه Right To Left همیشه False میشه و True نمیشه
اگه میشه منو راهنمایی کنید
سلام
من یک برنامه با vb6 نوشتم که اطلاعات را از بانک access فقط می خواند
اطلاعات نیز با asp در صفحات وب با کدپیج یونیکد واردبانک شده اند
من تمام تنظیماتی که برای فارسی در این تاپیک گفته شده بود را انجام دادم و از آن فایل dll هم استفاده کردم
روی دستگاه خودم هیچ مشکلی ندارم ولی وقتی که برنامه را البته فایلexe آن را در کامپیوتر دیگری که تنظیمات آن مانند دستگاه خودم می باشد کپی می کنم اطلاعات به صورت علامت ؟ نمایش داده می شوند
در صورت توان راهنمایی بفرمایید
خیلی متشکرم
گروه نرم افزاری اوکسین اقدام به طراحی و عرضه ی DLLی نموده است که مشکل برنامه نویسان ایرانی را تا حد زیادی در زمینه تاریخ شمسی حل میکند.
این توابع به صورت کاملا دقیق، تاریخ میلادی سیستم را به تاریخ هجری شمسی تبدیل می‌نمایند و همچنین توابع دیگری را برای انجام محاسبات روی این تاریخ در دسترس قرار می‌دهند. یکی از ویژگیهای جالب توجه این کلاس (که بسیاری از کلاسهای مشابه نوشته شده در این زمینه فاقد ان هستند) عملکرد دقیق آنها روی سالهای کبیسه است. همانطور که می‌دانید در سیستم تاریخ شمسی بعضی از سالها کبیسه هستند و در آنها ماه اسفند سی روز می‌باشد. این سالها به صورت متناوب هر چهار سال یکبار تکرار می‌شوند و چون این سالها از سالهای عادی یکروز بیشتر هستند، لذا باید در محاسبات تاریخ این نکته را مدنظر قرار داد، که این توابع به خوبی از آن پشتیبانی می‌کنند.
کلاسهای این توابع به صورت استاندارد تهیه و کامپایل شده است تا تمام برنامه نویسان بتوانند از آنها در زبانهای برنامه نویسی گوناگون مانند دلفی، ویژوال بیسیک، سی شارپ و همه ی زبانهای دیگری که از استاندارد COM پشتیبانی می‌کنند، استفاده کنند.
استفاده از فایل shamsi.dll توسط برنامه نویسان ایرانی در برنامه ها و پروژه های مختلف مجاز می باشد. این برنامه به صورت رایگان است و کاربر برای استفاده از آن مجبور به پرداخت هیچ حق استفاده ای نمی باشد. اما برای پشتیبانی از سازنده ی این برنامه، لطفا افرادی که از آن در برنامه ها یا پروژه های خود استفاده می کنند، با ارسال یک ایمیل به طراح برنامه پشتیبانی خود را اعلام کنند.
تعدادی از قابلیتهای عمده تقویم شمسی و قابلیتهای جدید که در آخرین نگارش به آن اضافه شده اند را مشاهده می کنید:
- امکان تبدیل کاملا دقیق تاریخ میلادی به شمسی
عملکرد دقیق روی سالهای کبیسه
انجام عملیاتهای محاسباتی مختلف بر روی تاریخهای شمسی
پشتیبانی از 29/12/1330 تا 29/12/9999 !
رایگان برای استفاده برنامه نویسان و طراحان وب
لینک دانلود فایل : http://files.oxinsoft.com/shamsidll/shamsidll.zip
لینک سایت شرکت نرم افزاری اوکسین : http://www.oxinsoft.com
پاسخ با نقل قول
