مشاريع جاهزة

[oms]

بسم الله الرحمن الرحيم



سيتم في هذه المشاركة وضع أكواد لبرامج جاهزة في مختلف اللغات حيث سيتم طرح المشروع و إسناده برقم لسهولة المتابعة . وعلى كل من يريد التفاعل مع هذا الموضوع إتباع الآتي :



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



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



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



- ممنوع منعاً باتاً طلب عمل أي مشروع هنا وبأي لغة فلها مكانها المخصص في القسم .





ونقبل منكم مشاركاتكم البناءة في هذا القسم .

مراقب القسم

OMS

[oms]

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



قم بكتابة الكود التالي في قسم التصريحات العامة :

 
 
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
 

 
Public Const SPI_SETDESKWALLPAPER = 20

وقم بكتابة الكود التالي داخل زر أو أي كائن :

 
 
Dim lngSuccess As Long
 
Dim strBitmapImage As String
 

 
strBitmapImage = "c:\windows\straw.bmp"
 
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

[oms]

في البرنامج التالي يقوم المستخدم بإدخال رقم ونقوم بإخباره إذا كان العدد أولي أم لا .

 

// Write c++ program to read anumber and determines if it is a primary number?



#include <iostream.h>

int main ()

{

int num,x,y,z='T';



cout<<"Enter anumber :\t";

cin>>num;

if (num<=1)

cout<<"\n\t"<<num<<"\t*The Primary Number > 1*  !!!!!!!\n\n\n\n";

else

	  {

x=num/2;

for(y=2 ; y<=x ; y++)

			{

if(num%y==0)

				  {

z='F';

break;

				  } //end of if2  

			} //end of for	 



if(z=='F')

cout<<"\n\t"<<num<<"\t*Is Not Primary Number*\n\n\n\n";



if(z=='T')

cout<<"\n\t"<<num<<" \t*Is Primary Number*\n\n\n\n";

	  } //end of else

return 0;

} //end of main 

[oms]

برنامج لطباعة سعر مادة من المواد المختارة .

 

// chap_3\Ex_8.java

// program to display the price of a chosen item of food



import java.io.*;



class Ex_8

{

	  static BufferedReader keyboard = new 

		  BufferedReader(new InputStreamReader(System.in));

	  static PrintWriter screen	  = new PrintWriter(System.out, true);



	  public static void main(String[] args) throws IOException

	  {

			String  food;

			float   price=0f;

			boolean inputError = false;



			// display menu and input item of food



			screen.println("Input an item of food from the menu\n");

			screen.println("eggs	 pancakes   bagel	 muffin");

			screen.println("yogurt   hash	   toast	 fries");

			screen.println("tea	  coffee	 chocolate\n\n");



			screen.print("? "); screen.flush();

			food = keyboard.readLine();



			if	  (food.equals("eggs"))

				  			price = 2.75f;

			else if (food.equals("pancakes"))

									price = 4.00f;		  

			else if (food.equals("bagel"))

									price = 1.50f;

			else if (food.equals("muffin") || food.equals ("chocolate"))

				  			price = 0.95f;

			else if (food.equals("yogurt") || food.equals ("fries"))

									price = 1.00f;

			else if (food.equals("hash"))

									price = 1.75f;

			else if (food.equals("toast") || food.equals ("tea")

													  	  || food.equals ("coffee"))

									price = 0.75f;

			else

				  inputError = true;



			if (inputError)

				  screen.println("\nFood not listed in menu\n");

			else

				  screen.println("\nThe price of a " + food + " is $" + price);

	  }

}

[oms]

برنامج لعرض جدول الضرب على الشاشة :

 



static void Main( string[] args)

{

Console. WriteLine(" X 1 2 3 4 5");

Console. WriteLine(" *---------------------------------------");

for (int i = 1 ; i <= 5 ; i++ )

{

Console. Write("{ 0} | ", i);

for (int j = 1 ; j <= 5 ; j++ )

{

Console. Write("{ 0} ", i* j);

}

Console. WriteLine("");

}

Console. WriteLine(" *---------------------------------------");

}

[oms]

كود للحصول على المسار لمجلد الويندوز على أي قرص هو موجود وضمن أي مسار :



أولاً : ضع الكود في قسم التصريحات العامة :

 

Public Const MAX_PATH = 260

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

ثانياً : ضع الكود في أي كائن مثل زر أو ليبل :

 



Dim strBuffer As String

Dim lngReturn As Long

Dim strWindowsDirectory As String



strBuffer = Space$(MAX_PATH)

lngReturn = GetWindowsDirectory(strBuffer, MAX_PATH)

strWindowsDirectory = Left$(strBuffer, Len(strBuffer) - 1)

المتغير الأخير يحمل المسار الأصلي .