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

كيف توليد أرقام تلقائيا

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

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

كيف يتم توليد الأرقام لفورم المستعيرين

أنا شغال في مشروع للمكتبه

فعندي بعض الأشكاليات منها

عند تكرار إضافة مستعير جديد بحيث يكون خاص به

ولكم جزيل الشكر

:D

#2

هل تقوم بالحفظ في db او MSFlexGrid

اذا استخدمت MSFlexGrid فضع الكود

MSFlexGrid1.AddItem ""

MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = MSFlexGrid1.Rows - 1

#3

شكرا أخويayman_ata712 على الرد

ولكن الأداة المستخدمة dataGrid

ولكن الفورم الذي أوريد أن تظهر فيه الأرقام تلقائيا لايوجد فيه الأداة بحيث البيانات التي ستسجل في الـ text ستخزن في قاعدة البيانات

ولكن الأداة في فورم البحث

:lol:

#4

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

هل تريد عند أضافة مستعير جديد >>>> أعطاءه رقم او ID خاص به ؟

بالتوفيق .........

A7med_prof

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#5

قم بإجاد اكبر رقم معطى له

وقم باضافة رقم واحد عليه + 1

لن اوفي ابدا ما قدمه لي هذا المنتدى

سامر

#6

كود لتوليد فورم جديد :

Private Sub Command1_Click()
	Dim Form As New form1
	Load Form
	Form.Visible = True

	Form.Command1.Enabled = False
	Form.Caption = "arafa"
	Form.MousePointer = 2
End Sub

أخي للأسف حاولت زيادة رقم في الكابشون تبع الفورم الجديد لكن لا جدوى , أنظر إلى السطر الثاني : "As New Form1" يعني هيضع جميع

الأدوات والخصائص الخاصة بالفورم الأصلي في جميع الفورمات الأخرى

نصيحة : اضغط CTRL + T واختر Microsoft Windows Common Contrls 6.0 وأدرج الأداة TapStrip وضع الكود التالي :

Private Sub Command1_Click()
	TabStrip1.Tabs.Add
End Sub

Private Sub Form_Load()
	TabStrip1.Height = 2775
	TabStrip1.Width = 3255
End Sub

علاء VB

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#7 
Dim x As Double
Randomize
x = Int((10000 * Rnd) + 1)

هذا الكود ينتج ارقام عشوائية من 1 الي 10000 اذا اردت الزيادة فزيد 10000 صفر اضافي حيث يتم توليد ارقام من 1 الي 100000 ويمكنك فعل العكس

ارجو تحميل المثال

اخوكم ابراهيم

Kindy_Randomaiz.rar

تم تعديل هذه المشاركة بواسطة kindy_ibrahim في 29 أبريل 2007 في 19:13

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

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

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