منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ (/showthread.php?tid=14230)

كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ - Microformt - 25-12-15

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



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

RE: كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ - حريف برمجة - 25-12-15

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

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

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


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


RE: كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ - Microformt - 26-12-15

(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
اخي العزيز
 إجابة غير موفقه ؟؟ Huh Huh Huh Huh
نامل الاجابة على السوال كامل وليس جز من السوال

RE: كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ - myalsailamy - 26-12-15

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

RE: كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ - Ahmed_Mansoor - 26-12-15

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

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 


RE: كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟ - Microformt - 26-12-15

(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 

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