تقييم الموضوع :
  • 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
لا شكرَ على واجب اخي الكريم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اكتف ريبورت يعرض سجل واحد فقط muad 11 289 01-02-17, 12:41 AM
آخر رد: muad
  [vb6.0] طلب برنامج عرض اجهزة الشبكه f16 1 167 21-01-17, 06:35 PM
آخر رد: Ashraf Elafify
  اعادة نشر برنامج لتصفح المصحف الكريم مفتوح المصدر a_senan 4 691 07-01-17, 09:06 PM
آخر رد: Ashraf Elafify
  برنامج لخدمة مراكز اصلاح وصيانة الأجهزة الألكترونية salaheldin 9 1,352 25-12-16, 09:26 AM
آخر رد: Famo15385
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 417 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 1,795 25-11-16, 12:23 AM
آخر رد: fkwinna
  ربط الفيجوال بأى برنامج رسم هندسي اسلام الكبابى 11 2,244 21-11-16, 11:48 PM
آخر رد: اسلام الكبابى
  [سؤال] برنامج الفراهيدي الاصيله 1 187 11-11-16, 12:29 AM
آخر رد: أبو عمر
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 12 2,440 27-08-16, 07:18 PM
آخر رد: عمور2016
  [سؤال] بشأن برنامج كنترول نتائج الطلاب abomna 0 215 24-07-16, 11:58 PM
آخر رد: abomna

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


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