מחשבון BMI: 6 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:15

שמי אומייר בן אסים. אני סטודנט לפרספקטיבה גלובלית, שעושה את רמות ה- O שלי. הפרויקט הזה הוא חלק מקמפיין מודעות שאני וחברי לכיתה עורכים בימים אלה. אנו מכירים בהשמנה כבעיה שעולה בכל רחבי העולם ומעודדים אנשים להילחם בהשמנה לפני שהיא תוביל לאסון חברתי גדול. פרויקט זה הוא אחד ממסעות המודעות הרבים שלנו.

מחשבון ה- BMI נועד לאפשר לאנשים יותר בקלות בחישוב מדד מסת הגוף שלהם ולקבוע אם הם סובלים מהשמנת יתר או לא. המחשבון שעשינו נקבע בסטנדרטים של איגוד הבריאות האמריקאי. מטרת פרסום זה היא לאפשר לאנשים לא רק ליצור מחשבון, אלא גם לאפשר לאנשים לשנות את המחשבונים שלהם לפי התקן הלאומי שלהם.

שלב 1: יצירת פרויקט Visual Studio חדש

1. סטודיו ויזואלי פתוח
2. לחץ על פרויקט חדש
3. בחר יישום טופס אלמנות
4. שנה את שם הפרויקט ל "מחשבון BMI"
5. שמור את הפרויקט וזכור את המיקום (שמרתי אותו בכונן נפרד)

שלב 2: שני חלקים

יש שני חלקים ביישום טופס החלונות של Visual Studio

1) Form1.vb [עיצוב]

כאן אתה יוצר את GUI

2) טופס 1. vb

כאן אתה כותב את התכנות שלך

אתה יכול לבחור את הכרטיסיות על ידי בחירה בהן

שלב 3: עיצוב הממשק (תוויות ותיבות טקסט)

בשלב זה עליך לעצב את ממשק המשתמש הגרפי.

1. בחר תוויות מארגז הכלים הזמין (אם אינך יכול למצוא את תיבת הכלים הקש Ctrl+Alt+x)
2. גרור את התווית לטופס וסידר אותן מימין. אנחנו צריכים שלוש תוויות
3. לסדר את התוויות בצד שמאל
4. לחץ על התוויות ובמאפיינים שנה את גודל האוטומטי ל- FALSE, זה יאפשר לך לשנות את גודל התווית.
5. לחץ על התוויות ובמאפיינים שנה את הטקסט ל"גובה "," משקל "," ה- BMI שלך ", בהתאמה.
6. תוכל גם לשנות הגדרה אחרת במאפיינים כגון צבע ואפקט תלת -ממדי.
7. גרור שלוש תיבות טקסט מארגז הכלים ויישר אותן לאורך ההקבלה השמאלית לתוויות
8. לחץ על תיבת הטקסט ובמאפיינים שנה את הגדרות השם ל- "txtheight", "txtweight", "txtresults"
9. תוכל גם לשנות הגדרה אחרת במאפיינים כגון צבע ואפקט תלת -ממדי.
10. צור תיבת טקסט אחרונה ויישר אותה בתחתית, שם תיבת טקסט זו "txtcomment", זה ייתן תוצאה על בסיס BMI של אנשים מכיוון שההבנה מהמספרים בלבד עשויה להיות קשה.
11. שינוי השם הוא חיוני מכיוון שנצטרך לקרוא לתיבות הטקסט האלה בתוכנית שלנו, אם אתה מעדיף לשים שם אחר עליך לשנות את שם הכפתור המופנה גם בתוכנית. (השמות לפי התוכנית שלי)

שלב 4: עיצוב הממשק (כפתורים)

מקם כפתורים על ידי גרירתם מארגז הכלים ויישורם כפי שמוצג בתמונה

בעוד הלחצן נבחר, שנה את השם בכפתור במאפיינים, ותוכל לשנות גם את הגדרת הטקסט.

• צור שם כפתור "btncalc", עם הטקסט "חשב BMI"
• צור שם כפתור "btnclear", עם הטקסט "ברור"
• צור שם כפתור "btnexit", עם הטקסט "יציאה"
• צור שם כפתור "btnabout", עם הטקסט "למד עלינו"
• צור שם כפתור "btnhlp", עם הטקסט "זקוק לעזרה?" (לא השתמשתי בזה והוא נשאר פנוי למקרה שתרצה להוסיף כפתור עזרה)

יישר את הכפתורים בצורת GUI כראות עיניך

