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

سااااااااااعدوني بليز عندي اختبار

مغلق
بدأه ضايع في 10 ديسمبر 2003 · 10 رد · 912 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هاذي اول مره اكتب فيها وعلى طول ببدا بطلب <===مايستحي

لا والله بس اسمعوا عندي اختبار فاينل يوم السبت ولازم اعرف كيف اكتب هالبرامج يعني ابي بس الكود حقهم هم 7 برامج داري انهم كثار بس انا شاد الظهر فيك لاني مادري كيف ينحلون <===مايدري وش السالفه

س1 اكتب برنامج يقرا مبلغ بالريال riyal ثم يقوم بالاتي

.اذا كان المبلغ اقل من 20 ريال يحوله الى dollar و cent ثم يطبعهما

.غير ذلك يحوله الى دولارات ويهمل السنتات ثم يطبع الدولارات وجمله "cent ignored"

مع العلم ان الدولار=4 ريال

س2 اكتب برنامج يقرا نصا يمثل تاريخ موعد ما ثم يقوم بالاتي:

.اذا كان الشهر في التاريخ المدخل قبل شهر 7 يحسب الفرق بينهما ثم يطبع الجمله

"your appointment after........ months"

.اذا كان الشهر المدخل بعد شهر7 يطبع الجمله

"your appointment was canceled"

س3 اكتب برنامج يقرا رقمين x,y ثم يحسب ويطبع z حسب الاتي

Z=X+Y................................. X<10

Z=XY ........................10<=X<=30

z=y^2 ..........................x=40,45,50

غير ذلك .............................يطبع "out of range"

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

س5 اكتب برنامج يقرا جمله ويعد كم مره تكرر فيها حرف "F"

س6 اكتب برنامج يقرا جمله ويطبع كل كلمه في سطر

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

هاذي هي البرامج الي يعرف بليز قولي كيف

ومشكورين مقدما

تم تعديل هذه المشاركة بواسطة ضايع في 10 ديسمبر 2003 في 15:39

#2

سوف أضيف لك الأمثلة ... ولكن ألا ترى أنها برامج بسيطة وتستحق منك محاولة التفكير فيها لمصلحتك أولاً .

والله الموفق .

#3

أخي الكريم أسئلتك غريبة جداً وتبدو أقرب إلى نظام أسئلة Qbasic أو Pascal منها إلى نظام الفيجوال بيسك .

عموماً عملت لك مثال على سؤالك الثالث ... ولا ادري هل هو ما تريد أم لا ... إذا كان هذا هو طلبك وهذه هي الطريقة المطلوبة فأخبرني لأكمل لك ، وإلا فحدد ما هو البرنامج الذي تعمل عليه .

والله الموفق ...

Ex3.zip

#4

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

المشكله ان هاذي مو اسئلتي اسئله استاذ الماده :s

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

فاذا تقدر ياليت تقولي اياهم

وشكرا مرره ثانيه الله يعافيك ويوفقك

#5

اجابة السؤال الأول

Ex1.zip

#6

ارفقت فيما سبق اجابة السؤال الثالث ، وها هي اجابة السؤال الرابع .

Ex4.zip

#7

اجابة الطلب الخامس .

Ex5.zip

#8

وهذه طريقة أخرى لحل السؤال الخامس ولكن ما سبق تعد بسيطة جداً :

Public Function CountChar(StringToSearch As String, Character As String) As Integer
    CountChar = 0
    For i = 1 To Len(StringToSearch)
        If Mid(StringToSearch, i, 1) = Character Then CountChar = CountChar + 1
    Next i
End Function
Private Sub Command1_Click()
n = CountChar(a, "م")
MsgBox n
End Sub

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

هذا الكود لمعرفة عدد كلمات مربع نص ويمكن الاستفادة منه في وضع كل كلمة على حدة
Public Function GetWordCount(ByVal Text As String) As Long
Text = Trim(Replace(Text, "-" & vbNewLine, ""))
'Replace new lines with a single space
Text = Trim(Replace(Text, vbNewLine, " "))
'Collapse multiple spaces into one single space
Do While Text Like "* *"
Text = Replace(Text, " ", " ")
Loop
'Split the string and return counted words
GetWordCount = 1 + UBound(Split(Text, " "))
End Function

وبالنسبة للطلب السابع حاول البحث في المنتدى فقد تكرر كثيراً ولكني لا أتذكر ... إن لم تجد طلبك أخبرني وسأبحث لك عن الرابط

والله الموفق ...

#9

فتى الفيجوال بحق انت رائع

شكرا على جهودك معاي

بحثت عن جواب السؤال السابع بس مالقيت الي انا ابيه لقيت اشياء مشابه بس مو الي انا ابيه000

ودي اقول شيء, عرفت جواب السؤال الثاني ؟

وشكرا الله يوفقك في الدنيا والاخره

#10

بالنسبة للسؤال السايع سوف أضيف لك الرد قريباً إن شاء الله .

وبالنسبة للسؤال الثاني آسف حيث أنني لم أره وسأضيف لك الحل قريباً .

والله الموفق ..

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…