عندي مشروع يفيد لفحص النظر وابي مساعدتكم

السلام عليكم....

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

بس ما أدري ليش يقطع الإتصال قبل النتيجة ماتطلع؟؟؟ وهذا الشئ حصل معايا ومع عدد من صديقاتي..

إن شاء الله أفيدك..

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

على البرنامج والتخصص

اذا ممكن تفيدوني بشي واكون شاكر لكم تعونكم معي

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

صمم قاعدة بيانات حقولها [رقم الصورة ] [ مسار الصورة] [الرقم الذي بداخل الصورة] [ الرقم الذي سيكتبة المستخدم]

حيث الحقل الأخير سيكون فارغ

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

بمربع نص مخفي

الزر التالي سيعمل على

التنقل بين السجلات

الأضافة بمعنى( كتابة الرقم الذي سيكتبة المستخدم في الحقل المخصص )

ايضا مقارنة القيمة الصحيحة بالقيمة التي ادخلها المستخدم اذا كانت صحيحة سيتم اعطاء المستخدم نقطة وذلك بالأعلان عن متغير عام

عند الوصول الى اخر سجل استخدم طبعا داله اذا الشرطية

حتى تعلن عن النتيجة

وبالتالي عرض النتائج في النموذج الثاني ستكون سهلا جدا وعند الخروج من البرنامج يتم مسح محتوي حقل [الرقم الذي سيكتبة المستخدم]

ان شاء الله اكون وفقت للأجابة وفكرتك حلوة

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

اخت ندى شكرا على الافاده العظمى وراح ابتدي في العمل وإن شاء الله اعطيكم نسخه من البرنامج بعد الانتهاء

طيب مسار الصوره وين احطه

انا قلت لو احطه على شكل مصفوفه وبصراحه ما اعرف للمصفوفات كثير

يعني ما يحتاج قاعدة بيانات

شباب حاولت احلها بس صارت عندي مشكله

Dim p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12 As Double

Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12 As Double

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

Dim o As String

o = "OK"

p1 = InputBox("إدخل الرقم", "صورة رقم 1")

If p1 = 42 Then r1 = o

else r1=p1

end if

End Sub

End Class

المشكله في else و end if

اذا ممكن تساعدوني

اختي ورود الشوق

هذا هو الكود بعد التعديل وباستخدام المصفوفات لتسهيل القراءة والعمل ..

ان شاء الله تستفيدين

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim p(12) As Double
        Dim r(12) As Double
        Dim o As String
        o = "OK"
        p(0) = InputBox("إدخل الرقم", "صورة رقم 1")
        If p(0) = 42 Then
            r(0) = o
        ElseIf r(0) = p(0) Then

        End If
    End Sub

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

بالتوفيق لك

مشكورين

ابو خالد ما صار عندي شي فيه مشكله في

r(0) = o

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

بيب بيييييب... الجوهرة وصلت بالحبر اليقين..

جيت وجبت معايا لنك الموقع.. اللنك: http://www.freevisiontest.com/

حتى لو ما أفادك الكود ممكن تفيدك الصور....

والطريقه: هي...

تدخل الرابط... واضغطِ على TAKE THE TEST من القائمة في أعلى الصفحة

بعدين تختار Color test

بعدين اضغط على Take the color test »

بيطلع لك دائرة مكتوب فيها ارقام ما عليك الا ان تكتب الرقم اللي تشوفه في الدائرة

في المستطيل الفاضي واضغط Answer

ستكرر العمليه 12 مرة بعدها تطلع لك النتيجة..

إن شاء الله أكون أفدتك بشئ....

اختي ورود الشوق ...

مافهمت هل يوجد مشكلة حاليا ولا لأ ؟؟؟

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

وانا ابي اسويه على شكل برنامج

وعطيتكم كل شي

واخي ابو خالد فيه مشكله

طيب ممكن تكتبلي كود عن التالي

اول ما يضغط الزر يطلع رسالة ادخال inputbox ويدخل المستخدم رقم الي في الصوره اذا ما عرفه يدخل صفر او انه لا يدخل شي

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

على فكره راح يكون اكثر من زر واكثر من مربع صور لكن بستخدم خاصية الاخفاء والاظهار

ويعطيكم العافيه

اختي لم افهم كثيرا ماهو قصدك..

لكن اللي فهمته وضعته في الكود اللي في الاسفل ...

ضعي الكود في حدث الزر ..

Private Sub pic()
        Dim i, n, sum As Integer
        For i = 0 To 12


        n = InputBox("ادخل رالرقم الذي تراه", "-")
        If n <= 0 Then
            n = 0
        End If
        sum = sum + n

        Next
    End Sub

جربت هذا ولا صار شي

الموضوع مطول شكله وعلى كذا اكرر شكري لكم

وانشاء لله انجز العمل ويعجبكم

ورود الشوق

هذا هو الكود لكن للامان قمت بكتابته لكن لم اجربه

المهم ان تضع الصور في مجلد البرنامج و تسميها بارقام

Dim NextPicture, TestReslute As Int16

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static NextPicture As Int16 = 0
        Dim PicName As String
        If NextPicture < 12 Then
            NextPicture += 1
            PicName = NextPicture.ToString & ".jpg" ' او نوع الصورة 
                      PictureBox1.Image = New Drawing.Bitmap(Application.StartupPath + \\PicName)
        Else
            Timer1.Stop()
            ViewReslute()
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = nextpicture Then
            TestReslute += 1
        End If
    End Sub

    Private Sub ViewReslute()
        TextBox2.Text = Testreslute
    End Sub

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

وهذا الكود

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ph1 As Double
        ph1 = TextBox1.Text
        MsgBox("  الرقم المدخل هو  " & ph1 & "  والرقم الصحيح هو  42  ")
        TextBox1.Text = ""
        'الصور
        p1.Visible = True
        p2.Visible = False
        p3.Visible = False
        p4.Visible = False
        p5.Visible = False
        p6.Visible = False
        p7.Visible = False
        p8.Visible = False
        p9.Visible = False
        p10.Visible = False
        p11.Visible = False
        p12.Visible = False
        'الازرار
        Button1.Visible = True
        Button2.Visible = False
        Button3.Visible = False
        Button4.Visible = False
        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False
        Button8.Visible = False
        Button9.Visible = False
        Button10.Visible = False
        Button11.Visible = False
        Button12.Visible = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ph2 As Double
        ph2 = TextBox1.Text
        MsgBox("  الرقم المدخل هو  " & ph2 & "  والرقم الصحيح هو  56  ")
        TextBox1.Text = ""
        'الصور
        p1.Visible = False
        p2.Visible = True
        p3.Visible = False
        p4.Visible = False
        p5.Visible = False
        p6.Visible = False
        p7.Visible = False
        p8.Visible = False
        p9.Visible = False
        p10.Visible = False
        p11.Visible = False
        p12.Visible = False
        'الازرار
        Button1.Visible = False
        Button2.Visible = True
        Button3.Visible = False
        Button4.Visible = False
        Button5.Visible = False
        Button6.Visible = False
        Button7.Visible = False
        Button8.Visible = False
        Button9.Visible = False
        Button10.Visible = False
        Button11.Visible = False
        Button12.Visible = False