משתנים - variables

1. משתנה - הנו מאגר מידע זמני למרות ש- VBלא מחייבת הגדרת משתנים (כברירת מחדל) רצוי לעשות זאת. ודא שאופציה Required Variable decleration בתפריט Tools, Optionsבכטיסיה Editor מסומנת כפעילה, זה יגרום ל- VB לדווח על שגיאות ניתן להוסיף את הפקודה Option Explicit בראש הקוד בכל אחד מהטפסים והמודולים משתנים - variables

2. Integer – מספרים שלמים–2 בתים Long – מספרים שלמים – 4 בתים Single – מספרים עשרוניים – 4 בתים Double – מספרים עשרוניים – 8 בתים Currency – 15 ספרות משמאל לנקודה, עד 4 ספרות מימין String- בית 1 לכל תו Boolean - בית 1 DATE OBJECT VARIANT סוגי משתנים – רשימה חלקית - (Data Types)

3. משתנה לוקלי באזור השיגרה או הטופס : Dim i As integer, name as string Private i As integer משתנה גלובלי באזור המודול : Public i As Currency משתנה סטטי באזור השיגרה (שומר את ערכו) : Static name As String (שימוש במילה static בראש השיגרה הופכת את משתניה לסטטיים. הגדרת משתנים

4. Const meters=1000 public const progtitle=“my program” מילת המפתח public גורמת לקבועים להיות זמינים בכל התוכנית, בהנחה שההצהרה ב- module הגדרת קבועים

5. Dim Counter(15) as integer Public Counter(15) as integer Dim counter(1 to 16) as integer Dim sums(100 to 120) as strings כדי לשנות את ברירת המחדל של הערך הנמוך ביותר של האינדקס מ- 0 ל- 1 ניתן להגדיר במודול: option base 1 הגדרת מערכים בעלי אורך קבוע

6. Dim arr(9,9) as Double Static matrixa(1 to 10, 1 to 10) as integer Dim Multid(3, 1 to 10, 1 to 15) מערך רב-ממדי

7. Dim Arr() as Double הקצאת מספר האיברים האקטואלי ע”י משפט redim בתוך פרוצדורה sub calc() . . Redim Arr(19,25) End Sub מערך דינמי

8. private type person id as string name as string age as integer end type הגדרת סוגי משתנים חדשים

9. Dim myrecord as person, yourrecord_ as person הגדרת משתנים של סוגי משתנים חדשים

10. MsgBox “Hello Users” Dim mystr as string mystr = “Hello” & “Users” MsgBox mystr MsgBox(Prompt,[,buttons][,title][,helpfile,context]) הצגת הודעה

11. ניתן לשלב בתיבת ההודעה אחד מבין ארבעה סמלים אפשריים המציינים את מהות ההודעה: הודעה חשובה ביותר - מורה על התרחשות שגיאה חמורה(16) שאילתה - מורה על שהתוכנית זקוקה למידע נוסף מהמשתמש (32) אזהרה - מעיד על של שגיאת תוכנית העלולה להוביל לתוצאות בלתי רצויות(48) הודעת מצב - מיידעת את המשתמש לגבי מצב התוכנית (ציון סוף תהליכים שונים)(64) הצגת הודעה vbcritical vbquestion

12. ניתן להתריע בפני בעיות שונות או להודיע למשתמש לבצע מהלך מסוים וזה מתבצע ע”י החזרת ערך. Result = MsgBox(“the printer is not_ responding”, vbretriycancel,”priter_ error”) הצגת הודעה - ערך מוחזר

13. מערכת לחצניםערך קבוע OK 0 vbOkonly Cancel, OK 1 vbOkCancel Ignor,Retry,Abort 2 vbAbortRetryCcancel Cancel, No, Yes 3 vbYesNoCancel No, Yes 4 vbYesNo Cancel, Retry 5 vbCancelRetry הצגת הודעה - מערכת לחצנים

14. לחצן ערך קבוע OK 1 vbOk Cancel 2 vbCancel Abort 3 vbAbort Retry 4 vbRretry Ignor 5 vbIgnor Yes 6 vbYes No 7 vbNo הצגת הודעה - ערך מוחזר

15. הצגת הודעה - דוגמה Dim smsg as string dim nbuttons as integer Dim nresult as integer smsg=“are you sure you want to exit?” nbutton=vbyesno+vbquestion nresult=MsgBox(smsg,nbuttons,”my program”) if nresult=vbyes then end enif