طيب سؤال رابع في الفجوال بيسك

العملية سهلة اختي عهود بس .. بعد ما تختارين احدى الصور الأريع .. ماذا يحدث بعد ..

انتي لم توضحي العملية أو السؤال ..

السلام عليكم

أخي العزيز أرجو التوضيح أكثر فلم أفهم سؤالك

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

شوفوا هذا اللي ارفقته انا

ابي بدال السؤال النصي صورة

وبدال الاربع الاجابات النصية صورة

لما تفتحونة بتفهمون اوكي

:rolleyes:

ارجوا المساعدة سريعا

______.zip

اختي عهود الموضوع كله ما يحتاج سوا

Image

واستعمال خاصية الأخفاء Visble

وبس .. هذا على حسب ما فهمت

طيب شلوووووووووووووون

بس تحملون وبس

علموني طيب

كيف احط الصور بدال مربع النص

من جد من جد

:(

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

ما ضبطت

احتاج اجابة منكم سريعة

الله يخليكم :wacko:

2______.zip

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

تحيه طيبه للجميع ،،،،،،،،،،

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

يتم استخدام radio bottom ووضع الصورة أمامها حيث يتم اختيار الـ bottom المقابل

للصورة .......

ارجوا ان يكون الرد واضح وشكـــــــــــــــرا ......

ما فهمت

ارجو المساعدة

يا ربي منكم

ترى الشغلة اكيد تافهه بالنسبة لكم

امانة علموني كيف

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

عهود

اختي الكريمة

يا ريت تروحي على هذا الرابط ممكن يفيدك و انا جاهز لاي استفسار

/index.ph...ndpost&p=240866

مشاركة #12

مشكور ما قصرت

بس انا ابي يكون السؤال صورة

والجواب اربع صور

حاولت حاولت ما ضبطت معاي؟؟

يا ترى فهمت سؤالي؟؟

ابغى يكون السؤال image

ويكون الجواب كلة image or picture

ياليت تساعدوني

أختي عهود

يمكنك جعل الراديو صورة

اضبطي خاصية picture لزر الراديو وضعي الصورة المطلوبة واضبطي خاصية Style لزر حتى يكون Graphic سيظهر الزر كصورة للمشاهد بحيث يتم الضغط طبعا على صورة واحدة

هذه ما فهمته من السؤال

:wacko:

:wacko:

طيب يا ناس انا ارفقت تطبيقي ومو عارفة وين الغلطة

تدرون اني ابكي بسبب الأكواد

لان فجوال بيسك مليء بالمتاعب

يا رب يا رب

احد يعرف الغلطة ويفهمني بس

امانة ساعدوني

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

تحيه طيبة وبعد :

بصراحة انا شفت البرنامج حقك ،،،

بس طريقته معقدة شوي وراح يكون صعب على اللي بيستخدمه خصوصا اذا كان مبتدئ ،،،

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

وشكرا،،،،،،،،،،،

أبو تالا ......

أوكي انا بانتظار

صدقني انا غايتي افهم وافهم وافهم

ما ابي قص ولصق

ابي افهم

وابي احد يوقف جمبي

والف الف شكر لك اذا كنت هذا الشخص

الله يوفقك

الأخت عهود يمكنك دلك من خلال وضع أربع مربعات image على شكل array بحيث السؤال يظهر في مكانه في الصورة والصور الأخرى تظهر في أماكنها كإجابات من خلال الايميج وتكوني مخزنه رقم أو اسم الصورة الصحيحه وعند النقر يقوم مشيك على الرقم هل صحيح أم لا

عدرا لم أطلع على المثال المرفق لعدم وجود فيجوال بالجهاز المستخدم حالياً

تحياتي

هذا اللي انا سويته بالضبط

بس برضوا فيه مشكلة ولا احد راضي يشوفه ليه ؟؟

مع ان المنتدى كلة مبرمجين ممتازين

ما شاء الله

عهود

هذه مثال بسيط

والله ما أدري انت عايزةايه بالضبط ولكن محاولة

______.rar

ما يفتح معاي بهذا الامتداد

ممكن تخليه zip

اعتذر ممكن لو سمحت؟؟

على حسب ما فهمت أتمنى أن يكون المطلوب

______.rar

لا اخوي hnhn ما فهمت قصدي

بس مشكور على المحاولة

واتمنى ان احد يساعدني تطبيقي الثاني اللي فيه اخطاء واضح المطلوب اتمنى احد يشوفة ويقولي وين الغلط

اختی الکریمة

قمت بالعملية التي تريدنها

لكن لازم تاخذي الاجراءات التالية:

الاسئلة و الاجوبة تكون على شكل صور

عندما تخزني البيانات لازم تخزني اسم الملف الذى فيه السوال او الجواب

ارفقت مع هذا الوصف مشروعان

واحد لادخال البيانات في القاعدة

و أخر لاضهار الاسئلة على شكل صور

اختاري Oprating System من قائمة الدروس Exam :

Public Sub ShowQuestPic(ByVal Tnum As Integer, ByVal Tless As String)
Dim myPath As String
myPath = App.Path & "\pics\l1\"
cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=db.mdb"
Tless = "'" & Tless & "'"
With cmd
.ActiveConnection = cnn
.CommandText = "select * from Tquest where num=" & Tnum & " and lesson =" & Tless
.CommandType = adCmdText
End With
Set rs = cmd.Execute
Do While rs.EOF = False
 imgQ.Picture = LoadPicture(myPath + Trim(rs.Fields(1).Value) + ".jpg")
 If (rs.Fields(2).Value <> "") Then
  txtSh(1).Text = Trim(rs.Fields(2).Value)
Else: txtSh(1).Text = ""
 End If
 Img(0).Picture = LoadPicture(myPath + Trim(rs.Fields(3).Value) + ".jpg")
 Img(1).Picture = LoadPicture(myPath + Trim(rs.Fields(4).Value) + ".jpg")
 Img(2).Picture = LoadPicture(myPath + Trim(rs.Fields(5).Value) + ".jpg")
 Img(3).Picture = LoadPicture(myPath + Trim(rs.Fields(6).Value) + ".jpg")
  TrQuest = Trim(rs.Fields(8).Value)


rs.MoveNext
Loop
rs.Close

i = i + 1
End Sub

سیستم عامل = Oprating System

Db2 : لادخال البيانات

بعد ادخال البيانات لا تنسي نسخ الملف tdb.mdb الى Exam_pic و غيري اسمه الى db.mdb

Exam_Pic.rar

DB2.rar

والله مثال ولا احل تشكر عليه اخي محمد صادق