[Microformt]

بسم الله الرحمن الرحيم

 الاخوه الكرام

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

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

ولكم مني جزيل الشكر

 تحياتي

[اسلام الكبابى]

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

ممكن أى مثال صغير ؟

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

ممكن مع نفس المثال السابق توضح المقصود هنا

[Microformt]

(11-04-20, 07:10 PM)اسلام الكبابى كتب :

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

ممكن أى مثال صغير ؟

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

ممكن مع نفس المثال السابق توضح المقصود هنا

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

[معاند الحظ]

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

يمكنك استخدام الدالة 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

[اسلام الكبابى]

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

تأتينى رسالة خطأ كلما حاولت فك ضغطه
 أى مثال صغير منك تنتهى المشكلة

---

لعلك تقصد أن تجعل المستخدم يكتب فى التكست مثلآ 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

[AL_BRNS]

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

جرب التالي

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 


بالتوفيق .