تقييم الموضوع :
  • 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 ك ب / التحميلات : 38)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
تم الشكر بواسطة: 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 مثلاً-
عمر داوود
الرد }}}
تم الشكر بواسطة:



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


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