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

لا اله الا الله

أختي العزيزة هذا المنتدى لم يعمل لحل الواجبات و الامتحانات بل للمساعدة يمكنك وضع محاولاتك و نقوم نحن بتصحيحها اذا امكن

ثم لا داعي أن تضعي ايميلك في المشاركة فنحن غير مسؤولين اذا ما تلقيت مضايقات على ايميلك كون المنتدى مفتوح للجميع

و أخيرا انت وضعت ثلاث مواضيع بنفس المحتوى قمت بحذف اثنين و سأترك هذا مفتوحا حتى تضعين محاولاتك و حاولي ان تقرأي قوانين المنتدى حتى لا تقعي في نفس الخطأ مرة أخرى

و السلام عليكم

طيب اخيراا احد رد علي ،،

هذا هي محاولاتي بس باقي كود حاولت فيها ماني عارفه//

الفورم الاول

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'برمجة اسم المستخدم وكلمة المرور '

Dim username, pass As String

username = TextBox1.Text

pass = TextBox2.Text

If username = "ريم" And pass = "111" Then

'الانتقال الفورم الثاني'

Dim Form2 As New Form2

Form2.ShowDialog()

Form2.Text = " شركة الأجيال" + " ريم"

Else

MsgBox("تأكد من القيمة التي أدخلتها")

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

هذا الفورم الاول تمام خلصت منه

الفورم الثاني باقي هالجزء منه الجزء الاول خلصت منه لي هو الاستدعاء الاداة

هذا البرمجة صح

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

MsgBox("تاريخ الفاتورة هو" & DateTimePicker1.Text)

MsgBox("اليوم" & DateTimePicker1.Value.DayOfYear.ToString)

MsgBox("اليوم هو" & DateTimePicker1.Value.Now.ToString)

End Sub

بس باقي جزء هذا//

اكتب إجراء للتاكد من ان تاريخ الفاتورة تم ادخاله بشكل صحيح( يوم \شهر \ سنة )و

وقم بتخزين رقم الفاتورة وتاريخ الفاتورة واسم العميل في متغير عامة لإستخدامها في النموذج..

يحتوي على المعلومات تفصيلية لإصدار فاتورة للمشترى كما هو موضع في الشكل علماً أن البيانات التي تم إدخالها في النماذج السابقة سوف تنتقل إلى هذا النموذج ولا يجب إعادة إدخالها مرة أخرى ويمكن الاستعانه بالشكل التالي ..

في نفس الفورم السابق اكتب اجراء للتاكد من أن القيم التي تم إدخالها في حقل الكمية وحقل السعر هي قيم عددية ومن ثم أوجد حاصل الضرب السعر بالكمية وضع الناتج في مربع النص ؛_ المجموع ؛_ وإلا فإنة سوف يتم عرض رسالة المستخدم تفيد أن القيم التي تم إدخالها غير صحيحة وإتاحة فرصة للمستخدم لإعادة إدخال القيم مرة أخرى..

أكتب الجملة البرمجية الاجمالي..

قم بإضافة نقطة توقف عند جميع الجمل البرمجية التي تجرى فيها عمليات حسابية ..

في البداية البرمجة نضع هالجملة

Imports System.Math

في زر موافق:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, s As Integer

Dim b, d As Integer

Dim f, g As Integer

Dim h, i As Integer

a = TextBox5.Text

s = TextBox6.Text

b = TextBox10.Text

d = TextBox11.Text

f = TextBox15.Text

g = TextBox16.Text

h = TextBox20.Text

i = TextBox21.Text

TextBox7.Text = (a * s)

TextBox12.Text = (b * d)

TextBox17.Text = (f * g)

TextBox22.Text = (h * i)

TextBox23.Text = TextBox7.Text + TextBox12.Text + TextBox17.Text + TextBox22.Text

End Sub

في زر إلغاء..

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

بس يطلع لي textbopx1 جمع فيها الباقي لا مادري ايش المشكله حتى المجموع مايطلع

هذا بالنسبه هالفورم ،،

الفورم الرابع ،،

فورم التحويل ،،

تحويل قيمة الفاتورة من الريال السعودي إلى الدولار الإمريكي مستخدم نوع البيانات integer

علما بأن سعر صرف الدولار مقابل الريال يساوي3.75 لكل ريال.

والعكس عند الضغط على زر الثاني مستخدما نوع البيانات double

http://up3.w6w.net/upload/19-01-2006/w6w_20060119092402bd45d8a6.jpg[/img

زر خروج

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

End Sub

زر تحويل من الريال السعودي إلى الدولار الإمريكي..

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim D, r As Integer

Dim s As String

Do

s = InputBox("ادخل القيمة", "تحويل من الريال السعودي إلى الدولار الإمريكي")

If s <> "" Then

D = CInt((D * 1) * 3.75)

MsgBox(r, , "الدولار الإمريكي")

End If

Loop While s <> ""

End Sub

يطلع لي مشكله بعد ياليت تساعدوني ،،

تحياتي

رتووش

السلام عليكم

انا من جهة نفسي لو بدي أقرا الكود المكتوب راح اصير مجنون

مش كان أفضل لو ارفقتي المشروع بدل لصق الكود هكذا هتي نتمكن من المساعدة

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

السلام عليكم

هذا هو ملف مرفق

اختي الكريمة, للحصول على افضل مساعدة يفضل الالتزام بالتالي: 1- اختيار عنوان مناسب للموضوع, في حال كان الموضوع يناقش عدة مشاكل فيفضل وضع عنوان يلخص المشكلة, فيم تتعلق, قاعدة بيانات, مشاكل عادية... مثل؟ يرجى تلخيص هذا في خانة وصف الموضوع.

2- يرجى عدم وضع الايميل بشكل علني في المنتدى, كما ذكر الاخ crazy, المنتدى لا يتحمل اي مسؤولية تحصل من ازعاج قد تستقبليه على الايميل, هناك الكثير من الشباب المتفرغ لهذه الامور, هداهم الله.

3- في حال تم وضع كود لتبيان المشكلة يرجى استخدام تنسيق الكود المناسب ليتم رصف الكود بشكل منظم تسهل قراءته.

واخيرا نتمنى لك ان تحل المشكلة باذن الله, بالتوفيق.

السلام عليكم

اليك هذا الملف وأرجوا ان يحل المشكلة

لكي تصيب يجب أن تخطئ

ppp.rtf

السلام عليكم

اليك هذا الملف وأرجوا ان يحل المشكلة

لكي تصيب يجب أن تخطئ

باقي ما ضبط ،،

:(

____________.rar