سؤال في المصفوفات

الأخ الفاضل ...

جرب الكود التالى:

	Dim x(10) As String
	Dim i As Integer
	Dim Counter As Integer

	Counter = 0
	For i = LBound(x) To UBound(x)
		If x(i) = "Goon" Then Counter = Counter + 1: Print "Yes"
	Next i

	Print Counter

شكراً

شكراً ولكني لا أستطيع تجربت الكود الآن

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

اخي القصه تتلخص في بعد تعبئة المصفوفه يتم المرور على عناصره فأذا وجد عنصر فيها يحتوي على "....."" يتم أضافة رقم 1 على متغير لأيأتي لك في اخر الامر بعدد وجوده في المصفوفه

وذلكم عن طريق الكود التالي :

   Dim x(3) As String

   x(0) = "xxxx"
   x(1) = "Goon"
   x(2) = "Goon"
   x(3) = "Goon"

	Dim i As Integer
	Dim Counter As Integer

	Counter = 0
	For i = LBound(x) To UBound(x)
		If x(i) = "Goon" Then Counter = Counter + 1
	Next i

	MsgBox Counter

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

ضع هذا في الـ General

 Option Compare Text

بالتوفيق ..........

A7med_prof

Eng. Usama El-Mokadem كتب:

الأخ الفاضل ...

جرب الكود التالى:

	Dim x(10) As String
	Dim i As Integer
	Dim Counter As Integer

	Counter = 0
	For i = LBound(x) To UBound(x)
		If x(i) = "Goon" Then Counter = Counter + 1: Print "Yes"
	Next i

	Print Counter

شكراً

الأخ الفاضل ...

مع تقديرى للأخ A7med_prof، الا أن استخدام

Option Compare Text

قد يسبب مشاكل فى باقى الفورم إذا كان هناك كود يستخدم مقارنة ويريد تميز حالة الأحرف كبيرة أو صغيرة (بأفتراض أنك تعمل على VB) ...

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

	Dim x(10) As String
	Dim i As Integer
	Dim Counter As Integer

	x(2) = "Goon"
	x(4) = "GOON"
	x(7) = "goon"
	x(8) = "gOOn"

	Counter = 0
	For i = LBound(x) To UBound(x)
		If UCase(x(i)) = "GOON" Then Counter = Counter + 1
	Next i

	Print Counter
'   MsgBox Counter

اقتباس

if x(i)="goon" then prent "yes"

اقتباس

يعني إذا x(0)="goon" فقط يطبع عدد 1

كذلك هناك نقطة أخرى ... بالنسبة لأستخدام Print، فهى تصلح للإستخدام فى Basic ولكنها غير مناسبة بالنسبة VB ، فإذا كنت تستخدم Basic فلن تصلح معك الدالة MsgBox فهى تعمل فى VB فقط

نقطة أخرى ، إذا كنت تعمل على على Basic وليس VB ، فلتعريف المتغير ضع فقط Dim واسم المتغير [Dim i]

شكراً

السلام عليكم

أنا من زمان ما بينت بسبب خلل في جهازي والفجوال بيسك راح من جهازي و أنا نسيت الكثير من ما تعلمته بالبرمجة

وأنا استخدمت طريقة العداد وكنت عارفها|| ولكنني ساويت دالة بطريقة أخرى :

استخدمت فيها اللست بوكس طريقة العملية تصل أي مجموعة الى الدالة التي عملتها أعطي أمر إلى اللست بوكس بإيجاد عدد القيم داخلها

ولكن على ما أذكر أنني نقلت أمر إيجاد عدد القيم إلى مكان set focus للستبوكس بعد ما أن وضعت أمر في الدالة يقوم بوضع التركيز على اللستبوكس

لأنه على ما أذكر يجب انهاء كود اضافة المجموعة إلى اللست بوكس ثم جعل اللستبوكس توجد عدد قيمها (ربما بسبب قراءة المترجم للكود بطريقة تكرارية على ما أظن)

آسف لأني لم أضع الكود لأني ناسي كيف أكتبه حتى ناسي أبدأ ب sub ولا function

وشكراًًًًًًًً

السلام،

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

استبدلها بي Debug.print وتظهر النتائج في شاشية الــــ Immediate (ويمكن الوصل لها عن طريق Ctrl+G). وهي تقوم بدور Print الي في Basic.

ملاحظة: من خلال نفس الشاشة يمكن تنفيذ أي دالة دون الحاجة لكتابة كود كامل، مريحة في عملية Testing :lol:

أخوكم/ فراس