هنا : تجمع طالبات وطلاب نظم المعلومات الإداريه (دفعة 2010 ) حياكم الله,,

[يارب اجيب معدل]

كويس عشان نذاكر للدوري والكويز مره وحده

[My World]

لا مو كوويس
هو كذا كذا مذااكرين
ليش كل شوي يتأجل
وبعدين الاحد في اختبار تسوويق
ونبغى نجيب درجاات

[يارب اجيب معدل]

المشاركة الأصلية كتبت بواسطة my world لا مو كوويس هو كذا كذا مذااكرين ليش كل شوي يتأجل وبعدين الاحد في اختبار تسوويق ونبغى نجيب درجاات

برضو احنا عندنا اختبار نظم بكره ونبغى نجيب درجات

على الاقل انتوا عندكم سته ايام من اليوم يمديكم تذاكروا تسويق وبرمجه

بس احنا ما قالت انو حيكون كويز لكل الشابتر الا يوم السبت يعني يومين بالزبط

[البيلســـان]

مررررره م يصير هييك كل يوووم نذاااااكر و يتأأأأأأأأأأأجل..

[RoOoDy]

بنـآآآآت انا تنحت بالتراي كاتش ~ احد يعرف كيف يستخدمهـآآآ ؟

[DeeeL]

جزاك الله خير ماي وورلد



طيب طريقة الاسئله كيف حتكون ؟

محد عنده خبر

احس اكثر ماده حايسه فيها هي البرمجه بعد الكمي :(

[ALEMBRA6OR]

هلا اخوي

لا المشكلة ان علامة ال"+" لاضغطها ظهرت بال lable

بس كل شيء كان تمام .

سلمك الله الكود مشيت على تعاليمك بالتمام

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)

Label1.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)

Label1.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)

Label1.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)

Label1.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 Label1.Text = "+" Then
c = a + b
End If
If Label1.Text = "-" Then
c = a - b
End If
If Label1.Text = "*" Then
c = a * b
End If
If Label1.Text = "/" Then
c = a / b
End If
If Label1.Text = "^" Then
c = a ^ b
End If
Label1.Text = c.ToString

End Sub
End Class

^ هذي بوتون "="

تعبناك معنا يابعدي والله اعذرنا .

[امبراطور الشبكه]

المشاركة الأصلية كتبت بواسطة ALEMBRA6OR هلا اخوي لا المشكلة ان علامة ال"+" لاضغطها ظهرت بال lable بس كل شيء كان تمام . سلمك الله الكود مشيت على تعاليمك بالتمام 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) Label1.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) Label1.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) Label1.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) Label1.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 Label1.Text = "+" Then c = a + b End If If Label1.Text = "-" Then c = a - b End If If Label1.Text = "*" Then c = a * b End If If Label1.Text = "/" Then c = a / b End If If Label1.Text = "^" Then c = a ^ b End If Label1.Text = c.ToString End Sub End Class ^ هذي بوتون "=" تعبناك معنا يابعدي والله اعذرنا .

اهااا صح .. طيب اوك بس ضيف ليبل ثاني , وعدل الكود .. كل الليبل 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]

المشاركة الأصلية كتبت بواسطة امبراطور الشبكه اهااا صح .. طيب اوك بس ضيف ليبل ثاني , وعدل الكود .. كل الليبل 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 وبالعكس ياغالي مافي تعب ,, بالعكس كذا احسن عشان نتعلم تمام اسألني اذا احتجت شي وانا بسألك اذا احتجت منك شي ..

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

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

[بنت ناس وقلبي ألماس]

يا بنات في أحد عرف كيف يجيب برنامج الفيجوال بيسك 2005 ؟؟؟؟؟

مره طفشت دورت عليه وما لقيته وحملت من النت بس مو راضي يفتح!!!

شكلي راح اعملها البرنامج بالفيجوال بيسك 2010 وراح اجيب لها صندوق التحميل عشان تحمله في جهازها...