24-02-16, 11:16 PM
(آخر تعديل لهذه المشاركة : 25-02-16, 12:30 AM {2} بواسطة 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 .... الخ
وهذا الكود كمثال ..
وشكرا لكم مقدما