مشاهدة النسخة كاملة : مشاريع جاهزة
بسم الله الرحمن الرحيم
سيتم في هذه المشاركة وضع أكواد لبرامج جاهزة في مختلف اللغات حيث سيتم طرح المشروع و إسناده برقم لسهولة المتابعة . وعلى كل من يريد التفاعل مع هذا الموضوع إتباع الآتي :
- إذا كنت تريد كتابة تعليق ، فاكتب تعليقك على برنامج معين مع ذكر إسمه شرط أن يكون التعليق فقط بخصوص المشروع كجملة لم تفهمها أو أي معلومة أخرى عن أي كلمة .
- إذا أردت أن تضع موضوع فيجب عليك أن تذكر رقمه ( والأرقام تسلسلية حسب آخر مشروع تم إضافته ) وإسم اللغة المستخدمة وإسم المشروع وكيفية التعامل معه والإستفاده منه .
- يمكنك الإحتفاظ بنسخ من البرامج إذا لزم الأمر وأي مشكلة تواجهك في أي مشروع تقوم بطرح المشكلة على شكل مشاركة ومراعاة ما تم الإتفاق عليه سابقاً .
- ممنوع منعاً باتاً طلب عمل أي مشروع هنا وبأي لغة فلها مكانها المخصص في القسم .
ونقبل منكم مشاركاتكم البناءة في هذا القسم .
مراقب القسم
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)
في البرنامج التالي يقوم المستخدم بإدخال رقم ونقوم بإخباره إذا كان العدد أولي أم لا .
// 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
برنامج لطباعة سعر مادة من المواد المختارة .
// 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);
}
}
برنامج لعرض جدول الضرب على الشاشة :
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(" *---------------------------------------");
}
كود للحصول على المسار لمجلد الويندوز على أي قرص هو موجود وضمن أي مسار :
أولاً : ضع الكود في قسم التصريحات العامة :
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)
المتغير الأخير يحمل المسار الأصلي .
جميع حقوق برمجة vBulletin محفوظة ©2025 ,لدى مؤسسة Jelsoft المحدودة.
جميع المواضيع و المشاركات المطروحة من الاعضاء لا تعبر بالضرورة عن رأي أصحاب شبكة المنتدى .