تعزيز
عملك مع الذكاء الاصطناعي - إنشاء تطبيق بالذكاء الاصطناعى
فى
البداية نود ان نسال سوال هل يمكننا عمل تطبيق كامل بالذكاء الاصطناعى؟
الاجابة
نعم ولكن هذا يحتاج الى بعض التفاصيل الدقيقة التى سوف نقوم بادخالها الى الذكاء
الاصطناعى ليخرج لنا المخرجات المطلوبة
على
سبيل المثال نريد انشاء وتصميم يوزر فورم لادخال البيانات الى شيت اسمة Data
قبل
ان نقوم بكل هذا لابد ان نعرف ماهو معنى الذكاء الاصطناعى
ماهو الذكاء الاصطناعى
الذكاء الاصطناعي هو مجال في علوم الكمبيوتر
يهتم بتطوير نماذج وأنظمة تكنولوجية تعتبر قادرة على تنفيذ مهام تتطلب تفكيرًا ذكيًا
يماثل الذكاء البشري. يهدف الذكاء الاصطناعي إلى تصميم وتطوير الأنظمة التي يمكنها
استخدام المعرفة والتعلم والتفكير واتخاذ القرارات بشكل مستقل.
تعتمد تقنيات الذكاء الاصطناعي على استخدام
البيانات والخوارزميات لمحاكاة القدرات العقلية البشرية. يتضمن ذلك مجموعة متنوعة من
التقنيات مثل تعلم الآلة (Machine Learning) والشبكات العصبية الاصطناعية
(Artificial Neural Networks) والتعلم العميق
(Deep Learning) وتعلم الإنتاجية (Reinforcement
Learning) ومعالجة اللغة الطبيعية
(Natural Language Processing) وتقنيات التحليل
الذكي (Cognitive Computing) وغيرها.
تستخدم تطبيقات الذكاء الاصطناعي في مجموعة
واسعة من المجالات، بما في ذلك التجارة والصناعة والطب والروبوتات والمراقبة والتنبؤات
والترجمة الآلية وألعاب الفيديو وغيرها الكثير. يمكن للذكاء الاصطناعي أن يساعد في
تحسين الكفاءة واتخاذ القرارات وحل المشكلات في مجموعة متنوعة من السيناريوهات والتحديات.
وبعد ان تعرفنا الى معنى الذكاء الاصطناعى
ناتى الى المثال السابق وهو انشاء تطبيق كامل بالذكاء الاصطناعى
قمنا بالدخول الى مواقع الذكاء الاصطناعى وقمنا بفتح موقع الذكاء الاصطناعى
وقمنا بسؤال الذكاء الاصطناعى هل
يمكنة مساعدتنا فى نشاء تطبيق يوزرفورم يقوم بادخال البيانات فى شيت Data
قمنا بعمل وصف دقيق للمطلوب ولكن باللغة
الانجليزية وذلك افضل طبعا
كالاتى
فى البداية قمنا بعمل وصف للفورم واسماء
التكست بوكس والازرار الموجودة
We have created a VBA user form with below details-
Name as Textbox1
Age as Textbox2
Salary as Textbox3
Department as Combobox1
Submit button as Commandbutton1
Cancel button as Commandbutton2
نقوم بتعريفة بالشيت الذى نريد ادخال البيانات فية
We have a “Data” worksheet to enter the data from the user form.
Enter the data from Row number 2. Below is the information of the worksheet
headers
راس الجدول فى سيت ادخال البيانات
Range A1 is “Name”
Range b1 is “Age”
Range c1 is “Department”
Range d1 is “Salary”
Write the VBA code to enter the data from user form to “Data”
Worksheet in new row every time on pressing “Submit” button.
نخبر الذكاء الاصطناعى اننا
نريد ان تكون قيم الموجودة فى تكست بوكس المرتب والعمل تكون قيمة موجبة
Put the validation in the code as below
1) Age and Salary should be as positive Number.
3) None of the box should be blank.
يقوم بتفريغ التكست بوكس بعد الاضافة
After adding the data into worksheet, make all the boxes blank.
نخبر الذكاء الاصطناعى ان لدينا شيت اخر اسمة Setting يقوم بجلب الاقسام منة الى الكومبو بوكس 1
We have another worksheet “Setting” Wherein we have given the list of
Department on Column A. First row is header. Department list is available from
range A2. Write the VBA code on User form load to create the Department list
from here in the Department Combo box. Make it dynamic as we add new
department, it should be added in the combo box automatically.
وفى الاخير نخبرة اننا ادرجنا زر فى شيت داتا ونريد عمل كود لاظهار
الفورم
We have added a rectangle shape on the “Data” worksheet as a button.
Write a macro to open the user form. we will assign that macro on this button
بعد ان قمنا بادخال هذة التفاصيل الى موقع الذكاء الاصطناعى اجابنا بالاتى :
بالتأكيد! إليك
رمز VBA الذي ينجز المهام التي وصفتها:
أولاً ، افتح محرر
VBA بالضغط على ALT + F11. أدخل وحدة نمطية جديدة UserForm وقم بتسميتها "UserForm1". بعد ذلك ، أضف التعليمات البرمجية التالية
إلى الوحدة النمطية UserForm:
Private
Sub UserForm_Initialize()
' Load department list from
"Setting" worksheet
Dim wsSetting As Worksheet
Dim lastRow As Long
Dim rngDepartments As Range
Dim cell As Range
Set wsSetting =
ThisWorkbook.Worksheets("Setting")
lastRow =
wsSetting.Cells(wsSetting.Rows.Count, "A").End(xlUp).Row
Set rngDepartments =
wsSetting.Range("A2:A" & lastRow)
' Clear combobox and add departments
Me.ComboBox1.Clear
For Each cell In rngDepartments
Me.ComboBox1.AddItem cell.Value
Next cell
End
Sub
Private
Sub CommandButton1_Click()
' Submit button click event
' Validate inputs
If Len(Trim(TextBox1.Text)) = 0 Or
Len(Trim(TextBox2.Text)) = 0 Or Len(Trim(TextBox3.Text)) = 0 Then
MsgBox "Please fill in all
fields.", vbExclamation
Exit Sub
End If
If Not IsNumeric(TextBox2.Text) Or
Val(TextBox2.Text) <= 0 Then
MsgBox "Please enter a valid
positive number for Age.", vbExclamation
Exit Sub
End If
If Not IsNumeric(TextBox3.Text) Or
Val(TextBox3.Text) <= 0 Then
MsgBox "Please enter a valid
positive number for Salary.", vbExclamation
Exit Sub
End If
' Add data to "Data" worksheet
Dim wsData As Worksheet
Dim lastRowData As Long
Set wsData =
ThisWorkbook.Worksheets("Data")
lastRowData =
wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row + 1
wsData.Cells(lastRowData,
"A").Value = TextBox1.Text
wsData.Cells(lastRowData,
"B").Value = TextBox2.Text
wsData.Cells(lastRowData,
"C").Value = ComboBox1.Text
wsData.Cells(lastRowData,
"D").Value = TextBox3.Text
' Clear form inputs
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
' Notify user
MsgBox "Data added
successfully!", vbInformation
End
Sub
Private
Sub CommandButton2_Click()
' Cancel button click event
' Clear form inputs
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
End
Sub
بعد ذلك ، انتقل إلى ورقة عمل "البيانات" وأدخل زر شكل مستطيل. انقر بزر الماوس الأيمن على الزر ، وحدد "تعيين ماكرو" ،
وعيّن الماكرو التالي له
Sub
OpenUserForm()
UserForm1.Show
End
Sub
الآن يجب أن تكون قادرًا على استخدام زر شكل المستطيل لفتح نموذج المستخدم.
تأكد من وجود ورقتي عمل "البيانات" و "الإعداد" في المصنف الخاص بك وتحتويان على الرؤوس والنطاقات المحددة.
هذا كل شيء! سوف
يتعامل رمز VBA مع التحقق من الصحة وإدخال
البيانات ومسح مدخلات النموذج. ستتم تعبئة قائمة الأقسام في ComboBox ديناميكيًا من ورقة عمل "الإعداد".
فئات الذكاء الاصطناعي:
- الذكاء الاصطناعي الضعيف: يشير إلى النظم التي
تنفذ مهام محددة ومحدودة، وتكون متخصصة في مجال محدد دون القدرة على تعلم أو فهم أو
تفكير شامل.
- الذكاء الاصطناعي العام: هو هدف أبعد، يتعلق
بتطوير نظم قادرة على أداء مهام ذات تعقيد عالي تشبه القدرات العقلية البشرية.
تقنيات الذكاء الاصطناعي:
- تعلم الآلة (Machine Learning): يسمح للأنظمة بتعلم النماذج والتنبؤات
من البيانات وتعديل أدائها بناءً على التجارب.
- شبكات العصب الاصطناعي (Artificial
Neural Networks):
نموذج يحاكي الشبكة العصبية في الدماغ البشري ويستخدم في تعلم الآلة والتعرف على الأنماط
ومعالجة البيانات.
- التعلم العميق (Deep
Learning):
تقنية تعتمد على الشبكات العصبية الاصطناعية ذات العديد من الطبقات لتحسين أداء المهام
المعقدة مثل التعرف على الصوت والصورة.
- معالجة اللغة الطبيعية (Natural
Language Processing):
يتيح للأنظمة فهم وتفسير وتوليد اللغة البشرية، ويستخدم في تطبيقات مثل الترجمة الآلية
ومحركات البحث وتحليل المشاعر.
- التعلم بالتعزيز (Reinforcement
Learning):
يعتمد على تعزيز النظام بمكافآت وعقوبات لتعلم وتحسين أداء المهام.
تطبيقات الذكاء الاصطناعي:
- الروبوتات والأتمتة: تستخدم في تطوير الروبوتات
ذات القدرات الذكية للأنظمة الصناعية والروبوتات المساعدة.
- الطب: يتم استخدام الذكاء الاصطناعي في تشخيص
الأمراض وتوجيه العلاج وتحسين رعاية المرضى.
- التجارة والتسويق: يستخدم الذكاء الاصطناعي في
تحسين الدقة التنبؤية وتحليل سلوك المستهلكين وتحسين تجربة العملاء.
- الأمن والمراقبة: تساعد التقنيات الذكاء الاصطناعي
في مراقبة الأنظمة والكشف عن التهديدات وتحليل البيانات الضخمة للأمن.
- النقل والسيارات الذكية: يتساعد الذكاء الاصطناعي في تطوير التكنولوجيا اللازمة للسيارات الذكية وتحسين القيادة الآلية
التحديات والأخلاقيات:
- التحديات التقنية: تشمل قدرة النظم الذكاء الاصطناعي
على فهم البيانات بشكل صحيح واتخاذ قرارات صحيحة وتحافظ على الأمان والخصوصية.
- التحديات الأخلاقية: تنطوي على مسائل مثل العدالة والتحيز والتأثير على سوق العمل والتأثير على الخصوصية وتبعات استخدام الذكاء الاصطناعي في قرارات حياتية.
المستقبل والتطورات
- التعاون البشري والذكاء الاصطناعي: يُتوقع أن
يزداد الترابط والتعاون بين البشر والأنظمة الذكاء الاصطناعي لتعزيز القدرات والأداء.
- تطور التطبيقات: من المتوقع أن يتواصل تقدم التطبيقات
الذكاء الاصطناعي في مجالات مثل الطب والروبوتات والتجارة والتسويق والتحليل الضخم
للبيانات.
- التحسين المستمر: سيستمر التركيز على تحسين تقنيات الذكاء الاصطناعي وتطوير نماذج أكثر قوة وفعالية.
هذه بعض المعلومات
الأساسية عن الذكاء الاصطناعي. يعد هذا المجال متنوعًا ومتطورًا بشكل سريع، مع تأثيراته
المتزايدة على مجتمعنا وحياتنا اليومية.