برای ایجاد این جلوه ، یک تایمر روی فرم بگذارید و خاصیت Interval آنرا برابر 20 قرار دهید که تعیین کننده سرعت ریزش است
******************************************************************************************************************
یک 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) تعریف شده اند و لذا مقدار آن در تمام فرم قابل دسترسی خواهد بود) :
کلمات کلیدی :