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

كيف اختصر هذا الكود

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

تحيه طيبه

لدى قائمه كبيره باسماء الطلاب والدرجات

مئات الطلاب ويذيد

هل يمكن اختصار هذاالكود

Private Sub Combo1_Click()
If Combo1.Text = "احمد" Then
Label1.Caption = "4585"
Else
If Combo1.Text = "على" Then
Label1.Caption = "4212"
Else
If Combo1.Text = "ابراهيم" Then
Label1.Caption = "8555"
Else
If Combo1.Text = "جمال" Then
Label1.Caption = "1114"
Else
If Combo1.Text = "كريم" Then
Label1.Caption = "4115"
Else
If Combo1.Text = "عزت" Then
Label1.Caption = "78559"
Else
If Combo1.Text = "علاء" Then
Label1.Caption = "3389"
Else
If Combo1.Text = "وائل" Then
Label1.Caption = "8954"
Else
If Combo1.Text = "هانى" Then
Label1.Caption = "2245"
Else
If Combo1.Text = "مروان" Then
Label1.Caption = "8625"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

المثال بالمرفقات

a.rar

تم تعديل هذه المشاركة بواسطة eldahawe في 8 مارس 2008 في 07:32

[/وسط]

#2

طيب لو ملهاش اختصار

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

فى انتظار الرد

بارك الله فيكم

[/وسط]

#3

تستطيع تعمل قاعدة بيانات وتخزن فيها الأسماء والأرقام وكل ما اخترت اسم من combo1 يعمل استعلام من قاعدة البيانات بهذا الاسم .

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

والسلام للجميع

تم تعديل هذه المشاركة بواسطة موسى حكمي في 8 مارس 2008 في 16:45

#4

الف شكر على الرد اخى الكريم

ولكنى لاريد قواعد بيانات

اذا لايمكن اختصار الكود كيف اعمل Module

وشكرا مره اخرى

[/وسط]

#5

الف شكر على الرد اخى الكريم

ولكنى لاريد قواعد بيانات

اذا لايمكن اختصار الكود كيف اعمل Module

وشكرا مره اخرى

الف شكر على الرد اخى الكريم

ولكنى لاريد قواعد بيانات

اذا لايمكن اختصار الكود كيف اعمل Module

وشكرا مره اخرى

[/وسط]

#6 
Select Case Combo1.Text
Case "ÇÍãÏ"
Label1.Caption = "4585"
Case "Úáí"
Label1.Caption = "4212"
Case "ÇÈÑÇåíã"
Label1.Caption = "8555"
Case "ÌãÇá"
Label1.Caption = "1114"
Case "ßÑíã"
Label1.Caption = "4115"
Case "ÚÒÊ"
Label1.Caption = "78559"
Case "ÚáÇÁ"
Label1.Caption = "3389"
Case "æÇÆá"
Label1.Caption = "8954"
Case "åÇäí"
Label1.Caption = "2245"
Case "ãÑæÇä"
Label1.Caption = "8625"
End Select

a.rar

تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 8 مارس 2008 في 18:28

startingprogremmer.jpg
#7

أخي الكريم ، بغض النظر عن كيفية جلب البيانات سواء في قاعدة بيانات أو ملف بيانات أو مسجل النظام أو.... الي آخرة .

المهم ، آداة الـ Combo Box و الـ List Box يحتويان علي خاصيتين مهمين جداً ، وهما :

الأول ، تعلمها جيداً وهو AddItem ، هذا الإجراء وظيفتة الرئيسية هو إنشاء Item جديد أو عنصر جديد داخل قائمة عناصر الكومبو .

الثاني ، هي خاصية ItemData ، هذه الخاصية تحمل مصفوفة رقمية يمكننا اللجوء إليها في أي وقت نحتاج إليها ، ولكن يجب تحديد كل عنصر من عناصر ItemData اثناء جلب البيانات مرة واحدة كما يلي :

نفرض أننا لدينا ملف تسلسلي كما يلي :

"1000","Ahmed"
"1001","Usif"
"1002","Sara"
"1010","Amgad"
"1090","Ehab"
"2500","Dalya"

فيمكننا جلب العمودين سواء الرقم أو الإسم في الـ Combo بحيث أن الـ List تمثل الإسم ، أما الـ ItemData تمثل الرقم الكودي 

Dim strCode As String,strName As String
Open App.Path & "\Data.dat" For Input As #1
Do While Not EOF(1)
	 Input #1, strNumber,strName
	 Combo1.AddItem strName
	 Combo1.ItemData(Combo1.ListCount - 1) = Val(strNumber)
Loop
Close#1

وهذا يتم إستدعائة مرة واحدة أثناء الـ Loading لبرنامجك مثل Main أو Form Load .

بعد ذلك يمكننا إخراج القيمة الرقمية بكل بساطة كما يلي :

If(Combo1.ListIndex > -1)Then
	Me.Caption = Combo1.ItemData(Combo1.ListIndex)
End If

شكراً ، وبالتوفيق

تم تعديل هذه المشاركة بواسطة MMA_EG_Cairo في 9 مارس 2008 في 06:20

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

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