پروژه ای در پاسکال

با سلام یک پروژه را درپاسکال را برای شم می کذارم (دفتر چه تلفن )

 

ایمیل من

E_mail:[e-mail]

4 مطلب جديد رجيستري

4 عنوان مطلب : به خاطر رجيستري دوستان - دستكاري تنظيمات برنامه آفيس èاشاره :
در اين مقاله نحوه دستكاري رجيستري ويندوز به منظور تنظيم فونت استاندارد براي آفيس، پنهان كردن خط ابزار Clipboard در اين نرم افزار، تغيير شناسه‌هاي برنامه اكسس و تغيير نام ثبت شده براي مالك يك نسخه از آفيس توضيح داده مي شود. 
تنظيم فونت استاندارد براي آفيس (تمام ويندوزها)
با انجام دستورالعمل زير مي‌توانيد آفيس را طوري تنظيم كنيد كه براي رابط كاربري خود، به جاي استفاده از فونت پيش‌فرض آفيس، از فونت استاندارد سيستم استفاده كند. رجيستري را باز و كليد نشان داده شده در شكل را پيدا يا ايجاد كنيد. يك Value از نوع DWORD به نام UseOfficeUIFont بسازيد، يا در صورت موجود بودن محتواي آن را مطابق راهنماي شكل تنظيم كنيد. از رجيستري خارج شويد. براي اثر كردن تغييرات شايد لازم باشد از ويندوز خارج شده يا ري‌استارت كنيد.
پنهان كردن خط ابزار Clipboard در آفيس (تمام ويندوزها)
در هر يك از برنامه‌هاي مجموعه آفيس، وقتي كه چند بار از عمل كپي استفاده مي‌كنيد، خط ابزار Clipboard آفيس ظاهر مي‌شود و به شما اجازه مي‌دهد چيزهاي مختلفي را انتخاب و paste كنيد. با انجام دستورالعمل زير، مي‌توانيد كاري كنيد كه اين خط ابزار به طور خودكار ظاهر نشود. رجيستري را باز و كليد نشان داده شده در شكل را پيدا كنيد. يك Value از نوع DWORD به نام AcbControl را ايجاد يا در صورت موجود بودن، محتواي آن را مطابق راهنماي شكل تنظيم كنيد. براي اثر كردن تغييرات، تمام برنامه‌هاي آفيس را بسته و دوباره اجرا كنيد.

تغيير شناسه‌هاي برنامه اكسس (تمام ويندوزها)
با اجراي دستورالعمل زير، مي‌توانيد عنوان، آيكون، صفحه شروع و فايل راهنماي اكسس را تغيير دهيد. اين كار به ويژه زماني مفيد است كه بخواهيد برنامه‌اي را كه با اكسس نوشته‌ايد طوري به نمايش بگذاريد كه گويي محصول خودتان است. رجيستري را باز و كليد نشان داده شده در شكل را پيدا يا ايجاد كنيد. منظور از X.X شماره نسخه برنامه اكسس شماست. هر يك از كليدهاي زير را بسته به خواسته‌اي كه داريد تغيير دهيد:
- Titlebar: نوشته‌اي كه در قسمت عنوان پنجره نشان داده مي‌شود.
- StartupScreen: فايلي از نوع BMP. كه هنگام بالا آمدن اكسس نمايش داده مي‌شود.
- Icon: فايلي از نوع ICO. كه در خط عنوان و task bar ويندوز ظاهر مي‌شود.
- AppHelpFile: فايل Help  قابل استفاده در برنامه.
براي اثر كردن تغييرات، برنامه اكسس را بسته و دوباره اجرا كنيد.

تغيير نام ثبت شده مالك آفيس (تمام ويندوزها)
در نسخه‌هاي قبل از آفيس 2000، اگر مي‌خواستيد اسم شركتي كه هنگام بالا آمدن برنامه‌هاي آفيس در صفحه نمايشي (Splash Screen) و كادر محاوره About ظاهر مي‌شود را تغيير دهيد، مجبور بوديد آفيس را مجدداً نصب كنيد. اما در نسخه‌هاي بعد از آفيس 2000، اين كار با دستكاري رجيستري امكان‌پذير است. رجيستري را باز و كليد مربوط به آفيس خود را پيدا كنيد:

