سؤال حول التعامل مع النصوص

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

في زر كوماند ضع الكود التالي

randomize

a = int((Rnd(1)) * 9999)

aaa = int((Rnd(1)) * 9999)

aa = a + aaa

Text1.text = a & " - " & aa & " - " & aaa

شرح الكود

randomize = توليد رقم عشوائي يختلف كل مره تعيد تشغيل البرنامج فيها.

a = الجزء الأول من الأرقام العشوائية وهو متغير يحمل قيمة الرقم العشوائي وحددنا هنا أن الرقم العشوائي يكون محصور بين الرقم 1 والرقم 9999 يعني يتكون من أربع خانات والمسؤولة أن العدد يكون عدد صحيح int

aaa = الجزء الثالث من الأرقام العشوائية ونفس طريقة a

aa = الجزء الثاني من الأرقام العشوائية ويساوي مجموع الجزء الأول + الجزء الثالث

ملاحظه أحنا هنا نتحكم في الرقم العشوائي الخاصة بالجزء الأول والجزء الثالث

ولكن الجزء الثاني إحتمال يكون أكثر من أربع خانات مثال لو الجزء الأول كان 9999 والجزء الثالث 9888 سيكون ناتج الجزء الثاني يساوي 19887 وهنا اصبح 5 خانات

هنا ممكن نلعب لعبة ونقول له لو الجزء الثاني أكبر من أربع خانات عيد التوزيع مره أخرى ولو كان = أربع خانات أعرض النتيجة

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

بارك الله فيك أخ محمد وجعلك من عتقاء رمضان

لكن الكود ليس دقيقاً فالجزء الثاني فيه خلل

أولاً يجب أن لا يتجاوز أربع خانات

أيضا الجزء الثاني أريده يساوي = الجزء الأول + الجزء الثالث - الرقم 2000

كل الخانات يجب أن لا تتجاوز الأربع

انظر لقد وصلت لهذا الكود وهو دقيق 100%

		Dim part1, part2, part3 As Integer
		Do
			part1 = Random()
			part3 = Random()
			part2 = (part1 + part3) - 2000
			TextBox1.Text = part1 & "-" & part2 & "-" & part3
		Loop Until Len(TextBox1.Text) = 14

Public Function Random() As String
Random = Int(9999 * Rnd + 0)
End Function

لكن أشعر بأنه هنالك طريقة عملية أكثر

السلام عليكم...

أرجو التوضيح: كل جزء يتكون من 4 خانات ليست بمشكلة، لكن هل يجب أن تتألف الخانات الأربع من نفس الرقم، أي 1111 أو 2222 أو 3333 ... إلى 9999 أم أنها يمكن أن تكون أرقاماً مختلفة مثل 3409 أو 1275 ... إلخ. ؟ و هل يمكن أن يكون الرقم المؤلف من 4 خانات أصغر من 1111، مثلاً الرقم 19 و يتم عرضه هكذا 0019 أو الرقم 1 هكذا 0001 ... إلخ. ؟

نرجو التوضيح و السلام.

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

أخ ناجي :

الجزء الأول: عشوائي

الجزء الثاني: (الجزء الأول + الجزء الثالث) - 2000

الجزء الثالث: عشوائي

أظنها أصبحت واضحة والناتج يجب أن يكون عدداً صحيحاً لا يوجد فيه فواصل أو كسور أو أرقاماً سلبية

انظر أخ ناجي:

هذا الكود يقوم بالمهمة :

		Dim part1, part2, part3 As Integer
		'لتوليد رقم عشوائي في كل مرة تعيد فيها تشغيل البرنامج
		Randomize()
		Do
			part1 = Int((Rnd(1)) * 9999)
			part3 = Int((Rnd(1)) * 9999)
			part2 = (part1 + part3) - 2000
			TextBox1.Text = part1 & "-" & part2 & "-" & part3
		Loop Until Len(TextBox1.Text) = 14

لكن ألا يوجد طريقة أخرى؟!

السندبااد كتب:

بارك الله فيك أخ محمد وجعلك من عتقاء رمضان

لكن الكود ليس دقيقاً فالجزء الثاني فيه خلل

أولاً يجب أن لا يتجاوز أربع خانات

أيضا الجزء الثاني أريده يساوي = الجزء الأول + الجزء الثالث - الرقم 2000

كل الخانات يجب أن لا تتجاوز الأربع

انظر لقد وصلت لهذا الكود وهو دقيق 100%

		Dim part1, part2, part3 As Integer
		Do
			part1 = Random()
			part3 = Random()
			part2 = (part1 + part3) - 2000
			TextBox1.Text = part1 & "-" & part2 & "-" & part3
		Loop Until Len(TextBox1.Text) = 14

Public Function Random() As String
Random = Int(9999 * Rnd + 0)
End Function

لكن أشعر بأنه هنالك طريقة عملية أكثر

شكرا أخي الكريم على اللطف في الكلام والدعاء بالخير وللمعلومية من دعى لأخية عن ظهر غيب ردت الملائكة وقالت ولك بالمثل حديث صحيح

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

أولاً يجب أن لا يتجاوز أربع خانات

الجزء الأول والثالث مستحيل يتجاوز أربع خانات

أما الجزء الثاني فهنا تكلمت عنه بما يرضى ربنا... وقلت لك أنه في حالة كان الجزء الثاني أكبر من أربع خانات عيد التوزيع وهو ما فعلته أنته بهذا الكود

do

loop

أيضا الجزء الثاني أريده يساوي = الجزء الأول + الجزء الثالث - الرقم 2000

بسيطة ضيف - 2000

الحقيقة ما أدري كيف ما شفتها لكن انته عارف انا رديت عليك بعد العصر يعني بعد ما أفطرت .. فالمعذرة أخوي

كل الخانات يجب أن لا تتجاوز الأربع

أكيد ولكن الجزء الثاني يحكمه مجموع الأول والثاني

انظر لقد وصلت لهذا الكود وهو دقيق 100%

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