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

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

مغلق
بدأه TeT_TaT في 17 أبريل 2006 · 13 رد · 1,062 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

هذه اول مشاركه لي في هذا الصرح العملاق

درست لغه البرمجه فجوال بيسك قبل اربعه سنوات , كانت الدوراه مقدمه ولكن للأسف الاربعه سنوات هذه محت كل ما درسته في تلك الدوره

ارغب منكم مساعدتي في برنامج بسيط جداً وليس فيه اي تعقيد يذكر .

البرنامج عباره عن اله حاسبه خاصه قمت بتصميم الفريم الاساسي لها ولكن بقى الاكواد بالطبع هي عليكم

هذا هو شكلها

16257.gif

مااريده هو اريد وضع ممجموعه من الاسماء في Combo1 وليكن عده مثلا

مفكات

مطارق

ازميل

و Combo 2 أسماء اخرى

ونقاط الاختيار اسماء اخرى

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

مثلا من كمبو 1 اختار المطرقه سعرها 30

من كمبو 2 اختار منشار سعره 15

من الختيارات مسماير ب 5 ريال

اريد ان يظهر المجموع في صندوق Total

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

#2

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

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

#3

مرحبا

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

: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)

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

أستضافة مواقع (Website Hosting) ابتداء من 35دينار اردني (50$) سنوي 962799247524+ أضغط هنا

logo.png

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

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

عموماً

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

#5

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

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

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

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

combo1

combo2

combo3

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

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#7

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

#8

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

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#9

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

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

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

مثل

form1_load ( )

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

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

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

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

command1_click ( )
combo1.additem text1
end sub

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

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

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

وهو الافضل

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

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

#10

شمس الزناتي

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

yasserstars

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

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

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

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

complie error

Ambiguous name deteted : form _load

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

#11

معليش ياشباب

الغلط مني

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

بس checkbox لو تكرمت

وسؤال

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

#12

وعلشاني طماع

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

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

#13

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

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

تم تعديل هذه المشاركة بواسطة miss-java في 1 فبراير 2007 في 13:38

#14

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

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

_______TeT_TaT.zip

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

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