منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ (/showthread.php?tid=34268)

كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ - Microformt - 10-04-20

بسم الله الرحمن الرحيم
 الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية. (للاستخدام مع  التكست يخزن قيماً رقمية كنسب مئوية).؟؟
ولكم مني جزيل الشكر
 تحياتي


RE: كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ - اسلام الكبابى - 11-04-20

إقتباس :كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.
ممكن أى مثال صغير ؟


إقتباس :(للاستخدام مع  التكست يخزن قيماً رقمية كنسب مئوية).؟؟
ممكن مع نفس المثال السابق توضح المقصود هنا

RE: كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ - Microformt - 11-04-20

(11-04-20, 07:10 PM)اسلام الكبابى كتب :
إقتباس :كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.
ممكن أى مثال صغير ؟


إقتباس :(للاستخدام مع  التكست يخزن قيماً رقمية كنسب مئوية).؟؟
ممكن مع نفس المثال السابق توضح المقصود هنا

اخي العزيز هذا ملف مطلوب التعديل عليه إذا سمحت ؟؟

RE: كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ - معاند الحظ - 11-04-20

وعليك السلام ورحمة الله وبركاته

يمكنك استخدام الدالة IsNumeric اولا لتفحص القيمة الموجودة في مربع النص 
فاذا كانت القيمة رقمية يمكنك فقط اضافة علامة النسبة المئوية "%" الى اخر الرقم

مثال:

كود :
Dim Str1 As String = "ABCD" ' c
Dim Str2 As String = "1234" ' c

IsNumeric(Str1) = False
IsNumeric(Str2) = True


وطريقة كتابة الكود كالتالي:

كود :
If IsNumeric(TextBox1.Text)= True Then
TextBox1.Text += "%" ' just for correcting text allignment  
End If


او يمكنك استخدام الدالة FormatPercent لتحويل القيمة الرقمية في مربع النص الى نسبة مئوية

والطريقة كالتالي:

كود :
If IsNumeric(TextBox1.Text)= True Then
TextBox1.Text = FormatPercent(TextBox1.Text,2) ' if textbox1.text=1234 the result will be 1234.00%  
End If


RE: كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ - اسلام الكبابى - 11-04-20

للأسف لم أستطع تحميل الملف

تأتينى رسالة خطأ كلما حاولت فك ضغطه
 أى مثال صغير منك تنتهى المشكلة
لعلك تقصد أن تجعل المستخدم يكتب فى التكست مثلآ 67%

ثم تستخدم فى كودك هذا الذى أدخله االمستخدم على أنه رقم =0.67
ان كنت تقصد ذلك فهذا هو الكود
كود :
Private Sub Command1_Click()
AAA = Trim(Text1.Text)
LENN = Len(AAA)
INS = InStr(AAA, "%")
If INS < LENN Then MsgBox "", vbCritical, " %من فضلك أدخل كنسبة مئوية . رقم وبعده العلامة": GoTo 100
BBB = Replace(AAA, "%", "")
If Not IsNumeric(BBB) Then MsgBox "", vbCritical, "من فضلك أدخل كنسبة مئوية . ضع قبل العلامة % رقم": GoTo 100
X = BBB / 100
Print "X= "; X
100 End Sub


RE: كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ - AL_BRNS - 12-04-20

وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Sub Command1_Click()
If InStr(1, Text1.Text, "%", vbTextCompare) = 0 Then
Text1.Text = ""
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String
 s = "1234567890%." & vbBack
 If InStr(s, Chr(KeyAscii)) = 0 Then
 KeyAscii = 0
 End If
End Sub 


بالتوفيق .