تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] استفسار .. بخصوص استخدام المتغيرات كعداد
#1
كود :
Private Sub Command1_Click()
Dim x As Integer

If Combo1 = Combo1.List(0) Then
List1.List(x) = Text1.Text & "+" & Text2.Text & "=" & Val(Text1) + Val(Text2)

End If

If Combo1 = Combo1.List(1) Then
List1.List(x) = Text1.Text & "-" & Text2.Text & "=" & Text1.Text - Text2.Text

End If

If Combo1 = Combo1.List(2) Then
List1.List(x) = Text1.Text & "/" & Text2.Text & "=" & Text1.Text / Text2.Text

End If

If Combo1 = Combo1.List(3) Then
List1.List(x) = Text1.Text & "*" & Text2.Text & "=" & Text1.Text * Text2.Text


End If


End Sub

السلام عليكم جميعا Big Grin

ارحب بأعضاء المنتدئ الكرام واما بعد ..

عندي استفسار بكيفية جعل المتغير مثلا المتغير x نوعه integer
اريد ان تبدء قيمته من الصفر وتتزايد في كل مرة يتم استخدامه الى ان ينتهي البرنامج


معنى اصح ..

اريد ان يتزايد المتغير في كل مرة استخدمه ..
يبدء من 0 ثم 1 ثم 2 ثم 3 .... الخ


وهذا الكود كمثال ..

وشكرا لكم مقدما Shy
الرد
تم الشكر بواسطة:
#2
أهلا أخي
أكتب خاصية جديدة مع المتغير وقم باسخدام الخاصية بدل المتغير
حيث باستعمال الخاصية يمكنك فعل اي شيء تريده عندما يتم تغيير قيمتها أو طلب قيمتها

كما بالكود

PHP كود :
Dim _x As Integer 0
    
Public Property x As Integer
        Get
            x 
_x
            _x 
+= 1
        End Get
        Set
(ByVal value As Integer)
            
_x value
        End Set
    End Property 

والان ستزداد القيمة كلما نطلب قيمة الخاصية مثلا نطلبها عن طريق (MsgBox(x
بالتوفيق .
الرد
#3
(24-02-16, 11:16 PM)MutazMurshed كتب :
كود :
Private Sub Command1_Click()
Dim x As Integer

If Combo1 = Combo1.List(0) Then
List1.List(x) = Text1.Text & "+" & Text2.Text & "=" & Val(Text1) + Val(Text2)

End If

If Combo1 = Combo1.List(1) Then
List1.List(x) = Text1.Text & "-" & Text2.Text & "=" & Text1.Text - Text2.Text

End If

If Combo1 = Combo1.List(2) Then
List1.List(x) = Text1.Text & "/" & Text2.Text & "=" & Text1.Text / Text2.Text

End If

If Combo1 = Combo1.List(3) Then
List1.List(x) = Text1.Text & "*" & Text2.Text & "=" & Text1.Text * Text2.Text


End If


End Sub

السلام عليكم جميعا Big Grin

ارحب بأعضاء المنتدئ الكرام واما بعد ..

عندي استفسار بكيفية جعل المتغير مثلا المتغير x نوعه integer
اريد ان تبدء قيمته من الصفر وتتزايد في كل مرة يتم استخدامه الى ان ينتهي البرنامج


معنى اصح ..

اريد ان يتزايد المتغير في كل مرة استخدمه ..
يبدء من 0 ثم 1 ثم 2 ثم 3  .... الخ


وهذا الكود كمثال ..

وشكرا لكم مقدما Shy
السلام عليكم 
في المرفقات اتمنى ان يكون  هذا هو المطلوب


الملفات المرفقة
.rar   عداد.rar (الحجم : 1.75 ك ب / التحميلات : 29)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد
تم الشكر بواسطة: Ahmed_Mansoor , عبد العزيز البسكري
#4
Lightbulb 
أو باستخامها بأبسط صورة
كود :
Private sub Command1_Click()
on error goto rrr

if x=10 then
Exit sub
else
x=x+1
end if
rrr:
End Sub

وهذا إذا أردنا توقف X عند رقم معين-10 مثلاً-
عمر داوود
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] استفسار حول مكتبة DAO root7x7 2 106 28-04-18, 12:26 PM
آخر رد: root7x7
  سوال بخصوص listbox wolf1120 6 166 18-04-18, 12:28 AM
آخر رد: Ahmed_Mansoor
  سوال بخصوص الاكتف سكن mhareek 5 118 15-04-18, 02:35 PM
آخر رد: sendbad100
  احبابي أرجو ألمساعده بخصوص الترقيم التلقائي mhareek 6 122 13-04-18, 10:12 PM
آخر رد: mhareek
  استفسار بخصوص عمل تاريخ صلاحية للبرنامج mhareek 10 301 19-03-18, 08:08 PM
آخر رد: mhareek
  [vb6.0] استفسار عن كود البحث SALEM-900 5 168 24-01-18, 06:21 PM
آخر رد: Amir_alzubidy
  احبابى برجاء المساعدة بخصوص ريجستير الادوات mhareek 7 217 09-12-17, 01:38 AM
آخر رد: mhareek
  اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل mhareek 8 277 03-12-17, 02:04 PM
آخر رد: eiocm
  [كورس] استفسار عن كيفية عمل نموزج لفاتورة المبيعات المبرمج العتيق 4 317 31-08-17, 10:35 AM
آخر رد: Ahmed_Mansoor
  سؤال بخصوص اللغة العربية في DataBase suzoki 10 456 24-08-17, 03:44 AM
آخر رد: suzoki

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم