الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الى كبار المبرمجين .. أرجوا مساعدتي

مغلق
بدأه came في 26 يناير 2005 · 7 رد · 674 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هذه اول مشاركة لي في هذا المنتدى الرائع ..

اتمنى ان تعم الفائدة للجميع بمشاركات الاعضاء القيمة ... و مشاركاتي المتواضعة

... وفي اول مشاركة لي اطلب من المبرمجين الكبار في المنتدى

ان يساعدوني في برنامج ( دار رأسي ) و انا احاول تصميمه بالفيجول بيسك .. و متاكدة ان الشباب هني يعرفون له .

فكرة البرنامج :

ان يقوم البرنامج بكتابة جميع الارقام الممكن تكوينها من الاعداد : ( 0) الى ( 9 ) .. لتكوين رقم من 13 خانة

على سبيل المثال :

هذا الرقم : 1324730256710 .. فهذا الرقم من 13 عدد

و يجوز ان تتكرر الاعداد في الرقم .

يعني لو اردت ان اشرححه بطريقة ثانية وبسهولة ... اقول :

الرقم هو : ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ ) ( ؟ )

و علامة ؟ هي : رقم محصور بين ( 0 ,,,,,,,, 9 )

و الارقام اليي راح تطلع هي كثيرة جدا = 6227020800.. لذلك انا اريد ان اعمل لها برنامج بالفيجول بيسك يخرجها بسهولة .

البرنامج يُظهر جميع الإحتمالات في ( text ) و يكون كل إحتمال في سطر

اتمنى افادتي ... برد سريييييييييع

.. يجب ان يكون البرنامج عندي يوم السبت لو سمحتو :s

وشكرا

#2

السلام عليكم

اللى فهمته انك عايز تعد من 0 الى 9999999999999

تمام

استخدم جمله For next

Dim I
For I = 0 to 9999999999999
list1.AddItem (I)
next

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

فلو منفعش هعمل لك كود تانى ب Timer عشان يعد (h)

AlexCard.gif

Business Card

Ahmad Fathy Ahmad

Computer and Systems Department

Faculty of Engineering, Alexandria University

Cellular: +2 010 1461154

E-mail: midoalx@hotmail.com

ICQ: 148481391

#3

أرجوا من المشرفين تغيير العنوان

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

حسن إمام

Microsoft Certified Application Developer

شرح كيفية عمل قاعدة بيانات أثناء التثبيت

شرح كيفية تثبيت الفريم وورك أثناء التثبيت

#4

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

اخي الكريم احمد فتحي .. اشكرك لاهتمامك بسؤالي ..

راح اعيد لك فكرة البرنامج و اتنمى ان تطول بالك معي لاني مبتدئة :rolleyes:

انا فتحت فورم ووضعت فيه ( كومند ) .. و وضعت فيه ( تكست ) .. اوكي

المطلوب هو : عند كبس المستخدم على ( الكومند ) .. تظهر له جميع الاحتمالات لتكوين رقم من ثلاثة عشر خانة .. وتستخرج ارقام كثيرة جدا مثل :

1111111111111

2399011394497

6450218966990

عدد عدد عدد عدد عدد عدد عدد عدد عدد عدد عدد عدد عدد

فهدف البرنامج هو اخراج جميع الارقام التي تتكون من ثلاثة عشر خانة .. بحيث يكون كل رقم في سطر من التكست

اسعفني بالحل السريع قبل يوم السبت :wacko:

شكرا

#5 
Private Sub Command1_Click()
    Dim str As String
    For I = 1 To 13
        str = str & Chr$(GET_RANDOM(Asc("0"), Asc("9")))
    Next I
    Text1 = str
End Sub
Function GET_RANDOM(I, J) As Integer  'I IS MINIMUM VALUE AND J IS THE MAX VALUE
     Randomize
     GET_RANDOM = Int((J - I + 1) * Rnd + I)
End Function

فقط ضع مربع نص text box وزر command button على الفورم

فريق إيجيت بروجيكتس لتطوير و تصميم مشاريع التخرج لطلبة نظم الحاسبات و الإتصالات و حلول الشركات

http://www.egit-projects.com

من موضوعــاتــى

برنامج البحث المتقدم In-File Spider V1.5

أداه مصريه شبيهه بميكروسوفت XML 3.0 + إضافات جديده و أسرع فى الأداء

ما تحتاجة لتصميم البرامج من ادوات و موارد

Handle-X Trial V1.0 ...... برنامج الشبكات و الإختراق العربى 100% بدون أدوات OCX خارجيه

#6

جربي هذا الكود

طبعا عدد الأرقام ضخم جدا ولكن الكود شغال أن كل رقم يتكون من 13 رقم ولكن يعطي الناتج عند الضغط على الزر في كل مرة يعطي نتيجة وطبعا هي أرقام لا نهائية

ضعي زر أمر ومربع نص ثم اكتب الكود التالي على زر الأمر 

Text1 = Text1 & Chr(13) + Chr(10) & Int(Rnd * 10000000000000#(

بالمناسبة أرسلت كتب الكود أيضا في مشاركتك بمنتدى المبرمجين العرب :D

أعداد عشوائية.rar

تم تعديل هذه المشاركة بواسطة nasser50001 في 26 يناير 2005 في 12:31

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#7

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

أرجوا ان تكون إجابة الأخ nasser50001 كافية فهى أكثر من رائعة

ولكن لاتنسى إذا كنت سوف تضع هذا الكود فى حلقة دوارة أو أداة تيمر ان تضع الكود التالى

DOEVENTS

وذلك حتى لايهنج الجهاز

{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1

#8

Came

السلام عليكم

لقد قمت بعمل هذا البرنامج ارجو ان يكون هو المطلوب

اذا كان هذا هو المطلوب فانى اترك لك البرنامج من اجل اتمام ال 13 رقم

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

(706073.8412025/ سرعة المعالج)

ساعة :D

اى

)81.7215093984375/سرعة المعالج(

سنة :D

بالتوفيق

Impossible.zip

ان اجــمل الزهـــــــــــر مانـــــبت بحــــــــدائق الاحـــــــــــــــزان

Eng. Mohammed Salah

هذا الموضوع مغلق.

مواضيع مشابهة