الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اكواد

مغلق
بدأه abdin21 في 13 أغسطس 2007 · 3 رد · 483 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انني مبتدئ في هذا المجال لذا اردت الساعدة منكم في ايجاد الاكواد في تمريني هذا ولو انه بسيط مع العلم جربت هذه الاكواد فلن يعطوا النتيجة

هذه هي الاكواد

Private Sub Command3_Click()

If Combo1 = "جمع" Then

Label8 = Val(Text2) + Val(Text3)

Else

If Combo1 = "طرح" Then

Label8 = Val(Text2) - Val(Text3)

Else

If Combo1 = "ضرب" Then

Label8 = Val(Text2) * Val(Text3)

Else

If Combo1 = "قسمة" Then

Label8 = Val(Text2) / Val(Text3)

End If

End Sub

وانني ارفق التمرين في المرفقات

وشكراً

2_____.rar

#2 
If Combo1.Text = "ÌãÚ" Then Label8 = Val(Text2) + Val(Text3)


If Combo1 = "ØÑÍ" Then Label8 = Val(Text2) - Val(Text3)



If Combo1 = "ÖÑÈ" Then Label8 = Val(Text2) * Val(Text3)


If Combo1 = "ÞÓãÉ" Then Label8 = Val(Text2) / Val(Text3)
#3

وتفضل هذا المثال

2_____.zip

#4

شكراً للاخوة لمساعدتهم لي وبالاخص الاخ

hamata

هذا الموضوع مغلق.

مواضيع مشابهة