منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم مقالات VB.NET الة حاسبة في TextBox واحد فقط
موضوع مغلق 
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
الة حاسبة في TextBox واحد فقط
RaggiTech غير متصل
مراقب منتدى
المشاركات : 2,523
المواضيع 707
الإنتساب : Sep 2012
السمعة : 48
الشكر: 91
تم شكره 1104 مرات في 297 مشاركات
#1
02-10-12, 09:48 AM
كاتب الموضوع : جهاد العريقي

الادوات فقط Textbox1 , Button1


كود :
[COLOR=#000000][COLOR=#0000bb]
    [/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        Dim x[/COLOR][color=#007700], [/color][color=#0000bb]y[/color][color=#007700], [/color][color=#0000bb]Oper[/color][color=#007700], [/color][color=#0000bb]OPe[/color][color=#007700], [/color][COLOR=#0000bb]L
        Dim I [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Integer


        L [/COLOR][color=#007700]= [/color][color=#0000bb]Len[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][COLOR=#007700])

        For [/COLOR][color=#0000bb]I [/color][color=#007700]= [/color][COLOR=#0000bb]1 To L
            [/COLOR][color=#007700]If [/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"+" [/color][color=#007700]Or [/color][COLOR=#0000bb]_
            Mid[/COLOR][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"-" [/color][color=#007700]Or [/color][COLOR=#0000bb]_
            Mid[/COLOR][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"/" [/color][color=#007700]Or [/color][COLOR=#0000bb]_
            Mid[/COLOR][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"*" [/color][COLOR=#0000bb]Then

                OPe [/COLOR][color=#007700]= [/color][color=#0000bb]InStr[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][COLOR=#007700]))
                [/COLOR][color=#0000bb]Oper [/color][color=#007700]= [/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][COLOR=#007700])

            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
        [/COLOR][COLOR=#0000bb]Next I

        x [/COLOR][color=#007700]= [/color][color=#0000bb]Val[/color][color=#007700]([/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]OPe [/color][color=#007700]- [/color][color=#0000bb]1[/color][COLOR=#007700]))
        [/COLOR][color=#0000bb]y [/color][color=#007700]= [/color][color=#0000bb]Val[/color][color=#007700]([/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]OPe [/color][color=#007700]+ [/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]L [/color][color=#007700]- [/color][color=#0000bb]OPe[/color][COLOR=#007700]))


        [/COLOR][color=#0000bb]Select [/color][color=#007700]Case [/color][COLOR=#0000bb]Oper

            [/COLOR][color=#007700]Case [/color][COLOR=#dd0000]"-"
                [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]- [/color][color=#0000bb]y[/color][COLOR=#007700])
            Case [/COLOR][COLOR=#dd0000]"+"
                [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]+ [/color][color=#0000bb]y[/color][COLOR=#007700])
            Case [/COLOR][COLOR=#dd0000]"*"
                [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]* [/color][color=#0000bb]y[/color][COLOR=#007700])
            Case [/COLOR][COLOR=#dd0000]"/"
                [/COLOR][color=#007700]If [/color][color=#0000bb]y [/color][color=#007700]<> [/color][COLOR=#0000bb]0 Then
                    TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]/ [/color][color=#0000bb]y[/color][COLOR=#007700])
                Else
                    [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"لايمكن القسمة على صفر"[/color][color=#007700], [/color][color=#0000bb]MsgBoxStyle[/color][color=#007700].[/color][color=#0000bb]MsgBoxRtlReading [/color][color=#007700]+ [/color][color=#0000bb]MsgBoxStyle[/color][color=#007700].[/color][color=#0000bb]Information [/color][color=#007700]+ [/color][color=#0000bb]MsgBoxStyle[/color][color=#007700].[/color][color=#0000bb]OkOnly[/color][color=#007700], [/color][color=#dd0000]"تنبية"[/color][COLOR=#007700])

                [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If

        [/COLOR][COLOR=#0000bb]End Select

    End Sub  
[/COLOR][/COLOR]
متغيب
الموقع البحث
}}}
تم الشكر بواسطة:
موضوع مغلق 


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 10 12,045 21-03-21, 09:53 PM
آخر رد: عبد الهادي بهاب
Exclamation [VB.NET] التحقق من المدخلات النصية Textbox Validation - لبرنامج أكثر امانا Anas Mahmoud 1 4,556 23-08-20, 10:11 AM
آخر رد: Anas Mahmoud
  التشفيير في إتجاه واحد silverlight 5 4,617 29-05-19, 10:33 PM
آخر رد: egbest2
  [VB.NET] انتبه من كتابة الشرط if في سطر واحد ali.alfoly 0 1,951 02-01-19, 06:32 AM
آخر رد: ali.alfoly
Exclamation [VB.NET] التعامل مع ال CMD عن طريق ال TextBox YousefOkasha 5 5,024 02-06-18, 09:34 PM
آخر رد: YousefOkasha
  [درس فيديو] شرح ربط البرنامج بقاعدة بيانات, إدراج حذف تعديل جلب البيانات ( بدون أن تكتب سطر واحد) عبدالله الدوسري 4 6,458 08-02-18, 12:55 AM
آخر رد: Ameer Eagle
  [مقال] دمج كل ملفات برنامجك الى ملف تنفيذى واحد ali.alfoly 25 21,886 02-12-16, 04:04 PM
آخر رد: ali.alfoly
  مجموعة التشفير في إتجاه واحد silverlight 2 3,205 15-05-16, 05:01 PM
آخر رد: CLARO
  [كود] إختيار صف واحد أو اختيار جميع الصفوف في الداتا جريد فيو silverlight 0 3,771 18-12-15, 03:50 PM
آخر رد: silverlight
  معلومة ::: Search In TextBox RaggiTech 1 2,562 06-10-12, 08:56 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم