الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج تعليمي لتعليم الاطفال الجمع

بدأه طفلة القمر في 14 يناير 2010 · 5 رد · 747 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

في برنامج نص سؤاله بيقول

اكتب برنامج تعليمي لتعليم الاطفال الجمع

عملت الفورم كدا

478585849.jpg

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

علما بان خانة الرقم الاول هي عبارة عن آداة عنوان label6

وخانة الرقم الثاني هي عبارة عن أداة عنوان آخر label7

أما خانة الناتج فهي تكست بوكس1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a, b As Int16

        a = Rnd() * 10
        b = Rnd() * 10
        a = Label6.Text
        b = Label7.Text

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c As Integer
        c = Str(TextBox3.Text)
a=val(label6.text)        
b=val(label7.text)
If c = a + b Then
            MsgBox("براااافو اجابة صحيحة")
        Else : MsgBox("اوبس،معلش خطأ ،حاول مرة تانية")
        End If


    End Sub


End Class

ارجو منكم الافادة اعزكم الله

U R The Air I Breathe...Mo0n ChilD

alfarisnet1230761151nl7.jpg

#2

وعليكم السلام ورحمة الله وبركاته

المطلوب في المرفقات ...

Summ.rar

#3

جزاك الله خيرا انا نزلته وقرأته بس منين بعمل

private sub rnd1 ()

معلش تشرحلي الطريقة؟؟ بعتذر تعبت حضرتك

ولا انا بكتبها عادي زي اي كلمة موجودة

U R The Air I Breathe...Mo0n ChilD

alfarisnet1230761151nl7.jpg

#4

لا اله الا انت سبحانك اني كنت من الظلمين

تم تعديل هذه المشاركة بواسطة طفلة القمر في 14 يناير 2010 في 21:06

U R The Air I Breathe...Mo0n ChilD

alfarisnet1230761151nl7.jpg

#5

مرحبا

rnd1 = صب قمنا بعمله داخل الفورم لحين وقت الحاجة إليه نقوم بمناداته وطريقة مناداة أي صب تكون بهذه الطريقة

Call subname

والهدف منه هنا في مثالنا توفير جهد ووقت وتقليل أسطر الأكواد

لاحضي لو حبينا نستغني عن السطر call rnd1

نضع الكود اللي داخل الصب ليقوم البرنامج بتنفيذ الكود

فهذه ميزة جميلة أنه الأكواد التي نتحتاج تكرارها كثيراً من الأفضل نعملها صب

ونقوم بمناداة ذلك الصب وقت الحاجة بكلمتين فقط .... تحياتي

#6

ياربي الله يكرمك علي الافادة

جزاكم الله عنا الف الف مليون خير

شكرا لك افادكم الله بما علمكم

U R The Air I Breathe...Mo0n ChilD

alfarisnet1230761151nl7.jpg

مواضيع مشابهة