مطلوب المساعده في انشاء اله حاسبه

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

معقول طلبي صعب عليكم

مرحبا

ربما فهمت بعض من السؤال وساجاوب بقدر ما فهمت

:lol:

Dim vcom1, vcom2, vcom3 As Integer
Dim txtcom1, txtcom2, txtcom3 As String

Private Sub Form_Load()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Text1.Text = ""
Command1.Caption = "تــم"

txtcom1 = "مطرقة"
txtcom2 = "مفك"
txtcom3 = "ازميل"

Combo1.AddItem txtcom1
Combo1.AddItem txtcom2
Combo1.AddItem txtcom3

Combo2.AddItem txtcom1
Combo2.AddItem txtcom2
Combo2.AddItem txtcom3

Combo3.AddItem txtcom1
Combo3.AddItem txtcom2
Combo3.AddItem txtcom3

End Sub

Private Sub Combo1_Click()
Select Case (Combo1.Text)
Case Is = txtcom1
vcom1 = 30
Case Is = txtcom2
vcom1 = 20
Case Is = txtcom3
vcom1 = 10

Case Else
vcom1 = 0
End Select
End Sub


Private Sub Combo2_Click()
Select Case (Combo2.Text)
Case Is = txtcom1
vcom2 = 30
Case Is = txtcom2
vcom2 = 20
Case Is = txtcom3
vcom2 = 10

Case Else
vcom2 = 0
End Select
End Sub



Private Sub Combo3_Click()
Select Case (Combo3.Text)
Case Is = txtcom1
vcom3 = 30
Case Is = txtcom2
vcom3 = 20
Case Is = txtcom3
vcom3 = 10

Case Else
vcom3 = 0
End Select
End Sub

Private Sub Command1_Click()
Text1.Text = vcom1 + vcom2 + vcom3 & "     ريـــــــــــــال "

End Sub

ير جى الالتزام باسماء الكونترول الاستاندر في الـ vb

و من ثم قم بنسخ الكود ولصقه

وشكر للجميع (h)

اقتباس

ير جى الالتزام باسماء الكونترول الاستاندر في الـ vb

وش المقصود بهذا

عموماً

انا نسخت ولكن في خطأ

اخذتني الفرحه برد احدهم ونسيت اقول

الف شكر الف على المساعد والمحاوله

اقتباس

ير جى الالتزام باسماء الكونترول الاستاندر في الـ vb

يقصد انه عند التصميم يكون الكومبو بوكس مرتبة

combo1

combo2

combo3

و هكذا فلا تقم يتغيير تلك الاسماء

طيب انا نسخت الموجود ولكن في خطا

اخى تأكد من انك حذفت اي كود موجود في الفورم كلها مهما كان هذا اكود و الصق الكود المكتوب

اولا اريد ان اسئلك سؤال ما فائدة checkbox الموجود في النافذة ؟

وسارد علي جزئية مما فهمت

اذا اردت ان تضيف الاسماء الي الكمبو بوكس فاذا كنت عارف الاسماء يمكن اضافتها في حدث التحميل

مثل

form1_load ( )

combo1.adaitem "المطرققة"
combo1.adaitem "ازميل "
combo1.adaitem "مفكات"
'اذا اردت كتابة اي شي اخر يمكن ان تضيفة بالطريقة السالقة 
end sub

اما اذا كنت ستضيف اشياء اخر الي القائمة اثناء عمل البرنامج

فانصح باضافة خانة تكست وزر كوماند لكي تضيف الي القائمة اثناء البرنامج

وسيكوند كود الاضافة في الكمبو هو

command1_click ( )
combo1.additem text1
end sub

حيث سيتم كتابة الشي المراد اضافتة الي القائمة في التكست واضافتة عن طريق النقر علي الزر

ولكن هذا لا يكون موجود في القائمة عند غلق البرنامج وفتحة مرة اخري اللا المكتوب في حدث التحميل

ولتلافي ذلك علي استخدام قاعدة بيانات لذلك

وهو الافضل

ارجو ان اكون وفقت في الرد علي ما فهمتة من طلبك

وانا تحت امرك في اي شيئ اخر

شمس الزناتي

انا فتحت فورم جديد اصلاً

yasserstars

اريد ان اضع امامه اسماء واثبت به قيم معينه

يعني عادي مرره

انا لن اظيف اي شيئ بعد انهاء البرنامج انا ساضع قيم ثابته

يظهر لي خطا عند تشغيل البرنامج

complie error

Ambiguous name deteted : form _load

شاكرا لكم جهدكم

معليش ياشباب

الغلط مني

كل شي شغال تمام

بس checkbox لو تكرمت

وسؤال

هل اقدر اضيف اكثر من صوره في البرنامج ؟

وعلشاني طماع

ابغى اسوي ازار كومند عادي

بس لمن اضغط عليه يروح لموقع معين

بحاول اساعدك باللي اقدر عليه ان شاءالله .. بس اصبر علينا شوي ...

وبالتوفيق للجميع

أخي تيت تات ..ألبرنامج في المرفقات ..وانا رفعته لتعم الفائدة ان شاءالله واذا كانت هناك اي ملاحظة ارجو اخباري..

وبالمناسبة انا لم اضع كود لفتح موقع بالانترنت وارجو ان تضعه انت .. وبارك الله في الجميع ..

_______TeT_TaT.zip