من يساعدني في جملةSelect Case

[طالبة برمجة]

المطلوب برنامج دول+عواصم لما أختار اسم الدولة تظهر لي عاصمتها ،،
وضعنا Button1+
ListBox+Label1
والبرمجه كتبنها في الform
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
ListBox1.Items. Add("المملكة")
ListBox1.Items. Add("مصر")
ListBox1.Items. Add("سوريا")
ListBox1.Items. Add("الاردن")

= = = = فمين يساعدني بالتكمله باستخدام الجملةجملةSelec t Case بحيث اني لو اخترت الممكلة تظهر لي الرياض ..... إلخ ؟؟
في انتظاركم وجزاكم الله خير

[طالبة برمجة]

لازلت في الانتظااااااااا اااار

[Admas]

ما عندي خلفيه بالبرمجه
لكن عندي برنامج بسيط جداً يعرض بعض عواصم العالم
إذا تريدين البرنامج أخبريني


Admas

[طالبة برمجة]

جزاك الله خير على مرورك ، ياليت اشوف البرنامج ،
واتمنى مساعدة البقية ؟

[فردوس]

بإذن الله أساعدك ...

بس دحين مشغوووووووووولة ...

الساعة 10 تكون عندك الاجابة ,,, بإذن الله..

[طالبة برمجة]

مشكووووووره فردوس وأنا بإنتظارك باذن الله :)

[فردوس]

Select case in region

Case txtbox1.txt="Saudi Arabia"
Print "Riyadh"
Case txtbox1.txt=" Egypt "
Print "Cairo"
Case txtbox1.txt=" Syria "
Print "Damascus"
Case txtbox1.txt="Jordan"
Print "Amman"
Else
Msgbox"not founr region"
End select.

حاولت أنزل البرنامج ،،، بعد طلوع الروح لقيته بعدين ما رضي يتثبت كل شوي يطلع error

فحاولت أن أكتب البرنامج دون تنفيذه ...

المهم كتبت الكود ع اعتبار ان الفورم يحتوي على :
http://www.m5zn.com/uploads/f9a637d072.png


لو كتب في بداية الفورم :

حتى تتعرف على عواصم الدول الآتية: Saudi Arabia – Egypt – Syria – Jordan

أدخل اسم الدولة بداخل الحقل ...


*** يا رب أكون ساعدتك ***

[طالبة برمجة]

الله يوسع عليك دنيا واخره ويجزاك خير ماقصرتي

[فردوس]

الله يوسع عليك دنيا واخره ويجزاك خير ماقصرتي

آميــــــــــــ ــــن يا رب ...

الحمد لله انك انبسطتي..

[طالبة برمجة]

مشكووره بس معليش رفض يتنفذ :( مع اني وضعت تكست+ليبل والبرمجة كتبتها بالفورم ؟؟؟ يطلع لي خطأ ؟
ممكن تفصيل اكثر :(

[فردوس]

أكتبي البرمجة في التكست ..

بانتظار النتائج ..

[فردوس]

شيلي كلمة box و اكتبي txt1 فقط ...

أظن أن العبارة البرمجية txt1 و لي txtbox !!!

لو قدرتي أعطيني رابط v.b عشان أحمله ع جهازي و أجرب..

[فردوس]

في نهاية التعليمات البرمجية...يعني نهاية الكود ،،، يجب أن يوجد 3 end
end
end select
end subو هذا السطر موجود تلقائياً ...

انتظرك,,

[فردوس]

لا تضعي ليست بوكس..

ماله دخل في البرنامج ...

طيب يا عيني :: شيلي عبارة else وعبارة الـ msgbox

و شوفي النتيجة و خبرينا...

[طالبة برمجة]

شلتهم وقال فيه غلط !
عموما ماقصرتي والله يبيض وجهك اسفه تعبتك معاي ، بحاول اجربها على جهاز ثاني بكره ان شاء الله واشوف .

[فردوس]

يالله عيني تصبحي ع خير ....

و لو قدرتي أعطيني رابط البرنامج v b حملي من جهازك على أي مركز للتحميل ...

عشان أعطيك البرنامج كااااااااامل و يبيض الوجه...

[al_fanar]

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


اهلا اختي "طالبه مبرمجه" ,,,, :f:

عملت البرنامج اللي طلبتيه بالأشياء اللي تبغينها
بس مااعرف صراحه كيف يتحمل البرنامج بكبره
فباشرح لك الشغل بالتفصيل ...

اولا : هذه الفورم الأساسيه ==> تحتوي على :

1) ListBox : لوضع اسماء الدول
2) Label : لوضع اسم العاصمه بناء على اختيارك من ListBox
وما أدري ايش تقصدين بوظيفة الــ button عشان كذا ماأضفته للفورم .


http://www.graaam.com/up//thumbs/d2736256ad.bmp (http://www.graaam.com/up/p7ic/d2736256ad.bmp)

==============

والكود هو كالآتي :

Public Class Form1

Private Sub ListBox1_Select edIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArg s) Handles ListBox1.Select edIndexChanged

Select Case ListBox1.Select edIndex
Case 0
Label1.Text = "الرياض"
Case 1
Label1.Text = "القاهرة"
Case 2
Label1.Text = "دمشق"
Case 3
Label1.Text = "الأردن"
End Select
End Sub

Private Sub Label1_Click(By Val sender As System.Object, ByVal e As System.EventArg s) Handles Label1.Click


End Sub

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
Label1.Text = "الرياض"
End Sub
End Class


===========


أتمنى أكون افدتك وإذا عندك اي استفسار انا جاهزه

تحيتي ..... الفنـــــــــــ ــــار

[طالبة برمجة]

مرحبا اختي الفنار الله يعطيك العافيه ،
ولكن لازلت اعاني يطلع لي الخطأ تحت أول select case ?????

[n7la]

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

تحياتي......... .

[طالبة برمجة]

شكرا اختي وانا لازلت احاول بهالبرنامج ، اذا تقدري جربي معانا ؟:(

[ahmed abd elfatah]

select case listbox1
case listbox1.item="المملكة"
label1.caption="الرياض"
وهكذا لباقى الدول واذا كان فى خطأ انا هحاول اكتبة مرة تانية

[ahmed abd elfatah]

اعتبار انكى وضعتى 1command,1label ,list
قومى بإضافة الشيفرات التالية

Private Sub Command1_Click( )
Select Case List1.ListIndex
Case 0
Label1.Caption = "C???C?"
Case 1
Label1.Caption = "C??C??E"
Case 2
Label1.Caption = "EUICI"
End Select
End Sub
Private Sub Form_Load()
List1.AddItem "C?????E"
List1.AddItem "???"
List1.AddItem "C???C?"
End Sub

[ahmed abd elfatah]

:winner_first_h 4h_al فقط اضيفى الشفرات التالية كما هى فى نافذة الشيفرة.
وان كانت هناك اى شيفرات موجودة امسحيها . مثل Private Sub Command1_Click( )
:winner_first_h 4h_al
Private Sub Command1_Click( )
Select Case List1.ListIndex
Case 0
Label1.Caption = "السعودية"
Case 1
Label1.Caption = "مصر"
Case 2
Label1.Caption = "العراق"
End Select
End Sub
Private Sub Form_Load()
List1.AddItem "الرياض"
List1.AddItem "القاهرة"
List1.AddItem "بغداد"
End Sub

[أم جمانه]

http://www.m5zn.com/uploads/f9a637d072.png

المشكلة لو كتب المستخدم اسم الدولة خطأ و لو في حرف ماراح يطلع شيء

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




أكتبي البرمجة في التكست ..

بانتظار النتائج ..




الافضل تكتب في كوماند او في الفورم مباشرة

في شيء كمان

الأمر print يطبع النتيجة ع الفورم

اما اذا أردتي النتيجة على ليبل فتكتبي هالكود

label1.caption="Amman"

[Ahmad]

للأسف لا أستطيع المساعدة

[sagia]

السلام عليكم
هذا هو الحل وهو سهل جدا فقط ضعي هذا الكود بين كلمة
PublicClass Form1
و
EndClass


PrivateSub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) HandlesMyBase.L oad
Label1.Text = ""
ListBox1.Items. Add("المملكة")
ListBox1.Items. Add("مصر")
ListBox1.Items. Add("سوريا")
ListBox1.Items. Add("الاردن")
EndSub
PrivateSub ListBox1_Select edIndexChanged( ByVal sender As System.Object, ByVal e As System.EventArg s) Handles ListBox1.Select edIndexChanged
SelectCase ListBox1.Select edIndex
Case 0
Label1.Text = "الرياض"
Case 1
Label1.Text = "القاهرة"
Case 2
Label1.Text = "دمشق"
Case 3
Label1.Text = "الأردن"
EndSelect
EndSub

[أم جمانه]

ممتاز ساجيا

بس ترى الاردن عاصمتها عمّان :shiny:

[sagia]

السلام عليكم
صحيح الاردن عاصمتها عمان لكن ما كنت مركز أهم شي الحل صحيح واذا احتجتو شي تراني جاهز اي لغة (c++,php,ASP,AS P.NET,.NET,JAVA ,**********,HTM L) وشكراً.