عرض مشاركة واحدة
منتديات طلاب وطالبات جامعة الملك عبد العزيز منتديات طلاب وطالبات جامعة الملك عبد العزيز
قديم 15-03-2012, 01:06 AM   #9

ALEMBRA6OR

الصورة الرمزية ALEMBRA6OR

 
تاريخ التسجيل: Feb 2010
كلية: كلية الاقتصاد والادارة
التخصص: M.I.S
نوع الدراسة: إنتظام
المستوى: متخرج
البلد: جــــدة
الجنس: ذكر
المشاركات: 1,637
افتراضي رد: هنا : تجمع طالبات وطلاب نظم المعلومات الإداريه (دفعة 2010 ) حياكم الله,,

المشاركة الأصلية كتبت بواسطة امبراطور الشبكه مشاهدة المشاركة


اهااا صح .. طيب اوك بس ضيف ليبل ثاني , وعدل الكود .. كل الليبل 1 عدلها الى الليبل 2 في كامل الكود بأستثناء اخر وحده الي تساوي c لأن بنخلي تظهر فيها النتيجه هذي ..

كذا الكوود بيصير ../



public class form1
dim a, b, c as double
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click
a = val(textbox1.text)

label2.text = "+"


textbox1.text = ""
textbox1.focus()
end sub





private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click
a = val(textbox1.text)

label2.text = "-"


textbox1.text = ""
textbox1.focus()
end sub


private sub button3_click(byval sender as system.object, byval e as system.eventargs) handles button3.click
a = val(textbox1.text)

label2.text = "*"


textbox1.text = ""
textbox1.focus()
end sub



private sub button4_click(byval sender as system.object, byval e as system.eventargs) handles button4.click
a = val(textbox1.text)

label2.text = "/"


textbox1.text = ""
textbox1.focus()
end sub



private sub button5_click(byval sender as system.object, byval e as system.eventargs) handles button5.click
b = val(textbox1.text)
textbox1.text = ""
if label2.text = "+" then
c = a + b
end if
if label2.text = "-" then
c = a - b
end if
if label2.text = "*" then
c = a * b
end if
if label2.text = "/" then
c = a / b
end if
if label2.text = "^" then
c = a ^ b
end if
label1.text = c.tostring

end sub

private sub form1_load(sender as system.object, e as system.eventargs) handles mybase.load

end sub
end class



وبالعكس ياغالي مافي تعب ,, بالعكس كذا احسن عشان نتعلم تمام اسألني اذا احتجت شي وانا بسألك اذا احتجت منك شي ..

بيض الله وجهك ومشكور والطريقة ممتازة .

جزاك الله خير يالسمي .

 

توقيع ALEMBRA6OR  

 







مجنــــون مـــن ودهـ يمـــس السيـــــادة


 

ALEMBRA6OR غير متواجد حالياً   رد مع اقتباس