أريد بعض الأكواد

سلام عليكم

هل هو واجب قبل كل شيء ؟

ليش هذا السؤال Non-top

تقريباُ واجب أني فكرت فيهم بس طلع لي بعض الأخطاءالنحوية وأخطاء وقت التشغيل

vbnet

اختي العزيزة

من حسن حظك لم يقفل المشرف موضوعك

لان وضع الواجبات في المنتدى ممنوووووووووووع منعاَ باتاَ

لان في ذلك مصلحة لك وللجميع

حيث البرمجة هي انك تحاول مرة ومرتين وثلاثة حتى تتقن المنطق للعمليات

ومن دون المحاولة والاصرار لن تكوني مبرمجة بتاتاَ

انتي حاولي واجتهدي واعرضي الخطاء في الكود ونحن نقوم المساعدة وليس الحل الكامل كما تتصورين

اتمنى ان تستقبل النصيحة بكل سعة صدر ورحب

وبالتوفيق

السلام عليكم ورحمه الله

اشكر من كل قلبي الاخ mn_902 على رده و اختلف معه في بعض النقاط ،( ويوجد في رد الاخ السابق اجابة عن السؤال الثاني )

من وجهة نظري كهاوي وارجو قبل الرد علي الموضوع تحت الكلمه المذكورة خطين ، لماذا يتم منع اسأله الواجب ، انا اعتقد انها غير منطقية بحكم قله المنتديات التي تتحدث عن البرمجه وخاصه vb.net بعد فقدان المرحومه vb4arab (استغفر الله على لفظ المرحومه لانه الرحمه بيد الله ) رحمه الله عليها ، فمن المفترض ان يكون احد اهداف هذا المنتدى مساعده الجميع من اجل الاجر والثواب وليس من اجل الفلوس والمناصب ( اعتقد قصدي مفهوم ) . :)

النقطة الثاني طارح السؤال ليجب ان يفصل ولو بالقليل ويعطي تجاربة وبعض الامثله المرفقه من الاخطاء لكي تبين اهتمامه في الموضوع .

اسف على الاخطاء ان وجدت لاني 50% نائم و ايضاً يوجد الف طريقة وطريقه للحل

1-يوجد حلين :

الاول تحويل القيمة النصيه إلى قيمة عدديه أي من String إلى Integer وذلك عن طريق CInt :

If CInt(TextBox1.Text) < CInt(TextBox2.Text) Then
            If CInt(TextBox1.Text) < CInt(TextBox3.Text) Then
                Label1.Text = TextBox1.Text
            Else
                Label1.Text = TextBox3.Text
            End If
        Else
            If CInt(TextBox2.Text) < CInt(TextBox3.Text) Then
                Label1.Text = TextBox2.Text
            End If
        End If

الثاني : بوضع قيمه مربعات النص في متغيرات ويتم التحويل تلقائي ( اعتقد اسمه تحويل قصري ) :

Dim t1, t2, t3 As Integer
        t1 = TextBox1.Text
        t2 = TextBox2.Text
        t3 = TextBox3.Text
        If t1 < t2 Then
            If t1 < t3 Then
                Label1.Text = TextBox1.Text
            Else
                Label1.Text = TextBox3.Text
            End If
        Else
            If t2 < t3 Then
                Label1.Text = TextBox2.Text
            End If
        End If

2-لم افهم المقصود ارجو التوضيح .

3- هناك الف طريقة ، ولكن الافضل استخدام التامير ، ومع استخدام التامير ايضاً توجد الف طريقة وطريقة :

في المرفقات

4- لم افهمه.

AllQ.zip

سبب منع أسئلة الواجب هو أن البرمجة ليست علم يمكن تعلمه بالقراءة، بل هي مهارة يتم اكتسابها. و كما هو معلوم للجميع لا يمكن اكتساب أي مهارة دون تدريب و تمرس. نعم هذا يعني القيام بالعدييييييييييييييييد من المحاولات الخاطئة، و لكن لم يقل أحد أن البرمجة مهارة سهلة الإكتساب. لو أن طلاب البرمجة اعتمدوا كلياً على الكود الجاهز و لم يحاولوا فيه فلن يتعرفوا على الأخطاء الشائعة و طرق التفكير الخاطئة مما يؤثر سلباً عليهم عندما يصبحون في ميدان العمل و لا يجدوا من يكتب لهم الكود.

لذا طرح أسئلة الواجب بكل بساطة ممنوعة لمصلحة الطلاب أولاً و أخيراً. لكن هذا لا يعني أننا غير مستعدون للمساعدة. أنا متأكد أن غالبية الأعضاء مستعدون لتقديم يد المساعدة بشرط أن يرينا طارح السؤال أنه بالفعل قد حاول و فشل (يمكنه بكل بساطة أن يرينا الكود الذي توصل اليه و لم يعمل) بهذه الطريقة يمكننا أن ندله على أخطائه لكي يتجنبها في المستقبل.

سلام عليكم

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

اخي العزيز ما اقصده من كلامي هو ليس هناك مرجع باللغه العربية في البرمجة تام ( اي قوي ) للاسف الشديد هذه النقطة الاولى ، النقطة الثانية طيب لو انته انسان حاولت وحاولت ولكن لا جدوى من محاولاتك وانا اعطيك مثال: للاسف الشديد عندنا بالجامعه ندرس برمجه بهدف اخذ فكره عن هذا الشيء فقط فكان من الإدارة الجامعه واعضاء هيئة التدريس ان تقر علينا تعلم لغه c وليس c++ :( (لغه غبية ومتخلفة) كانت تواجهني مشاكل كبيره جداً جداً في الماده والواجبات وهناك عدده اسباب ومنها عدم قدره الدكتور على توصيل الفكره ، طيب انا في الحاله هذي لمين ارجع !!!

اصدقاء ( كلنا في الهوى سواء) ، منتديات عربية ( حدث ولا حرج ) !!

نأخذ مثال بسيط : انا الحين ممكن اشرحلك عن الشبكات وماهي الفئات المتاحه في هذا المجال ولكن لا تستطيع عمل برنامج واحد يعمل مع الشبكة ، في هذه الحاله لمن ترجع !!

اقتباس

لذا طرح أسئلة الواجب بكل بساطة ممنوعة لمصلحة الطلاب أولاً و أخيراً.

تعليق على كلامك " سلاح ذو حدين "

واسف على النقاش في هذا الموضوع لانه مش مكانه :)

تحياتي

شكراً على المساعدة ولقد توصلت إلى جميع الأكواد

وشكراً أخي Non-top على المساعدة

وكود العد التنازلي هو

Dim num As Single = 10

نعرف المتغير في أعلى الفورم

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = num

num -= 1

If num = 0 Then

MsgBox("time is over")

End

End If

End Sub

وكود جدول الضرب هو على button

Dim usernumber As String

(" usernumber = InputBox("Enter your Number

Dim warp As String

warp = Chr(13) & Chr(10)

Dim I As Integer

For I = 1 To 10

Dim R As Integer

R = usernumber * I

TextBox1.Text = TextBox1.Text & R & warp

Next I

وشكراً

vbnet