- براي آفيس 2000
\HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion]
{[Uninstall\{00000409-78E1-11D2-B60F-006097C998E7

 - براي آفيس اكس‌پي:
\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion
[Uninstall\{90280409-6000-11D3-8CFE-0050048383c9
 حالا مقادير RegCompany و RegOwner را مطابق نام شركت و نام كاربر مورد‌نظر خود تغيير دهيد.

سپس كليد زير را پيدا كنيد:
- براي آفيس 2000:
[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common]

- براي آفيس اكس‌پي:
HKEY_CURRENT-USER\Software\Microsoft\Office\01.0\Common]
و اسم كليد فرعي UserInfo را به OldUserInfo تغيير دهيد. از رجيستري خارج شويد. تمام برنامه‌هاي آفيس را بسته و دوباره اجرا كنيد.

4 عنوان مطلب : :: تعمير رجيستري و افزايش سرعت سيستم توسط Registry Compressor 2.01.69 ::è:: تعمير رجيستري و افزايش سرعت سيستم توسط Registry Compressor 2.01.69 ::
Registry Compressor نام نرم افزار مفيدي براي بهينه سازي رجيستري ويندوز و افزايش سرعت و كارايي سيستم عامل شماست . اين نرم افزار با پيدا كردن ورودي هاي خالي و غير استفاده و پاك سازي اونها حجم رجيستري شما رو كاهش داده و سرعت دسترسي به اطلاعات رو افزايش خواهد داد .
چرا به اين نرم افزار نياز داريم ؟
با نصب نرم افزار هاي مختلف اطلاعات جديدي به رجيستري ويندوز شما اضافه ميشود و اين موضوع باعث افزايش حجم رجيستري شما خواهد شد . ساختار رجيستري به شكلي است كه با حذف چند نرم افزار ، حجم رجيستري كاهش پيدا نميكند و اطلاعات زايد هميشه همراه رجيستري ويندوز خواهد بود .
قابليت هاي كليدي :
پاكسازي رجيستري از اطلاعات غير ضروري ، كاهش حجم رجيستري ، افزايش سرعت دسترسي به اطلاعات رجيستري و افزايش كارايي سيستم عامل شما . افزايش سرعت بوت و ...
 
 
4 عنوان مطلب : مخفي کردن درايوها در My Computer è ابتدا از منوي Start گزينه ي Run رو انتخاب کنيد . داخل پنجره ي Run  تايپ کنيد Regedit و در پنجره ي باز شده به آدرس زير برويد :

HKEY_ Current_ User  >  Software > Microsoft >  Windows >  Current Version >  Policies >  Explorer

 پس از اينکه به آدرس فوق رفتيد در قسمت سمت راست پنجره ، راست کليک کنيد و از منوي New  گزينه ي DWORD value را انتخاب کنيد. مي بينيد که يک فايل ساخته مي شود که شما بايد نام آن را NoDrives بگذاريد:  

 مخفي کردن همه ي درايو ها :
حال اگر مي خواهيد تمام درايوهاي خود را غيب کنيد فايل NoDrives  رو که تازه ساختيد باز کنيد و در اون تايپ کنيد: 3FFFFFF .
پس از انجام اين کار کامپيوتر را ريستارت کنيد . مي بينيد که تمام درايوهاي شما غيب شده اند .
 مخفي کردن فقط يکي از درايو ها :
اگر مي خواهيد فقط يکي از درايو هاي خود را مخفي کنيد ، پس از اينکه فايل NoDrives رو ساختيد و بازش کرديد ، با توجه به جدول زير ، با نوشتن عدد روبروي هر درايو  در فايل NoDrives مي تونيد اون درايو رو حذف کنيد.
مثلا اگر مي خواهيد درايو C رو حذف کنيد فايل NoDrives رو باز مي کنيد و در اون عدد 4 رو تايپ مي کنيد و اينتر ميزنيد . براي حذف درايو A عدد 1 و  براي حذف درايو F عدد 32 رو تايپ مي کنيد و ...
براي حذف هرکدام از درايو ها از عدد روبروي اون در زير استفاده کنيد :
Drive A =>  1
Drive B =>  2
Drive C =>  4
Drive D =>  8
Drive E =>  16
Drive F =>  32
Drive G =>  64
Drive H =>  128
Drive I =>  256
Drive j =>  512
Drive k =>  1024
Drive L =>  2048
Drive M =>  4096
Drive N =>  8192
Drive O =>  16384
Drive P =>  32768
Drive q =>  65536
Drive R =>  131072
Drive S =>  262144
Drive T =>  524288
Drive U =>  1048576
Drive V =>  2097152
Drive W =>  4194304
Drive X =>  8388608
Drive Y =>  16777216
Drive Z =>  33554432
توجه : اگر خواستيد درايوهاتون رو دوباره ظاهر کنيد و از حالت مخفي در بياريد به همون آدرس بالا بريد و فايل NoDrives رو که ساخته بوديد حذف کنيد .

طراحي يك ماشين حساب ساده

طراحي يك  ماشين حساب ساده كه حداقل جمع،ضرب،تفريق،تقسيم، سينوس

 

 ، كسينوس ، تانژانت ،لكاريتم و كتانژات را براي ما انجام دهد .

 

براي اين كارمراحل زير را طي مي كنيم

 

1.       برنامه را باز كرده و يك New باز كرده و مانند شكل زير آن را طراحي

 

مي كنيم .و نام آنها را مثل شكل تغير مي دهيم .

 

  2.     وقتي كه شكل را رسم كرديم و نام انها را تغير داديم بر روي انها كليك

 

كرده تا پنجره كد باز شودو كد ها زير را هر كدام در قسمت خود آن ،آن را

 

وارد مي كنيم. 

 

براي شماره 1 : Text1.Text = Text1.Text + "1"

 

براي شماره 2:  Text1.Text = Text1.Text + "2"

 

براي شماره 3: " Text1.Text = Text1.Text + "3

 

براي شماره 4: Text1.Text = Text1.Text + "4"

 

براي شماره 5: Text1.Text = Text1.Text + "5"

 

براي شماره 6: Text1.Text = Text1.Text + "6"

 

براي شماره 7: Text1.Text = Text1.Text + "7"

 

براي شماره 8: Text1.Text = Text1.Text + "8"

 

براي شماره 9: Text1.Text = Text1.Text + "9"

 

براي شماره 0:  "Text1.Text = Text1.Text + "0

 

3. در قسمت General كد هاي زير را وارد كنيد :

Dim a As Currency

Dim mem1 As Long

Dim e As String

 

4.     دكمه "+" را مضاف نموده و كدهاي زير را تايپ كنيد :

"+"=E

a = Val(Text1.Text)

Text1.SetFocus

 

5.     دكمه "-" را مضاف نموده و كدهاي زير را تايپ كنيد :

"-"= e

a = Val(Text1.Text)

""= Text1.Text

Text1.SetFocus

 

6.     دكمه "*" را مضاف نموده و كدهاي زير را تايپ كنيد :

"*"= E

a = Val(Text1.Text)

""=  Text1.Text

Text1.SetFocus

 

7.    دكمه "/" را مضاف نموده و كدهاي زير را تايپ كنيد :

"/"=  E

a = Val(Text1.Text)

Text1.Text = ""

Text1.SetFocus

 

8. دكمه "C" را مضاف نموده و كد زير را تايپ كنيد :

""=  Text1.Text

 

9.     دكمه "= "را مضاف نموده و كد زير را تايپ كنيد :

 

If E = "+" Then Text1.Text = a + Val(Text1.Text)

If E = "-" Then Text1.Text = a - Val(Text1.Text)

If E = "*" Then Text1.Text = a * Val(Text1.Text)

If E = "/" Then Text1.Text = a / Val(Text1.Text)

 

 

 

۱0. دكمه Sin را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Sin(Text1.Text)

 

11. دكمه Cos را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Cos(Text1.Text)

 

12. دكمه Tan را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Tan(Text1.Text)

 

13. دكمه Cot را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = cot(Text1.Text)

 

14. دكمه Log را مضاف نموده و كد زير را تايپ كنيد :

 

Text1.Text = Log(Text1.Text)

 

15. دكمه Exit را مضاف نموده و كد زير را تايپ كنيد :

 End

 

۱۶. برنامه را با كليد F5 اجرا كرده و از صحت ان برخوردار شويد .