1. No category

‫מבוא לתכנות ושפת ‪VB .NET‬‬
‫משפט השמה‪ ,MsgBox ,InputBox ,‬משפטי בחירה )התחלה(‬
‫משפט השמה‬
‫‪ 9‬מאפשר לאחסן ערך במשתנה‬
‫‪ 9‬התחביר של המשפט הוא‪:‬‬
‫‪variableName = expression‬‬
‫‪ 9‬דוגמה‬
‫‪Dim num1 as Integer = 5, num2 as Integer = 3‬‬
‫‪num2 = num1 ^ num2‬‬
‫משפט השמה ‪ -‬דוגמאות‬
‫‪ 9‬נניח שהמשתנים ‪ a, b, h‬מכילים את הגובה‪ ,‬את אורך הבסיס הגדול ואורך הבסיס הקטן של‬
‫טרפז‪ ,‬ושהמשתנה ‪ Area‬אמור להכיל את השטח של הטרפז‪ .‬כתוב משפט השמה מתאים‪.‬‬
‫‪Area = (a+b)*h/2‬‬
‫‪ 9‬נניח שהמשתנים ‪ a, b, c‬מכילים את אורכי צלעותיו של משולש ושהמשתנה ‪ A‬אמור להכיל את‬
‫השטח של המשולש והמשתנה ‪ s‬את מחצית ההיקף של המשולש‪ .‬כתוב משפטי השמה מתאימים‪.‬‬
‫‪s =(a+b+c)/2‬‬
‫‪A = (s*(s-a)*(s-b)*(s-c))^0.5‬‬
‫קלט באמצעות ‪InputBox‬‬
‫‪ 9‬אחת הדרכים לבצע קלט היא להשתמש בפונקציה ‪,InputBox‬‬
‫אשר מציגה למשתמש תיבת דו שיח הכוללת תיבת טקסט והודעה‪,‬‬
‫ומחכה שהמשתמש יקליד משהו בתיבת הטקסט ו‪/‬או ילחץ על‬
‫לחצן‪ ,‬לדוגמה‪:‬‬
‫‪ 9‬הפונקציה מחזירה את המחרוזת שהמשתמש מסר או מחרוזת ריקה אם המשתמש לחץ על לחצן‬
‫‪Cancel‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫תחביר הפונקציה ‪InputBox‬‬
‫)]‪variableName = InputBox (Prompt, [ Title], [Default],[Xpos],[Ypos‬‬
‫כאשר‪:‬‬
‫‪ - Prompt‬מחרוזת שתוצג בתיבה‬
‫ הכותרת של תיבת הדו‪-‬שיח )אופציונאלי( אם לא מציינים יופיע שם הפרויקט‪.‬‬‫‪Title‬‬
‫‪ - Default‬ערך ברירת מחדל שיוצג בתיבת הטקסט )אופציונאלי‪ .‬אם לא מציינים זו מחרוזת ריקה(‬
‫‪ - Xpos‬מרחק ב‪ Twips -‬של הפינה השמאלית העליונה של תיבת הדו‪-‬שיח מצידו השמאלי של המסך‬
‫‪ - Ypos‬מרחק ב‪ Twips -‬של הפינה השמאלית העליונה של תיבת הדו‪-‬שיח מצידו העליון של המסך‬
‫‪ Xpos‬ו‪ Ypos -‬הם אופציונאליים‬
‫קלט באמצעות ‪ - InputBox‬דוגמאות‬
‫‪ 9‬עליך לקלוט את שם העובד ואת השכר לשעה‬
‫‪Dim empName As String, rate As Decimal‬‬
‫"קלט של שם" ‪ ",‬הקש את שמך‪ ,‬בבקשה"(‪empName = InputBox‬‬
‫)"קלט‬
‫"קלט של שכר לשעה ‪ ",‬הקש את השכר לשעה"(‪rate = InputBox‬‬
‫)"קלט‬
‫‪-1-‬‬
‫פלט באמצעות ‪MsgBox‬‬
‫‪ 9‬אחת הדרכים לבצע פלט היא להשתמש בפונקציה ‪ ,MsgBox‬אשר מציגה למשתמש תיבת דו שיח‬
‫הכוללת הודעה‪ ,‬ומחכה שהמשתמש ילחץ על לחצן‪.‬‬
‫‪ 9‬הפונקציה מחזירה מספר המתאר את הלחצן שהמשתמש לחץ‬
‫‪9‬‬
‫‪ 9‬אנו משתמש בתחביר מקוצר של הפונקציה ‪MsgBox‬‬
‫)]‪MsgBox (Prompt, [ Buttons], [Title‬‬
‫‪ 9‬כאשר‪:‬‬
‫‪ - Prompt 9‬מחרוזת שתוצג בתיבה‬
‫‪ - Buttons 9‬מספר שקובע אילו לחצנים יוצגו על התיבה )אופציונאלי(‬
‫ הכותרת של תיבת הדו‪-‬שיח )אופציונאלי(‬‫‪Title 9‬‬
‫פלט באמצעות ‪ - MsgBox‬דוגמאות‬
‫‪Dim a As Integer‬‬
‫)"‪", , "Bye Bye‬שלום ולהתראות"(‪a = MsgBox‬‬
‫משפטי בחירה‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫‪9‬‬
‫משפטי בחירה מאפשרים לממש את מבנה ההחלטה שלמדנו‬
‫אנו נלמד את המשפטים‪:‬‬
‫‪If … Then‬‬
‫‪If … Then … End If‬‬
‫‪If … Then … Else … End If‬‬
‫סולם ‪If … ElseIf …End If‬‬
‫‪Select Case‬‬
‫משפט ‪If … Then‬‬
‫‪If‬‬
‫‪Then‬‬
‫‪ 9‬תחביר משפט ‪) If … Then‬בשורה אחת(‬
‫פעולה ‪ Then‬תנאי ‪If‬‬
‫דוגמה‬
‫‪ 9‬הוטל עליך לבנות יישום למימוש משחק פשוט‪:‬‬
‫‪ 9‬עם לחיצה על לחצן ‪ Play‬המשתמש יתבקש למסור את גילו‬
‫‪ 9‬אם גיל המשתמש קטן מ‪ 21 -‬וחיובי יש להציג את ההודעה‪ :‬נפלא להיות צעיר‬
‫‪ 9‬כמו כן יש להציג את ההודעה‪ :‬גיל זה דבר יחסי‬
‫‪ 9‬כתוב יישום מתאים‬
‫ת נ אי‬
‫כן‬
‫לא‬
‫פעולה‬
‫משפט ‪If … Then … End If‬‬
‫‪ 9‬תחביר משפט ‪If … Then … End If‬‬
‫‪ Then‬תנאי ‪If‬‬
‫פעולה‪/‬ות‬
‫‪End If‬‬
‫‪If‬‬
‫‪Then‬‬
‫תנאי‬
‫כן‬
‫דוגמה‬
‫‪ 9‬הוטל עליך לבנות יישום למימוש משחק פשוט‪:‬‬
‫‪ 9‬עם לחיצה על לחצן ‪ Play‬המשתמש יתבקש למסור את גילו‬
‫‪ 9‬אם גיל המשתמש קטן מ‪ 21 -‬וחיובי יש להציג את ההודעה‪ :‬נפלא להיות צעיר וגם את ההודעה‪:‬‬
‫אסור לך לרכוש משקאות אלכוהוליים‬
‫‪ 9‬כמו כן יש להציג את ההודעה‪ :‬גיל זה דבר יחסי‬
‫‪ 9‬כתוב יישום מתאים‬
‫פעולה‬
‫‪-2-‬‬
‫לא‬
‫‪Private Sub Play_Click (…) Handles Play.Click‬‬
‫‪Dim gil As Integer‬‬
‫)"הקש את גילך"(‪gil = InputBox‬‬
‫‪If gil < 21 And gil > 0 Then‬‬
‫)"נפלא להיות צעיר"(‪MsgBox‬‬
‫)"אסור לך לרכוש משקאות אלכוהוליים"(‪MsgBox‬‬
‫‪End If‬‬
‫)"גיל זה דבר יחסי"(‪MsgBox‬‬
‫‪End Sub‬‬
‫משפט ‪If … Else …End If‬‬
‫‪ 9‬תחביר משפט ‪If … Else …End If‬‬
‫‪ Then‬תנאי ‪If‬‬
‫פעולה‪/‬ות ‪1‬‬
‫‪Else‬‬
‫פעולה‪/‬ות ‪2‬‬
‫‪End If‬‬
‫דוגמה‬
‫‪ 9‬הוטל עליך לבנות יישום למימוש משחק פשוט‪:‬‬
‫‪ 9‬עם לחיצה על לחצן ‪ Play‬המשתמש יתבקש למסור את גילו‬
‫‪ 9‬אם גיל המשתמש קטן מ‪ 21 -‬וחיובי יש להציג את ההודעה‪ :‬נפלא להיות צעיר וכן את ההודעה‪:‬‬
‫אסור לך לרכוש משקאות אלכוהוליים‬
‫‪ 9‬אחרת יש להציג את ההודעה‪ :‬גיל זה דבר יחסי‬
‫‪ 9‬כתוב יישום מתאים‬
‫‪Private Sub Play_Click (…) Handles Play.Click‬‬
‫‪Dim gil As Integer‬‬
‫)"הקש את גילך"(‪gil = InputBox‬‬
‫‪If gil < 21 And gil > 0 Then‬‬
‫)"נפלא להיות צעיר"(‪MsgBox‬‬
‫)"אסור לך לרכוש משקאות אלכוהוליים"(‪MsgBox‬‬
‫‪Else‬‬
‫)"גיל זה דבר יחסי"(‪MsgBox‬‬
‫‪End If‬‬
‫‪End Sub‬‬
‫‪-3-‬‬