تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى عمل برنامج بسيط
#1
السلام عليكم

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

الفكره هيا ساقوم بعمل زر 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 وباقى الارقام كما هيا الا هذه الارقام .

أرجو المساعدة
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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

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

PHP كود :
Private Sub Command1_Click()
Text2 ""
If Len(Text1.Text) < 11 Then MsgBox ("ÇáÑÌÇÁ ÇÏÎÇá ÑÞã ÕÍíÍ"): Text1.SetFocus: Exit Sub
Select 
Case Val(Mid$(Text1.Text102))
Case 
404142
    Text2
.Text Trim(Str(Val(Text1.Text) + 17))
 
   Exit Sub
Case 4546474849
    Text2
.Text Trim(Str(Val(Text1.Text) + 7))
 
   Exit Sub
End Select
Select 
Case Val(Mid$(Text1.Text111))
Case 
01
    Text2
.Text Trim(Str(Val(Text1.Text) + 18))
 
   Exit Sub
Case 23456789
    Text2
.Text Trim(Str(Val(Text1.Text) + 8))
 
   Exit Sub
End Select
Text2
.Text Text1.Text
End Sub 


الملفات المرفقة
.rar   num.rar (الحجم : 1.4 ك ب / التحميلات : 33)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , عبد العزيز البسكري
#3
متشكر جدا جدا لحضرتك مش عارف اقولك ايه بس ممكن اتقل عليك فى حاجه تاني معلش
عايز يولد 100000 رقم على هذا المنوال ويعمل اكسبورت لفايل اكسل كده حضرتك تبقي خدمتني مش عارف اشكرك ازاى
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم
عجبتني الفكرة وحبيت اكتبها
فقط هذا مثال اخر للزيادة

.rar   Sum_Diff.rar (الحجم : 1.47 ك ب / التحميلات : 32)
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , rnmr , rnmr
#5
من اين سوف ياخذ المدخلات
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة:
#6
(25-09-16, 01:35 PM)abulayth كتب : من اين سوف ياخذ المدخلات

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

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

متشكر جدا لمجهود حضرتك بس معلش افتح الملفات ديه باصدار كام
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#7
اخي الكريم

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

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#8
يقصد توليد ارقام عشوائية ب 11 منزلة .
 عدد الارقام العشوائية 100.000
مع تمكين المعادلة 
 والله اعلم
الرد }}}
تم الشكر بواسطة: rnmr , rnmr
#9
نقطة البداية
ماهو الرقم الذي سيكون نقطة البداية؟
هول هو ما تدخله في التكست بوكس مثلا 10000000000
والبرنامج يبدأ يعد ويزود يصبح مثلا أول رقم 10000000018+8
الرقم الثاني 10000000026+8
الرقم الثالث 10000000032+8
الرقم الرابع 10000000040+17
الرقم الخامس 10000000057
الى ان يصل للرقم مية الف xxxxxxxxxxx
????????????????????????/
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#10
(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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] برنامج تنبيه صوتي ويندوز 10 aboezzat84 0 83 07-01-24, 06:46 PM
آخر رد: aboezzat84
  برنامج VB6 النسخة الفرنسية كاملة الخير طهوري 7 11,941 02-01-24, 06:55 PM
آخر رد: الخير19
  [vb6.0] ريد كود طيع التقرير نسختين علماً انني استخدم برنامج Active Report ؟ Microformt 2 359 12-11-23, 05:05 PM
آخر رد: Microformt
  [vb6.0] مساعدة بتعديل كود الضغط على مفتاح F1 في الكيبورد جلال اليمني 0 173 13-10-23, 08:04 PM
آخر رد: جلال اليمني
  [سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6 وادي العوضي 3 498 24-07-23, 11:50 PM
آخر رد: وادي العوضي
Question [سؤال] مساعدة فى الحدث KeyDown و KeyCode soom3aa 0 433 13-11-22, 09:06 AM
آخر رد: soom3aa
  [vb6.0] طلب مساعدة samer_g_m 1 541 07-11-22, 01:20 AM
آخر رد: Taha Okla
  تحول برنامج مبرمج v.b في xp الو وندوز ٧ kanu3342 9 5,069 10-10-22, 12:02 AM
آخر رد: كاظم هاشم البهادلي
  طلب مساعدة في تحديد الترقيم مصمم هاوي 0 553 05-08-22, 04:43 PM
آخر رد: مصمم هاوي
  [سؤال] احتاج برنامج يقرأ من اكسل ضروري لو سمحتم mera 0 505 10-06-22, 03:43 PM
آخر رد: mera

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم