دانلود نمونه ساعت دیجیتال در اکسل با برنامه نویسی کد VBA

دانلود نمونه ساعت دیجیتال در اکسل با برنامه نویسی کد VBA

این فایل اکسل حاوی یک ساعت دیجیتال تعاملی است که با استفاده از ماکروهای VBA ایجاد شده است. کدها به گونه‌ای طراحی شده‌اند که یک ساعت دیجیتال زنده با قابلیت شروع و توقف را در صفحه اکسل شبیه‌سازی می‌کنند.

اجزای اصلی کد:

۱. Sub Reset_Digit()

• تمام بخش‌های نمایشگر ۷ قسمتی (Seven Segment) را مجدداً قابل مشاهده می‌کند

• برای بازنشانی و آماده‌سازی نمایشگر استفاده می‌شود

۲. Sub Change_Digit(first_Shape As Integer, Digit As Integer)

• قلب سیستم نمایش اعداد: هر رقم (۰ تا ۹) را روی نمایشگر ۷ قسمتی نشان می‌دهد

• با تغییر وضعیت visibility هر بخش از نمایشگر، اعداد مختلف تشکیل می‌شوند

• الگوریتم‌های مختلفی برای نمایش هر رقم تعریف شده است

۳. Sub Start_()

• حلقه اصلی اجرای ساعت: به صورت پیوسته زمان سیستم را خوانده و نمایش می‌دهد

• ساعت، دقیقه و ثانیه را به ارقام جداگانه تبدیل می‌کند

• نقاط جداکننده (:) بین ساعت و دقیقه و دقیقه و ثانیه چشمک می‌زنند

• تا زمانی که کاربر توقف نکرده باشد، ادامه می‌یابد

۴. Sub Stop_()

• با تغییر مقدار سلول A1 به "Stop"، حلقه اصلی ساعت را متوقف می‌کند

ویژگی‌های ویژه:

• ✅ ساعت زنده با به‌روزرسانی خودکار

• ✅ نمایشگر ۷ قسمتی شبیه ساعت‌های دیجیتال واقعی

• ✅ چشمک‌زدن نقاط جداکننده در هر ثانیه

• ✅ کنترل کامل شروع و توقف نمایش

• ✅ کدنویسی بهینه با استفاده از حلقه‌ها و توابع

نحوه استفاده:

۱. فایل اکسل را دانلود کنید
۲. ماکروها را فعال کنید (Enable Macros)
۳. با اجرای ماکرو Start_ ساعت آغاز به کار می‌کند
۴. با اجرای ماکرو Stop_ ساعت متوقف می‌شود

این پروژه نمونه‌ای جالب از توانایی‌های VBA در ایجاد برنامه‌های تعاملی و گرافیکی در محیط اکسل است و می‌تواند به عنوان پایه‌ای برای پروژه‌های پیچیده‌تر مورد استفاده قرار گیرد.