هذه مجموعة أكواد مهمة وفنية وتسهل الكثير من الأعمال البرمجية في الفيجوال بيسك ، وهي من تصميمي ، أرجو أن ينتفع بها مبرمجينا الأعزاء ، هي هكذا تباعا :
1 - ( دالة وظيفية لتفصيل العدد في مراتبه بإضافة الفواصل ) :
حيث الإسم الإفتراضي لهذه الدالة يكون : NDT
حيث يوضع العدد أو المتغير العددي بين قوسين بعدها أثناء كتابتها في
النص البرمجي .
شرح مبسط عن مخرجات الدالة :
مثلا إدخال الآتي :
العدد : 1233948
فتخرج الدالة هذه النتيجة :
1,233,948
ملحوظة : هذا الكود لهذه الدالة يوضع في ( الفورم Form )
في منطقة ( الإعلانات العامة للفورم Declarations )
نص الكود :
Function Ndt(Number As Variant) As String
Z2$ = Format(Number, "Standard")' 1
Ndt = Left$(Z2$, Len(Z2$) - 3) ' 2
End Function
'
-------------------------------------------------------------------
2 - ( دالة وظيفية لإعطاء مقدار النسبة المئوية بين عددين ) :
حيث الإسم الإفتراضي لهذه الدالة يكون : Perc
حيث يوضع العددين أو المتغيرين العدديين بين قوسين بعدها أثناء كتابتها في النص البرمجي .
شرح مبسط عن مخرجات الدالة :
مثلا إدخال الآتي :
العدد الكلي أولا : 20
العدد الجزئي ثانيا : 5
فتخرج الدالة هذه النتيجة :
25
أي 25%
ملحوظة : هذا الكود لهذه الدالة يوضع في ( الفورم Form )
في منطقة ( الإعلانات العامة للفورم Declarations )
نص الكود :
Function Perc(N1 As Variant, N2 As Variant) As Double
If N2 <= N1 Then
N3 = (N2 / N1) * 100
Perc = Round(N3, 2) ''''' 3
Else
Perc = 0
End If
End Function
'
-------------------------------------------------------------------
3 - ( دالة وظيفية لتحديد مقدار عدد من نسبة مئوية معطاة ) :
حيث الإسم الإفتراضي لهذه الدالة يكون : PercN
حيث يوضع العددين أو المتغيرين العدديين بين قوسين بعدها أثناء كتابتها في النص البرمجي .
شرح مبسط عن مخرجات الدالة :
مثلا إدخال الآتي :
العدد النسبي المئوي المُراد أولا : 50 ، أي 50%
العدد الكلي ثانيا : 30
فتخرج الدالة هذه النتيجة :
15
ملحوظة : هذا الكود لهذه الدالة يوضع في ( الفورم Form )
في منطقة ( الإعلانات العامة للفورم Declarations )
نص الكود :
Function Perc(N1 As Variant, N2 As Variant) As Double
If N2 <= N1 Then
N3 = (N2 / N1) * 100
Perc = Round(N3, 2) ''''' 3
Else
Perc = 0
End If
End Function
'
-------------------------------------------------------------------
4 - ( دالة وظيفية لإضافة أصفار إلى يسار العدد) :
حيث الإسم الإفتراضي لهذه الدالة يكون : AddZero
حيث يوضع العدد أو المتغير العددي بين قوسين بعدها أثناء كتابتها في
النص البرمجي .
شرح مبسط عن مخرجات الدالة :
مثلا إدخال الآتي :
عدد خانات الأصفار : 4
العدد نفسه : 33
فتخرج الدالة هذه النتيجة :
0033
ملحوظة : هذا الكود لهذه الدالة يوضع في ( الفورم Form )
في منطقة ( الإعلانات العامة للفورم Declarations )
نص الكود :
Function AddZero(ZerosAdded As Integer, Number As Integer) As String
Z = ZerosAdded
M$ = CStr(Int(Number)): L = Len(M$) '' 1
C = Z - L
If L > Z Then Q$ = "" Else Q$ = String$(C, "0") '' 2
AddZero = Q$ + M$
End Function
'
-------------------------------------------------------------------
........ يتبع .........