[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة حسن الاستاذ

يتم الاعلان عنه واعطائه قيمة اثناء الاعلان فقط......

* لحساب معادلة من الدرجة الاولى
dim ........, y as single
if ............. Textbox.text then
y = ..................
....=3*x+2
label.text = y
............
من فضلك ادخل قيمة رقمية
end if

1- الثوابت

2-

dim x, y as single
if isnumeric (Textbox.text ) then
y = textbox . text
y=3*x+2
label.text = y
( " من فضلك ادخل قيمة رقمية " ) msgbox
( ) textbox . focus
"" = textbox . text
end if