مـنـتـديـات الأبـيـض سـيـد الـشـيـخ
منتديات الابيض سيدي الشيخ ، سجل معنا ، انت في بيتك

مـنـتـديـات الأبـيـض سـيـد الـشـيـخ

عــــرا قـــــة و أ صـــــا لــة
 
الرئيسيةمكتبة الصورس .و .جبحـثالتسجيلالأعضاءالمجموعاتدخول

# *** # عن أبي  ذر  رضي  الله  عنه  قال :  قال  رسول  الله  صلى  الله  عليه  وسلم : (( إن  ناسا  من  أمتي  سيماهم  التحليق  يقرؤون  القرآن  لا يجاوز  حلوقهم  يمرقون  من  الدين  كما  يمرق  السهم  من  الرمية  هم  شر  الخلق  والخليقة  )) . رواه  مسلم # *** #  روى  الطبراني  في  الكبير  عن  معقل  بن  يسار  قال : قال  رسول  الله  صلى  الله  عليه  وسلم : ((  لأن  يطعن  في  رأس  رجل  بمخيط  من  حديد ،  خير  له  من  أن يمس  امرأة  لا  تحل  له  )) # *** #


شاطر | 
 

 البرمجة بلغة الفجوال بيسك(أكواد)

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
زائر
زائر



مُساهمةموضوع: البرمجة بلغة الفجوال بيسك(أكواد)   الأربعاء ديسمبر 26, 2007 2:43 pm

Public Function Digital(ByVal AMOUNT As Double, FLAGTYPE As String)
On Error Resume Next
Select Case FLAGTYPE
Case "EGYPT"
LE = " جنيها "
P = " قرشا "
PS = " قروش "
POUNDS = " جنيهات "
V = Int(Math.Abs(AMOUNT))
VPS = Val(Right(Format(AMOUNT, "000000000000.00"), 2))
WORDINTEGER = AmountWord(V)
WORDPS = AmountWord(VPS)
If WORDINTEGER <> "" And (VPS <= 2) Then Result = WORDINTEGER & LE & " و " & WORDPS & P & "فقط لاغير "
If WORDINTEGER <> "" And (VPS >= 3 And VPS <= 9) Then Result = WORDINTEGER & LE & " و " & WORDPS & PS & "فقط لاغير "
If WORDINTEGER <> "" And (VPS > 9) Then Result = WORDINTEGER & LE & " و " & WORDPS & P & "فقط لاغير "
If WORDINTEGER = "" And (VPS <= 2) Then Result = WORDPS & P & "فقط لاغير "
If WORDINTEGER = "" And (VPS >= 3 And VPS <= 9) Then Result = WORDPS & PS & "فقط لاغير "
If WORDINTEGER = "" And VPS > 9 Then Result = WORDPS & P & "فقط لاغير "
If WORDINTEGER = "" And VPS = 0 Then Result = ""
If WORDINTEGER <> "" And VPS = 0 Then Result = WORDINTEGER & LE & "فقط لاغير "
Digital = Result
Case "USA"
DOLLAR = " دولار "
SENT = " سنتاً "
SENTS = "سنتات"
V = Int(Math.Abs(AMOUNT))
VPS = Val(Right(Format(AMOUNT, "000000000000.00"), 2))
WORDINTEGER = AmountWord(V)
WORDPS = AmountWord(VPS)
If WORDINTEGER <> "" And (VPS <= 2) Then Result = WORDINTEGER & DOLLAR & " و " & WORDPS & SENT & "فقط لاغير "
If WORDINTEGER <> "" And (VPS >= 3 And VPS <= 9) Then Result = WORDINTEGER & DOLLAR & " و " & WORDPS & " " & SENTS & " " & "فقط لاغير "
If WORDINTEGER <> "" And (VPS > 9) Then Result = WORDINTEGER & DOLLAR & " و " & WORDPS & SENT & "فقط لاغير "
If WORDINTEGER = "" And (VPS <= 2) Then Result = WORDPS & SENT & "فقط لاغير "
If WORDINTEGER = "" And (VPS >= 3 And VPS <= 9) Then Result = WORDPS & " " & SENTS & " " & "فقط لاغير "
If WORDINTEGER = "" And VPS > 9 Then Result = WORDPS & SENT & "فقط لاغير "
If WORDINTEGER = "" And VPS = 0 Then Result = ""
If WORDINTEGER <> "" And VPS = 0 Then Result = WORDINTEGER & DOLLAR & "فقط لاغير "
Digital = Result
Case "WEIGHT"
TON = " طن "
KG = " كيلو جرام "
KGS = "كيلو جرامات"
V = Int(Math.Abs(AMOUNT))
VPS = Val(Right(Format(AMOUNT, "000000000000.000"), 3))
WORDINTEGER = AmountWord(V)
WORDPS = AmountWord(VPS)
If WORDINTEGER <> "" And (VPS <= 2) Then Result = WORDINTEGER & TON & " و " & WORDPS & KG & "فقط لاغير "
If WORDINTEGER <> "" And (VPS >= 3 And VPS <= 9) Then Result = WORDINTEGER & TON & " و " & WORDPS & KGS & "فقط لاغير "
If WORDINTEGER <> "" And (VPS > 9) Then Result = WORDINTEGER & TON & " و " & WORDPS & KG & "فقط لاغير "
If WORDINTEGER = "" And (VPS <= 2) Then Result = WORDPS & KG & "فقط لاغير "
If WORDINTEGER = "" And (VPS >= 3 And VPS <= 9) Then Result = WORDPS & KGS & "فقط لاغير "
If WORDINTEGER = "" And VPS > 9 Then Result = WORDPS & KG & "فقط لاغير "
If WORDINTEGER = "" And VPS = 0 Then Result = ""
If WORDINTEGER <> "" And VPS = 0 Then Result = WORDINTEGER & TON & "فقط لاغير "
Digital = Result
End Select
End Function
Public Function AmountWord(ByVal AMOUNT As Double)
On Error Resume Next

