مساعدة فى عمل برنامج بسيط - نسخة قابلة للطباعة

مساعدة فى عمل برنامج بسيط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مساعدة فى عمل برنامج بسيط (/showthread.php?tid=17445)

الصفحات: 1 2

مساعدة فى عمل برنامج بسيط - hithemlion - 25-09-16

السلام عليكم

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

الفكره هيا ساقوم بعمل زر command و text سوف اضع رقم مكون من 11 رقم
المطلوب :
1 - عند انتهاء الرقم ب 0 أو 1 يزيد 18 رقم
مثال : اذا بدأ 10110354130 يصبح 10110354148

2 - عند انتهاء الرقم ب 2 الى رقم 9 يزيد 8 ارقام

3 - عند انتهاء الرقم ب 40 أو 41 أو 42 يزيد 17 رقم

4 - عند انتهاء الرقم ب 45 أو 46 أو 47 أو 48 أو 49 يزيد 7 وباقى الارقام كما هيا الا هذه الارقام .

أرجو المساعدة

RE: مساعدة فى عمل برنامج بسيط - abulayth - 25-09-16

السلام عليكم

استخدم الكود التالي

يعطيك العافية

PHP كود :

Private Sub Command1_Click()
Text2 = ""
If Len(Text1.Text) < 11 Then MsgBox ("ÇáÑÌÇÁ ÇÏÎÇá ÑÞã ÕÍíÍ"): Text1.SetFocus: Exit Sub
Select Case Val(Mid$(Text1.Text, 10, 2))
Case 40, 41, 42
    Text2.Text = Trim(Str(Val(Text1.Text) + 17))
    Exit Sub
Case 45, 46, 47, 48, 49
    Text2.Text = Trim(Str(Val(Text1.Text) + 7))
    Exit Sub
End Select
Select Case Val(Mid$(Text1.Text, 11, 1))
Case 0, 1
    Text2.Text = Trim(Str(Val(Text1.Text) + 18))
    Exit Sub
Case 2, 3, 4, 5, 6, 7, 8, 9
    Text2.Text = Trim(Str(Val(Text1.Text) + 8))
    Exit Sub
End Select
Text2.Text = Text1.Text
End Sub 

RE: مساعدة فى عمل برنامج بسيط - hithemlion - 25-09-16

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

RE: مساعدة فى عمل برنامج بسيط - abulayth - 25-09-16

من اين سوف ياخذ المدخلات

RE: مساعدة فى عمل برنامج بسيط - hithemlion - 25-09-16

(25-09-16, 01:35 PM)abulayth كتب : من اين سوف ياخذ المدخلات

مش فاهم انا اسف مدخلات ايه هيا كل الفكره اني هكتب الرقم زى ما وضحت لحضرتك فى التكست مكون من 11 رقم على حسب المعادله اللى ظبطناها يولد 100000 رقم يطلعوا فى تكست او فايل اكسل يبقي كده انا تمام اوى

(25-09-16, 01:34 PM)Amir_alzubidy كتب : السلام عليكم
عجبتني الفكرة وحبيت اكتبها
فقط هذا مثال اخر للزيادة

متشكر جدا لمجهود حضرتك بس معلش افتح الملفات ديه باصدار كام

RE: مساعدة فى عمل برنامج بسيط - abulayth - 25-09-16

اخي الكريم

اولا البرامج اصدار vb6 حسب القسم الموجود فيه السؤال
ثانيا الارقام المطلوبة ستكون متسلسلة او نفس الرقم مكرر 100000 مرة ام ماذا

يعطيك العافية

RE: مساعدة فى عمل برنامج بسيط - أبو عمر - 25-09-16

نقطة البداية
ماهو الرقم الذي سيكون نقطة البداية؟
هول هو ما تدخله في التكست بوكس مثلا 10000000000
والبرنامج يبدأ يعد ويزود يصبح مثلا أول رقم 10000000018+8
الرقم الثاني 10000000026+8
الرقم الثالث 10000000032+8
الرقم الرابع 10000000040+17
الرقم الخامس 10000000057
الى ان يصل للرقم مية الف xxxxxxxxxxx
????????????????????????/
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

RE: مساعدة فى عمل برنامج بسيط - hithemlion - 25-09-16

(25-09-16, 01:52 PM)abulayth كتب : اخي الكريم

اولا البرامج اصدار vb6 حسب القسم الموجود فيه السؤال
ثانيا الارقام المطلوبة ستكون متسلسلة او نفس الرقم مكرر 100000 مرة ام ماذا

يعطيك العافية

المقصود أخى العزيز توليد 100000 رقم بداية من ال 11 رقم الذى سيتم وضعهم فى التكست كمثال 10088370001
وأسف لازعاجكم وشاكر مجهودكم اسف اعذرونى لانى مبتدأ

