تقييم الموضوع :
  • 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 ك ب / التحميلات : 8)
شـــايـفـــك

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تفعيل اداة VSFlexGrid ياسر عبد الكريم 3 142 06-01-17, 12:04 AM
آخر رد: ياسر عبد الكريم
  طلب بسيط نقل أرقام؟؟؟ KamelArab 2 85 10-12-16, 06:45 PM
آخر رد: sendbad100
  مساعدة في تطبيق هذا الكود bidaya 0 69 06-12-16, 04:46 AM
آخر رد: bidaya
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 146 01-12-16, 03:40 PM
آخر رد: sendbad100
  [سؤال] احتاج مساعده في برنامج موعد الحضور والانصراف mera 6 410 30-11-16, 10:59 PM
آخر رد: فاطمة غ
  [سؤال] ممكن مساعدة في ايجاد كود او اداة لاظهار جدول في واجهة البرنامج مبرمج جديد 2 162 09-11-16, 03:48 AM
آخر رد: مبرمج جديد
  [vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) sher 1 270 08-11-16, 02:32 AM
آخر رد: AL_BRNS
  برنامج فجوال ستوديو 6 اسلام الكبابى 5 194 05-11-16, 11:10 PM
آخر رد: اسلام الكبابى
  برنامج القسمة المطولة احمداحمداحمد6 1 122 30-10-16, 01:22 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 129 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy

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


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