برامج نت

 
العودة   برامج نت > منتديات الكمبيوتر والأنترنت > منتدى مبرمجين لغات البرمجة
صفحة برامج نت الرسمية على الموقع التواصل الاجتماعي فيسبوك
 

منتدى مبرمجين لغات البرمجة يناقش هاذا المنتدى لغات البرمجة فيجوال بيسيك , فيجوال سي ++ , دلفي , أكسيس , أوراكل , جافا , الاسمبلي







قلعة برامج نت للشروحات
Used Cars - تاريخ انتهاء الإعلان 2014-05-15 برامج






في حال وجود أي مواضيع او ردود مُخالفة من قبل الأعضاء ، يرجى الإبلاغ عنها فورا باستخدام أيقونة تقرير عن مشاركة ( تقرير عن مشاركة مخالفة ) ، و الموجودة أسفل كل مشاركة .





إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 12-27-2007, 03:35 PM   #1
Aboud Aboud
مشرف منتدى مبرمجين لغات البرمجة
 
الصورة الرمزية Aboud Aboud
 
تاريخ التسجيل: Apr 2007
الدولة: East or West SYRIA is Best
الجنس : ذكر
الهوايات: programming
المشاركات: 7,360
معدل تقييم المستوى: 231
Aboud Aboud will become famous soon enoughAboud Aboud will become famous soon enough

Lightbulb الدرس الأول من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة آلة حاسبة )


الدرس الأول من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة آلة حاسبة )

اتبع الخطوة :

1- افتح برنامج الفيجوال بيسك واختر مشروع جديد

-----------
2- اضف :

Textbox 2
4 Commandbutton
1 Label

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



-----------
3- الآن وقت تغيير الخصائص

~~~~~~~~~
خصائص Form

الآلة الحاسبة = Form1.Caption
لجعل اسم البرنامج (الآلة الحاسبة)

Form1.BorderStyle = Fixed Dialog
لظهور ايطار بزر (اغلاق) فقط

~~~~~~~~~
خصائص ال Textbox و Label

Label.Alignment = Center
Text1.Alignment = Center
Text2.Alignment = Center
لجعل الكتابة في الوسط

فارغ = Text1.Text
فارغ = Text2.Text
فارغ = Label.Caption
لافراغ النصوص

~~~~~~~~~
خصائص ال Commandbutton

جمع = Command1.Caption
طرح = Command2.Caption
قسمة = Command3.Caption
ضرب = Command4.Caption

لتصبح كما في الصورة



-----------
4- الآن نكتب الأكواد

كود الجمع

Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 + القيمة التي في Text2

~~~~~~~~~

كود الطرح

Private Sub Command2_Click()
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 - القيمة التي في Text2

~~~~~~~~~

كود القسمة

Private Sub Command3_Click()
Label1.Caption = Val(Text1.Text) \ Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 \ القيمة التي في Text2

~~~~~~~~~

كود الضرب

Private Sub Command4_Click()
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 * القيمة التي في Text2

~~~~~~~~~

اخيرا تكون الاكواد كما في الصورة



-----------

انتهينا
آما ان تستفادوا منها




________________

الرجاء عدم الرد هنا بل الرد في ( هــــــــــذا الموضوع )







__________________


اربح بالضغط على الاعلانات

شركة Neobux أصدق شركة في هذا المجال

شركة Probux

لا تنسى الضغط على الاعلانات كل يوم

..... سوريّة الله حاميها .....

متغيّب






التعديل الأخير تم بواسطة Aboud Aboud ; 03-30-2008 الساعة 07:55 PM
Aboud Aboud غير متواجد حالياً   رد مع اقتباس


قسم ألعاب PC | قسم PlayStation 3 | قسم XBOX 360 | قسم ألعاب التورنت | قسم الجهاز المحمول PSP | قسم الدعم الفني


قديم 12-28-2007, 08:03 AM   #2
عمر الجامعي
Banned
 
تاريخ التسجيل: Dec 2007
الدولة: الجزائر
الجنس : شاب
الهوايات: المطالعة
الوظيفة: مبرمج
المشاركات: 218
معدل تقييم المستوى: 0
عمر الجامعي is on a distinguished road

افتراضي

شكرا على الكود .....
عمر الجامعي غير متواجد حالياً   رد مع اقتباس
قديم 12-28-2007, 10:47 AM   #3
Aboud Aboud
مشرف منتدى مبرمجين لغات البرمجة
 
الصورة الرمزية Aboud Aboud
 
تاريخ التسجيل: Apr 2007
الدولة: East or West SYRIA is Best
الجنس : ذكر
الهوايات: programming
المشاركات: 7,360
معدل تقييم المستوى: 231
Aboud Aboud will become famous soon enoughAboud Aboud will become famous soon enough

افتراضي

اخي لقد طلبت عدم الرد هنا
اذا احد عنده سؤال او يريد اضافة رد يكتبه على هذا الرابط







__________________


اربح بالضغط على الاعلانات

شركة Neobux أصدق شركة في هذا المجال

شركة Probux

لا تنسى الضغط على الاعلانات كل يوم

..... سوريّة الله حاميها .....

متغيّب





Aboud Aboud غير متواجد حالياً   رد مع اقتباس
قديم 01-10-2008, 09:58 AM   #4
mhy_final
عضو فعال
 
الصورة الرمزية mhy_final
 
تاريخ التسجيل: Apr 2007
الجنس : ذكر
المشاركات: 254
معدل تقييم المستوى: 88
mhy_final is on a distinguished road

افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة Aboud Aboud مشاهدة المشاركة

الدرس الأول من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة آلة حاسبة )

اتبع الخطوة :

1- افتح برنامج الفيجوال بيسك واختر مشروع جديد

-----------
2- اضف :

Textbox 2
4 Commandbutton
1 Label

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



-----------
3- الآن وقت تغيير الخصائص

~~~~~~~~~
خصائص Form

الآلة الحاسبة = Form1.Caption
لجعل اسم البرنامج (الآلة الحاسبة)

Form1.BorderStyle = Fixed Dialog
لظهور ايطار بزر (اغلاق) فقط

~~~~~~~~~
خصائص ال Textbox و Label

Label.Alignment = Center
Text1.Alignment = Center
Text2.Alignment = Center
لجعل الكتابة في الوسط

فارغ = Text1.Text
فارغ = Text2.Text
فارغ = Label.Caption
لافراغ النصوص

~~~~~~~~~
خصائص ال Commandbutton

جمع = Command1.Caption
طرح = Command2.Caption
قسمة = Command3.Caption
ضرب = Command4.Caption

لتصبح كما في الصورة



-----------
4- الآن نكتب الأكواد

كود الجمع

Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 + القيمة التي في Text2

~~~~~~~~~

كود الطرح

Private Sub Command2_Click()
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 - القيمة التي في Text2

~~~~~~~~~

كود القسمة

Private Sub Command3_Click()
Label1.Caption = Val(Text1.Text) \ Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 \ القيمة التي في Text2

~~~~~~~~~

كود الضرب

Private Sub Command4_Click()
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

جعلنا هنا Label1 = القيمة التي في Text1 * القيمة التي في Text2

~~~~~~~~~

اخيرا تكون الاكواد كما في الصورة



وهذا هو المشروع ان صعب على احدكم
-----------

انتهينا
آما ان تستفادوا منها



لقراءة الدرس على شكل Pdf





________________

الرجاء عدم الرد هنا بل الرد في ( هــــــــــذا الموضوع )

thannnnnnnnnnnnnnnks







__________________





http://mhyfinalfantasy.blogspot.com/


mhy_final غير متواجد حالياً   رد مع اقتباس
قديم 03-03-2008, 11:46 PM   #5
mochaghib_bacha
عضو فعال
 
تاريخ التسجيل: Jul 2006
الجنس : ذكر
المشاركات: 80
معدل تقييم المستوى: 93
mochaghib_bacha is on a distinguished road

افتراضي

merci+++++++++++++++++++++++
mochaghib_bacha غير متواجد حالياً   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)
للإشتراك في قروب منتديات برامج نت ليصلك كل ما هو جديد
البريد الإلكتروني:

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

منتديات الكمبيوتر والأنترنت منتديات التصاميم والجرافيكس منتدى برامج نت الطبي منتديات منوعة
منتدى البرامج الكاملة والنادرة
منتدى الفيديو والصوتيات
قسم الأجهزة الكفية
منتدى البرامج المشروحة
قسم شبكات الحاسوب Computer Networks
منتدى تطوير المواقع والمنتديات
منتدى مبرمجين لغات البرمجة
منتدى ألعاب الفيديو
منتدى عالم المحادثة
منتدى مبدعين ومحترفين الفوتوشوب
منتدى برامج وملحقات الفوتوشوب
منتدى Scrapbooking
منتدى السويتش والفلاش
منتدى التصميم ثلاثي الابعاد
منتدى التصوير الضوئي والفن التشكيلي
قسم الصور Photo / خلفيات Wallpaper
المنتدى الطبي العام
عيادة المنتدى
طب الأعشاب و الطب البديل
منتدى الكتب الطبية - Medical Books
منتدى طلاب الطب
البرامج و الصوتيات و المرئيات الطبية
عيادة طب الأطفال
منتديات المصارعة الحرة
الأفلام الوثائقية
منتدى الإسلامى
تعلم اللغات الأجنبية
غرائب وعجائب العالم
قسم كرة القدم العالميه
قسم كرة القدم العربية
برامج الجوال Mobile Software
عرض الأفلام الأجنبية
منتدى الفضائيات


اتبعني - منتديات برامج نت



الساعة الآن 01:50 AM.
Designed by bramjnet.com, TranZ By Almuhajir
Powered by vBulletin®, Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

جميع المشاركات والمواضيع في منتدى برامج نت لا تعبر بالضرورة عن رأي إدارته بل تمثل وجهة نظر كاتبها
All participants & topics in forum Bramjnet.com does not necessarily express the opinion of its administration, but it's just represent the viewpoint of its author
Youtube Download |Google Earth|WinRAR|ESET NOD32 Antivirus|Kaspersky Anti-Virus|YouTube|Windows Live Messenger|Firefox|skype|Internet Download Manager|Nero|RealPlayer|Deep Freeze