שינוי השם הוא חיוני מכיוון שנצטרך לקרוא לחצנים אלה בתוכנית שלנו, אם אתה מעדיף לשים שם אחר עליך לשנות את שם הכפתור המופנה גם בתוכנית. (השמות לפי התוכנית שלי)

שלב 5: תכנות המחשבון שלך

טופס מעמד ציבורי 1

תת פרטי btncalc_Click (שולח כ- System. Object, e As System. EventArgs) מטפל btncalcClick

גובה עמום ככפול = 0 'יוצר משתנה בשם גובה כובד משקל כפול = 0' יוצר משתנה בשם משקל עמום BMI כפול = 0 'יוצר משתנה בשם BMI

txtresults. Text = ""

height = Double. Parse (txtheight. Text) 'קורא מספרים מתיבת הטקסט txtheight ושומר אותו למשקל המשתנה בהתאמה = Double. Parse (txtweight. Text)' קורא ספרות מתיבת הטקסט txtweight ושומר אותו לגובה משתנה בהתאמה = גובה * 0.0254 'ממיר גובה למטר משקל = משקל * 0.4535924' ממיר משקל לגובה קילוגרמים = גובה * גובה 'ריבועי גובה וחוסך אותו לגובה משתנה

אם ((גובה <= 0) או (משקל <= 0)) לאחר מכן 'בדוק את תוקף כדי לוודא שלא הוזנו נתונים לא טבעיים () הבהיר מסג -בוקס ("אנא הכנס ערכים מציאותיים") צא מקצה משנה אם

BMI = חישוב משקל / גובה 'BMI

BMI = פורמט (BMI, "0.00") 'כותב BMI לשתי txtresults במיקום עשרוני. טקסט = BMI' כותב BMI בתיבת טקסט txtresults txtcomment. Text = "" 'רוקן הערת תיבת טקסט כדי לאפשר הזנת נתונים

'מחשב מצב לפי BMI

אם BMI <18.5 אז המצב עשוי להשתנות במדינה שלך

txtcomment. Text = "אתה מתחת למשקל"

ElseIf ((BMI> = 18.5) ו- (BMI 24.9) ו- (BMI 29.9 ואז txtcomment. Text = "אתה שמן, אנא נקט באמצעי זהירות" סוף אם

סיום תת

תת פרטי btnexit_Click (שולח כ- System. Object, e As System. EventArgs) מטפל btnexit. Click

הפונקציה Close () ליציאה End Subתת פרטי btnclear_Click (השולח כ- System. Object, e As System. EventArgs) מטפל בניקיון btnclear. Click () 'שיחות ניקוי תת שגרתיות End Sub Sub ניקוי ()' מנקה כל תיבת טקסט txtcomment. Text = "" txtheight. Clear () txtweight. Clear () txtresults. Text = "" txtheight. Focus () End Sub

תת פרטי btnabout_Click (שולח כ- System. Object, e As System. EventArgs) מטפל btnabout. Click

'זו ההודעה המוצגת בתיבת הודעה נפרדת

'אתה יכול להוסיף כל דבר שאתה רוצה אחרי הסימן "=" למטה אבל זה חייב להיות בין פסיקים כפולים ("")

הודעה עמומה As String = "תוכנה זו נוצרה על ידי אומיר בן אסים למען מודעות חברתית לבריאות." & vbNewLine & "גידול עולמי במספר האנשים הסובלים מהשמנת יתר עורר בהלה בריאותית מכיוון שמספר המקרים של מחלות לב וסוכרת נמצאים בעלייה." & vbNewLine & "למרות כל זאת מספר רב של אנשים לא יודע אם הם שמנים או לא איך להתמודד עם זה." & vbNewLine & "בתגובה לכך שעשינו מחשבון כדי לקבוע את ה- BMI שלך ואם אתה שמן או לא." & vbNewLine & "תקנים אלה הם על פי איגוד הלב האמריקאי."

MsgBox (הודעה)

Sub Sub Sub Sub btnhlp_Click (שולח בשם System. Object, e As System. EventArgs) מטפל ב- btnhlp. Click 'הוסף כל הודעה שתרצה לכתוב בין "" "היא ריקה לעת עתה Dim urgent_message As String =""

MsgBox (הודעה דחופה)

סיום תתשיעור סיום

שלב 6: מזל טוב שההתקדמות שלך הסתיימה

עכשיו אתה יכול לחשב את ה- BMI שלך ואתה יודע כיצד לערוך את התוכנה שלך כרצונך

כדי לשחק בתוכנה לחץ על החץ הירוק בסרגל העליון או פשוט הקש F5 תהנו!

לנוחיותכם פרסמנו מחשבון משלנו (מוכן) וכן את התכנות (בקובץ.txt)