• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

johKr1

اعضاء جدد
  • عدد المشاركات

    4
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن johKr1

  • الرتبة
    عضو جديد
  1. بالتوفيق للجميع إن شاء الله
  2. تفضل هذا كود الفيجوال: Dim first As Double Dim second As Double Dim sign As String private Sub Command1_Click(Index As Integer) If txtDisplay.Text = "" Then txtDisplay.Text = Command1(Index).Caption Else txtDisplay.Text = txtDisplay.Text & Command1(Index).Caption End If End Sub Private Sub Command2_Click(Index As Integer) first = txtDisplay.Text txtDisplay.Text = "" sign = Command2(Index).Caption End Sub Private Sub Form_Load() txtDisplay.Enabled = False txtDisplay.MaxLength = 10 End Sub Private Sub cmdEq_Click() second = txtDisplay.Text If sign = "-" Then txtDisplay.Text = first - second ElseIf sign = "+" Then txtDisplay.Text = first + second ElseIf sign = "*" Then txtDisplay.Text = first * second ElseIf sign = "/" Then txtDisplay.Text = first / second End If End Sub Private Sub cmdDot_Click() If InStr(txtDisplay.Text, ".") = 0 Then txtDisplay.Text = txtDisplay.Text & "." End If End Sub Private Sub cmdClear_Click() txtDisplay.Text = "0" End Sub
  3. الشكر الجزيل للمنتدى الذي يغنينا دائما بأعضاءه بمواضيع علمية ممتازة والشكرا الخاص للأخت التي جمعت المعلومات ونشرتها على هذا المنتدى الرائع ولكل من يساهم في نشر العلم والمعرفة في هذا المنتدى
  4. أخي وإستاذي الكريم : محمد بدوي أهنئك على هذه النجاحات المتوالية لمنتداكم العظيم