دانلود برنامه تحلیل کد پرسشنامه بسامد خوراک (FFQ) در اکسل VBA

دانلود برنامه تحلیل کد پرسشنامه بسامد خوراک (FFQ) در اکسل VBA

🏆 معرفی پروژه

این پروژه یک پرسشنامه بسامد خوراک (Food Frequency Questionnaire) کامل و حرفه‌ای است که به زبان VBA در اکسل پیاده‌سازی شده. سیستم طراحی شده قابلیت ارزیابی جامع عادات غذایی افراد را با روش‌های علمی دارا می‌باشد.

نمونه تصاویر در زمان اجرا

🎯 اهداف اصلی پروژه

1. ارزیابی تغذیه‌ای جامع

• تحلیل مصرف 9 گروه غذایی اصلی

• محاسبه امتیازات وزنی بر اساس اهمیت هر غذا

• ارزیابی ریسک‌های سلامت مرتبط با تغذیه

2. تجربه کاربری حرفه‌ای

• رابط کاربری فارسی و سازگار با RTL

• طراحی واکنش‌گرا و جذاب بصری

• ناوبری ساده و شهودی

3. مدیریت داده‌های پیچیده

• ذخیره‌سازی داده‌های خام

• تحلیل آماری خودکار

• تولید گزارش‌های تحلیلی

🏗️ معماری سیستم

ساختار ماژول‌ها:

└── سیستم FFQ
    ├── مدیریت داده‌ها
    │   ├── ساختارهای Type
    │   ├── آرایه‌های عمومی
    │   └── توابع CRUD
    ├── رابط کاربری
    │   ├── صفحات پویا
    │   ├── کنترل‌های فرم
    │   └── انیمیشن‌ها
    ├── تحلیل منطق
    │   ├── محاسبات امتیاز
    │   ├── الگوریتم‌های ارزیابی
    │   └── تولید توصیه‌ها
    └── گزارش‌گیری
        ├── فرمت‌بندی خودکار
        ├── نمودارها
        └── خروجی‌های چاپ

📊 ساختارهای داده اصلی:

' 1. ساختار سوالات
Type T_Question
    id As Integer
    CategoryID As Integer
    CategoryName As String
    QuestionText As String
    MeasurementUnit As String
    dailyNorm As Double
    weight As Double      ' وزن اهمیت سوال
    isHealthy As Boolean  ' سالم/ناسالم بودن
End Type

' 2. ساختار پاسخ‌ها
Type T_AnswerOption
    text As String
    FrequencyPerWeek As Double  ' تبدیل به فرکانس هفتگی
    Score As Double             ' امتیاز خام
    description As String       ' توضیح کیفیت
End Type

' 3. ساختار نتایج تحلیلی
Type T_AnalysisResult
    CategoryID As Integer
    totalScore As Double
    AverageScore As Double
    percentage As Double
    status As String
    statusColor As Long
    recommendations As String   # توصیه‌های شخصی‌سازی شده
    healthRisk As String        # سطح ریسک سلامت
End Type

✨ ویژگی‌های کلیدی

1. سیستم نمره‌دهی هوشمند

• امتیازدهی بر اساس فرکانس مصرف

• اعمال وزن‌های متفاوت بر اساس اهمیت غذایی

• محاسبه درصد سلامت هر گروه

2. الگوریتم تحلیل خودکار

Private Sub AnalyzeQuestionnaireResults()
    ' محاسبه امتیاز برای هر گروه غذایی
    ' تعیین وضعیت بر اساس درصد سلامت
    ' تولید توصیه‌های شخصی‌سازی شده
End Sub

3. سیستم گزارش‌گیری

• گزارش تفصیلی گروه‌های غذایی

• نمایش گرافیکی وضعیت‌ها

• تولید توصیه‌های عملی

4. مدیریت جلسات

• ذخیره زمان شروع و پایان

• محاسبه مدت تکمیل پرسشنامه

• تاریخ‌گذاری خودکار پاسخ‌ها

🛠️ فناوری‌های به کار رفته

برنامه‌نویسی:

• VBA با رویکرد شیءگرا

• استفاده از Type برای ساختارهای پیچیده

• مدیریت حافظه با ReDim

ذخیره‌سازی داده:

• Sheetهای پنهان برای داده‌های خام

• ساختار جدولی استاندارد

• فرمت‌بندی شرطی

رابط کاربری:

• Shapes داینامیک

• رنگ‌بندی حرفه‌ای

• فونت‌های فارسی/انگلیسی

📈 فرآیند کار

مرحله ۱: ورود اطلاعات کاربر

• اعتبارسنجی داده‌های ورودی

• محاسبه BMI خودکار

• ذخیره در Sheet داده‌ها

مرحله ۲: تکمیل پرسشنامه

• نمایش سوالات با پیشرفت بصری

• انتخاب پاسخ با کلیک روی Shapes

• ناوبری Forward/Backward

مرحله ۳: تحلیل نتایج

• محاسبات بلادرنگ

• تعیین وضعیت‌های سلامت

• تولید گزارش تفصیلی

مرحله ۴: خروجی‌ها

• نمایش نتایج در Sheet جداگانه

• امکان چاپ گزارش

• ذخیره‌سازی کامل داده‌ها

🎨 طراحی بصری

رنگ‌بندی حرفه‌ای:

Public Const PRIMARY_COLOR As Long = &H964B00    ' قهوه‌ای اصلی
Public Const SUCCESS_COLOR As Long = &H32CD32   ' سبز موفقیت
Public Const WARNING_COLOR As Long = &HFFA500   ' نارنجی هشدار
Public Const DANGER_COLOR As Long = &HDC143C    ' قرمز خطر

فونت‌های دو زبانه:

• فارسی: B Nazanin

• انگلیسی: Calibri

📊 خروجی‌های تحلیلی

گزارش گروه‌های غذایی:

1. لبنيات (لبنیات)

2. پروتئين حيواني

3. حبوبات

4. ميوه‌ها

5. سبزيجات

6. غلات

7. چربي‌ها

8. شيريني‌جات

9. نوشيدني‌ها

متریک‌های ارزیابی:

• امتیاز خام و وزنی

• درصد سلامت

• وضعیت کیفی

• سطح ریسک

• توصیه‌های بهبود

🚀 نکات فنی برجسته

مدیریت خطا:

Private Sub HandleError(procedureName As String, message As String)
    ' سیستم جامع مدیریت خطا
    ' بازیابی وضعیت برنامه
    ' گزارش‌دهی دقیق
End Sub

بهینه‌سازی عملکرد:

• غیرفعال کردن ScreenUpdating

• مدیریت دستی Calculation

• کنترل رویدادها

امنیت داده:

• Sheetهای VeryHidden برای داده‌های حساس

• اعتبارسنجی ورودی‌ها

• پشتیبان‌گیری خودکار

📦 استقرار و استفاده

نیازمندی‌ها:

• Microsoft Excel 2010 به بالا

• فعال‌سازی ماکروها

• فونت‌های فارسی نصب شده

راه‌اندازی:

1. باز کردن فایل

2. فعال‌سازی ماکروها

3. اجرای تابع Main

برای شما کاربران عزیز پیشنهاد دانلود داده می شود.