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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 169 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 1,553 25-11-16, 12:23 AM
آخر رد: fkwinna
  ربط الفيجوال بأى برنامج رسم هندسي اسلام الكبابى 11 2,009 21-11-16, 11:48 PM
آخر رد: اسلام الكبابى
  [سؤال] برنامج الفراهيدي الاصيله 1 71 11-11-16, 12:29 AM
آخر رد: أبو عمر
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 12 2,055 27-08-16, 07:18 PM
آخر رد: عمور2016
  [سؤال] بشأن برنامج كنترول نتائج الطلاب abomna 0 134 24-07-16, 11:58 PM
آخر رد: abomna
  برنامج لخدمة مراكز اصلاح وصيانة الأجهزة الألكترونية salaheldin 8 1,056 30-06-16, 08:08 PM
آخر رد: GHTAHA
  اعادة نشر برنامج لتصفح المصحف الكريم مفتوح المصدر a_senan 2 506 26-06-16, 09:39 PM
آخر رد: GHTAHA
  برنامج تلفزيون المباشر من النت مفتوح السورس . algroob 7 552 26-06-16, 01:08 PM
آخر رد: abulayth
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 191 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين

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


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