الموضوع: ملف حلول أسئلة ونماذج الترم الثاني 3ع كمبيوتر الجديد
عرض مشاركة واحدة
  #6  
قديم 15-03-2013, 02:53 AM
الصورة الرمزية hassanalhawy
hassanalhawy hassanalhawy غير متواجد حالياً
مــٌــعلــم
  
تاريخ التسجيل: Sep 2010
المشاركات: 1,514
معدل تقييم المستوى: 16
hassanalhawy is on a distinguished road
افتراضي
كود:
  
Dim x , y  As Single
 
IfIsnumaric( Me.TextBox1.Text )  Then
 
    x = Me.TextBox1.Text
 
    y = 3 * x + 2
 
    Label1.Text = y 
 
 Else
 
    MsgBox(" يجب إدخال قيمة عددية")
  End If
__________________
يخطئ من يظن أن للذئاب ديناً
رد مع اقتباس