ابغى اسوي برنامج بالفيجوال بيسك

تضع 3 ادوات اوبشن option و سيقوم الform بجعل المستخدم يختار 1 من 3

'هذا الكود عند الضغط على الزر
Private sub Command1_Click()
'make sure that user inputs a number
if not isnumeric(text1.text) then
msgbox "The string you provided is not numeric"
End if
If Option1.Value then
' A maths here
Elseif Option2.value then
'B maths here
Elseif option3.vaue then
'C Maths here
End if
End Sub

اخوي راكان الله يسلمك

والف شكر لك والف شكر لك والف شكر لك

والف شكر لك

وبعدين كيف .. آخد الرقم المدخل بالتكست بوكس واضعه في متغير x مثلا

وهل لازم اني اعرف المتغيرات x,y مثلا .. واريد ان يضهر الناتج في مريع للمستخدم حلو

وليس في مربع صغير ....في اعلى الفورم

والف شكر لك

لوضع قيمة التكست بوكس في المتغير

Dim X as Integer
X = Val(Text1.Text)

حيث ان الVal تعطي القمة الرقمية للنص الموجود اذا كان رقما بالفعل

ومن ثم يمكنك وضع القيمة في اي مكان تريده على الفورم

اخوي راكان الف الف شكر لك ..........

وعندي كم سؤال لو سمحت :

--------

كيف اجعل الشاشة ... تمسح البيانات بعد تنفيد البرنامج .. بمعنى يتم تفريغ الحقول بعد اظهار الناتج

------------------------------------------------

اريد البرنامج بنفد الاوبشن فقط في حالة ادخال التكست بوكس فقط ... لاني لاحظت انه عند تنفيد البرنامج يظهر المسج ... ولكنه يكمل باقي البرنامج وبنفد الاوبشن وهدا لا يصلح . اريد البرنامج يرجع المؤشر الفأرة الى التكست بوكس ليتم ادخال الرقم

--------------------------------------------

كيف اكتب الأس في الفيجوال

مثلا 10 أس 5

----------------------------------------

وماهو تعريف ( المتغير ) للعدد الكسري المكون من 8 خانات بعد الفاصلة ..هل هو integer

-----------------------------------------

اربد ان يكون ناتج المعادلة يضهر برسالة ( ان الناتج = .. ) كجم

كيف اضيف ( كجم ) بعد الناتج

لان الناتج ضهر بالفورم نفسه بالاعلى وصغير الحجم جدا

------------------------------------

عند تنفيد البرنامج يظهر الاوبشن نشط A ... بمعنى انه عليه علامة .. وانا اريد

الاوبشنات كلها .. غير نشطة ... بمعنى ليست مختارة وابس عليها علامة ... وانما

متروكة للمستخدم هو الدي يختار

-----------------------------------

وكيف اجعل واجهة البرنامج اكثر تألقاً .. وجمالاً .... هل ممكن اخي الكريم تدلني على

رابط لاموضوع

-------------------------------------------------------------------------------

أسف على كثر الأسئلة ...... لكن التسليم يوم الاربعاء

\

اخوي راكان الف الف شكر لك

اخوي راكان الف الف شكر لك

لتجعل الشاشه تمسح البيانات تكتب

text1.text=""

text2.text=""

وهكذا

والسؤال الثاني:

تكتب

msgbox"الرساله هنا"

text1.setfocus

اما السؤال الثالث

فالنتغير الي يحمل كسور عشريه اظن انه double

والاس

^

مثلا

^2=4

ولاظهار الرساله

يجب ان تعرف متغير بالكيلو جرام بالعدد الذي ظهر وليكن اسمه kg

msg box"العدد الذي ظهر "&kg&"كيلو جرام"

ولابعاد الشاره اكتب في الفورم لوود

Option1.Value = False

Option2.Value = False

اما الباقي فعليك انت ان تبحث عنه ولتاخذ هذه الادوات وتجربها

ocx.zip

والف شكر لك والف شكر لك والف شكر لك

والف شكر لك

والف شكر لك والف شكر لك والف شكر لك

والف شكر لك

والف شكر لك والف شكر لك والف شكر لك

والف شكر لك

mgazif