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

هل هناك مثال لعمل برنامج اسلامي

مغلق
بدأه alihaji في 14 أغسطس 2007 · 8 رد · 890 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

مثل البرامج الخاصة بالسيرة والاحاديث وغيرها من البرامج .

لاباس بمثال بسيط يحتوي على مربع عرض الملف النصي وزر امر يبحث عن كلمة معينة وعرض النتائج في شبكة ثم عرض الجملة او الحديث كامل في مربع النص .

وشكرا لكم

#2

ارفقت مثال للتعديل عليه

serth.rar

#3

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

يرجى عدم تكرار الموضوع مرة أخرى لأن في هذا مخالفة لقواعد المنتدى

تم إغلاق الموضوع الأول.

تم التنبيه

السلام عليكم

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#4

شكرا للتنبيه بالرغم اني لم اكرر الموضوع قمت بكتابة الموضوع وعملت موافق ووجدت ان الموضوع مكرر

ولم ادري اين المشكلة .

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

وشكرا لك مرة اخرى

تحياتي

#5

الاخ Xacker يتكلم عن تكرار الموضوع فقط

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

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#6

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

من الاخ يوفي vip

هحاول اجيبة له

#7

اخي كود بسيط جدا قد تعرفه

On Error GoTo notfound
Open App.Path + "\book.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
Exit Sub
notfound:
MsgBox "error the book.txt not found", vbCritical, "error"

Exit Sub

ضعه في حدث form1_load

هذا لفتح النص

startingprogremmer.jpg
#8

شكرا على ردودكم ولكن ارجوا التعديل على المثال المرفق

#9

شكرا لعدم الرد والنظر في الموضوع بجدية :wacko:

شكرا لكم :(

هذا الموضوع مغلق.

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