30-03-13, 01:21 PM
السلام عليكم ورحمة الله تعالى وبركاته
معكم علاء الدين الاكرمي
واليوم باذنه تعالى سوف اعلمكم كيفية انشاء اله حاسبة بمربع نص واحد اولا : الكود :
____________________________________________________________________________
______________________________________________________________________________
باختصار اساس عمل الكود يقوم على الاتي
اذا كان لديك رقم ثم اخترت + سيقوم بعملية Result مابين العدد المختار قبل ضغط + والعدد المختار بعده
وكذلك الامر اذا كان لديك رقم ثم اخترت - سيقوم بعملية Result مابين العدد المختار قبل ضغط - والعدد المختار بعده
........ الخ
ولمن يريد تفصيل اكثر الرجاء مراسلتي على البريد الاتي
Volcano_99_vv@hotmail.com
ودمتم برعاية الله
معكم علاء الدين الاكرمي
واليوم باذنه تعالى سوف اعلمكم كيفية انشاء اله حاسبة بمربع نص واحد اولا : الكود :
____________________________________________________________________________
كود :
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
ودمتم برعاية الله