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

[ALEMBRA6OR]

المشاركة الأصلية كتبت بواسطة امبراطور الشبكه وبرضه اهم شي انه بعد ماينكتب الرقم الاول ونضغط على العمليه ينمسح التكست بوكس ..... مثلآ نحط في بوتون ال+ ^ الاخيره هذي عشان تقله رجع لي المؤشُر على التكست بوكس على طول بعد مايضغط اليوزر + واللي بالاحمر عشان بعد ماتضغط على + يمسح لك التكست عشان تكتب الرقم الثاني

تم التجريب بارك الله فيك .

لكن لي ملاحظة هي اني يوم احط بالتست بوكس رقم "1" ثم اضغط على "+" هذي علامة ال "+" تطلع بالليبل (المفروض ان البرنامج يخزنها) . بس لا ضغطت "=" يطلع الناتج تمام .

مشكور مرة ثانية .

[DeeeL]

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



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

محد عنده خبر

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

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

المشاركة الأصلية كتبت بواسطة alembra6or تم التجريب بارك الله فيك . لكن لي ملاحظة هي اني يوم احط بالتست بوكس رقم "1" ثم اضغط على "+" هذي علامة ال "+" تطلع بالليبل (المفروض ان البرنامج يخزنها) . بس لا ضغطت "=" يطلع الناتج تمام . مشكور مرة ثانية .

ويبارك فيك يالغالي .,~

يعني قصدك الرقم الي تحطه يطلع بالليبل حق النتيجه ,!

اذا ممكن تحط الكود كامل عشان نشوف فين المشكله ..

[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

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

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

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

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

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

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

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

المشاركة الأصلية كتبت بواسطة 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

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

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

المشاركة الأصلية كتبت بواسطة بنت ناس وقلبي ألماس يا بنات في أحد عرف كيف يجيب برنامج الفيجوال بيسك 2005 ؟؟؟؟؟ مره طفشت دورت عليه وما لقيته وحملت من النت بس مو راضي يفتح!!! شكلي راح اعملها البرنامج بالفيجوال بيسك 2010 وراح اجيب لها صندوق التحميل عشان تحمله في جهازها...

http://www.microsoft.com/download/en/details.aspx?id=5553

اتُبعي التعليمات الموجوده بنفس الصفحه اسفل ..

[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 وبالعكس ياغالي مافي تعب ,, بالعكس كذا احسن عشان نتعلم تمام اسألني اذا احتجت شي وانا بسألك اذا احتجت منك شي ..

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

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

[! αnчωαч]

^


م شآء ألله عليكم ، ربي يفتح عليكم



\


بنت نآس

وشوله العذاب ، زي م قلت لك الاربعآء جيبي سيدي السبت
ونتفآهم خخخخ

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

المشاركة الأصلية كتبت بواسطة ابر ماس بنات هذا موضوع لكيفية تنزيل برنامج الفيجول بيسك 2005 أتمنى يفيدكم http://www.skaau.com/vb/showthread.php?t=536881

بنت ناس انا حملته من هذا الرابط ,, سهل وما يبيله شئ ,, بس اتبعي الخطوات ويزبط ان شاء الله

بالتووفيق ..