النتائج 1 إلى 5 من 5

الموضوع: كود الالة الحاسبة العلمية

  1. #1
    عضو
    تاريخ التسجيل
    Aug 2010
    المشاركات
    32
    الدولة: Morocco
    معدل تقييم المستوى
    0

    كود الالة الحاسبة العلمية



    أريد تعديل هذا الكود لتعمل جميع ادوات الالة الحاسبة
    وشكرااااا يا اخوااااااااان
    الكود:
    Public Class Form1
    Dim A As Double
    Dim B As Double
    Dim F As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = TextBox1.Text + "7"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    TextBox1.Text = TextBox1.Text + "8"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    TextBox1.Text = TextBox1.Text + "9"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    TextBox1.Text = TextBox1.Text + "4"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    TextBox1.Text = TextBox1.Text + "5"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    TextBox1.Text = TextBox1.Text + "6"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    TextBox1.Text = TextBox1.Text + "1"
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    TextBox1.Text = TextBox1.Text + "2"
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    TextBox1.Text = TextBox1.Text + "3"
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    TextBox1.Text = TextBox1.Text + "0"
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    TextBox1.Text = TextBox1.Text + "."
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    TextBox1.Text = ""
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
    Close()

    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
    A = Val(TextBox1.Text)
    TextBox1.Clear()
    F = "+"

    End Sub

  2. #2
    عضو
    تاريخ التسجيل
    Feb 2010
    المشاركات
    340
    معدل تقييم المستوى
    12

    رد: كود الالة الحاسبة العلمية

    انت لم تعمل اي شيء بالـ متغيرات فـ لماذا ادرجتها في الكود ..
    +
    اين الخطا في الكود ..
    +
    راسلنا على mhmmj@hotmail.com

  3. #3
    عضو
    تاريخ التسجيل
    Feb 2010
    المشاركات
    340
    معدل تقييم المستوى
    12

    رد: كود الالة الحاسبة العلمية

    ملاحظة ..
    يمكنك اضافة 3 تيكست بوكس .. واحد للعدد الاول وواحد للثاني وواحد للثالث
    فـ الاكواد تقوم بجمع / طرح / قسمة / ضرب الـ تيكست الاول مع الثاني ويظهر الناتج في الثالث
    كود:
    textbox1.text = textbox2.text + textbox3.text
    نفس الكود هذا تستخدمه في الجـ+ـمع والطـ-ـرح والقسـ/ـمة والضـ*ـرب
    او توجد طريقة اخرى لتكون مثل الحاسبة الموجودة في الـ ويندوز
    ساضعها قريبا هنا ان اردت ..

  4. #4
    عضو
    تاريخ التسجيل
    Aug 2010
    المشاركات
    32
    الدولة: Morocco
    معدل تقييم المستوى
    0

    رد: كود الالة الحاسبة العلمية

    [SIZE=7]مشكورين[/SIZE]

  5. #5
    عضو
    تاريخ التسجيل
    Feb 2010
    المشاركات
    340
    معدل تقييم المستوى
    12

    رد: كود الالة الحاسبة العلمية



    العفو .. لا شكر على واجب

المواضيع المتشابهه

  1. برنامج الآلة الحاسبة العلمية بصيغة jar
    بواسطة مشمش العرب في المنتدى الأرشيف
    مشاركات: 0
    آخر مشاركة: 28-11-2011, 21:17
  2. مشاركات: 7
    آخر مشاركة: 21-10-2011, 02:16
  3. من قال ان هذه الامة تموت ؟
    بواسطة الفجر القادم في المنتدى الأرشيف
    مشاركات: 7
    آخر مشاركة: 02-02-2011, 20:58
  4. مشكله فى الالب
    بواسطة fox_man88 في المنتدى الأرشيف
    مشاركات: 1
    آخر مشاركة: 18-11-2010, 01:24
  5. هل الالة الحاسبة يمكن استخدامها
    بواسطة ستموني في المنتدى الأرشيف
    مشاركات: 1
    آخر مشاركة: 26-11-2007, 09:54

المفضلات

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •