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

مشكله بكود الليست ..

مغلق
بدأه al-mdar في 11 يناير 2007 · 2 رد · 491 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي برنامج فيجول بيسك اعطي لي على شكل واجب

ولكن الكود فيه خطأ

 Private Sub Command1_Click()
Dim n As String, m As String, i As Integer
i = List1.ListIndex
n = Text1.List(i)
m = Combo1.Text
If n = "ßÇãÑí" And m = "2000" Then
Text1.Text = "42000"
ElseIf n = "ßÇãÑí" And m = "2001" Then
Text1.Text = "46500"
ElseIf n = "ãÇßÓíãÇ" And m = "2001" Then
Text1.Text = "41000"
ElseIf n = "ãÇßÓíãÇ" And m = "2002" Then
Text1.Text = "55000"
ElseIf n = "ÝæÑÏ" And m = "1999" Then
Text1.Text = "32000"
ElseIf n = "ÝæÑÏ" And m = "2000" Then
Text1.Text = "38000"
ElseIf n = "åæäÏÇ" And m = "1999" Then
Text1.Text = "38000"
ElseIf n = "åæäÏÇ" And m = "2000" Then
Text1.Text = "43000"
Else
Text1.Text = "áÇ íæÌÏ ÓíÇÑÉ ÈåÐå ÇáãæÇÕÝÇÊ"
End If
End Sub

هذا هو الكود

والبرنامج كامل بالمرفقات

ارجو مساعدتي اللله يوفقكم

تحياتي

brnamj.zip

#2

تفضل الكود بد التعديل

Private Sub Command1_Click()
Dim n As String, m As String, i As Integer
n = List1
m = Combo1
If n = "ßÇãÑí" And m = "2000" Then
	Text1.Text = "42000"
	ElseIf n = "ßÇãÑí" And m = "2001" Then
	Text1.Text = "46500"
	ElseIf n = "ãÇßÓíãÇ" And m = "2001" Then
	Text1.Text = "41000"
	ElseIf n = "ãÇßÓíãÇ" And m = "2002" Then
	Text1.Text = "55000"
	ElseIf n = "ÝæÑÏ" And m = "1999" Then
	Text1.Text = "32000"
	ElseIf n = "ÝæÑÏ" And m = "2000" Then
	Text1.Text = "38000"
	ElseIf n = "åæäÏÇ" And m = "1999" Then
	Text1.Text = "38000"
	ElseIf n = "åæäÏÇ" And m = "2000" Then
	Text1.Text = "43000"
Else
Text1.Text = "áÇ íæÌÏ ÓíÇÑÉ ÈåÐå ÇáãæÇÕÝÇÊ"
End If
End Sub

كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر

#3

اشكرك ياخوي

وما قصت معاي

بس لسا فيه خطا

يطلع على اليست تضليل اصفر

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…