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

معكم علاء الدين الاكرمي

واليوم باذنه تعالى سوف اعلمكم كيفية انشاء اله حاسبة بمربع نص واحد اولا : الكود :

____________________________________________________________________________
كود :
Function EvalExpression(ByVal expression As String) As Double
    Dim result As Double
    Dim operand As Double
    Dim opcode As String
    Dim index As Integer
    Dim lastIndex As Integer
  
'The Code Created By : Alaa Al akrami
expression = expression & vbNullChar
  
For index = 1 To Len(expression) + 1
If InStr("+-*/" & vbNullChar, Mid$(expression, index, 1)) Then
If lastIndex = 0 Then

result = Val(Left$(expression, index - 1))
Else
            
operand = Val(Mid$(expression, lastIndex, index - lastIndex))
Select Case opcode
Case "+"
result = result + operand
Case "-"
result = result - operand
Case "*"
result = result * operand
Case "/"
result = result / operand
End Select
End If
opcode = Mid$(expression, index, 1)
lastIndex = index + 1
End If
Next
EvalExpression = LTrim$(result)
  
End Function

Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 0 Then
Text1.Text = EvalExpression(Text1.Text)
Text1.SelStart = Len(Text1.Text)
End If
end sub
______________________________________________________________________________

باختصار اساس عمل الكود يقوم على الاتي

اذا كان لديك رقم ثم اخترت + سيقوم بعملية Result مابين العدد المختار قبل ضغط + والعدد المختار بعده
وكذلك الامر اذا كان لديك رقم ثم اخترت - سيقوم بعملية Result مابين العدد المختار قبل ضغط - والعدد المختار بعده
........ الخ
ولمن يريد تفصيل اكثر الرجاء مراسلتي على البريد الاتي
Volcano_99_vv@hotmail.com

ودمتم برعاية الله
الرد }}}}
تم الشكر بواسطة:
#2
مشكوور يالغالي على الكود الجميل
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}}
تم الشكر بواسطة:
#3
لا شكرَ على واجب اخي الكريم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اعادة نشر برنامج لتصفح المصحف الكريم مفتوح المصدر a_senan 4 605 07-01-17, 09:06 PM
آخر رد: Ashraf Elafify
  برنامج لخدمة مراكز اصلاح وصيانة الأجهزة الألكترونية salaheldin 9 1,251 25-12-16, 09:26 AM
آخر رد: Famo15385
  [vb6.0] طلب برنامج عرض اجهزة الشبكه f16 0 61 25-12-16, 01:49 AM
آخر رد: f16
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 280 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 1,691 25-11-16, 12:23 AM
آخر رد: fkwinna
  ربط الفيجوال بأى برنامج رسم هندسي اسلام الكبابى 11 2,145 21-11-16, 11:48 PM
آخر رد: اسلام الكبابى
  [سؤال] برنامج الفراهيدي الاصيله 1 137 11-11-16, 12:29 AM
آخر رد: أبو عمر
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 12 2,329 27-08-16, 07:18 PM
آخر رد: عمور2016
  [سؤال] بشأن برنامج كنترول نتائج الطلاب abomna 0 175 24-07-16, 11:58 PM
آخر رد: abomna
  برنامج تلفزيون المباشر من النت مفتوح السورس . algroob 7 618 26-06-16, 01:08 PM
آخر رد: abulayth

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


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