مسئلة رياضية باستخدام Select Case

مسئلة رياضية باستخدام Select Case

عندي textbox1 يا خذ الرقم الاول

textbox2 ياخذ الرقم الثاني

و textbox3 ياخذ النتيجة

و listbox او combobox يحتوي على :"+" و "-" و "*" و "/"

عند ادخال ارقام في textbox1 و textbox2 يعطينا النتيجة في textbox3

العملية الحسابية تتم عن طريق ال listbox يعني اختار

اما جمع او طرح او ضرب او قسمة

عملت البرنامج حسب ماشرحته سابقا

بس المشكلة كيف اعمل كود لل listbox يختار نوع العملية الحسابية

باستخدام شرط select case

وهذه المحاولة بس مانجحت

Private Sub cmdCalc_Click()

Dim oper As String

Dim num1 As Integer

Dim num2 As Integer

num1 = Text1.Text

num2 = Text2.Text

Select Case oper

Case "+"

Text3.Text = num1 + num2

Case "-"

Text3.Text = num1 - num2

Case "*"

Text3.Text = num1 * num2

Case "/"

Text3.Text = num1 / num2

End Select

End Sub

Private Sub Form_Load()

Combo1.AddItem "+"

Combo1.AddItem "-"

Combo1.AddItem "*"

Combo1.AddItem "/"

End Sub

الرجاء المساعدة ......

تحياتي.....:)

بسم الله الرحمن الرحيم

السلام عليكم

اخي الكريم الكود صحيح ولكن ينقصه شي واحد هو

oper = Combo1

:) :)

اي سوف يصبح بعد اضافه تلك الجزئيه كالتالي

Option Explicit

Private Sub cmdCalc_Click()

Dim oper As String

Dim num1 As Integer

Dim num2 As Integer

num1 = Text1.Text

num2 = Text2.Text

oper = Combo1

Select Case oper

Case "+"

Text3.Text = num1 + num2

Case "-"

Text3.Text = num1 - num2

Case "*"

Text3.Text = num1 * num2

Case "/"

Text3.Text = num1 / num2

End Select

End Sub

Private Sub Form_Load()

Combo1.AddItem "+"

Combo1.AddItem "-"

Combo1.AddItem "*"

Combo1.AddItem "/"

End Sub

السلام عليكم

الف شكر حبيبي

بجرب و ارد عليك

تحياتي...........