n = Int(AMOUNT)
c = Format(n, "000000000000")
C1 = Val(Mid(c, 12, 1))
Select Case C1
Case Is = 1: str1 = "واحد"
Case Is = 2: str1 = "اثنان"
Case Is = 3: str1 = "ثلاثة"
Case Is = 4: str1 = "اربعة"
Case Is = 5: str1 = "خمسة"
Case Is = 6: str1 = "ستة"
Case Is = 7: str1 = "سبعة"
Case Is = 8: str1 = "ثمانية"
Case Is = 9: str1 = "تسعة"
End Select

C2 = Val(Mid(c, 11, 1))
Select Case C2
Case Is = 1: str2 = "عشر"
Case Is = 2: str2 = "عشرون"
Case Is = 3: str2 = "ثلاثون"
Case Is = 4: str2 = "اربعون"
Case Is = 5: str2 = "خمسون"
Case Is = 6: str2 = "ستون"
Case Is = 7: str2 = "سبعون"
Case Is = 8: str2 = "ثمانون"
Case Is = 9: str2 = "تسعون"
End Select

If str1 <> "" And C2 > 1 Then str2 = str1 + " و" + str2
If str2 = "" Then str2 = str1
If C1 = 0 And C2 = 1 Then str2 = str2 + "ة"
If C1 = 1 And C2 = 1 Then str2 = "احدى عشر"
If C1 = 2 And C2 = 1 Then str2 = "اثنى عشر"
If C1 > 2 And C2 = 1 Then str2 = str1 + " " + str2
C3 = Val(Mid(c, 10, 1))
Select Case C3
Case Is = 1: str3 = "مائة"
Case Is = 2: str3 = "مئتان"
Case Is > 2: str3 = Left(AmountWord(C3), Len(AmountWord(C3)) - 1) + "مائة"
End Select
If str3 <> "" And str2 <> "" Then str3 = str3 + " و" + str2
If str3 = "" Then str3 = str2

C4 = Val(Mid(c, 7, 3))
Select Case C4
Case Is = 1: str4 = "الف"
Case Is = 2: str4 = "الفان"
Case 3 To 10: str4 = AmountWord(C4) + " آلاف"
Case Is > 10: str4 = AmountWord(C4) + " الف"
End Select
If str4 <> "" And str3 <> "" Then str4 = str4 + " و" + str3
If str4 = "" Then str4 = str3
C5 = Val(Mid(c, 4, 3))
Select Case C5
Case Is = 1: str5 = "مليون"
Case Is = 2: str5 = "مليونان"
Case 3 To 10: str5 = AmountWord(C5) + " ملايين"
Case Is > 10: str5 = AmountWord(C5) + " مليون"
End Select
If str5 <> "" And str4 <> "" Then str5 = str5 + " و" + str4
If str5 = "" Then str5 = str4

C6 = Val(Mid(c, 1, 3))

Select Case C6
Case Is = 1: str6 = "مليار"
Case Is = 2: str6 = "ملياران"
Case Is > 2: str6 = AmountWord(C6) + " مليار"
End Select
If str6 <> "" And str5 <> "" Then str6 = str6 + " و" + str5
If str6 = "" Then str6 = str5
AmountWord = str6
End Function
ترفبوا شرح واستعمالات الكود إن شاء الله.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ADMIN
المدير العام
المدير العام
avatar

عدد الرسائل : 72
السٌّمعَة : 2
نقاط : 20
تاريخ التسجيل : 07/11/2007

مُساهمةموضوع: مشكور   الأربعاء ديسمبر 26, 2007 9:22 pm

مشكور أخي على موضوعك القيم ولما تبذله من اجل ايصال هذه اللغة للمبتدئين
واصل على اثراء هذا المنتدى بهذه اللغة وبارك الله فيك وصدد خطاك
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://missoft.ahlamontada.com
زائر
زائر



مُساهمةموضوع: جـزيل الشـكـر   الإثنين ديسمبر 31, 2007 5:51 pm

لـك مـنا أسـمـى عـبارات الشكـر والتقـدير الأخ مصـطفى وشكرا لك على أنك قبلت الانضمام لنا ودمت وفيا للمنتدى وصديقا ملازما وفـقـك الله .
الرجوع الى أعلى الصفحة اذهب الى الأسفل
زائر
زائر



مُساهمةموضوع: رد: البرمجة بلغة الفجوال بيسك(أكواد)   الأربعاء يناير 02, 2008 8:01 pm

جازاك الله خيرا ايها الاخ الفاضل


وجعله الله فى ميزان حسناتك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
زائر
زائر



مُساهمةموضوع: رد: البرمجة بلغة الفجوال بيسك(أكواد)   الإثنين يناير 07, 2008 7:28 am

مشكور اخي على مد يد العون من اجل الاستفادة
دمت اخا وفيا ودام جهدك وتعبك راحتا مدخرة في اخراك
منك العطاء ومنا الوفاء
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
البرمجة بلغة الفجوال بيسك(أكواد)
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
مـنـتـديـات الأبـيـض سـيـد الـشـيـخ  :: منتديات الكمبيوتر والأنترنت :: برامج الكمبيوتر والأنترنت-
انتقل الى: