تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الة حاسبة في TextBox واحد فقط
#1
كاتب الموضوع : جهاد العريقي

الادوات فقط 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]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] دمج كل ملفات برنامجك الى ملف تنفيذى واحد ali.alfoly 25 7,852 02-12-16, 04:04 PM
آخر رد: ali.alfoly
  التشفيير في إتجاه واحد silverlight 4 458 15-05-16, 05:01 PM
آخر رد: CLARO
  مجموعة التشفير في إتجاه واحد silverlight 2 379 15-05-16, 05:01 PM
آخر رد: CLARO
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 9 2,893 11-02-16, 10:47 PM
آخر رد: العواد الصغير
  [كود] إختيار صف واحد أو اختيار جميع الصفوف في الداتا جريد فيو silverlight 0 331 18-12-15, 03:50 PM
آخر رد: silverlight
  معلومة ::: Search In TextBox RaggiTech 1 420 06-10-12, 08:56 PM
آخر رد: RaggiTech
  كود- تكست بوكس شفاف Transparent TextBox RaggiTech 0 562 05-10-12, 01:44 PM
آخر رد: RaggiTech
  تعلم حماية برنامجك بحيث لا يعمل الا على قرص صلب واحد RaggiTech 0 822 03-10-12, 09:36 AM
آخر رد: RaggiTech
  الدالة Environ العظيمه جميع بيانات الحاسب فى يدك بسطر واحد من الكود RaggiTech 0 590 02-10-12, 04:40 PM
آخر رد: RaggiTech
  معلومة ::: Search In TextBox Blue Sky 0 319 30-09-12, 07:41 PM
آخر رد: Blue Sky

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


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