[mmali127]

السلام عليكم ورحمة الله وبركاتة

تحية  لاعضاء المنتدى الكرام

كل عام وانتم بخير   .

تفضل استاذى هذا الكود

تحياتى

If Val(Textbox1.Text) Mod 2 = 0 Then
Textbox1.Text=val(Textbox2.Text) * val(Textbox1. Text)  /100
else
Textbox1.Text= (-5/10) + val(Textbox2.Text) * val(Textbox1. Text)  /100
end if