تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج جامباز gambas 3
#1
بسم الله الرحمن الرحيم

لقد جرّبت برنامج جامباز كبديل لفيجوال بيزيك دوت نت
وقمت بمساعدة صديق لي يدراسة البرمجة وتطبيق بعض الأمثلة من هذا الكتاب على جامباز

https://librebooks.org/become-a-visual-b...n-10-days/

ولكن هناك اختلافات طفيفة في الكود بين جامباز
Gambas 3
وبين فيجوال بيزيك دوت نت

وقد أفادني هذا الكتاب
http://distro.ibiblio.org/vectorlinux/Ue...-guide.pdf

في معرفة كيفية التغلب على وجود تلك الاختلافات

وهذا ما كتبته سابقا
https://www.kutub.info/library/book/19620
عن كيفية عمل برنامج بسيط


وسوف أقوم إن شاء الله بتنزيل البرامج التي قمنا بتصميمها هنا في هذا الموضوع

البرنامج رقم 0 هو مجرد تعريب للبرنامج المكتوب السابق لحساب الضغط

لاحظ أن: كل اسم Name سواء كان اسم المشروع project name أو اسم صندوق نص textbox name أو اسم عنوان label name أو اسم زر button name أو أي اسم آخر يكتب بحروف إنجليزية بدون مسافات وبدون كثير من الرموز ولكن يمكنك وضع شرطة تحتية _ داخل الاسم للفصل مثل: Calculation_Button

أما النص text لكل ما سبق فإنه يمكنك كتابته كما تشاء ويمكنك كتابته باللغة العربية كذلك عنوان المشروع Project Title ونص الفورم Form text الذي يكتب كعنوان للفورم

وهذا هو الكود البرمجي الخاص بالبرنامج: (اضغط على الزر Button1 نقرة ثنائية double click لكتابة البرنامج)

Public Sub Button1_Click()
Dim rho As Single
Dim g As Single
Dim h As Single
Dim p As Single

rho = TextBox1.Text
g = TextBox2.Text
h = TextBox3.Text

p = rho * g * h

Message(p)

End


والملف المرفق هو صورة للفورم


الملفات المرفقة الشكل المصغر
   
الرد
#2
بسم الله الرحمن الرحيم


البرنامج الأول : عمل محمد ورداني و أحمد البسيوني
                       مأخوذ من مذكرة مادة في المعهد العالي للحاسبات ونظم المعلومات الإدارية HICMIS في مصر

هو برنامج حساب متوسط ثلاثة أرقام

وهو يشبه البرنامج السابق


إلا أننا قمنا بتلوين النص text  في العناوين labels والزر button باللون الأزرق وذلك باستخدام الأداة التي تشبه القلم والمبينة في الصورة
اختر الجزء المراد تلوين خطه ثم اختر الأداة التي تشبه القلم لتلوين الخط
وطريقة أخرى : اختر الجزء المراد تلوينه ثم اختر الخاصية Foreground ثم اضغط على النقاط الثلاث المتراصة لتغيير لون الخط

كذلك قمنا باستخدام الدالة Val وهي مسئولة عن تحويل سلسلة المحارف string إلى قيمة عددية

وهذا هو الكود البرمجي: (اضغط على الزر Button1 نقرة ثنائية double click لكتابة البرنامج)


Public Sub Button1_Click()

Dim A, B, C, D As Single

A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)
D = (A + B + C) / 3

Message(D)


End


والصورة المرفقة تبين الفورم والأداة التي تشبه القلم والمستخدمة في تلوين الخط


الملفات المرفقة الشكل المصغر
   
الرد
#3
بسم الله الرحمن الرحيم


البرنامج الثاني  : عمل محمد ورداني و أحمد البسيوني
                       مأخوذ من مذكرة مادة في المعهد العالي للحاسبات ونظم المعلومات الإدارية HICMIS في مصر

هو برنامج حساب متوسط ثلاثة أرقام أيضا

وهو يشبه البرنامج السابق ولكن مع زيادة زر يقوم بمسح الأرقام والنتائج

وذلك لتسهيل إعادة كتابتها مرة أخرى

وهذا هو الكود البرمجي لزر الحساب

Public Sub Button2_Click()
Dim a, b, c, avg, sum As Single
a = Val(textbox1.text)
b = Val(textbox2.text)
c = Val(textbox3.text)
  sum = a + b + c
  avg = sum / 3
  Label7.text = sum
  Label8.text = avg

End Sub



وهذا هو الكود البرمجي لزر المسح

Public Sub Button1_Click()

  textbox1.text = ""
  textbox2.text = ""
  textbox3.text = ""
  Label7.text = ""
  Label8.text = ""
 
  End Sub




حيث نجعل النص text لكل من الصناديق النصية textboxes والعناوين labels التي تعرض النتائج يكون لا شيء ولذلك نضع أقواس تنصيص مزدوجة بينها "لا شيء"
لاحظ أن : عند كتابة سلسلة المحارف string فإننا نضعها دائما بين أقواس تنصيص مزدوجة مثل هذه "string"

أيضا قمنا بالإضافة إلى تلوين الخطوط بتلوين الخلفيات عن طريق الأداة التي تشبه دلو الألوان
وطريقة أخرى : اختر الجزء المراد تلوين خلفيته ثم اختر الخاصية Background ثم اضغط على النقاط الثلاث المتراصة لتغيير اللون

والصورة المرفقة تبين الفورم والأداة التي تشبه دلو الألوان والخاصية Background


الملفات المرفقة الشكل المصغر
   
الرد
#4
بسم الله الرحمن الرحيم

كيفية عمل ملف تنفيذي

بعد عمل البرنامج وإنهاؤه يمكنك تشغيله عن طريق جامباز

ولكن ماذا إن كنت تريده أن يعمل بشكل مستقل أي دون تشغيل جامباز

عندها ستذهب إلى قائمة (المشروع) ثم تذهب إلى (إنشاء) ثم (ملف تنفيذي...)

كما هو مبين في الصور المرفقة

ثم احفظ الملف التنفيذي في المكان الذي تريده

ثم أغلق جامباز

الآن، اذهب غلى المكان الذي حفظت فيه الملف التنفيذي والذي امتداده
.gambas
ثم قم بتشغيل البرنامج وسيظهر إن شاء الله كما هو مبين في الصور

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

السبب أننا استخدمنا متغير من نوع Single وهو ذو دقة محدودة


الملفات المرفقة الشكل المصغر
       
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف