تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ما هو الخطاء في هذا الكود
#1
اخواني عند محاولتي عميل تفقيط داخل الكريستال ريبورت كتب هذا الكود داخل الكريستال ولكنه لا يعمل ارجو معرفة الخطاء من اصحاب المعرفه ولكم جزيل الشكر
الكود هو
Dim sStrNo, sResult, c1, c2, c3, sMidStrNo As String
Dim nLenNo, nLoop As number
sResult = ""
sStrNo = CStr({Main._No})
If Left(Right(sStrNo, 2), 1) = "." Then sStrNo = sStrNo & "0"
If Left(Right(sStrNo, 3), 1) <> "." Then sStrNo = sStrNo & ".00"
sStrNo = Trim(sStrNo)
nLenNo = Len(sStrNo)
nLoop = 1
Do While nLenNo > 0
c1 = ""
c2 = ""
c3 = ""
If nLenNo = 12 Or nLenNo = 9 Or nLenNo = 6 Then
sMidStrNo = Mid(sStrNo, nLoop, 1)
nLenNo = nLenNo - 1
Select Case sMidStrNo
Case "0"
c3 = ""
Case "1"
c3 = "ومائة "
Case "2"
c3 = "ومائتان "
Case "3"
c3 = "وثلاثمائة "
Case "4"
c3 = "واربعمائة "
Case "5"
c3 = "وخمسمائة "
Case "6"
c3 = "وستمائة "
Case "7"
c3 = "وسبعمائة "
Case "8"
c3 = "وثمانمائة "
Case "9"
c3 = "وتسعمائة "
End Select
nLoop = nLoop + 1
End If
If nLenNo = 3 Then
nLoop = nLoop + 1
nLenNo = nLenNo - 1
End If
sMidStrNo = Mid(sStrNo, nLoop, 1)
If nLenNo = 2 Or nLenNo = 5 Or nLenNo = 8 Or nLenNo = 11 Then
Select Case sMidStrNo
Case "0"
c2 = ""
Case "1"
c2 = "عشر "
Case "2"
c2 = "وعشرون "
Case "3"
c2 = "وثلاثون "
Case "4"
c2 = "واربعون "
Case "5"
c2 = "وخمسون "
Case "6"
c2 = "وستون "
Case "7"
c2 = "وسبعون "
Case "8"
c2 = "وثمانون "
Case "9"
c2 = "وتسعون "
End Select
nLenNo = nLenNo - 1
nLoop = nLoop + 1
End If
sMidStrNo = Mid(sStrNo, nLoop, 1)
If nLenNo = 1 Then ' قروش
Select Case sMidStrNo
Case "0"
c1 = ""
Case "1"
If c2 = "عشر " Then
c1 = "واحدى "
Else
c1 = "وواحد "
End If
Case "2"
If c2 = "عشر " Then
c1 = "واثنتا "
Else
c1 = "واثناتان "
End If
Case "3"
c1 = "وثلاث "
Case "4"
c1 = "واربع "
Case "5"
c1 = "وخمس "
Case "6"
c1 = "وست "
Case "7"
c1 = "وسبع "
Case "8"
c1 = "وثمان "
Case "9"
c1 = "وتسع "
End Select
Else ' جنهات
Select Case sMidStrNo
Case "0"
c1 = ""
If c2 = "عشر " Then
c2 = "وعشرة "
End If
Case "1"
If c2 = "عشر " Then
c1 = "واحدى "
Else
c1 = "وواحد "
End If
Case "2"
If c2 = "عشر " Then
c1 = "واثنا "
Else
c1 = "واثنان "
End If
Case "3"
c1 = "وثلاثة "
Case "4"
c1 = "واربعة "
Case "5"
c1 = "وخمسة "
Case "6"
c1 = "وستة "
Case "7"
c1 = "وسبعة "
Case "8"
c1 = "وثمانة "
Case "9"
c1 = "وتسعة "
End Select
End If
nLenNo = nLenNo - 1
nLoop = nLoop + 1
Select Case nLenNo
Case 9
Select Case c1 + c2 + c3
Case "وواحد "
sResult = sResult + "ومليون "
Case "واثنان "
sResult = sResult + "ومليونان"
Case Else
sResult = sResult + c3 + c1 + c2 + "مليون "
End Select
Case 6
Select Case c1 + c2 + c3
Case "وواحد "
sResult = sResult + "والف "
Case "واثنان "
sResult = sResult + "والفان "
Case "وثلاثة "
sResult = sResult + "وثلاثة الاف "
Case "واربعة "
sResult = sResult + "واربعة الاف "
Case "وخمسة "
sResult = sResult + "وخمسة الاف "
Case "وستة "
sResult = sResult + "وستة الاف "
Case "وسبعة "
sResult = sResult + "وسبعة الاف "
Case "وثمانية "
sResult = sResult + "وثمانية الاف "
Case "وتسعة "
sResult = sResult + "وتسعة الاف "
Case Else
If c2 = "وعشرة " Then
sResult = sResult + c3 + c1 + c2 + "الاف "
Else
sResult = sResult + c3 + c1 + c2 + "الف "
End If
End Select
Case 3
If c2 = "" Then
Select Case c1
Case ""
c1 = "جنيه "
Case "وواحد "
c1 = "وجنيه "
Case "واثنان "
c1 = "وجنيهان "
Case "وثلاثة "
c1 = "وثلاثة جنيهات "
Case "واربعة "
c1 = "واربعة جنيهات "
Case "وخمسة "
c1 = "وخمسة جنيهات "
Case "وستة "
c1 = "وستة جنيهات "
Case "وسبعة "
c1 = "وسبعة جنيهات "
Case "وثمانية "
c1 = "وثمانية جنيهات "
Case "وتسعة "
c1 = "وتسعة جنيهات "
End Select
sResult = sResult + c3 + c1 + c2
Else
sResult = sResult + c3 + c1 + c2 + "جنيهاً "
End If
Case 0
If c1 + c2 <> "" Then
If c2 = "" Then
Select Case c1
Case "وواحد "
sResult = sResult + "وقرش واحد"
Case "واثنان "
sResult = sResult + "وقرشان "
Case Else
sResult = sResult + c1 + "قروش "
End Select
Else
sResult = sResult + c1 + c2 + "قرش "
End If
End If
End Select
Loop
sResult = LTrim(sResult)
nLenNo = Len(sResult) - 1
If Left(sResult, 1) = "و" Then
sResult = Mid(sResult, 2, nLenNo)
End If
formula = sResult
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في الكود salahmax12 4 140 08-11-18, 08:36 PM
آخر رد: salahmax12
  محتاج مساعدة فى كتابة الكود احمد خطاب 6 126 06-11-18, 09:21 PM
آخر رد: احمد خطاب
  سؤال في الكود مهم لو سمحتم احمد خطاب 14 233 05-11-18, 06:57 PM
آخر رد: احمد خطاب
  [سؤال] طلب تعديل علي رابط موقع داخل الكود ScreamVoice 2 77 04-11-18, 01:22 PM
آخر رد: ScreamVoice
  هناك خطأ فى هذا الكود خالد كامل1 4 110 29-10-18, 06:02 PM
آخر رد: elgokr
  ماهو الكود المُستخدم في تشغيل البرنامج برقم الهارديسك؟ Hazem1 9 244 21-10-18, 01:56 PM
آخر رد: عبد العزيز البسكري
  [سؤال] ارجو المساعدة في تصحيح هذا الكود لزر الحفظ gharib 0 89 19-10-18, 12:39 PM
آخر رد: gharib
Smile ممكن شرح هدا الكود الزوي 1 100 18-10-18, 02:17 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 116 11-10-18, 03:30 PM
آخر رد: Simo1991
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 265 06-10-18, 02:07 AM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم