فجوال بيسك

يا إخوان

معقوله مافيه احد يقدر يحل مشكلتي !!!!!!!!!!!!!!!!!!!!!!

السلام عليكم .....

لم أستطع تحميل البرامج من الوصلة المذكورة أرجو شرح البرنامج أو عرضه بالكامل في المنتدى ... وسأحاول بإذن الله أن أحل المشكلة إن استطعت ....

مشكور يالمتحدي على ردك :

البرنامج الاول اللي انا مسويه عباره عن list يعني يختار المستخدم من list اسم وينقر عليه وبعدين راح يظهر له معلومات عن كل اسم نقر عليه في مربع نص فارغ .

وهذا الكود حقه

Private Sub Form_Load()

List1.AddItem "السعودية"

List1.AddItem "مــصــر"



End Sub

Private Sub List1_Click()

Label3.Caption = List1.Text

List1.ListIndex SELECT Case

case0

Label4.Caption Case1 = "السعودية بلد في الجزيرة العربية في قارة أسيا "

Case1

Label4.Caption = "مصر بلد إفريقي "

End Select

End Sub

البرنامج الثاني

عباره عن آله حاسبه يدخل المستخدم عددين وبعدين يختار العمليه المطلوبه هل هي جمع او طرح او ضرب او قسمة من خلال التأشير عليه ، لكن البرنامج يقول فيه خطأ بالكود

وهذا الكود حقه

Private Sub Command1_Click()

Dim A, B As Single

A = Text1.Text

B = Text2.Text

If Cheek1.Value = 1 Then Text3.Text = "حاصل الجمع=" & A + B

If Cheek2.Value = 1 Then Text4.Text = "حاصل الطرح=" & A - B

If Cheek3.Value = 1 Then Text5.Text = " حاصل الضرب=" & A * B

If Cheek4.Value = 1 Then Text6.Text = "حاصل القسمة=" & A / B

End Sub

وأرجو اني اكون قد وفقت في فهمك واي استفسار انا حاضر

السلام عليكم...

أخي أبو عرب

أما البرنامج الأول فالصحيح هو كالتالي:

Private Sub Form_Load()
List1.AddItem "السعودية"
List1.AddItem "مــصــر"

End Sub
Private Sub List1_Click()
Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = "السعودية بلد في الجزيرة العربية في قارة أسيا "
Case 1
Label4.Caption = "مصر بلد إفريقي "
End Select
End Sub

والثاني بالطريق ان شاء الله

السلام عليكم

أخي أبو عرب السؤال الثاني الكود الصحيح:

Private Sub Command1_Click()
Dim A, B As Single
A = Text1.Text
B = Text2.Text
If Check1.Value = 1 Then Text3.Text = "حاصل الجمع=" & A + B
If Check2.Value = 1 Then Text4.Text = "حاصل الطرح=" & A - B
If Check3.Value = 1 Then Text5.Text = " حاصل الضرب=" & A * B
If Check4.Value = 1 Then Text6.Text = "حاصل القسمة=" & A / B
End Sub

وانا حاضر على الدوام ان شاء الله ، وحياك الله..;)

جزاك الله خير وماقصرت وانا الحين ابجربها واشوف