(25-09-16, 02:23 PM)hithemlion كتب :
(25-09-16, 01:52 PM)abulayth كتب : اخي الكريم

اولا البرامج اصدار vb6 حسب القسم الموجود فيه السؤال
ثانيا الارقام المطلوبة ستكون متسلسلة او نفس الرقم مكرر 100000 مرة ام ماذا

يعطيك العافية

المقصود أخى العزيز توليد 100000 رقم بداية من ال 11 رقم الذى سيتم وضعهم فى التكست كمثال 10088370001
وأسف لازعاجكم وشاكر مجهودكم اسف اعذرونى لانى مبتدأ

أم حضرتك تقصد أنه يجب وضع رقم ثابت لتوليد الارقام بدلا من اى رقم عشوائي هو بكل الاحوال الارقام عددها 11

RE: مساعدة فى عمل برنامج بسيط - hithemlion - 25-09-16

(25-09-16, 02:23 PM)hithemlion كتب :
(25-09-16, 01:52 PM)abulayth كتب : اخي الكريم

اولا البرامج اصدار vb6 حسب القسم الموجود فيه السؤال
ثانيا الارقام المطلوبة ستكون متسلسلة او نفس الرقم مكرر 100000 مرة ام ماذا

يعطيك العافية

المقصود أخى العزيز توليد 100000 رقم بداية من ال 11 رقم الذى سيتم وضعهم فى التكست كمثال 10088370001
وأسف لازعاجكم وشاكر مجهودكم اسف اعذرونى لانى مبتدأ

(25-09-16, 02:23 PM)hithemlion كتب :
(25-09-16, 01:52 PM)abulayth كتب : اخي الكريم

اولا البرامج اصدار vb6 حسب القسم الموجود فيه السؤال
ثانيا الارقام المطلوبة ستكون متسلسلة او نفس الرقم مكرر 100000 مرة ام ماذا

يعطيك العافية

المقصود أخى العزيز توليد 100000 رقم بداية من ال 11 رقم الذى سيتم وضعهم فى التكست كمثال 10088370001
وأسف لازعاجكم وشاكر مجهودكم اسف اعذرونى لانى مبتدأ

أم حضرتك تقصد أنه يجب وضع رقم ثابت لتوليد الارقام بدلا من اى رقم عشوائي هو بكل الاحوال الارقام عددها 11

شاكر جدا جدا لمجهود حضراتكم بصراحه مش عارف اقولكوا ايه ان شاء الله ربنا يجزيكم خير عنى بس ينقصنى نقطة توليد عدد الارقام المطلوب فقط على text أو شيت اكسل

(25-09-16, 01:34 PM)Amir_alzubidy كتب : السلام عليكم
عجبتني الفكرة وحبيت اكتبها
فقط هذا مثال اخر للزيادة

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

بس ناقصنى انى أولد 100000 رقم بداية من الرقم اللى هحطه يطلع على text أو شيت اكسل أفضل على نفس المعادلة يعنى

RE: مساعدة فى عمل برنامج بسيط - hithemlion - 25-09-16

(25-09-16, 06:19 PM)Amir_alzubidy كتب : 100000 رقم محرز وحبيته

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

شوف المرفق ورد لنا خبر
اذا كان فهمي للسؤال صحيح نكمل معاك كود تصدير الاكسل
في كم ملاحظة كتبتهم لك بالمرفق قبل ما تنفذ البرنامج

انا متشكر جدا جدا لمجهود حضرتك بس لللاسف مشوفتش ملاحظات حضرتك مفيش غير المشروع بس عموما كده فكرة حضرتك ممتازة بس هفهم حضرتك بكل بساطة المطلوب :
فلنفرض انو ده الرقم اللى عايز ابدأ منه : 42768222236
اذا انتهى ب 0 أو 1 يزيد 18 رقم مثال : 42768222230 سوف يصبح 42768222248
اذا انتهى من رقم 2 الى رقم 9 يزيد 8 أرقام 42768222248 سوف يصبح 42768222255
اذا انتهى ب 40 أو 42 أو 42 يزيد 17 رقم
اذا انتهى ب 43 أو 44 أو 45 أو 46 أو 47 أو 48 أو 49 يزيد 7
بس كل اللى انا طالبه ان القاعده ديه تطبق على اخر رقم فى ال 11 رقم زى ما شرحت لحضرتك والارقام اللى هتتولد يكون مطبق عليها القاعدة ديه بس مش أكتر من كده
اللى حضرتك عملته مجهود ممتاز تسلم ايدك بجد انا مش محتاج غير كتابة الرقم وأولد كام عدد واعملهم اكسبورت لفايل او اقدر اخدهم كوبى من جوه البرنامج وكتر الف خيرك