+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سورس كود برنامج يقوم بعمليات حسابية في مربع نص واحد (/showthread.php?tid=8244)
سورس كود برنامج يقوم بعمليات حسابية في مربع نص واحد - علاء الاكرمي - 30-03-13
السلام عليكم ورحمة الله تعالى وبركاته
معكم علاء الدين الاكرمي
واليوم باذنه تعالى سوف اعلمكم كيفية انشاء اله حاسبة بمربع نص واحد اولا : الكود :
____________________________________________________________________________
كود :
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
ودمتم برعاية الله
سورس كود برنامج يقوم بعمليات حسابية في مربع نص واحد - تركي الحلواني - 30-03-13
مشكوور يالغالي على الكود الجميل
سورس كود برنامج يقوم بعمليات حسابية في مربع نص واحد - علاء الاكرمي - 31-03-13
لا شكرَ على واجب اخي الكريم