كود :
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
السلام عليكم جميعا
ارحب بأعضاء المنتدئ الكرام واما بعد ..
عندي استفسار بكيفية جعل المتغير مثلا المتغير x نوعه integer
اريد ان تبدء قيمته من الصفر وتتزايد في كل مرة يتم استخدامه الى ان ينتهي البرنامج
معنى اصح ..
اريد ان يتزايد المتغير في كل مرة استخدمه ..
يبدء من 0 ثم 1 ثم 2 ثم 3 .... الخ
وهذا الكود كمثال ..
وشكرا لكم مقدما
أهلا أخي
أكتب خاصية جديدة مع المتغير وقم باسخدام الخاصية بدل المتغير
حيث باستعمال الخاصية يمكنك فعل اي شيء تريده عندما يتم تغيير قيمتها أو طلب قيمتها
كما بالكود
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
بالتوفيق .
(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
السلام عليكم جميعا
ارحب بأعضاء المنتدئ الكرام واما بعد ..
عندي استفسار بكيفية جعل المتغير مثلا المتغير x نوعه integer
اريد ان تبدء قيمته من الصفر وتتزايد في كل مرة يتم استخدامه الى ان ينتهي البرنامج
معنى اصح ..
اريد ان يتزايد المتغير في كل مرة استخدمه ..
يبدء من 0 ثم 1 ثم 2 ثم 3 .... الخ
وهذا الكود كمثال ..
وشكرا لكم مقدما
السلام عليكم
في المرفقات اتمنى ان يكون هذا هو المطلوب
أو باستخامها بأبسط صورة
كود :
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 مثلاً-