[Microformt]

الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟



نامل من الله المساعدة والله يحفظكم ويرعاكم

[حريف برمجة]

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

ضع تكست بوكس في الفورم ولنفرض اسمه Text1

وضع هذا الكود علماً بان مقدار الزيادة 1

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Val(Text1.Text) + 1
End If
End Sub

[Microformt]

(25-12-15, 09:41 PM)حريف برمجة كتب : وعليكم السلام ورحمة الله وبركاته

ضع تكست بوكس في الفورم ولنفرض اسمه Text1

وضع هذا الكود علماً بان مقدار الزيادة 1

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Val(Text1.Text) + 1
End If
End Sub

اخي العزيز
 إجابة غير موفقه ؟؟
نامل الاجابة على السوال كامل وليس جز من السوال

[myalsailamy]

قص النص الى ثلاث اجزاء باستخدام الداله Mid تقدر تقراها عنها اكثر ، خذ الرقم الوسط ضيف عليها واحد مثل طريقة الاخ حريف برمجه الذي بالاعلى ، ارجع ادمج النصوص المقتصه مع بعض.

[Ahmed_Mansoor]

أهلا أخي الكريم سالم , كما ذكر الأخ الكريم محمد يحيى , هذا الكود الكود ترجمة لكلامه جزاه الله خير , وإذا كان الكود ليس ماتريده يرجى التوضيح :

PHP كود :

Private Sub Command1_Click()

If Len(Trim$(Text1.Text)) < 10 Then Exit Sub

Dim zText1 As String
Dim LeftNumber As String
Dim MidNumber As String
Dim RightNumber As String

zText1 = Trim$(Text1.Text)

LeftNumber = Left$(zText1, 3)

MidNumber = Mid$(zText1, 4)
MidNumber = Left$(MidNumber, Len(MidNumber) - 6)

RightNumber = Right$(zText1, 6)

Text1.Text = LeftNumber & Val(MidNumber) + 1 & RightNumber

End Sub 


[Microformt]

(26-12-15, 07:42 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم سالم , كما ذكر الأخ الكريم محمد يحيى , هذا الكود الكود ترجمة لكلامه جزاه الله خير , وإذا كان الكود ليس ماتريده يرجى التوضيح :

PHP كود :

Private Sub Command1_Click()

If Len(Trim$(Text1.Text)) < 10 Then Exit Sub

Dim zText1 As String
Dim LeftNumber As String
Dim MidNumber As String
Dim RightNumber As String

zText1 = Trim$(Text1.Text)

LeftNumber = Left$(zText1, 3)

MidNumber = Mid$(zText1, 4)
MidNumber = Left$(MidNumber, Len(MidNumber) - 6)

RightNumber = Right$(zText1, 6)

Text1.Text = LeftNumber & Val(MidNumber) + 1 & RightNumber

End Sub 


اخي العزيز  احمد
 السلام عليكم ورحمة وبركاته
 لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم