اريد عمل مشروع باستخدام Microsoft Visual Basic 6.0 فارجوا المساعده مهم لي جداً

الملف مرفق أخي

وشرح الكود موجود كتعليقات

Ala2_VB___Project.rar

ألف شكر لك أخي الكريم

وجعله الله في ميزان حساناتك ان شاء الله

عندي ملاحظتين على المشروع ياليت تشوف حل لها واكون ممنون لك

1) اريد منع كتابه ارقام داخل الـ Text1 والـ Text2 عند كتابه ارقام يعطي رساله تفيد بانه لايسمح بكتابه ارقام في الحقول.

2) هل من الممكن ان تكون الارقام العشوائيه التي يعطيها البرنامج ثابته او بمعنى آخر عند كتابة مثلاً في الـ Text1 "اقلام" والثاني "مساطر" يعطي قيمه عشوائيه ويكون العدد نفسه حتى لو تم اعاده الضغط على الناتج لا تتغير النتيجه تبقى كم ظهر العدد ثابت لهذه الكلمتين.

على العموم الف الف الف الف الف شكر لك اخي الكريم والله يكثر من امثالك, استحملني اشوي ادري ثقلت عليك

يبدو لى انه حل واجب او شئ مطلوب منك

لانه اولا انت لم تحاول ان تفهم ما كتبه الاخ علاء بل اردت البرنامج جاهز لتسلمه

اخى بارك الله فيك هذا اعطى لك لتقييمك ولكى تتعلم اللغة ما فائدة ان يحله احد لك

حريف برمجة كتب:

يبدو لى انه حل واجب او شئ مطلوب منك

لانه اولا انت لم تحاول ان تفهم ما كتبه الاخ علاء بل اردت البرنامج جاهز لتسلمه

اخى بارك الله فيك هذا اعطى لك لتقييمك ولكى تتعلم اللغة ما فائدة ان يحله احد لك

مشكور اخي الكريم اولاً على تنويرك للموضوع

ثانياً والله حل واجب كبير وله فضل كبير علي

وبالنسبه لي حاولت ان افهم وفهمت الكود لانه مشرح لي بطريقه مبسطه وسهله الفهم وجزاه الله الف خير على الشرح وقمت باضافه تفاصيل اكثر من خلال فهمي للكود مثلاً قمت باضافه كود لو حاول المستخدم عكس الكلمات يعني لو كتب في الاول دفتر والثاني كتاب يعطي نفس النتيجه 100% والله الكود واضح جداً من خلال شرح اخوي علاء وما قصر

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

الآن المشكله الوحيده المتبقيه هي الارقام العشوائيه التي يعطيها البرنامج فهو يعطي ارقام غير محدده يعني لو قام المستخدم بكتابة في التيكست الاول "كمبيوتر" والثاني "لاب توب" فهو يعطي قيمه متغيره يعني الآن يعطي مثلاً 15% ولو رجعت ضغطت على موافق راح يعطي ناتج غير لنفس الكلمتين فهذا هي المشكله

هل يوجد حل ام استسلم للامر الواقع؟ :(

ادري يا اخي اني مثقل عليكم لكن الله يعلم ان ماعندي الا الله وانتووا

طيب , يعني انت عاوز انه لكل كلمة مثل "مساطر" , "أقلام" , "كمبيوتر" قيمة معينة

أم أن أي كلمة غير "كتب" , "دفاتر" تكون لها قيمة ,

يعني , هل تريد :

"مساطر" = 10

"أقلام" = 7

"كمبيوتر" = 30

أم :

"مساطر" أو "أقلام" أو "كمبيوتر" = 20

؟؟؟؟؟؟؟

بالنسبة للأرقام استخدم الدالة IsNumeric وانت تمرر لها النص , وليكن Text1

وإذا كانت قيمتها False --- فإن Text1 لا يحتوي على أرقام

وإذا كانت قيمتها True ---- فإن Text1 يحتــــوي على أرقام

If IsNumeric(Text1.text) = false then
Msgbox "لا توجد أرقام"
Elseif IsNumeric(Text1.text) = True then
Msgbox "توجد ارقام"
End If

طب يا سيدى

بالنسبة للارقام العشوائية الى عاوزها تتكرر

ممكن استخدام الاسكى كود لكل حرف فى الكلمة التى ستضعها

نجمعهم تضربهم تطرحهم اى حاجة

المهم العملية الى هتم هتكون فريدة لكل كلمة مش هتتكرر مع غيرها

استخد الدالة asc لاخراج الاسكى

I = Asc ( "assd" )

الاخ علاء ممكن يكمل معاك بالفكرة لو مفهمتهاش لانى مشغول فى الامتحانات

Ala2 VB كتب:

طيب , يعني انت عاوز انه لكل كلمة مثل "مساطر" , "أقلام" , "كمبيوتر" قيمة معينة

أم أن أي كلمة غير "كتب" , "دفاتر" تكون لها قيمة ,

يعني , هل تريد :

"مساطر" = 10

"أقلام" = 7

"كمبيوتر" = 30

أم :

"مساطر" أو "أقلام" أو "كمبيوتر" = 20

؟؟؟؟؟؟؟

بالنسبة للأرقام استخدم الدالة IsNumeric وانت تمرر لها النص , وليكن Text1

وإذا كانت قيمتها False --- فإن Text1 لا يحتوي على أرقام

وإذا كانت قيمتها True ---- فإن Text1 يحتــــوي على أرقام

If IsNumeric(Text1.text) = false then
Msgbox "لا توجد أرقام"
Elseif IsNumeric(Text1.text) = True then
Msgbox "توجد ارقام"
End If

مشكور اخوي على متابعتك للموضوع

الحمدلله انحلت مشكله الارقام

خليني اوصل اللي اريده بالصور

مثلاً كتب المستخدم كما بالصوره

فانه يعطي كما هو موضح 7% ولكن لو عاود الضغط على اوكي راح تتغير القيمه المعطاه وهذا ما لا اريده

لاحظ انه ظهر في المره الاولى 7% وعند الضغط على اوكي مره اخره ظهر 5% وانا اريد ان يظهر العدد نفسه

ملاحظه: قد تكون القيمه المدخله في التيكست الاول غير اقلام والثاني غير طباشير قد يكون احمد والثاني محمد مثلاً على ان تكون النتيجه قيمه عشوائيه لاتتغير عند ااعاده كتابه نفس القيمه احمد ومحمد.

ارجوا ان تكون الفكره وصلت

والف شكر لك اخي الكريم

كفيت ووفيت والله انا مستحي منك الصراحه :nose_patch:

حريف برمجة كتب:

طب يا سيدى

بالنسبة للارقام العشوائية الى عاوزها تتكرر

ممكن استخدام الاسكى كود لكل حرف فى الكلمة التى ستضعها

نجمعهم تضربهم تطرحهم اى حاجة

المهم العملية الى هتم هتكون فريدة لكل كلمة مش هتتكرر مع غيرها

استخد الدالة asc لاخراج الاسكى

I = Asc ( "assd" )

الاخ علاء ممكن يكمل معاك بالفكرة لو مفهمتهاش لانى مشغول فى الامتحانات

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

على العموم يكفي تشريفك للموضوع

والف شكر

اخواني لقد وجدت كود قريب جداً من المطلوب ولكن يحتاج لتخبرتكم لتعديله ليظهر بالشكل المطلوب

Private Sub Command1_Click()
Dim NO As String
NO = Asc(Text1.Text) * Asc(Text2.Text)
Text3.Text = Val(NO / 100)

End Sub

المشكله في الكود السابق انه لابد من تعبئه الـ Text1&Text2 بكلامات English يعني غير داعم للغه العربيه

وثاني شي فهو يظهر اعداد غير صحيحه مثال : 43.33 وانا اريد اعداد صحيحه 43 بدون فاصله

ارجوا ايجاد حل لهذا الكود او باستخدام كود اخر

ومشكورين يا اعضاء المنتدى الرائع

ان شاء الله اجد الحل عندكم :)