02-10-12, 09:48 AM
كاتب الموضوع : جهاد العريقي
الادوات فقط Textbox1 , Button1كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
Dim x[/COLOR][color=#007700], [/color][color=#0000bb]y[/color][color=#007700], [/color][color=#0000bb]Oper[/color][color=#007700], [/color][color=#0000bb]OPe[/color][color=#007700], [/color][COLOR=#0000bb]L
Dim I [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Integer
L [/COLOR][color=#007700]= [/color][color=#0000bb]Len[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][COLOR=#007700])
For [/COLOR][color=#0000bb]I [/color][color=#007700]= [/color][COLOR=#0000bb]1 To L
[/COLOR][color=#007700]If [/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"+" [/color][color=#007700]Or [/color][COLOR=#0000bb]_
Mid[/COLOR][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"-" [/color][color=#007700]Or [/color][COLOR=#0000bb]_
Mid[/COLOR][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"/" [/color][color=#007700]Or [/color][COLOR=#0000bb]_
Mid[/COLOR][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700]) = [/color][color=#dd0000]"*" [/color][COLOR=#0000bb]Then
OPe [/COLOR][color=#007700]= [/color][color=#0000bb]InStr[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][COLOR=#007700]))
[/COLOR][color=#0000bb]Oper [/color][color=#007700]= [/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]I[/color][color=#007700], [/color][color=#0000bb]1[/color][COLOR=#007700])
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
[/COLOR][COLOR=#0000bb]Next I
x [/COLOR][color=#007700]= [/color][color=#0000bb]Val[/color][color=#007700]([/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]OPe [/color][color=#007700]- [/color][color=#0000bb]1[/color][COLOR=#007700]))
[/COLOR][color=#0000bb]y [/color][color=#007700]= [/color][color=#0000bb]Val[/color][color=#007700]([/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]OPe [/color][color=#007700]+ [/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]L [/color][color=#007700]- [/color][color=#0000bb]OPe[/color][COLOR=#007700]))
[/COLOR][color=#0000bb]Select [/color][color=#007700]Case [/color][COLOR=#0000bb]Oper
[/COLOR][color=#007700]Case [/color][COLOR=#dd0000]"-"
[/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]- [/color][color=#0000bb]y[/color][COLOR=#007700])
Case [/COLOR][COLOR=#dd0000]"+"
[/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]+ [/color][color=#0000bb]y[/color][COLOR=#007700])
Case [/COLOR][COLOR=#dd0000]"*"
[/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]* [/color][color=#0000bb]y[/color][COLOR=#007700])
Case [/COLOR][COLOR=#dd0000]"/"
[/COLOR][color=#007700]If [/color][color=#0000bb]y [/color][color=#007700]<> [/color][COLOR=#0000bb]0 Then
TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"=" [/color][color=#007700]& ([/color][color=#0000bb]x [/color][color=#007700]/ [/color][color=#0000bb]y[/color][COLOR=#007700])
Else
[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"لايمكن القسمة على صفر"[/color][color=#007700], [/color][color=#0000bb]MsgBoxStyle[/color][color=#007700].[/color][color=#0000bb]MsgBoxRtlReading [/color][color=#007700]+ [/color][color=#0000bb]MsgBoxStyle[/color][color=#007700].[/color][color=#0000bb]Information [/color][color=#007700]+ [/color][color=#0000bb]MsgBoxStyle[/color][color=#007700].[/color][color=#0000bb]OkOnly[/color][color=#007700], [/color][color=#dd0000]"تنبية"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
[/COLOR][COLOR=#0000bb]End Select
End Sub
[/COLOR][/COLOR]