Visual Basic 6.0 for Programmers
Visual Basic 6
לתוכניתנים
מאת אילן אמויאל
כתובת אימיילilan.amoyal@gmail.com :
אתר אינטרנטwww.kita.co.il :
© כל הזכויות שמורות למחבר
כתיבה עריכה :אילן אמויאל
כתובת אימיילilan.amoyal@gmail.com :
אתר אינטרנטwww.kita.co.il :
© כל הזכויות שמורות למחבר
אין להעתיק או לשדר בכל אמצעי שהוא ספר זה או קטעים ממנו בכל צורה ובכל אמצעי אלקטרוני
או מכני ,לרבות צילום והקלטה ,אמצעי אחסון והפצת מידע ללא צורך באישור מאת המחבר.
מותר להפיץ את הספר חינם וללא ביצוע כל שינוי בתוכנו ,אך שלא למטרות מסחריות
תוכן העניינים
11
הקדמה
אודות שפת 11 ............................................................................................................................... VISUAL BASIC
תוכן הספר 11 ......................................................................................................................................................
ידע מוקדם 11 ......................................................................................................................................................
קו התכניות 11 .....................................................................................................................................................
אי ננטילת אחריות11 ............................................................................................................................................
זכויות יוצרים וקניין רוחני 11 ................................................................................................................................
סוף דבר 11 ..........................................................................................................................................................
11
שיעור :1סקירה
אודות 13 .......................................................................................................................................VISUAL BASIC
יתרונות הפיתוח בVisual Basic-
חסרונות הפיתוח בVisual Basic-
13
13
הכרת סביבת הפיתוח המשולבת (11 .................................................. )INTEGRATED DEVELOPMENT ENVIRONMENT
תיבת הדו-שיח New Project
שורת התפריטים
סרגל הכלים הסטנדרטי של Visual Basic
חלון הProject Explorer-
חלון הProperties-
חלון הForm Layout-
ה( Toolbox-ארגז הכלים)
ה( Code Editor-עורך הקוד)
שיעור :2טפסים ותפריטים
11
11
11
11
11
11
11
11
11
פרוייקט 11 ..........................................................................................................................................................
11
11
12
יצירת פרוייקט חדש
הרצת פרוייקט
שמירת פרוייקט
ה FORM-הסטנדרטי12 .........................................................................................................................................
12
( Propertiesמאפיינים)( Methods ,שיטות) ,ו( Events-אירועים)
11
Propertiesשל Form
11
Methodsשל Form
11
Eventsשל Form
פונקציות ראשונות 11 ...........................................................................................................................................
הפונקציה Print
הפונקציה MsgBox
דוגמה :1התוכנית HelloWorld
11
11
11
הוספת הערות לקוד 11 ..........................................................................................................................................
11
המשך דוגמה 1
( MDI FORMטופס 11 ................................................................................................................................. )MDI
Propertiesשל MDI Form
Methodsשל MDI Form
-3אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
11
11
תוכן העניינים
( MENUSתפריטים) 11 ..........................................................................................................................................
Propertiesשל Menu
Eventsשל Menu
11
11
עבודה עם צבעים 11 ..............................................................................................................................................
הפונקציה QBColor
הפונקציה RGB
אוסף הקבועים ColorConstants
אוסף הקבועים SystemColorConstants
דוגמה – 1התוכנית Colors
11
11
11
11
11
תרגילים31 ..........................................................................................................................................................
שיעור :1הפקדים הסטנדרטיים I
13
( LABELתווית) 31 .................................................................................................................................................
31
31
Propertiesשל Label
Eventsשל Label
( TEXTBOXתיבת טקסט) 31 ..................................................................................................................................
31
Propertiesשל TextBox
31
Eventsשל TextBox
( COMMANDBUTTONלחצן פקודה) 31 ....................................................................................................................
31
Propertiesשל CommandButton
( HSCROLLBARפס גלילה אופקי) ו( VSCROLLBAR-פס גלילה אנכי) 31 ........................................................................
31
Propertiesשל פסי גלילה
31
Eventsשל פסי גלילה
פונקציות לעבודה עם מחרוזות 31 ...........................................................................................................................
31
31
31
31
31
31
31
31
31
31
הפונקציה Len
הפונקציה Val
הפונקציה Str
הפונקציה UCase
הפונקציה LCase
הפונקציות LTrim ,TrimוRtrim-
הפונקציות Left ,MidוRight-
האופרטור &
הקבוע vbCrLf
הפונקציה Asc
התנאי 31 ...............................................................................................................................IF...THEN...END IF
תרגילים12 ..........................................................................................................................................................
שיעור :4מרכיבי השפה I
41
( VARIABLESמשתנים) ו( CONSTANTS-קבועים) 13 ...................................................................................................
13
11
11
סוגי משתנים
הצהרה על משתנים
הצהרה על קבועים
( CONTROL STRUCTURESמבני בקרה) 11 ...............................................................................................................
11
המבנה If...Then...Else
11
המבנה While...Wend
-1אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
11
11
11
המבנה Do...Loop
המבנה For...Next
המבנה Select Case
הפונקציות INPUTBOX ,BEEPו12 ................................................................................................................... IIF-
12
הפונקציה Beep
12
הפונקציה InputBox
12
הפונקציה IIf
תרגילים11 ..........................................................................................................................................................
שיעור :3הפקדים הסטנדרטיים II
31
( CHECKBOXתיבת סימון) 13 ................................................................................................................................
13
13
Propertiesשל CheckBox
Eventsשל CheckBox
( OPTIONBUTTONלחצן אפשרות) 13 ......................................................................................................................
13
Propertiesשל OptionButton
( FRAMEמסגרת) 11 ..............................................................................................................................................
11
Propertiesשל Frame
11
Methodsשל Property
11
דוגמה :1התוכנית CopyText
( LISTBOXתיבת רשימה) 11 ...................................................................................................................................
11
Propertiesשל ListBox
11
Methodsשל ListBox
11
Eventsשל ListBox
( COMBOBOXתיבה משולבת) 11 ............................................................................................................................
11
Propertiesשל ComboBox
( LINEקו) ו( SHAPE-צורה) 11 ................................................................................................................................
11
Propertiesשל LineוShape-
( TIMERפקד שעון) 11 ............................................................................................................................................
11
Propertiesשל Timer
11
Eventsשל Timer
11
דוגמה StudentCourses – 1
תרגילים11 ..........................................................................................................................................................
שיעור :6מרכיבי השפה II
63
המילה 11 ................................................................................................................................................... WITH
( ARRAYSמערכים) 11 ............................................................................................................................................
11
11
11
11
( One-Dimensional Arraysמערכים חד ממדיים)
( Multi-Dimensional Arraysמערכים רב ממדיים)
( Dynamic Arraysמערכים דינמיים)
בדיקת גודל מערך בזמן ריצה באמצעות LBoundוUBound-
( CONTROL ARRAYמערכי פקדים) 11 .....................................................................................................................
11
תרגיל – 1התוכנית CommandBoard
פרוצדורות ב12 ............................................................................................................................. VISUAL BASIC-
11
רוטינות ופונקציות שלב I
11
קריאות לרוטינות ופרוצדורות
-1אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
תוכן העניינים
11
רוטינות ופרוצדורות שלב II
מודולי קוד סטנדרטיים 11 ........................................................................................................................... *.BAS
הפעלת פונקציות מחלון ה11 ................................................................................................................IMMEDIATE
11
תרגיל – 1הפעלת קוד מחלון הImmediate-
( ENUMERATIONSאוספי קבועים) 11 ......................................................................................................................
11
דוגמאות
( USER-DEFINED TYPESסוגי נתונים מוגדרים על ידי המשתמש) 11 ...........................................................................
11
דוגמאות
שיעור :7הרצה וניפוי שגיאות
11
חלונות תצוגה שונים לאבחון 11 .............................................................................................................................
שלושת המצבים של תוכנית 11 ...............................................................................................................................
התפריט ( RUNהרצה) 11 .......................................................................................................................................
11
11
11
11
11
( Startהתחל)
( Start With Full Compileהתחל לאחר קימפול מלא)
( Breakעבור ל)Break Mode-
( Endסיים)
( Restartהתחל מחדש)
התפריט ( DEBUGניפוי שגיאות) 11 .........................................................................................................................
11
( Step Intoצעד לתוך)
11
( Step Overצעד מעבר)
11
( Step Outצא החוצה)
11
( Run To Cursorהרץ עד הסמן)
13
( Add Watchהוספת תצפית)
13
( Edit Watchערוך תצפית)
13
( Quick Watchתצפית מהירה)
11
( Toggle Breakpointהפוך מצב של נקודת עצירה)
11
( Clear All Breakpointsהסר את כל נקודות העצירה)
11
( Set Next Statementקבע את המשפט הבא לביצוע)
11
( Show Next Statementהצג את המשפט הבא לביצוע)
האובייקט 11 ........................................................................................................................................... DEBUG
טיפול בשגיאות בקוד התוכנית 11 ...........................................................................................................................
האובייקט Err
On Error...
On Error GoTo line
On Error Resume Next
On Error GoTo 0
המשפט Resume
הפונקציה Error
11
11
11
11
11
11
11
שיעור :1מבוא לתכנות מבוסס רכיבים 11 COMPONENTWARE DEVELOPMENT
תכנות פרוצדורלי לעומת תכנות מונחה עצמים 11 .....................................................................................................
11
11
Procedural Programming
Object Oriented Programming
( EVENT ORIENTED PROGRAMMINGתכנות מונחה אירועים) 11 ...............................................................................
-1אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
11 ............................................................................................................ )COM( COMPONENT OBJECT MODEL
התמיכה של VISUAL BASICב OOP-ו11 ...................................................................................................... COM-
שיעור :1תכנות מונחה עצמים בVISUAL BASIC-
17
( CLASSESמחלקות) 11 .........................................................................................................................................
11
11
11
11
11
11
122
121
121
112
112
111
111
111
Propertiesשל Class Module
Eventsשל Class Module
הגדרת משתנים בClass-
הוספת פרוצדורות לClass-
הצהרה על אובייקטים מסוג המחלקה
( Reference Countingספירת התייחסויות)
תרגיל – 1התוכנית ClassDemo
תרגיל – 1התוכנית RectDemo
תרגיל – 3התוכנית EventDemo
מימוש Interface
אבחון תכונות אובייקט בזמן ריצה
תרגיל – 1התוכנית ImplementsDemo
Early Bindingלעומת Late Binding
תרגיל – 1התוכנית Analyzer
הגדרת תכונות של פרוצדורות ב111...................................................................................................... INTREFCAE-
111
צפייה בתכונות באמצעות Object Browser
111
תרגיל – 1צפייה באובייקטים באמצעות הObject Browser-
111
צפייה באמצעות היישום OLE VIEW
111
תרגיל OLE View – 1לבעלי לב חזק בלבד
111
הגדרת תכונות
( COLLECTIONSאוספים) 112.................................................................................................................................
112
תחביר
111
הלולאה For each ..In .. Next
111
תרגיל – 1התוכנית ShapeColl1
111
מחלקות Collectionמותאמות אישית
111
תרגיל – 1התוכנית ShapeColl2
שיעור ACTIVEX DLL :11
113
מושגים 131..........................................................................................................................................................
יצירת 131..................................................................................................................................... ACTIVEX DLL
יצירת אובייקטים
הצגת ממשק משתמש
ניהול קבוצת פרוייקטים במקביל
תרגיל – 1ספריית הרכיבים SecurityLib
( Instancingיצירת מופעים)
תרגיל – 1שינוי המאפיין Instancingבמחלקה CLogin
הגדרת כתובות בסיס לרכיבי DLL
תרגיל – 3שינוי כתובת הבסיס לספרייה SecurityLib
טיפול בשגיאות ברכיב
תרגיל :1ספריית הרכיבים DynamicArray
-1אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
131
131
131
131
111
111
111
113
113
111
תוכן העניינים
שיעור :11כתיבת STORED PROCEDURESבSQL SERVER-
141
111.................................................................................................................................. STORED PROCEDURES
111
112
תהליך הביצוע של משפט SQLהנשלח על ידי לקוח
תהליך הביצוע של בקשה להפעלת Stored Procedureמתוך תוכנית לקוח
כתיבת STORED PROCEDURESב112................................................................................................ SQL SERVER-
112
פרוצדורה פשוטה ללא פרמטרים
111
פרוצדורה המקבלת פרמטרים
111
הגדרת ערך ברירת מחדל לפרמטרים
111
החזרת ערך מפרוצדורה באמצעות משתנה
113
שימוש במשתנים מקומיים
113
יציאה מפרוצדורה באמצעות RETURN
שיעור ACTIVEX DATA OBJECTS :12
133
סקירה של טכנולוגיות הגישה לנתונים 111...............................................................................................................
111
111
111
111
111
111
111
111
111
111
111
)Open Database Connectivity( ODBC
)Data Access Object( DAO
)Data Control( DC
)Remote Data Object( RDO
)Remote Data Control( RDC
ODBCDirect
OLE DB
)ActiveX Data Objects( ADO
MSDASQL
)ADO Data Control( ADODC
תרגיל NwindDSN– 1
111.................................................................................................................... )ACTIVEX DATA OBJECTS( ADO
111
Data Link
111
תרגיל NWind.udl :1
112
תרגיל Pubs.udl :3
111
תרגיל NWindDSN.udl :1
111
האובייקט Connection
111
תרגיל – 1התוכנית SimpleConnection
111
-Eventים של אובייקט Connection
111
תרגיל – 1התוכנית ConnectWithEvents
האובייקט 111...................................................................................................................................RECORDSET
111
תרגיל – 1התוכנית DisplayEmployees
111
המאפיין CursorType
111
תנועה בRecordset-
( CURSORSסמנים) 111..........................................................................................................................................
111
המאפיין LockType
111
מאפיינים נוספים
111
תרגיל – 1התוכנית NevigateRecords
111................................................................................................................................... ADO DATA CONTROL
113
Propertiesשל ADODC
-1אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
Methodsשל ADODC
Eventsשל ADODC
113
111
עיצוב הנתונים 111................................................................................................................................................
StdDataFormats Objects
הערות לגבי Data Bound Controls
שיעור COM+ :11
111
111
113
תרגיל COM+Demo :1
111
יצירת רכיבים המותאמים לפעולה תחת 111................................................................................................. COM+
המאפיין MTSTransactionMode
האובייקט ObjectContext
תרגיל MTSSample.dll :1
תרגיל :3הוספת MTSSampleDLL.dllלCOM+-
תרגיל :1בחינת פעולת MTSSample.dllתחת COM+
תרגיל :1הוספת Rolesלאפליקצית COM+
תרגיל :1בדיקת הרשאות מתוך רכיב
תרגיל :1העברת ConstructStringלרכיב
תרגיל :1קליטת ConstructStringמרכיב
-1אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
111
111
111
111
111
111
111
111
111
הקדמה
(הקדמה זו שוכתבה בשנת )2112
אודות שפת
VISUAL BASIC
Visual Basic 6היא שפה וטכנולוגיה ותיקה מאוד בשוק מערכות המידע ,אשר עדיין נמצאת בשימוש בעיקר במערכות
שנכתבו לפני הפצת טכנולוגית dot.NETלשוק ע"י ידי מייקרוסופט ,בסביבות שנת .1221על מערכות מידע אלה יש להוסיף
מערכות תוכנה שונות שמאפשרות להרחיב את פעולתן על ידי כתיבת הרחבות באמצעות ,Visual Basic for Applications
למשל ,תוכנות Microsoft Officeהשונות ,Autocad ,ועוד.
אמנם ,מאז יציאתה לשוק של טכנולוגית dot.NETעל ידי מייקרוסופט ,ירד קרנה של Visual Basic 6לשם פיתוח מערכות
מידע חדשות ,אך עדיין יש צורך במפתחים לצורך תחזוקת מערכות קיימות או לשם פיתוח הרחבות למערכות המאפשרות
זאת על ידי .Visul Basic for Applicationsלכן ,כמתכנת תוכל להיעזר בספר זה כמשאב למידה בשעת הצורך ,ואם הנך
מתכנת מתחיל המתעניין בשפה ובטכנולגית ,Visual Basic 6אין ספק שתוכל להפיק תועלת רבה מספר זה.
תוכן הספר
ספר זה נועד להדריך את המתכנת ברזי שפת ,Visul Basic 6והטכנולוגיות הנלוות אליה תוך שימוש יעיל בשפה וביכולות
פיתוח מוכווני עצמים עד כמה שהם נתמכים ב.Visual Basic 6-
בספר עצמו השתדלתי ,עד כמה שניתן ,להיות תמציתי ותכליתי ,ולתת דוגמאות ברורות אשר מתמקדות בנושא הנלמד ולא
מתפזרות סביב .בכתיבת הדוגמאות השתדלתי שלא להלאות את הקורא בפרטים ,אלא להנחות אותו שלב שלב בצעדים
שעליו להשלים על מנת לסיים את כתיבת הדוגמה .את ההסבר על אופן הפעולה של תוכניות הדוגמה הבאתי מיד לאחר כל
דוגמה.
בספר זה עשיתי שימוש יעיל בקורסים אותם העברתי בשעתו בחברות טכנולוגיה ,בעיקר לפני יציאתה לשוק של טכנולוגיית
.dot.NETהספר לא הושלם עד תומו (ובעיקר שני הפרקים אחרונים שבספר) ,אך את עיקר החומר אפשר לקבל מן הפרקים
שנכתבו ובוודאי שגם מחיפוש מידע באינטרנט.
נושאים נוספים אותם רציתי למצות בספר זה אך לא עשיתי זאת הם:
- XML סקירה ושימוש באמצעות Visual Basic
Deployment and Maintanance
גישה ל Win32 API-מתוך קוד VB
סקירה של ASP
ניתוח ועיצוב תוכנה
יצירת ממשקים באמצעות IDL
חשוב לשים לב כי חלק מהנושאים הללו חשובים ביותר לכל מתכנת Visual Basicמקצועי (בעיקר השלושה הראשונים
שפרטתי) ,ולכן אם אתה מוצא את עצמך לומד מספר זה ,אני ממליץ לך לחפש חומר אודות הנושאים שלא מיציתי בספר
באמצעות רשת האינטרנט.
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
הקדמה
ידע מוקדם
ספר זה מניח כי אתה מתכנת בעל ידע בסיסי בתכנות ,בעל יכולת לייצג מספרים בבסיסים בינארי ,אוקטאלי והקצאדצימלי,
ובעל נסיון בכתיבת קוד בשפה כלשהי.
קו התכניות
קובץ ה Zip-המכיל את הספר הזה ,מכיל גם ספרייה בשם Codeהכולל את קוד המקור של התכניות המובאות כדוגמאות
בפרקי הספר .כמו כן ,ספרייה זו כוללת הצעות פתרון לתרגילים המובאים בסופי חלק מהפרקים.
אי ננטילת אחריות
המחבר אינו מתחייב על שלמות המידע שבספר או הפרקים שבו ומידת דיוקם.
הקריאה מספר זה והסתמכות על הכתוב בו בכל סוג של יישום היא על אחריותך בלבד .אין המחבר יהיה אחראי בכל צורה
שהיא לכל סוג של נזק שעלול להיגרם כתוצאה משימוש בהוראות והנחיות הכתובות בספר זה.
אם בכל זאת החלטת לעשות שימוש בספר זה ,שים לב כי עליך לקבל תנאי זה ללא כל סייג וכל נזק אם חלילה ייגרם ,הנו על
אחריותך בלבד.
זכויות יוצרים וקניין רוחני
מחבר הספר שומר לעצמו את זכויות היוצרים של ספר זה.
עם זאת כבר אמרו חזל "אין אדם יוצא מן העולם וחצי תאוותו בידו" .אם כן ,החליט המחבר לאפשר הפצה חופשית
וחינמית של הספר ללא כל צורך בהרשאה מהמחבר .וזאת תחת התנאים הבאים:
אין להעתיק או לשדר בכל אמצעי שהוא ספר זה או קטעים ממנו בכל צורה ובכל אמצעי אלקטרוני
או מכני ,לרבות צילום והקלטה ,אמצעי אחסון והפצת מידע ללא צורך באישור מאת המחבר.
מותר להפיץ את הספר חינם בשלמותו בלבד ,ללא הכנסת כל שינוי ,גריעת תוכן וכיוצה בזה.
הפצת הספר לא תיעשה בשום אופן למטרות מסחריות.
בספר זה ,ייתכן ומוזכרים מידי פעם סמלים מסחריים של גופים מסחריים שונים .יש לציין כי זכויות היוצרים ו/או הקניין
הרוחני של המוצרים הללו ,כולל שמותיהם וסמליהם בכל מקום בו הם מוזכרים שמורה לבעליהם החוקיים בלבד.
סוף דבר
אני מקווה שספר זה אכן יהיה לך לעזר וישמש אותך היטב בעת הצורך .כפי ששימש בעבר את הלומדים ממנו.
בברכה,
אילן אמויאל
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1סקירה
בשיעור זה:
תכיר את יתרונות הפיתוח שבVisual Basic-
תכיר רכיבים בסיסיים בסביבת הפיתוח המשולבת של Visual Basic
אודות
VISUAL BASIC
Visual Basicהיא סביבת פיתוח מבית היוצר של Microsoft
Visual Basicכוללת מרכיבי שפה ( )Basicומרכיבים גרפיים המאפשרים פיתוח אפליקציות משולב.
יתרונות הפיתוח ב Visual Basic -
קלות פיתוח
חזותיות
מהירות פיתוח
כלי Debugהנם חלק אינטגרלי מסביבת הפיתוח
ניתן להפעיל את כלי ה Debug-בשילוב עם סביבות פיתוח אחרות
ניתן להכניס תוספות ( )Add-Insלסביבת הפיתוח
ניתן לנהל מספר פרוייקטים במקביל ,תחת קבוצה ( )Groupאחת
קיימת תמיכה לשימוש ויצריה של רכיבי ActiveX
חסרו נות הפיתוח ב Visual Basic -
פיתוח ב Visual Basic-פירושו פיתוח אפליקציות לסביבת Microsoft Windowsבלבד
תוכניות הנכתבות ב Visual Basic-מהירות פחות מתוכניות הנכתבות בשפת ,Cואינן מתאימות ליישומים
הדורשים ביצועים מהירים כמו Real Time
תוכנית הנמצאת בשלבי פיתוח ומורצת מתוך Visual Basicרצה כ Thread-בתוך Visual Basicולא כProcess-
נפרד .המשמעות היא שקריסה של ריצת התוכנית גורמת לקריסת ( Visual Basicהכוונה לקריסה קריטית ולא
לשגיאה רגילה)
פיתוח יישומים מרובי Threadsהיא משימה לא קלה בVisual Basic-
- 13אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1סקירה
הכרת סביבת הפיתוח המשולבת (
)ENVIRONMENT
INTEGRATED DEVELOPMENT
סביבת הפיתוח של Visual Basicכוללת רכיבים רבים ,נכיר את חלקם ,חלק אחר שלהם נכיר בהמשך הקורס.
תיבת הדו -שיח New Project
תיבה זו נפתחת אוטומטית בעת הפעלת ,Visual Basicאו בעת בחירת הפריט Newמהתפריט File
תיבה זו מאפשרת לבחור פרוייקט חדש מסוגים שונים
תיבה זו כוללת ( Templatesתבניות) ו( Wizards-אשפים) המאפשרים קיצור משך הפיתוח
שורת התפריטים
שורת התפריטים של Visual Basicכוללת מספר רב של פריטים ,נציג את החשובים שבהם:
התפריט Fileמאפשר יצירת פרוייקטים חדשים ,שמירת פרוייקט פתוח ,סגירת פרוייקט ,קומפילציה (הידור) של
תוכנית ,ועוד.
התפריט Editמאפשר פעולות עריכה שונות כגון ,העתקה ,גזירה ,הדבקה ,חיפוש והחלפה אוטומטיים ,השלמה
אוטומטית של מילים שמורות ושמות פונקציות ,ועוד.
התפריט Viewשולט בעיקר על אופן התצוגה של Visual Basicועל רכיבי ה IDE-המוצגים.
התפריט Projectכולל אפשרויות להוספת רכיבים לפרוייקט ,והסרה של רכיבים ,שליטה על סוג הפרוייקט
ומאפייניו ,ועוד.
התפריט Formatמאפשר לעצב את הפקדים על הטופס.
התפריט Debugמאפשר להריץ ולנפות שגיאות מהתוכנית.
התפריט Runמאפשר הרצה ,השהייה והפסקה של התוכנית.
התפריט Toolsמאפשר הוספת שלדי פונקציות ,מתודות ומאפיינים לרכיבי קוד בפרוייקט ,הוספת תפריטים
לפרוייקט ,כמו גם אפשרויות מתקדמות להגדרת אופן ההתנהגות של .Visual Basic
התפריט Add-Insמאפשר לצרף תוספות של יצרן צד שלישי לממשק .Visual Basic
התפריט Windowמאפשר שליטה על אופן פריסת החלונות בחלון ה.IDE-
התפריט Helpמאפשר קבלת עזרה.
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
סרגל הכלים הסטנדרטי של Visual Basic
סרגל הכלים הסטנדרטי כולל את אפשרויות התפריט השימושיות ביותר
ניתן להוסיף סרגלי כלים נוספים לתצוגה ע"י בחירה מתאימה מתוך התפריט ,Viewאו ע"י לחיצה ימנית על
איזור סרגלי הכלים ובחירה בתפריטים המתאימים.
להלן הסבר כללי על פריטי סרגלי הכלים ,שחלק לא קטן מהם אתה מכיר:
הפריט
מוסיף פרוייקט נוסף
הפריט
מוסיף רכיבים לפרוייקט
הפריט
מוסיף תפריטים לתוכנית
הפריטים
הפריטים
הפריטים
הפריטים
הפריט
מציג מסתיר את הProject Explorer-
הפריט
מציג/מסתיר את הProperties Window -
הפריט
מציג/מסתיר את הForm Layout Window-
הפריט
מציג/מסתיר את הToolbox-
מאפשרים פתיחה ושמירה של פרוייקט
מאפשרים גזירה ,הדבקה ,העתקה ,חיפוש והחלפה של טקסט
מאפשרים ביטול והפעלה מחדש
מאפשרים הפעלה ,השהייה והפסקה של התוכנית
חלון ה Project Explorer -
בחלון זה רואים את רכיבי הפרוייקט
כאשר מנהלים מספר פרוייקטים במקביל ,רואים אותם ב Project Explorer-תחת Groupאחד
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1סקירה
חלון ה Properties -
חלון ה Properties-מציג את מאפייני הרכיב או האובייקט הנבחר.
האובייקט הנבחר יכול להיות ( Formטופס)( Control ,פקד) ,הפרוייקט עצמו ,או קבוצת רכיבים.
ניתן לצפות במאפיינים בסדר אלפביתי או מסודרים לפי קטגוריות.
חלון ה Form Layout -
ב Form Layout-ניתן לראות ולקבוע כיצד ייפרסו הטפסים על המסך בעת פתיחתם
ניתן לקבוע את אופו פריסת הטפסים מחלון זה או מתוך חלון מאפייני הטופס
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
ה ( Toolbox -ארג ז הכל ים)
( PictureBoxתיבת תמונה)
( TextBoxתיבת טקסט)
( CommandButtonלחצן פקודה)
( OptionBoxלחצן אפשרות)
מצביע לבחירת אובייקט
( Labelתווית)
( Frameמסגרת)
( CheckBoxתיבת סימון)
( ListBoxתיבת רשימה)
( ComboBoxתיבה משולשבת)
( VscrollBarפס גלילה אנכי)
( HscrollBarפס גלילה אופקי)
( DriveListBoxתיבת רשימת הכוננים)
( FileListBoxתיבת רש ימת קבצים)
( Lineקו)
( Dataפקד )Data
( Timerשעון)
( DirListBoxתיבת רשימת ספריות)
( Shapeצורה)
( Imageפקד דמות /תמונה)
( OLEפקד קיצור והטבעה)
ה ToolBox-של Visual Basicמציג במצב התחלתי את הפקדים הסטנדרטיים של Visual Basic
ניתן להוסיף פקדים נוספים לToolBox-
ניתן לארגן את הפקדים השונים לפי קבוצות
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1סקירה
ה ( Code Editor -עורך הקוד)
– Procedureרשימת פרוצדורות ()Events
– Objectרשימת אובייקטים
- Codeאזור הקוד
במרכז המסך ממוקם חלון הקוד – כאן רושמים את שורות הקוד השונות
התיבה המשולבת ( )ComboBoxמשמאל מציגה את רשימת האובייקטים הזמינים לעריכת קוד
התיבה המשולבת ( )ComboBoxמימין מציגה את רשימת האירועים הזמינים עבור האובייקט
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 2טפסים ותפריטים
בשיעור זה:
תבין מהו פרוייקט בVisual Basic-
תכיר את הפרוייקט מהסוג Standard EXE
תכיר את מבנה החלון בסביבת Microsoft Windows
תבין את המושגים Methods ,PropertiesוEvents-
תכיר את המושגים Design TimeוRun Time-
תכיר את שני סוגי ה( Forms-טפסים) העיקריים ב :Visual Basic-טופס רגיל וטופס MDI
תלמד לעבוד עם ( Menusתפריטים)
תכיר את הפונקציות PrintוMsgBox-
תלמד להוסיף הערות לקוד
תלמד כיצד ניתן לשלוט על מיקום ופריסת הטפסים ביחס למסך ,ביחס לחלון אב ,וביחס לחלון MDI
תכיר את סוגי הקבצים המאחסנים את נתוני הפרוייקט ואת נתוני הForms-
פרוייקט
פרוייקט ב Visual Basic-הוא אוסף קבצים המאוגדים כקבוצה אחת לשם יצירת תוכנית מסוג כלשהו
ב Visual Basic-ניתן ליצור פרוייקטים מסוגים שונים ולנהל מספר פרוייקטים
פרוייקט ב Visual Basic-מאוחסן בקובץ שהסיומת שלו היא .*.vbpקובץ זה הוא קובץ טקסט המכיל מידע מגוון
אודות הפרוייקט
לעתים יש צורך לערוך ידנית את קובץ הפרוייקט .למשל ,כשמידע מסויים בקובץ שגוי וגורם לבעיות בטעינת
הפרוייקט
יצירת פרוייקט חדש
בעת הפעלת Visual Basicנפתח באופן אוטומטי חלון New Project
מתוך חלון ה New Project-ניתן לבחור את סוג הפרוייקט שרוצים לפתח
לשם יצירת פרוייקט חלונות סטנדרטי יש לבחור את Standard EXE
ניתן להפעיל את חלון ה New Project-גם מתוך התפריט File
הפרוייקט ורכיביו מוצגים בחלון הProject Explorer-
לאחר סימון הפרוייקט ב Project Explorer-ניתן לקבוע את שמו בProperties Window-
ניתן לקבוע את שם הפרוייקט ומאפיינים נוספים של הפרוייקט ע"י בחירת [Project name] Properties...מתוך
התפריט ,Projectכאשר ] [Project Nameהוא שם הפרוייקט שבפיתוח ,נכיר את המאפיינים השונים של
הפרוייקט במהלך הקורס
הרצת פרוייקט
ניתן להריץ את התוכנית שבפיתוח ע"י לחיצה על הכפתור Startאו ע"י לחיצה על המקש F5
השלב שבו מפתחים את הפרוייקט ,נקרא Design Time
השלב שבו הפרוייקט נמצא במצב ריצה נקרא Run Time
כדי להפסיק (באופן לא מסודר) את ריצת התוכנית שבפיתוח יש ללחוץ על הלחצן Stop
לחיצה על Stopעוצרת באופן מידי את התוכנית תוך דילוג על אירועי הסיום המובנים בתוכנית
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Start
Stop
שיעור :2טפסים ותפריטים
שמירת פרוייקט
Visual Basicשומרת את הפרוייקט במספר קבצי טקסט
הנתונים אודות הפרוייקט עצמו ומאפייניו מאוחסנים בקובץ שהסיומת שלו היא *.vbp
במקרה הצורך ,ניתן לערוך קובץ זה באמצעות הNotepad-
ה FORM-הסטנדרטי
בעת יצירת פרוייקט מסוג Standard EXEנוסף Formרגיל לפרוייקט
ניתן להוסיף Formsנוספים ע"י בחירת Add Formמהתפריט Project
טפסים נשמרים בקבצים בעלי הסיומת *.frm
קובץ זה הוא קובץ טקסט הכולל את הקוד השייך לטופס (קוד זה מוצג בעת טעינת הטופס ב ,)Visual Basic-כמו
גם ,נתונים נוספים הממוקמים בראש הקובץ ,כגון מאפיינים (שגם הם מוצגים בחלון המאפיינים)
אם קיים צורך ,ניתן לערוך קובץ זה ידנית מתוך הNotepad-
מרכיבי Form
Maximize/Restore Button
( לחצן הגדלה /שחזור)
Minimize Button
( לחצן הקטנה)
( Title Barשורת כותרת)
( Captionכותרת)
( Iconסמל החלון)
וה Control Menu-
( תפריט הבקרה)
Close Button
( לחצן סגירה)
Form Grid
( רשת עיצוב –מוצגת
בזמן הפיתוח בלבד)
( Client Areaאזור הלקוח)
Window Area Border
( גבול אז ור החלון)
( Propertiesמאפיינים)( Methods ,שיטות) ,ו ( Events -אירועים)
( Propertyמאפיין) של אובייקט הוא ערך מסוג מסוים הקובע פן מסוים בהתנהגות האובייקט .למשל ,המאפיין
Captionשל Formקובע את הטקסט המופיע בפס הכותרת של הטופס.
( Methodשיטה) של אובייקט היא שגרה המופעלת מתוך האובייקט ומשפיע על אופן תפקודו .למשל ,המתודה
Moveשל טופס משנה את מיקומו על המסך.
( Eventאירוע) של אובייקט הוא שגרה המופעלת בעת התרחשות מסוימת הקשורה באותו אובייקט .למשל,
האירוע Loadשל Formמופעל עם טעינת הטופס.
לרוב האובייקטים (כולל טפסים ופקדים) קיימים Methods ,PropertiesוEvents-
הכרה של Methods ,Propertiesו Events-של Formאו ,Controlחוסכת לימוד חוזר שלהם עבור אובייקטים
שמכירים לאחר מכן ,כיוון שאופן ההתנהגות הוא בדרך שלל זהה.
- 12אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
שים לב:
בסעיפים הבאים אפרט את חלק ניכר מהמאפיינים ,השיטות והאירועים של טופס .לעתים קרובות
המאפיינים ,השיטות והאירועים הללו זהים בין אובייקטים שונים ,ולכן לא אסביר אותם מחדש כאשר
אסביר לך אודות אובייקטים נוספים ,כגון טופס CommandButton ,MDIוכו' ,אלא אם יש הבדל באופן
פעולתם העקרוני.
Propertiesשל Form
:Nameהשם המוקצה לאובייקט ה ,Form-באמצעות שם זה פונים למאפייני ה Form-או למתודות שלו
:BackColorקובע את צבע הרקע של הForm-
:BorderStyleקובע את סגנון הגבול של הטופס
:Captionקובע את הטקסט המוצג בפס הכוותרת
:ControlBoxקובע האם יוצגו תפריטי הבקרה
:Enabledקובע האם ה Form-יהיה פעיל או לא ( Enabledאו Form .)Disabledפעיל יכול להגיב לאירועים
המתרחשים ,כגון לחיצת עכבר וכו'
:FillColorצבע המילוי עבור צורות המצוירות באמצעות שגרות גרפיות על גבי הForm-
:FillStyleסגנון המילוי (קיימים שמונה סגנונות מילוי שונים - Solid :מלא - Transparent ,שקוף,
- HorizontalLineקווקו אנכי ,ועוד)...
:Fontסגנון הגופן עבור פעולות גרפיות הכותבות טקסט על גבי הForm-
:ForeColorקובע את צבע הקידמה ,כלומר ,את הצבע באמצעותו יצוירו גבולות הצורות הגרפיות והטקסט
:Heightגובה הForm-
:Iconסמל הטופס
:KeyPreviewקובע האם ה Form-יקלוט את אירועי הפקדים שבתוכו לפני שהם מגיבים להם
:Leftמיקום נקודת הקצה השמאלית של הForm-
:MaxButtonקובע האם כפתור ההגדלה שבתפריט הבקרה יהיה פעיל או לא
:MDIChildקובע האם הטופס יהיה טופס בן של טופס ה MDI-בתוכנית
:MinButtonקובע האם כפתור המזעור בתפריט הבקרה יהיה פעיל
:Moveableקובע האם ה Form-יהיה נייד במהלך ריצת התוכנית
:NegotiateMenusקובע האם ה Form-ישתף תפריטים של האובייקטים שבתוכו בשורת התפריטים שלו
:Pictureהוספת תמונה לרקע של הטופס
:RightToLeftקובע את כיוון הצגת הטקסט
:ScaleHeightגובה אזור הלקוח ב Form-לפי יחידות המדידה המצוינת בScaleMode-
:ScaleLeftערך קצהו השמאלי של אזור הלקוח בForm-
:ScaleModeיחידות המדידה לפיהן נמדד אזור הלקוח (ה( Client Area-ניתן ליצור יחידות מדידה מותאמות
אישית – ואז לקבוע באופן חופשי את הערכים ScaleHeight ,ScaleTop ,ScaleLeftו –)ScaleWidth
:ScaleTopערך קצהו העליון של אזור הלקוח בForm-
:ScaleWidthרוחב אזור הלקוח של ה Form-לפי יחידות המדידה שנקבעה בScaleMode-
:ShowInTaskbarקובע האם יוצג סמל התוכנית בשורת המשימות
:StartUpPositionקובע את מיקום ה Form-ביחס למסך או לחלון האב
:Topמיקום נקודת הקצה העליונה של הForm-
:Visibleקובע האם ה Form-יהיה נראה ( )Visibleאו לא
:Widthרוחב הForm-
:WindowStateקובע את מצבו ההתחלתי של ה( Form-מוגדל/מוקטן/נורמלי)
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :2טפסים ותפריטים
Methodsשל Form
:Clsמנקה ציורים וטקסט שנוספו ל Form-בזמן הריצה
:Hideמסתיר את הטופס אך לא פורק ( )Unloadingאותו
:Moveמשנה את מיקומו ו/או את גודלו של הForm-
:PopupMenuמציג תפריט מוקפץ
:Refreshמרענן את תוכן ה Form-כך שיצטייר מחדש
:SetFocusמעביר את ה( Focus-מיקוד) לForm-
Eventsשל Form
:Activateמתרחש כשה Form-הופך להיות פעיל
:Clickמתרחש כשלחצן העכבר נלחץ ומשוחרר על גבי הForm-
:DblClickמתרחש בעת לחיצה כפולה על הטופס
:Deactivateמתרחש כשה Form-הופך ללא פעיל
:GotFocusמתרחש כאשר ה Form-מקבל את ה( Focus-מיקוד)
:Initializeמתרחש בעת אתחול הForm-
:KeyDownמתרחש בעת לחיצת מקש
:KeyPressמתרחש לאחר לחיצה ושחרור של מקש
:KeyUpמתרחש לאחר שחרור מקש
:Loadמתרחש בעת טעינת הForm-
:LostFocusמתרחש בעת איבוד ה( Focus-מיקוד)
:MouseDownמתרחש בעת לחיצה על אחד הלחצנים בעכבר
:MouseMoveמתרחש בעת תזוזת עכבר
:MouseUpמתרחש בעת שחרור אחד הלחצנים בעכבר
:Paintמתרחש בעת ציור תוכן הטופס מחדש
:QueryUnloadמתרחש לפני פירוק ( )Unloadingשל הטופס
:Resizeמתרחש בעת שינוי גודל הForm-
:Terminateמתרחש בעת סיום פעולת הטופס
:Unloadמתרחש בעת פריקת הטופס
האירועים GotFocus ,Deactivate ,Activate ,Unload ,Load ,Terminate ,Initializeו LostFocus-וQueryUnload-
האירוע Initializeמתרחש בעת יצירת האובייקט בזכרון (תמיד מתרחש לפני ,)Loadלאחר InitializeהForm-
קיים כאובייקט אך עדיין לא כחלון
האירוע Terminateמתרחש בעת שחרור האובייקט מהזכרון (מתרחש תמיד אחרי ,Unloadאך אינו מתרחש אם
התוכנית הסתיימה בצורה לא נורמלית)
האירוע Loadמתרחש בעת טעינת האובייקט מהזכרון והפיכתו לחלון – כלומר בשלב זה ,לחלון יש ידית (,)hWnd
והפקדים שבו נוצרו ונטענו
האירוע Unloadמתרחש בעת פריקת החלון וכל הפקדים שבו ,עם זאת ,ה Form-עדיין קיים כאובייקט בזכרון
האירוע QueryUnloadמתרחש לפני פריקת ( )Unloadingשל הForm-
Activateמתרחש בעת מעבר ל Form-מטופס אחר באותה התוכנית
Deactivateמתרחש בעת מעבר ל Form-אחר באותה התוכנית
GetFocusו SetFocus-מתרחשים בעת קבלה ושחרור של המוקד ,בהתאמה
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
ארבעת המצבים ש Form-יכול להימצא בהם
קיימים ארבעה מצבים שבהם יכול להימצא :Form
:Created but not loaded הForm -נוצר כאובייקט בזכרון אך לא הוטען עדיין כחלון
:Loaded but not shown ה Form-הוטען כחלון אך לא הוצג
:Shown ה Form-הוצג
:Memory and resources completely reclaimed הזכרון והמשאבים שהוקצו עבור ה Form-שוחררו
במלואם
הגרף הבא מתאר את סדר התרחשות האירועים הנ"ל בתגובה לפעילויות מסוימות של המשתמש או פונקציות
שהמתכנת מפעיל.
Initialize Load Activate GotFocus LostFocus Deactivate QueryUnload Unload Terminate
יצירת Formחדש באמצעות
המשפט Set...= New ...
שחרור Formבאמצעות
המשפט Set...= Nothing
1
1
בעת הפעלת הש גרה Load
אירוע 1יתרחש אם הטופס אי נו
בזיכר ון ,אירוע ים 3ו 4-יתרחשו אם
המאפיי ן Visibleשווה ל True-
4
בעת הפעלת הש גרה Show
אירוע 1יתרחש א ם הטופס אינ ו
בזיכר ון ,אירוע 2יתרחש אם
הטופס לא הוטע ן קודם
4
בעת מעבר ל Form-אחר
באותה התוכנית ,או הפעלת
SetFocusעל Formאחר באותה
התוכנ ית
2
בעת מעבר ל Form-מ Form-אחר
או ע" י הפעלת SetFocusעל
ה Form-
בעת הפעלת הפ ונקציה Unload
אירוע 3יתרחש רק אם אין
טפסים נוס פים והתוכנית
3
מסתיימת,או אם הטופס
משוחרר בצ ורה מפורשת ע"י
המשפט Set ... = Nothing
3
2
1
1
2
2
3
2
1
1
1
האירועים ClickוDblClick-
האירוע Clickבאובייקט מתרחש לאחר הורדת לחצן עכבר ( )MouseDownושחרור אותו לחצן ( )MouseUpעל
גבי אותו אובייקט
האירוע DblClickבאובייקט מתרחש לאחר הורדת לחצן עכבר שבאה בעקבות האירוע Clickתוך פרק זמן הקצר
או שווה לזה שמוגדר בלוח הבקרה ( )Control Panelשל המערכת
- 13אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :2טפסים ותפריטים
פונקציות ראשונות
בסעיף זה נכיר שתי פונקציות ראשונות להצגת הודעה Print :וMsgBox-
הפו נקציה Print
הפונקציה Printמדפיסה טקסט על גבי הטופס
לדוגמה:
שורת קוד זו מדפיסה את המחרוזת ! Hello, worldעל גבי הForm-
”!Print “Hello, world
הפו נקציה MsgBox
הפונקציה MsgBoxמציגה תיבת הודעה למשתמש
לדוגמה:
שורת קוד זו מציגה תיבת הודעה עם הכיתוב !Hello, world
”!MsgBox “Hello, world
דוגמה : 1התוכנית HelloWorld
בדוגמה זו ניצור תוכנית המדפיסה את המחרוזת ! Hello, worldעל גבי הטופס ובאמצעות תיבת הודעה
בהדרגה נוסיף פריטים לתוכנית זו ,תוך כדי למידה של נושאים נוספים
שים לב:
פעולות שחוזרות על עצמן ,כגון יצירת פרוייקט ,מתן שם לפרוייקט וכו' ,אפרט פעם אחת בדוגמה
הראשונה שבה נדרשת פעולה זו .אם בדוגמאות מתקדמות שכחת כיצד לבצע פעולה זו ,חזור לדוגמאות
הראשונות כדי לרענן את זיכרונך.
.1צור תוכנית מסוג :Standard EXE
הפעל את ( Visual Basicאם Visual Basicכבר פתוחה בחר באפשרות New Projectמתוך התפריט )File
בחר בפרוייקט ,Standard EXEולאחר מכן לחץ על OK
.1הקצה שם לפרוייקט:
בחר באפשרות Project1 Properties...מתוך התפריט Project
בשדה Project Nameרשום ( HelloWorldזהו שם הפרוייקט שבחרתי לפרוייקט זה ,כמובן שתוכל לבחור
בשם אחר אם רצונך בכך)
.3הקצה מאפיינים ל:Form-
לחץ על ה Form-במקום כלשהו
מאפייני ה Form-צריכים להופיע בחלון המאפיינים (אם אינך רואה את חלון המאפיינים ,בחר באפשרות
Properties Windowבתפריט ,Viewאו לחץ על )F4
הגדר את המאפיינים הבאים:
מאפיין
Name
Caption
ערך
FrmHello
Hello World Program
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
.1שמור את הפרוייקט:
בחר באפשרות Save Projectמתוך התפריט File
הקפד ליצור ספרייה נפרדת עבור כל פרוייקט
שים לב ש Visual Basic-מציעה שמות התואמים את
שמות הפרוייקט והטופס כפי שהקצת להם בתוכנית
.1הוסף קוד:
לחץ לחיצה כפולה על הטופס או על
הלחצן View Codeבחלון הProject Explorer-
בחלון ה( Code Editor-עורך הקוד) בחר בClick-
מתוך רשימת הפרוצדורות הזמינות והקלד את הקוד הבא:
View Code
()Private Sub Form_Click
!"Print "Hello, world
End Sub
.1הרץ את התוכנית ובדוק אותה:
לחץ על F5
לחץ לחיצת עבר על ה Form-המוצג ,אתה צריך לראות את ההודעה Printמוצגת על הטופס
כל לחיצה נוספת תוסיף שורה נוספת של ההודעה על הטופס
מזער את החלון והגדל אותו בחזרה – ההודעות נעלמו
לחץ לחיצה נוספת על הטופס ,שוב תיכתב ההודעה ! Hello, worldמיד לאחר השורה האחרונה שבה היא
נרשמה קודם
עצור את ריצת התוכנית ע"י סגירת החלון
.1הנחה את הטופס לזכור את תוכנו כתמונת מפת סיביות:
שנה את המאפיין AutoRedrawשל frmHelloלערך True
הרץ ובדוק את התוכנית שוב ,שים לב שהפעם לאחר מזעור והגדלה של ה Form-תוכנו נשמר
סיים את ריצת התוכנית
.1הפעלת תיבת הודעה בתגובה ללחיצת מקש:
בחלון הקוד בחר ב KeyPress -מתוך רשימת הפרוצדורות הזמינות ,והקלד את הקוד הבא:
)Private Sub Form_KeyPress(KeyAscii As Integer
!"MsgBox "Hello, world
End Sub
.1הרץ את התוכנית ובדוק אותה:
לאחר הרצת התוכנית לחץ על מקש כלשהו (מבין מקשי האותיות והמספרים)
צריכה להופיע תיבת הודעה עם המסר !Hello, world
.12שמור את התוכנית:
שמור את התוכנית ע"י בחירת Save Projectמתוך תפריט File
בהמשך נשוב למספר שינויים בתוכנית זו
אם תרצה תוכל לסגור את התוכנית ע"י בחירת Remove Projectמתוך התפריט Fileאו ע"י סגירת Visual
Basic
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :2טפסים ותפריטים
הוספת הערות לקוד
מומלץ להוסיף הערות כדי לשפר את הבנת הקוד
הערות ב Visual Basic-ניתן להוסיף לאחר הסימן ' (גרש בודד)
המשך דוגמה 1
.11פתח את התוכנית :HelloWorld
מצא את התוכנית בספרייה שבה שמרת אותה
הקלק על הקובץ – HelloWold.vbpהתוכנית תיפתח אוטומטית באמצעות Visual Basic
.11הוסף הערות לקוד:
הוסף את ההערות הבאות לקוד (ההערות נצבעות אוטומטית בצבע ירוק)
()Private Sub Form_Click
Print "Hello, world!" 'Print the message on the form
End Sub
)Private Sub Form_KeyPress(KeyAscii As Integer
MsgBox "Hello, world!" 'Display a message box to the user
End Sub
.13מקם את ה Form-במרכז המסך:
קבע את המאפיין StartUpPositionשל frmHelloלערך 2-CenterScreen
.11קבע את גבול החלון כקבוע:
שנה את המאפיין BorderStyleשל frmHelloלערך 2-FixedSingle
.11הרץ ובדוק את התוכנית:
כאשר תריץ את התוכנית ,תשים לב כי החלון מוקם במרכז המסך
נסה לשנות את גודל ה – Form-שים לב שזה בלתי אפשרי
( MDI FORMטופס )MDI
MDIהם ראשי התיבות של – Multiple Document Interfaceממשק מרובה מסמכים
לפרוייקט ניתן להוסיף MDI Formאחד לכל היותר
MDI Formהוא Formשיכול להכיל בתוכו מספר -Formים
במקרה כזה ה MDI Form-ייקרא חלון האב של החלונות הכפופים לו
כדי להפוך Formלטופס השייך לחלון ה MDI-יש לנות את המאפיין MDI Childשל אותו FormלTrue-
Propertiesשל MDI Form
רוב ה Properties-ה Methods-וה Events-של MDI Formזהים לאלה שבבסעיף ה Form-הסטנדרטי
:AutoShowChildrenקובע האם חלונות בנים ( )MDI Childrenיוצגו באופן אוטומטי בזמן הטעינה
Methodsשל MDI Form
:Arrangeמסדר את החלונות הבנים הפתוחים בתוך הMDI Form-
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
( MENUSתפריטים)
ניתן להוסיף תפריטים לטפסים ע"י בחירת Menu Editor...מתפריט Tools
תפריט הוא כמו אובייקט רגיל ב ,Visual Basic-ניתן לגשת אל מאפייניו באמצעות שמו
ניתן להוסיף & לפני אות מסוימת בכותרת תפריט על מנת להפוך אותו למקש מהיר ()Accelerator
כדי ליצור קו מפריד בתפריט ,יש ליצור פריט שה Caption-שלו הוא – (הסימן מינוס)
Propertiesשל Menu
:Checkedקובע האם יוצג הסימן Vליד פריט התפריט
:NegotiatePositionקובע את האופן שבו יסודרו התפריטים על גבי החלון המכיל יחד עם תפריטים
מאובייקטים שונים
:Shortcutקובע מקשי קיצור עבור פריט התפריט
:Tagמאפשר להצמיד מידע נוסף (מחרוזתי) לאובייקט התפריט
:WindowListקובע אובייקט התפריט ינהל רשימת חלונות (מסוג )MDI Childהפתוחים בתוך MDI Form
:Parentייחוס לחלון האב של התפריט
Eventsשל Menu
:Clickמתרחש בעת לחיצה על התפריט
עבודה עם צבעים
בסעיף זה נכיר מספר פונקציות וקבועים המחזירים ערכים המייצגים צבע.
הפו נקציה QBColor
פונקציה זו יודעת ליצור ערך המייצג צבע עבור 11צבעים שונים מוגדרים מראש
פונקציה זו מקבלת אחד מהערכים 0-15ומחזירה ערך המייצג צבע
לדוגמה:
)Form1.BackColor = QBColor(8
בשורת קוד זו ,נקבע צבע הרקע של Form1לצבע ( Garyאפור)
הפו נקציה RGB
הפונקציה RGBיוצרת צבע מותאם אישית
הפונקציה מקבלת שלושה ערכים ,כל ערך מייצג את רמת מרכיב הצבע – אדום ,ירוק או כחול – בצבע התוצאה
כל מרכיב יכול לנוע החל מהערך 0עד לערך 255
יש להפעיל את הפונקציה באופן הבא:
)RGB(red_value, green_value, blue_value
דוגמה:
בשורת קוד זו נקבע צבע הקדמה (צבע הטקס והגבולות של צורות המצויירים ע"י פונקציות גרפיות) לצבע כחול
טיפים:
oאם רמת כל צבעים מוגדרת כ 0-נוצר צבע שחור
oאם רמת כל צבעים מוגדרת כ 255-נוצר צבע לבן
oאם רמת כל צבעים מוגדרת לערך זהה נוצר גוון אפור
oככל שהערכים גבוהים יותר הצבע בהיר יותר
)Form1.ForeColor = RGB(0, 0, 255
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :2טפסים ותפריטים
אוסף הקבועים ColorConstants
אוסף קבועים זה מכיל שמונה צבעים מוגדרים מראש
אוסף הקבועים SystemColorConstants
אוסף של 25קבועים שונים המגדירים צבעים כפי הוגדרו ע"י המשתמש בלוח הבקרה ( )Control Panelשל
המערכת (למעשה קיימים 27אך שניים מהם זהים)
דוגמה – 2התוכנית Colors
.1
.1
.3
.1
.1
.1
בדוגמה זו ניצור תוכנית MDIעם שלושה חלונות ,ונבצע משחקי צבעים וגרפיקה פשוטים על הטפסים .כמו כן,
נוסיף תפריטים לתוכנית
צור תוכנית מסוג Standard EXE
הוסף Formsלפרוייקט:
בחר ב Add Form-מתוך התפריט Project
מתוך תיבת הדו-שיח Add Formבחר ב( Form-הפריט הראשון ברשימה)
חזור על פעולה זו כך שתוסיף טופס שלישי לתוכנית
הוסף MDIFormלפרוייקט:
בחר ב Add MDI Form-מהתפריט Project
מתיבת הדו-שיח Add MDI Formבחר בMDI Form-
הקצה שמות לפרוייקט ולטפסים:
שנה את שמו של הפרוייקט לColors-
שנה את שמות הטפסים לשמות frmRGB ,frmQBColorsוfrmSystemColors-
שנה את שם טופס ה MDI-לmdiColors-
שמור את הפרוייקט
הגדר את המאפיינים הבאים:
אובייקט
FrmQBColors
frmRGB
FrmSystemColors
מאפיין
Caption
MDIChild
Caption
MDIChild
Caption
MDIChild
ערך
QBColors
True
RGB
True
System Colors
True
.1שנה את ה:Startup Object-
פתח את Colors Properties...מתוך התפריט Project
שנה את האובייקט בשדה Startup Object:כך שיהיה MDIColors
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
:mdiColors הוסף תפריט לטופס.1
מתוך תפריטMenu Editor- בח ר ב
Tools
&Open רשוםCaption בשדה
mnuOpen רשוםName ובשדה
Next לחץ על
השדות התרוקנו להזנת הפריט הבא
רשוםCaption בשדה
רשוםName ובשדה,QBColos Form
mnuOpenQBColorsForm
השתמש בחץ המופנה כלפי ימין כדי
להזיח את הפריט הזה מקום אחד
כך שיופיע כתת פריט של,ימינה
mnuOpen
הסימן – (מינוס) יוצר הפרדה: שים לב
בתפריטים
הוסף את הפריטים המופעים ברשימה
הבאה כך שהחלון ייראה כמו זה
)שמופיע כאן (בסוגריים רשומים השמות
Caption
Name
&Open mnuOpen
&QBColors Form
&RGB Form
&System Colors Form
E&xit
mnuOpenQBColorsForm
mnuOpenRGBForm
mnuOpenSystemColorsForm
mnuOpenSeparator
mnuOpenExit
: באופן דומה הוסף את התפריטים הבאים.1
:frmQBColors לטופס
Caption
Name
&Colors
mnuColors
&Red mnuColorsRed
&Green mnuColorsGreen
&Blue mnuColorsBlue
mnuColorsSeparator1
B&lack mnuColorsBlack
&White mnuColorsWhite
mnuColorsSeparator2
&Quit mnuColorsQuit
- 11 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
טפסים ותפריטים:2 שיעור
:frmRGB לטופס
:frmSystemColors לטופס
Caption
Name
&Colors
mnuColors
&Red mnuColorsRed
&Green mnuColorsGreen
&Blue mnuColorsBlue
mnuColorsSeparator1
&Cyan mnuColorsCyan
&Magenta
mnuColorsMagenta
&Yellow
mnuColorsYellow
mnuColorsSeparator2
&Quit mnuColorsQuit
Caption
Name
&Colors
mnuColors
&Button Face mnuColorsButtonFace
&Tool Tip
mnuColorsToolTip
&Desktop
mnuColorsDesktop
mnuColorsSeparator
&Quit mnuColorsQuit
: הוסף קוד.12
:mdiColors לטופס
Private Sub mnuOpenExit_Click)(
Unload Me
End Sub
Private Sub mnuOpenQBColorsForm_Click)(
' Loads and displays frmQBColors
Load frmQBColors
frmQBColors.Show
End Sub
Private Sub mnuOpenRGBForm_Click)(
' Loads and displays frmRGB
Load frmRGB
frmRGB.Show
End Sub
Private Sub mnuOpenSystemColorsForm_Click)(
' Loads and displays frmSystemColors
Load frmSystemColors
frmSystemColors.Show
End Sub
- 32 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Private Sub mnuWindowArrangeIcons_Click)(
Arrange vbArrangeIcons
End Sub
Private Sub mnuWindowCascade_Click)(
Arrange vbCascade
End Sub
Private Sub mnuWindowTileHorizontally_Click)(
Arrange vbTileHorizontal
End Sub
Private Sub mnuWindowTileVertically_Click)(
Arrange vbTileVertical
End Sub
:frmQBColors לטופס
Private Sub mnuColorsBlack_Click)(
BackColor = QBColor(0) ' Black
End Sub
Private Sub mnuColorsBlue_Click)(
BackColor = QBColor(1) ' Blue
End Sub
Private Sub mnuColorsGreen_Click)(
BackColor = QBColor(2) ' Green
End Sub
Private Sub mnuColorsQuit_Click)(
Unload Me
End Sub
Private Sub mnuColorsRed_Click)(
BackColor = QBColor(4) 'Red
End Sub
Private Sub mnuColorsWhite_Click)(
BackColor = QBColor(15) 'white
End Sub
- 31 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
טפסים ותפריטים:2 שיעור
:frmRGB לטופס
Private Sub mnuColorMagenta_Click)(
BackColor = RGB(255, 0, 255) 'Magenta
End Sub
Private Sub mnuColorsBlue_Click)(
BackColor = RGB(0, 0, 255) ' Blue
End Sub
Private Sub mnuColorsCyan_Click)(
BackColor = RGB(0, 255, 255) ' Cyan
End Sub
Private Sub mnuColorsGreen_Click)(
BackColor = RGB(0, 255, 0) ' Green
End Sub
Private Sub mnuColorsQuit_Click)(
Unload Me
End Sub
Private Sub mnuColorsRed_Click)(
BackColor = RGB(255, 0, 0) ' Red
End Sub
Private Sub mnuColorsYellow_Click)(
BackColor = RGB(255, 255, 0) ' Yellow
End Sub
- 31 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
:frmSystemColors לטופס
Private Sub mnuColorsButtonFace_Click)(
BackColor = SystemColorConstants.vbButtonFace
End Sub
Private Sub mnuColorsDesktop_Click)(
BackColor = SystemColorConstants.vbDesktop
End Sub
Private Sub mnuColorsQuit_Click)(
Unload Me
End Sub
Private Sub mnuColorsToolTip_Click)(
BackColor = SystemColorConstants.vbInfoBackground ' ToolTip background
End Sub
הרץ ובדוק את התוכנית.11
- 33 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :2טפסים ותפריטים
תרגילים
.1כתוב תוכנית בשם SimpleColorsובה שלושה .Formsקבע צבע רקע שונה לכל Formוטען את ה Form-השני
בעת לחיצה על ה Formהראשון ,ואת ה Form-השלישי בעת לחיצה כפולה על ה Formהשני.
בעת לחיצת מקש על ה Form-השלישי ייסגרו של ה Forms-ותסתיים התוכנית.
.1כתוב תוכנית בשם TraceEventsובה שלושה Form2 ,Form1 :FormsוForm3-
ב Form1-הוסף תפריט המאפשר את טעינת Form2ו ,Form3-ניקוי ה( Form-בצע ניקוי באמצעות השגרה )Cls
וכן ,אפשרות יציאה מהתוכנית (הסוגרת את כל ה .)Forms-כמו כן ,בטל את לחצן הסגירה ב Form1-כך שניתן
יהיה לסגור את התוכנית רק באמצעות האופציה המתאימה בתפריט ,ולבסוף ,הגדר את AutoRedrawבForm1-
כ True-ע"מ שתוכן החלון יישמר לאחר הסתרה של חלק ממנו.
בכל אחד מה Forms-האחרים ( Form2ו ,)Form3-הוסף שורות קוד המדפיסות על גבי Form1את האירוע
שהתרחש עבור כל אחד מהאירועים הבאים,GotFocus ,Unload ,QueryUnload ,Load ,Initialize :
Activate ,LostFocusו .Deactivate-כך לדוגמה ,באירוע Activateשב Form3-תרשום:
()Private Sub Form_Activate
"Form1.Print "Form3: Activate
End Sub
תוכל להיעזר בחלון ה Form Layout-כדי להגדיר בקלות את מיקומי הטפסים על גבי המסך בעת הרצת התוכנית.
לאחר הפעלת התוכנית ,עקוב אחר סדר התרחשות ה Events-ב Form2-ו Form3-כפי שהם מודפסים על –.Form1
.3כתוב תוכנית בשם ArrangeFormsעם MDIFormושלושה Formsרגילים המוגדרים כ.MDIChild-
הוסף ל MDIForm-תפריט לטעינת הטפסים הללו ,וכן תפריט בשם Windowהמאפשר לפרוס את החלונות שבו
באופנים שונים ,Cascade ,Tile Vertically ,Tile Horizontally :ו( Arrange Icons-השתמש בשגרה Arrange
של MDIFormלשם כך) .כמו כן הגדר את האפשרות WindowListעבור התפריט Windowכ True-על מנת
שרשימת ה Forms-הפתוחים תוצג בתפריט זה( .אל תשכח לשנות את ה Startup Object-ל MDIForm-בהגדרות
הפרוייקט).
- 31אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 1הפקדים הסטנדרטיים I
בשיעור זה:
תכיר את ה Controlsהבאים:
( Label oתווית)
( TextBox oתיבת טקסט)
( CommandButton oלחצן פקודה)
( HScrollBar oפס גלילה אופקי)
( VScrollBar oפס גלילה אנכי)
תכיר את הפונקציות הבאות לעבודה עם מחרוזות,Mid ,Left ,Right ,Trim ,LTrim ,RTrim ,Str ,Val ,Len :
וAsc-
תלמד לשרשר מחרוזות ולהוסיף מעברי שורה
תכיר את התנאי If... Then... End If
הערה
בדרך כלל ,אני לא חוזר על Methods ,Propertiesו events-שהזכרתי בטפסים שפעולתם זהה לאופן
הפעולה ב Controls-שבפרק זה .בכל Controlאני מציין את ה Methods ,Properties-ו Events-שלא
צוינו קודם.
( LABELתווית)
Labelנועד בעיקר להצגת טקסט ,בד"כ בצמוד לפקדים אחרים
Propertiesשל Label
:Alignmentקובע את סוג יישור הטקסט בתוך הLabel-
:Appearanceקובע את אופן התצוגה של ה( Label-אפקטים תלת ממדיים או ללא אפקטים תלת ממדיים)
:AutoSizeקובע האם גודל ה Label-ישתנה באופן אוטומטי בהתאם לתוכן
:BackStyleקובע את סגנון הרקע ( – Transparentשקוף ,או – Opaqueאטום ,לא שקוף)
:Captionטקסט התוכן המוצג בLabel-
:Containerקובע את ה Container Controlשל ה Control Container( Labelהוא Controlמכולה ,כלומר
Controlהמסוגל להכיל בתוכו פקדים אחרים .מהפקדים הסטנדרטיים PicutreBox ,ו Frame-הם ה Control
Containersהיחידים)
:Indexמספרו הסידורי של ה Label-אם הוא שייך למערך של Labels
:RightToLeftקובע את כיוון קריאת הטקסט
:TabIndexקובע את מיקומו הסידורי של ה Label-בסדר מעבר הטאב
:Tagמאפשר להצמיד מידע נוסף לLabel-
:ToolTipTextטקסט עזרה המוצג כאשר סמן העכבר ממוקם מעל הLabel-
:UseMnemonicקובע האם להתייחס לתו & כתו המאפשר הגדרת מאיץ מקלדת או להציגו כמו שהוא
:WordWrapקובע האם לאשר גלישת טקסט הארוך מרוחב הLabel-
Eventsשל Label
:Changeמתרחש כאשר משתנה תוכן הLabel-
- 31אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1הפקדים הסטנדרטיים I
( TEXTBOXתיבת טקסט)
השימוש הנפוץ ב TextBox-הוא לקבלת קלט מהמשתמש
Propertiesשל TextBox
:HideSelectionקובע האם טקסט מסומן יישאר מואר כאשר הפוקוס עובר ל Control-אחר
:Lockedקובע האם ה TextBox-יכול לקבל פעולות עריכה
:MaxLengthקובע את המספר המקסימלי של תווים בניתן להזין ל 0( TextBox-מציין אי הגבלה)
:MultiLineקובע אם ה TextBox-יכול להיות מרובה שורות
:PasswordCharקובע איזה תו יחליף את התו המוקלד (בתצוגה בלבד) במקרה שה TextBox-משמש לקבלת
סיסמה
:ScrollBarsקובע אילו פסי גלילה יופיעו בTextBox-
:TabStopקובע אם סדר מעבר הטאב יפעל גם על הTextBox-
:Textמכיל את הטקסט הנמצא בTextBox-
Eventsשל TextBox
:Changeמתרחש בכל פעם שהטקסט שונה (לאחר שהשינוי הוצג ב)TextBox-
:KeyPressמתרחש בעת לחיצה על מקש ( ASCIIאות או מספר) לפני הצגת התו ב.TextBox-
( COMMANDBUTTONלחצן פקודה)
שימושו הנפוץ של CommandButtonהוא לאפשר למשתמש פעולה מסוימת המשויכת ל.CommandButton-
לפיכך ,בדרך כלל ,מגיבים לאירוע ClickבCommanButton-
Propertiesשל CommandButton
:Cancelקובע אם ה CommandButtonידמה לחיצה עליו בתגובה ללחיצה על המקש Escape
:Defaultקובע אם ה CommandButton-ידמה לחיצה עליו בתגובה ללחיצה על המקש )Return( Enter
:DisablePictureקובע איזה תמונה תוצג על גבי ה CommandButton-כאשר הוא במצד ,Disableכלומר ,כאשר
המאפיין Enabledשווה ל( False-יש לוודא שהמאפיין Styleשל ה CommandButtonיהיה )Graphical
:DownPictureקובע איזו תמונה תוצג על גבי הלחצן בזמן לחיצה עליו (שוב ,ה Style-של הCommandButton-
צריך להיות Trueבכדי שמאפיין זה יפעל)
:Enabledקובע האם הלחצן יאופשר או לא (זהו אחד המאפיינים השימושיים ביותר של )CommandButton
:MaskColorמאפשר להגדיר איזה צבע בתמונה יהיה שקוף (יש להגדיר גם UseMaskColorכ True-כדי
שמאפיין זה יפעל)
:Picuteקובע איזו תמונה תוצג על גבי הלחצן במצב רגיל.
:Styleקובע את סגנון הלחצן – Standard .מציג רק טקסט ו – Graphical-משתמש גם בתמונות המוגדרות.
:UseMaskColorקובע האם ה CommandButton-ישתמש בצבע המוגדר במאפיין MaskColorכצבע שקוף.
( HSCROLLBARפס גלילה אופקי) ו( VSCROLLBAR-פס גלילה אנכי)
פסי גלילה מאפשרים גלילת טקסט ,תמונות וכו' ,וזהו בדרך כלל שימושם העיקרי
- 31אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
Propertiesשל פסי גל ילה
:LargeChangeקובע את גודל הקפיצה כאשר לחצן העכבר לוחץ במקום כלשהו בין ה Bar-לבין אחד החצים ,או
כאשר נלחץ אחד מהמקשים PageUpאו PageDown
:Maxמגדיר את הערך המקסימלי (הקצה הימני בפס אופקי או הקצה התחתון בפס אנכי) של פס הגלילה
:Minמגדיר את הערך המינימלי של פס הגלילה (אם Minגדול מ Max-פס הגלילה משנה את כיוון התקדמותו
מימין לשמאל בפס אופקי ,ומלמטה כלפי מעלה בפס אנכי)
:SmallChangeמגדיר את גודל הצעד הקטן עבור התקדמות הBar-
Eventsשל פסי גלילה
:Changeמתרחש בעת שינוי בערכו של פס הגלילה.
:Scrollמתרחש בעת גרירת ה Bar-שעל פס הגלילה באמצעות העכבר.
פונקציות לעבודה עם מחרוזות
בסעיף זה תכיר מספר פונקציות לעבודה עם מחרוזות
הפו נקציה Len
הפונקציה Lenמאפשרת למצוא את אורכה של מחרוזת
לדוגמה:
בשורת קוד זו ,הפונקציה Lenאת המספר 13שהוא אורך המחרוזת !Hello,world
)”!Len(“Hello ,world
הפו נקציה Val
הפונקציה Valמחזירה את הערך הנומרי של מחרוזת
לדוגמה:
בשורת קוד זו ,מוחזר הערך 12ע"י הפונקציה Val
)”Val(“12abc
הפו נקציה Str
הפונקציה Strיוצרת מחרוזת הזהה לערך נומרי המועבר לה
לדוגמה:
פונקציה זו יוצרת את המחרוזת “”12.45
)Str(12.45
הפו נקציה UCase
הפונקציה UCaseמקבלת מחרוזת ומחזירה את אותה המחרוזת לאחר הפיכת האותיות הקטנות במחרוזת
לאותיות גדולות
לדוגמה:
)"something 4 u...
שורת קוד זו מחזירה את המחרוזת ""I HAVE SOMTHING 4 U...
- 31אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
UCase("I have
שיעור :1הפקדים הסטנדרטיים I
הפו נקציה LCase
הפונקציה LCaseמקבלת מחרוזת ומחזירה את אותה המחרוזת לאחר הפיכת האותיות הגדולות במחרוזת
לאותיות קטנות
לדוגמה:
)"?LCase("HOW R u 2 dayyYy...
שורת קוד זו מחזירה את המחרוזת "?"how r u 2 dayyyy...
הפו נקצ יות LTri m , Trimו Rtrim -
הפונקציה RTrimמעתיקה מחרוזת חדשה ממחרוזת נתונה ,תוך הסרת כל הרווחים הנמצאים בקצה הימני של
המחרוזת.
הפונקציה LTrimמעתיקה מחרוזת חדשה ממחרוזת נתונה ,תוך הסרת כל הרווחים הנמצאים בקצה השמאלי של
המחרוזת.
הפונקציה Trimמעתיקה מחרוזת חדשה ממחרוזת נתונה ,תוך הסרת כל הרווחים שבקצות המחרוזת.
דוגמה:
)“
פונקציה זו תחזיר את המחרוזת “
How r u
How r u
Hello
“( LTrim
“Hello
הפו נקצ יות Left , Midו Right -
הפונקציה Leftיוצרת תת מחרוזת שמאלית באורך נתון ממחרוזת נתונה
הפונקציה Rightיוצרת תת מחרוזת ימנית באורך נתון ממחרוזת נתונה
הפונקציה Midיוצרת תת מחרוזת המתחילה במיקום נתון ,ובאורך נתון מתוך מחרוזת נתונה.
דוגמאות:
(Right("Hello ,world!",6
שורת קוד זו מחזירה את המחרוזת !world
שורת קוד זו מחזירה את המחרוזת Hell
שורת קוד זו מחזירה את המחרוזת wor
(Left("Hello ,world!",4
(Mid("Hello ,world!",8,3
האופרטור &
האופרטור & מאפשר לשרשר מחרוזות
דוגמאות:
שור זו הופכת למחרוזת “”Ilan Amoyal
בשורת קוד זו ,לתוך ה txtOut-מוזנת המחרוזת המשורשרת מ txtInput1-וtxtInput2-
”“Ilan” & “ “ & “Amoyal
txtOut.Text = txtInput1.Text & txtInput2.Text
הקבוע vbCrLf
הקבוע vbCrLfמייצג את תו מעבר השורה
דוגמה:
”!Text1.Text = Text1.Text & vbCrLf & “Hello, world
שורת קוד זו מוסיפה מעבר שורה ל Text1-ומיד לאחר מכן משרשרת את המחרוזת “”!Hello, world
- 31אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
הפו נקציה Asc
מחזירה את ערכו ה ASCII-של התו במחרוזת נתונה
דוגמאות:
)”Asc(“a
בשורת קוד זו ,הפונקציה Ascמחזירה את הערך ,97שזהו ערכו של התו “ ”aלפי טבלת הASCII-
)"Asc("Goal
בשורת קוד זו הפונקציה Ascמחזריה את ,71שזהו ערכו ה ASCIIשל התו ( Gהתו הראשון במחרוזת)
התנאי
IF...THEN...END IF
תחביר התנאי הוא כדלקמן:
התנאי ( )conditionיכול להיות מורכב מהקשרים Andו/או Or
If condition Then
do_somthing
End If
- 31אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1הפקדים הסטנדרטיים I
תרגילים
.1כתוב תוכנית בשם Focusesובה ארבעה .CommandButtonsליצה על ה CommandButton-הראשון יעביר את
ה Focus-ל CommandButton-השני .לחיצה על השני תעביר את ה Focus-לשילישי ,לחיצה על השלישי תעביר את
ה Focus-לרביעי ,ולחיצה על הרביעי תעביר את ה ,Focus-חזרה ,ל CommandButtonהראשון.
כל CommandButtonבעת קבלת ה ,Focus-ידפיס על גבי ה Form-את שמו (( )Nameלאחר ניקוי התוכן הקודם
של ה ,)Form-וכמו כן ,יעדכן את כותרת ( )Captionהחלון כך שתהיה זהה לכותרתו (.)Caption
.1כתוב תוכנית בשם ThreeColorsובה שלושה CommandButtonsעם הכיתובים Green ,Redו .Blue-לחיצה על
אחד הפקדים תשנה את צבע הרקע של ה ,Form-ותעדכן את כותרת ה Form-בהתאם.
.3כתוב תוכנית בשם Concatenateונח בה שלושה פקדי TextBoxו CommandButton-אחד.
סמוך ל TextBox-הראשון מקם Labelעם הכיתוב “ .”Input1סמוך ל TextBox-השני מקם Labelעם הכיתוב
“ ”Input2וליד השלישי מקם Labelעם הכיתוב “ .”Outputכמו כן ,נעל את ה TextBox-השלישי מפני עריכה.
לחיצה על ה CommanButton-תשרשר את שתי המחרוזות שבשני פקדי ה.TextBoxes-
.1כתוב תוכנית זהה לקודמת בשם Concatenate2עם השינויים הבאים:
ה CommandButton-יהיה .Default
יוכנס מעבר שורה בין שתי המחרוזות המשורשרות.
לאחר השרשור ,ימחקו תכני תיבות הקלט וה Focus-יוחזר לתיבת הקלט הראשונה.
.1כתוב תוכנית בשם .TextBoxCopyעל ה Form -הנח שני פקדי TextBoxהאחד לקלט ( )Inputוהשני
לפלט ( .)Outputהתוכנית צריכה להעתיק את המחרוזת המוזנת כקלט ב TextBox-הראשון אל ה TextBox-של
הפלט .כל העתקה תיכנס לשורה חדשה בפלט מבלי למחוק את השורות הקודמות.
בתוכנית זו הוסף שלושה .CommandButtonsאחד להעתקה (זה יהיה פקד ה ,)Default-שני לניקוי תיבת הפלט,
ושלישי לסגירת התוכנית (זה יהיה פקד ה.)Escape-
לאחר העתקת הטקסט ,יש להחזיר את ה Focus-לתיבת הקלט תוך סימון הטקסט הרשום בה.
.1כתוב תוכנית בשם ,DigitTextBoxשתכלול TextBoxשיאפשר קלט של ספרות ,מקש ,Backspaceומקש Enter
למעבר שורה .בנוסף הנח שני ,CommandButtonsהאחד לניקוי ה TextBox-והשני ליציאה (שיהיה מקש ה-
Escapeבתוכנית).
.1כתוב תוכנית בשם :SlideColors
ב Form-הנח שלושה ScrollBarsוהגדר את הטווח שלהם מ 2-עד .111כמו כן ,הנח Labelעל הטופס.
בעת שינוי ערכו של אחד מה ScrollBars-יש לעדכן את צבע הרקע של ה Label-באמצעות הפונקציה ,RGBכך
שה ScrollBar-הראשון יהווה את המרכיב Redבפונקציה ,ה ScrollBar-השני יהווה את מרכיב הGreen-
בפונקציה ,וה ScrollBar-השלישי יהווה את מרכיב ה Blue-בפונקציה.
צור ממשק נוח למשתמש תוך שימוש ב Labels-לפי הצורך.
- 12אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
.1צור תוכנית זהה לתוכנית הקודמת בשם SlideColors2תוך הוספת השיפורים הבאים:
דאג לכך שבזמן שהתוכנית עולה ,צבע ה Label-יהיה תואם לערכים שבScrollBars-
בסמוך לכל ScrollBarתוצב תיבת טקסט שתשקף את הערך שבScrollBar-
צבע הרקע של כל TextBoxיהיה צבע המרכי שאותו הוא מייצג.
כמו כן ,נעל את תיבות טקסט אלו
ה LargeChange-של ה ScrollBar-יהיה 10
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 4מרכיבי השפה I
בשיעור זה:
תלמד להצהיר על משתנים ועל קבועים ותכיר את סוגם
תבין את ההבדל בין משתנה מקומי בפרוצדורה או פונקציה לבין משתנה משותף במודול
תבין את ההבדלים בין Public Dimו Private-בהקשר של הצהרות משתנים
תכיר את מבני הבקרה הקיימים בVisual Basic-
תכיר את הפונקציות Beep ,InputBoxוIIf-
( VARIABLESמשתנים) ו( CONSTANTS-קבועים)
בסעיף זה נסקור את:
סוגי המשתנים בVisual Basic-
אופן ההצהרה על משתנים
אזורי הצהרה שונים במודול
הסתרה או חשיפה של משתנים באמצעות המילים Privateאו ( Publicהרשאות גישה)
סוג י משתנים
ב Visual Basic-קיימים סוגי משתנים לאחסון מספרים שלמים ,מספרים ממשיים (עם נקודה צפה) וכן מחרוזות
וטיפוסים נוספים.
למספר סוגים ישנם תווים מיוחדים להצהרה משתנים ( ,)Type-declaration characterתווים אלו הנם שריד של
הגרסאות המוקדמות של .Visual Basicלסוגי הנתונים החדשים (למשל Byteו )Boolean-מעצבי Visual Basic
לא הקצו תווים מיוחדים (כנראה כיוון שזה רעיון גרוע מלכתחילה) ,בכל אופן עדיף להשתמש בהצהרה ברורה ולא
בתווי הצהרה
הסוג Variantהוא סוג כללי המאפשר להכיל בתוכו את כל סוגי המשתנים (מלבד מחרוזות בגודל קבוע)
הסוג Variantמאפשר טיפול גמיש מאוד בנתונים ,וכן פעילות אוטומציה בין יישומים שונים
בטבלה הבאה מפורטים סוגי המשתנים השימושיים ביותר:
סוג
גודל אחסון בזכרון
תחום ערכים
תו הצהרה
Byte
Boolean
Integer
Long
בית אחד
2בתים
2בתים
4 bytes
Single
(מספר ממשי ברמת
דיוק בודדת)
4בתים
0עד 255
Trueאו False
-32,768עד 32,767
-2,147,483,648
עד
1,111,113,111
בתחום השלילי:
-3.402823E38
עד
E-451.121111בתחום החיובי:
1.401298E-45
עד
E383.121113
אין
אין
( %אחוז)
&
(אמפרסנד)
- 13אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
! (סימן
קריאה)
שיעור :4מרכיבי השפה I
סוג
גודל אחסון בזכרון
תחום ערכים
תו הצהרה
Double
(מספר ממשי ברמת
דיוק כפולה)
8בתים
Date
8בתים
Object
( Stringבגודל
משתנה)
( Stringבגודל קבוע)
4בתים
10בתים +אורך
המחרוזת
כאורך המחרוזת
בתחום השלילי:
-1.79769313486231E308
עד
E-3241.11211111111111בתחום החיובי:
E-3241.11211111111111
עד
E3081.11111313111131
1לינואר שנת 100
עד
ה 31-לדצמבר שנת 1111
הפנייה כלשהי לאובייקט
0עד 2מיליארד (בערך)
( #סולמית)
אין
( $דולר)
1עד ( 65,400בערך)
( $דולר)
( Variantעם
מספרים)
( Variantעם תווים)
16בתים
11בתים +אורך
המחרוזת
אין
כל ערך מספרי עד מקסימום לתחום
המספרים מסוג Double
אורך זהה כשל מחרוזת בגודל משתנה
הצהרה על משתנים
ניתן להצהיר על משתנים במקומות שונים בתוכנית:
oברמת המודול (חלק ה)General-
oבתוך פרוצדורה או פונקציה
תחביר ההצהרה על משתנים הוא:
Dimזוהי המילה המורה ל Visual Basic-להקצות מקום אחסון למשתנה
בתוך פרוצדורה או פונקציה חייבים להשתמש במילה Dim
ברמת המודול ניתן להשתמש במילים Publicאו Privateבמקום :Dim
( Public oציבורי) :מאפשר גישה למשתנה לקטעי קוד הנמצאים במודולים אחרים
( Private oפרטי) :מאפשר גישה למשתנה אך ורק לפרוצדורות והפונקציות הרשומות בתוך אותו מודול בו
הוצהר המשתנה
oאם משתמשים ב ,Dim-ההחלטה אם המשתנה יהיה Privateאו Publicבמודול תלויה בסוג שלו .למשל,
עבור ( Formשהוא למעשה )Class Moduleברירת המחדל היא Private
:varnameזהו שם המשתנה
:Typeזהו סוג המשתנה ,אם לא מצוין הסוג המשתנה יהיה מסוג ( Variantאלא אם נעשה שימוש בDefType-
במודול – נושא זה לא נדון בקורס)
ניתן להצהיר על Stringsבאורך קבוע באמצעות שימוש בסימן *
]Dim varname [As type
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
דוגמאות
- nGradeמשתנה Integer
- strFirstNameמשתנה String
- m_strLNameמשתנה Stringבאורך קבוע של 20תווים
- lBillGatesSalaryמשתנה מסוג Long
– nStageמשתנה מסוג Integer
Dim nGrade As Integer
Private strFirstName As String
Private m_strLName As String * 20
Public lBillGatesSalary As Long
Dim nStage%
הצהרה על קבועים
ניתן להצהיר על קבועים במקומות שונים בתוכנית:
oברמת המודול (חלק ה)General-
oבתוך פרוצדורה או פונקציה
תחביר ההצהרה על קבועים הוא:
[Private | Public] Const constname [As type] = expression
המילה Constמשמשת להצהרת קבועים
קבועים על פי ברירת המחדל הם מסוג Privateאלא אם נרשם Publicבמפורש
ב Class Module-לסוגיו השונים ( Formהוא דוגמה ל)Class Module-לא ניתן להצהיר על קבועים כPublic-
( Class Modulesנלמד בהמשך הקורס)
ניתן להצהיר על Constsגם בתוך פונקציות ופרוצדורות ,אך הם אינם קיימים מחוץ לפונקציות או פרוצדורות
אלה
דוגמאות
קבוע Doubleהמאותחל לערך 17
קבוע Stringהמאותחל לערך “"Sales
קבוע Longהמאותחל לערך 4405
cdTaxPercentage As Double = 17#
"Private Const cstrDepartment = "Sales
Public const clErrNumber as Long = 4405
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :4מרכיבי השפה I
( CONTROL STRUCTURESמבני בקרה)
בסעיף זה נכיר את מבני הבקרה השונים הקיימים ב Visual Basic-בכלל זה נכיר את צוות רישום התנאי השונות ,מבני
לולאה ומבנה רב ברירות ()Case
המבנה If...Then...Else
צורה ראשונה
]If condition Then [statements] [Else elsestatements
conditionהוא התנאי
statementsהן המשפטים שיתבצעו אם התנאי מתקיים (אם יש מספר משפטים ,יש להפריד בניהם באמצעות
נקודה-פסיק)
:elsestatementsאלו הם המשפטים שיתבצעו אם התנאי לא מתקיים (אם יש מספר משפטים ,יש להפריד בניהם
באמצעות נקודתיים)
דוגמה :1
"If nGrade > 90 Then MsgBox "Very good!" Else MsgBox "OK
דוגמה :1
"If nAge >= 18 And nAge <= 21 Then Print "Army": Print "You are Great
צורה שניה
If condition Then
][statements
condition-n Then
[ElseIf
[else if statements]...
[Else
]][else statements
End If
בצורה זו ניתן ליצור מספר הסתעפויות אפשריות
ניתן לרשום בלוק משפטים לביצוע עבור כל תנאי
אין חובה לכלול את חלקי ה ElseIf-או ה Else-אך יש להקפיד לרשום End Ifבסוף המבנה
דוגמה:
If nAge < 13 Then
"Print "Child
ElseIf nAge < 18 Then
"Print "Teenager
ElseIf nAge < 22 Then
"Print "Soldier
Else
"Print "Big-Boy
End If
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
המ בנה While...Wend
תחביר המבנה הוא:
conditionהוא התנאי הנבדק
statementsהם המשפטים המבוצעים אם התנאי הוא True
טיפ :עדיף להשתמש בלולאה Do...Loopכיוון שהיא גמישה יותר
דוגמה:
While condition
][statements
Wend
Dim nCounter As Integer
nCounter = 1
While nCounter < 10
)Print "Now counter is equal to " & str(nCounter
Wend
המבנה Do...Loop
צורה ראשונה
]Do [{While | Until} condition
[[statements
[[Exit Do
[[statements
Loop
conditionהוא התנאי הנבדק
Whileמשמעותו – "כל עוד התנאי מתקיים"
Untilמשמעותו – "עד אשר יתקיים התנאי"
המשפטים יבוצעו אם התנאי בכללותו יתקיים (כולל ה While-או ה)Until-
בצורה זו התנאי נבדק לפני הכניסה ללולאה ,כך שאפשר שהלולאה לא תתבצע כלל
ניתן לצאת בכל שלב מהלולאה ע"י ( Exit Doמה שלא ניתן לעשות בWhile...Wend-
צורה שניה
Do
][statements
][Exit Do
][statements
]Loop [{While | Until} condition
השוני היחידי בין צורת רישום זו לקודמת ,הוא בכך שגוף הלולאה במקרה זה מתבצע פעם אחת לפחות (כיוון
שהתנאי נבדק רק בסיום הלולאה)
דוגמה:
Dim strBoard As String
Dim nColomns As Integer, nRows As Integer
Const cnMaxColomns As Integer = 10, cnMaxRows As Integer = 10
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :4מרכיבי השפה I
nRows = 1
Do While nRows <= cnMaxRows
nColomns = 1
Do While nColomns <= cnMaxColomns
)" \strBoard = strBoard & Format(nRows * nColomns, "000
nColomns = nColomns + 1
Loop
strBoard = strBoard & vbCrLf
nRows = nRows + 1
Loop
MsgBox strBoard
קטע קוד זה יוצר מחרוזת הכוללת רווחים ומעברי שורות ,ואשר מאחסנת בתוכה את לוח הכפל
שים לב לשימוש בפונקציה ( Formatתוכל לקבל עזרה אודות פונקציה זו במערכת העזרה של )Visual Basic
קטע קוד זה משתמש בשתי לולאות Do...Loopמקוננות לשם ביצוע המשימה
בסוף פירמוט המחרוזת ,מוצגת המחרוזת ע"י הפונקציה MsgBox
המבנה For...Next
תחביר המבנה:
הלולאה Forמאפשרת ביצוע נוח של בלוק פקודות מספר קבוע של פעמים
counter = startזוהי פעולת האתחול של מונה הלולאה
endהוא הערך הסופי של מונה הלולאה
stepזהו ערך הקפיצה של מונה הלולאה לאחר כל איטרציה (ניתן לקבוע ערך שלילי ל Step-כך שמונה הלולאה
יקבל ערכים הולכים וקטנים)
דוגמה:
]For counter = start To end [Step step
][statements
][Exit For
][statements
]Next [counter
Dim i As Integer
For i = 1 To 5
)Print "The number is: " & str(i
Next
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
המבנ ה Select Case
המבנה Select...Caseהוא מבנה רב ברירות המאפשר בחירת בלוק לביצוע ,ע"פ בדיקת ערכו של משתנה מסוים
תחביר:
Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
]][elsestatements
End Select
textexpressionהוא המשתנה שערכו נבחן
expressionlistזוהי רשימת ערכים ,שאם המשתנה הנבחן שווה לאחד מהערכים שברשימה ,אותו בלוק השייך ל-
Caseזה יתבצע
– elsestatementsיתבע בכל מקרה אחר ,כלומר אם לא נמצא ערך מתאים ברשימות הערכים השונות
ניתן להשתמש בביטוי val1 To val2כדי ליצור טווח ערכים
ניתן להשתמש בביטוי Is comparisonכדי להפעיל בדיקת ערך בתוך Select
דוגמה:
Dim nAge As Integer
))"nAge = Val(InputBox("Enter an age
Select Case nAge
Case 1
"MsgBox "One year old
Case 2
"MsgBox "Two years old
Case 3, 4, 5, 6
"!MsgBox "Well, growing
Case 7 To 13
"!MsgBox "Not a child anymore
Case 14, 15, Is < 19
"?MsgBox "A stupid teenager
Case Else
"!MsgBox "Well, very big
End Select
בקטע קוד זה מוצג Messageשונה על-פי המספר שהזין המשתמש.
תיאור הפונקציה InputBoxמובא בסעיף הבא
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :4מרכיבי השפה I
הפונקציות ,BEEP
INPUTBOXוIIF-
הפו נקציה Beep
הפונקציה Beepמשמיעה צפצוף מרמקול המחשב
תחביר:
Beep
הפו נקציה InputBox
הפונקציה InputBoxמציגה הודעה למשתמש ,ומאפשרת לו להזין נתונים בתיבה מתאימה
תחביר הפקודה:
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile,
)]context
Promptהוא ההודעה למשתמש
Titleהוא כותרת ההודעה
defaultהוא המחרוזת שתוצג עם הפעלת הInputBox-
xposו ypos-מגדירים את מיקום ה InputBox-במסך
helpfileו context-מאפשרים הפעלת מערכת עזרה בתגובה ללחיצה על F1
הפונקציה מחזירה Stringכך שיהיה צורך בהמרות במקרה של בקשרה להזנת מספר מצד המשתמש
דוגמה:
)"strGender = InputBox("Enter your gender", "Gender", "Male
בהפעלת שורת קוד זו Visual Basic ,מציגה את החלון הבא:
הפו נקציה IIf
פונקציה זו מאפשר בדיקת תנאי ,והחזרת ערך אחד מתוך שניים נתונים בהתאם לבדיקה
פונקציה זו דומה בפעולתה לאופרטו ? בשפת C
תחביר:
)IIf(expr, truepart, falsepart
exprהוא הביטוי המוערך
truepartיתבצע ,והערך שלו יוחזר ע"י הפונקציה אם התוצאה של exprהיא True
falsepartיתבצע ,והערך שלו יוחזר ע"י הפונקציה אם התוצאה של exprהיא False
הפונקציה מפעילה בכל מקרה את הפקודות הרשומות ב truepart-ובelsepart-
- 12אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
דוגמה:
קטע קוד זה מציג InputBoxלמשתמש וקולט ממשנו מספר
הפונקציה IIfמכניסה למחרוזת strAgeאת הערך המתאים לפי בדיקת התנאי nAge = 5
לבסוף מוצגת הודעה למשתמש
Dim nAge As Integer, strAge As String
)"nAge = InputBox("Enter an age", "Age
)"strAge = IIf(nAge = 5, "The age is five", "The age is not five
MsgBox strAge
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :4מרכיבי השפה I
תרגילים
.1צור תוכנית בשם ControlStructuresהמציגה למשתמש בקשה להזנת מספר בין 0ל 2-באמצעות הפונקציה
,InputBoxובהתאם למספר שהוזן יוצג MsgBoxלמשתמש.
מקם על ה Form-שלושה CommandButtonsוכתוב את הנדרש בשלוש צורות:
תוך שימוש ב ,If...Then...Else-בתגובה ל Click-על ה CommandButton-הראשון
א.
תוך שימוש ב Select...Case-בתגובה ל Click-על ה CommandButton-השני
ב.
תוך שימוש בפונקציה IIfבתגובה ל Click-על ה CommandButton-השלישי
ג.
.1כתוב תוכנית בשם .PrintSequenceמקם על טופס TextBoxאחד ו .CommandButton-בעת לחיצה על
ה CommandButton-יש להציג על Labelשיונח על הטופס את רצף המספרים המתחיל ב 0-עד המספר שהוזן ע"י
המשתמש לתוך ה.TextBox-
.3כתוב תוכנית בשם .MultipleBoardלחיצה על CommandButtonשימוקם על הטופס ,ידפיס על גבי Label
שימוקם בטופס את לוח הכפל במימדים 10X10בתוספת כותרות.
.1כתוב תוכנית בשם ProcessInputsהקולטת מהמשתמש מספים בעזרת InputBoxעד אשר המשתמש מזין 0או
מחרוזת ריקה .התוכנית תציג על גבי הטופס את סכום המספרים ,מכפלתם (אין לכפול כמובן ב 0-האחרון) ,ואת
ממוצע המספרים.
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 3הפקדים הסטנדרטיים II
בשיעור זה:
תכיר את ה Controls-הבאים:
( CheckBox oתיבת סימון)
( OptionButton oתיבת אפשרות)
( Frame oמסגרת)
( ListBox oתיבת רשימה)
( ComboBox oתיבה משולבת)
( Line oקו)
( Shape oצורה)
( Timer oשעון)
תכיר שיטה לניהול ממשק המשתמש באמצעות Timer
( CHECKBOXתיבת סימון)
CheckBoxשימושי כאשר יש צורך בבחירת אחת שתי אפשרויות "כן" או "לא"" ,אמת" או "שקר"" ,מלא" או
"ריק" וכו'
ישנה אפשרות שלישית הנקראת ,Grayedהיא משמשת בעיקר לתיאור מצב לא מוגדר או חלקי (תוכל לעיין למשל
התוכנית ההוספה וההסרה של פריטי Windowsמתוך ה ,Control Panel-שם Grayedמסמל בחירה חלקית של
התת קבוצה)
המעבר בין שני המצבים הראשונים הוא אוטומטי .כדי להפוך את התיבה ל Grayed-יש לנהל זאת מתוך הקוד
Propertiesשל CheckBox
DownPicture ,DisablePictureו :Picture-מגדירים תמונות למצבים שונים של ה CheckBox-במקרה שה-
Styleשל ה CheckBox-מוגדר כGraphical-
:Valueמכיל את אחד משלושה ערכים שבאוסף הקבועים vbUnchecked ,vbChecked – CheckBoxConstants
וvbGrayed-
Eventsשל CheckBox
:Clickמתרחש בעת לחיצת עכבר או מקש הרווח ,המשנה את ערך הCheckBox-
( OPTIONBUTTONלחצן אפשרות)
תוכל להשתמש ב OptionButton-במסגרת קבוצת אפשרויות שרק אחת מהן יכולה להיות מסומנת בזמן נתון
Propertiesשל OptionButton
:Valueמכיל את ערך ה OptionButton-שהוא Trueאו False
- 13אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :3הפקדים הסטנדרטיים II
( FRAMEמסגרת)
באמצעות Frameתוכל לקבץ מספר Controlsתחת קבוצה אחת
Frameהוא פקד מסוג Container
שתי תכונות עיקריות מאפיינות :Containers
oאם משנים את מיקומו של ה Frame-כל ה Child Controls-שבתוכו זזים יחד איתו
oכאשר ה Frame-נמצא במצב Disabledכל ה Child Controls-שבו גם הם Disabled
Propertiesשל Frame
:Enabledהוא המאפיין היותר חשוב של ה ,Frame-אם ערכו שווה ל False-כל ה Controls-שבו הופכים ללא
זמינים
Methodsשל Property
:Moveהוא Methodחשוב ב ,Frame-כיוון ששימוש נכון בו יכול לאפשר מיקום מהיר של קבוצת Controls
דוגמה : 1התוכנית CopyText
בתוכנית זו תיצור טופס עם שני .TextBoxesלחיצה על CommandButtonיעתיק את תוכני הTextBoxes-
לתיבה שלישית .ליד כל תיבת טקסט יופיע CheckBoxשיקבע האם יש להעתיק את אותו הטקס לפלט .בנוסף,
יוצבו על התיבה שני OptionButtonsהבוררים בין רווח ( )Spaceלבין מעבר שורה ( )New lineכמפריד בין תיבות
הטקסט.
בתוכנית זו נבצע אתחול של ערכי ה Controls-השונים בשלב ה Load-של הטופס.
.1צור פרוייקט חדש מסוג ,Standard EXEושמור אותו:
הקצה לפרוייקט את השם CopyTextולטופס frmCopyText
שמור את הפרוייקט
.1הוסף Controlsלטופס:
הוסף את ה Controlsהבאים ומקם אותם ע"פ הציור שלפניך:
oשני lblInput1:LabelsוlblInput2-
oשני chkIncludeText1 :CheckBoxesוchkIncludeText2-
oשני optSeparateBySpace :OptionButtonsוoptSeparateByNewLine-
CommandButon oאחדcmdCopyTexts :
oשלושה txtInput2 ,txtInput1 :TextBoxesוtxtOutput-
מקם את ה Controls-כך שהטופס ייראה כמו בציור הבא
הקצה להם שמות כפי שמוצג בציור הבא
קבע את סדר מעבר הטאב כך שיהיה לפי סדר המספרים המוקפים במלבן בציור הבא
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
0
4
1
2
5
3
6
7
8
9
: הגדר את המאפיינים הבאים.3
ערך
1-Fixed Single
CenterScreen–2
True
מאפיין
BorderStyle
StartUpPosition
Default
אובייקט
frmCopyText
cmdCopyTexts
: הוסף קוד לטופס.1
Load בתגובה לאירוע, השוניםControls- קוד זה מאתחל את הטקסט בכותרת הטופס ועל גבי ה
Controls- קוד זה מאתחל את ערכי ה, בנוסף
Private Sub Form_Load()
' Initialize the form caption
frmCopyText.Caption = "Copy Text"
' Initialize the labels caption
lblInput1.Caption = "Input &1"
lblInput2.Caption = "Input &2"
' Clear the text boxes
txtInput1.Text = ""
txtInput2.Text = ""
txtOutput.Text = ""
' Initialize the check boxes
chkIncludeText1.Caption = "Copy to output"
chkIncludeText1.Value = vbChecked
chkIncludeText2.Caption = "Copy to output"
chkIncludeText2.Value = vbChecked
- 11 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
II הפקדים הסטנדרטיים:3 שיעור
' Initialize the option buttons
optSeparateByNewLine.Caption = "Separate by a &new-line"
optSeparateBySpace.Caption = "Separate by a &space"
optSeparateBySpace = True
' Initialize the command button
cmdCopyTexts.Caption = "&Copy texts to output"
End Sub
: הוסף קוד לטופס.1
cmdCopyTexts הקוד הבא פועל בתגובה ללחיצה על הלחצן
Private Sub cmdCopyTexts_Click()
' Copy first input text only if chkInputText1 is checked
If chkIncludeText1.Value = vbChecked Then
txtOutput.Text = txtOutput.Text & txtInput1.Text
End If
' Copy space or new-line only if txtOutput is not empty
If txtOutput.Text <> "" Then
' Determines which option button is checked and copy new-line
' or space accordingly
If optSeparateByNewLine.Value = True Then
txtOutput.Text = txtOutput.Text & vbCrLf
Else
txtOutput.Text = txtOutput.Text & " "
End If
End If
' Copy second text only if chkInputText2 is checked
If chkIncludeText2.Value = vbChecked Then
txtOutput.Text = txtOutput.Text & txtInput2.Text
End If
' Prepare the output text box to the next copy
If txtOutput.Text <> "" Then
txtOutput.Text = txtOutput.Text & vbCrLf
End If
' Bring the focus back to input1
txtInput1.SelStart = 0
txtInput1.SelLength = Len(txtInput1.Text)
txtInput1.SetFocus
End Sub
הרץ את התוכנית ובדוק את פעולתה.1
- 11 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
( LISTBOXתיבת רשימה)
תיבת רשימה מאפשרת להציג למשתמש רשימת מחרוזות
המשתמש יכול לגלול את רשימת הערכים כלפי מטה או מעלה
האינדקסים של פריט ה ListBoxנעים בין 0ל( n 1 -כשאר nהוא מספר הפריטים ברשימה)
Propertiesש ל ListBox
:Columnsקובע אם ה ListBoxיציג את התוכן בטור אחד ( ) Columns 0או במספר טורים ( ) Colums 1עם
פס גלילה אופקי
:IntegralHeightקובע אם ה ListBox-יתאים את גובהו כך שמחרוזות יוצגו בשלמות
:ItemDateמערך שלמים מסוג Longהמאפשר לצרף מידע נוסף לפריטי ה ListBox-כך שלכל מחרוזת ניתן יהיה
להצמיד ערך מספרי לשימוש פנימי כלשהו של התוכנית
:Listמערך מחרוזות המכיל בתוכו את תוכן הListBox
:ListCountמחזיר את מספר הפריטים בListBox
:ListIndexמחזיר את האינדקס של הפריט הנבחר ( -במקרה של ListBoxללא ,MultiSelectאו את הפריט
שנמצא בפוקוס (בין אם הוא נבחר או לא) כאשר MultiSelectשווה ל 1או 1
:MultiSelectקובע האם יהיה ניתן לבחור מספר פריטים ברשימה במקביל
:NewIndexמחזיר את האינדקס של הפריט האחרון שנוסף לרשימה
:SelCountמחזיר את מספר הפריטים הנבחרים ברשימה
:Selectedמאפיין זה מקבל כפרמטר אינדקס של פריט ,ומחזיר ערך בוליאני הקובע האם הפריט נבחר או לא.
מאפיין זה שימושי במקרה של .MultiSelectכמו כן ,ניתן לקבוע בעזרת מאפיין זה האם פריט ייבחר או לא.
:Sortedקובע אם האלמנטים ברשימה ימוינו באופן אוטומטי
:Styleקובע את סגנון ה( ListBox-רגיל או עם )CheckBoxes
:TopMostמאפשר לקבוע איזה פריט יוצג בראש הרשימה
Methodsשל ListBox
:AddItemמאפר להוסיף פריטים לרשימה בזמן ריצה
:Clearמנקה את התוכן של הListBox-
:Refreshמרענן את תצוגת הListBox
:RemoveItemמסיר פריט מהרשימה
Eventsשל ListBox
:ItemCheckמתרחש כאשר המשתמש מסמן Vב CheckBox-המוצמד לפריט רשימה (רלוונטי כאשר המאפיין
Styleשווה ל)checkbox
:Scrollמתרחש כאשר המשתמש גולל את הרשימה או כאשר המתכנת גולל את הרשימה ע"י שימוש במאפיין
TopIndex
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :3הפקדים הסטנדרטיים II
( COMBOBOXתיבה משולבת)
ComboBoxהוא שילוב של TextBoxוListBox-
כל ה( Propertiesמלבד ,)Styleה Methodsוה Eventsשך ComboBox Controlזהים לאלו של TextBox
וה ListBoxוהתנהגותם זהה גם כן.
Styleהוא המאפיין היחיד ששונה בComboBox-
Propertiesשל ComboBox
:Styleקובע את סגנון ה:ComboBox
:Dropdown Combo oכולל TextBoxורשימה נפתחת .המשתמש יכול לבחור ערך מהרשימה או
להקליד את הערך בעצמו
:Simple Combo oכולל TextBoxורשימה לא נפתחת .המשתמש יכול לבחור את הרשימה בעצמו או
להקליד את הערך
:Dropdown List oכולל רשימה נפתחת בלבד .המשתמש יכול לבחור ערך מהרשימה בלבד.
( LINEקו) ו( SHAPE-צורה)
Lineו Shape-הם פקדים המאפשרים להוסיף קווים שונים וצורות לטופס ללא שימוש בפונקציות גרפיקה לשם
כך
ל Line-ול Shapeאין Events
Propertiesשל Lineו Shape -
Width ,Top ,Leftו( Height-ב :)Shapeמגדירים את גודל ומיקום המלבן החוסם את הצורה
( Y2 ,Y1 ,X2 ,X1ב :)Line-מגדירים את נקודות הקצה של הישר
חשוב לשים לב למאפייני הצבע והרקע של Lineו Shape-כי מעבר לשימוש גרפי בצורות אלו ,אין להם שימושים
רבים
( TIMERפקד שעון)
Timerמשמש לשיגור אירוע כל זמן נתון.
Timerהוא מסוג הפקדים שלא נראים ב( Run Time-זמן ריצה)
Propertiesשל Timer
:Enabledקובע האם השעון פעיל וכתוצאה מכך משגר אירוע כל זמן נתון
:Intervalקובע את המרווח במילי שניות בין שיגור אירוע אחד לשני
Eventsשל Timer
:Timerמתרחש כל Intervalמילי שניות (בתנאי שה Timer-נמצא במצב )Enabled
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
דוגמ ה StudentCourses – 2
בתוכנית זו נאפשר למשתמש לשבץ תלמידים לקורסים ,ולהוסיף את השיבוצים לListBox-
המשתמש יוכל גם להסיר שורות שהכניס או את כולן תוך שימוש ב CommandButton-שיוצב לשם כך
בתוכנית זו נשתמש ב Timer-שינהל את ממשק
.1צור פרוייקט חדש מסוג ,Standard EXEושמור אותו:
הקצה לפרוייקט את השם StudentCoursesולטופס frmStudentCourses
שמור את הפרוייקט
.1הוסף Controlsלטופס:
הוסף את ה Controlsהבאים ומקם אותם ע"פ הציור שלפניך:
oשלושה lblCourse ,lblStudents :LabelsוlblStudentToCourse-
oשני cboStudents :ComboBoxesוcboCourses-
oשלושה cmdQuit ,cmdAdd :CommandButtonsוcmdDelete-
ListBox oאחדlstStudentToCourse :
CheckBox oאחדchkDeleteAll :
Timer oאחדtmrUUUpdate :
oשלושה txtInput2 ,txtInput1 :TextBoxesוtxtOutput-
מקם את ה Controls-כך שהטופס ייראה כמו בציור
הקצה להם שמות כפי שמוצג בציור
קבע את סדר מעבר הטאב כך שיהיה לפי סדר המספרים המוקפים במלבן בציור
תוכל להשתמש בקווים כדי להפריד חלקים בטופס באופן וויזואלי
0
5
6
1
2
3
4
7
8
9
.3הגדר את המאפיינים הבאים:
אובייקט
frmStudentCourses
lblStudents
cboStudents
lblCourses
cboCourses
lblStudentToCourses
lstStudentToCourse
מאפיין
BorderStyle
StartUpPosition
Autosize
Style
Autosize
Style
Autosize
Sort
ערך
1-Fixed Single
2 - CenterScreen
True
1 - Dropdown combo
True
2 - Dropdown List
True
True
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
II הפקדים הסטנדרטיים:3 שיעור
1 - Checkbox
True
True
20
Style
Default
Cancel
Interval
cmdAdd
cmdQuit
tmrUIUpdate
:הוסף קוד לטופס
: הקוד הבא מצהיר על משתנים וקבועים
בדיקת משתנה זה.ListBox- נועד לספור את מספר הפריטים שיש להסיר מהm_nCheckCounter המשתנה
ListBox- בתוך הCheck בתגובה לסימון או ביטול סימון שלchkDeleteAll מקילה על שינוי מראה הלחצן
. מתעדכן בהתאםlstStudentToCourse- כל הסימונים בתוך הchkDeleteAll- במקרה של שינוי הסימון ב
כדי לאפשרm_nCheckedSource בתוכנית זו נעשה שימוש במשתנה הגלובלי,כיוון שנוצרת תגובה מעגלית
לבדוק האם מקור השינוי היה פעולת משתמש או פעולתlstStudentToCourse-בקוד התגובה לסימון שורה ב
. שאז אין לבצע מאומה,השמה מתוך הקוד
הקבועים הופכים את התוכנית לקריאה יותר
Dim m_nCheckCount As Integer
Dim m_nCheckedSource As Integer
Const CHECK_SOURCE_USER As Integer = 0
Const CHECK_SOURCE_CODE As Integer = 1
: הוסף קוד לטופס.1
: הקוד הבא מאתחל את הפקדים השונים ואת המשתנים
Private Sub Form_Load()
' Initializing lblStudets
lblstudents.Caption = "&Students"
' Initializing cboStudents
cboStudents.Clear
cboStudents.AddItem "John Degweed"
cboStudents.AddItem "Erick E"
cboStudents.AddItem "Michel de Hey"
cboStudents.AddItem "Paul Okenfold"
cboStudents.AddItem "Dimmitri"
cboStudents.AddItem "Tiesto"
cboStudents.AddItem "Josh Wink"
cboStudents.AddItem "Terry Francis"
cboStudents.AddItem "Ferry Corsten"
' Initializing lblCourses
lblCourses.Caption = "&Courses"
' Initializing cboCourses
cboCourses.Clear
cboCourses.AddItem "Advanced DJ Techniqs"
cboCourses.AddItem "Using guitar loops in the Mix"
cboCourses.AddItem "Synthisizer - Advance Topics"
cboCourses.AddItem "Synthisizer - Fundamentals"
cboCourses.AddItem "Extarcting Loops"
' Initializing cmdAdd
cmdAdd.Caption = "&Add to list"
- 12 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
' Initializing cmdQuit
cmdQuit.Caption = "&Quit"
' Initializing lblStudentsToCourses
lblStudentToCourse.Caption = "Student to course"
' Initializing lstStudentToCourse
lstStudentToCourse.Clear
' Initializing chkDeleteAll
chkDeleteAll.Caption = "Delete &all rows"
' Initializing cmdDelete
cmdDelete.Caption = "&Delete"
' Other initializations
m_nCheckCount = 0
m_nCheckedSource = CHECK_SOURCE_USER
End Sub
: הוסף קוד לטופס.1
cmdQuit או לחיצה עלcmdAdd להלן קוד השגרות לתגובה בעת לחיצה על
להזנת ערך חדשcboStudent- הפוקוס מוחזר ל, לאחר הוספת השורה לרשימה
Private Sub cmdAdd_Click()
Dim strRow As String
strRow = cboStudents.Text & ": " & cboCourses.Text
lstStudentToCourse.AddItem strRow
cboStudents.SelStart = 0
cboStudents.SelLength = Len(cboStudents.Text)
cboStudents.SetFocus
End Sub
Private Sub cmdQuit_Click()
Unload Me
End Sub
: הוסף קוד לטופס.1
cmdDelete הקוד הבא מופעל בתגובה ללחיצה על
היא מבצעת איטרציה על פריטי, אחרתClear- אם יש להסיר את כל הפריטים מהרשימה השגרה משתמשת ב
הרשימה בכדי לבדוק אלו מהם מסומנים למחיקה
chkDeleteAll ומבטלת את הסימון שלידm_nCheckCount השגרה מאפסת את המונה, בסיום
Private Sub cmdDelete_Click()
Dim i As Integer
' Check whether to remove all items
If chkDeleteAll.Value = vbChecked Then
lstStudentToCourse.Clear ' Use Clear to emove all items
Else
' Remove only the checked items
i = 0
Do While i <= (lstStudentToCourse.ListCount - 1)
If lstStudentToCourse.Selected(i) = True Then
- 11 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
II הפקדים הסטנדרטיים:3 שיעור
lstStudentToCourse.RemoveItem (i)
Else
i = i + 1
End If
Loop
End If
' Reset the "Delete all" - CheckBox and the
' Checked-Items counter (m_nCheckCount)
chkDeleteAll.Value = vbUnchecked
m_nCheckCount = 0
End Sub
: הוסף קוד לטופס.1
lstStudentToCourse הקוד הבא בתגובה לסימון שורה ברשימה
אזי מתבצע דילוג על שאר הקוד כדי למנוע תגובה,chkDeleteAll אם האירוע התרחש בגלל לחיצה על
מעגלית
m_nCheckCount בהתאם לכך הוא מעדכן את. הקוד בודק אם נוסף סימון או הוסר
chkDeleteAll- ובהתאם לערך זה מותאם הסימון בm_nCheckCount לאחר מכן נבדק ערכו של
Private Sub lstStudentToCourse_ItemCheck(Item As Integer)
Dim nCheckedCount As Integer, i As Integer
' Process this code only if the Checked or Unchecked operation
' was invoked by the user and not the code inside chkDeleteAll
If m_nCheckedSource = CHECK_SOURCE_USER Then
m_nCheckCount = m_nCheckCount + _
IIf(lstStudentToCourse.Selected(Item), 1, -1)
If m_nCheckCount = 0 Then
chkDeleteAll.Value = vbUnchecked
ElseIf m_nCheckCount = lstStudentToCourse.ListCount Then
chkDeleteAll.Value = vbChecked
Else
chkDeleteAll.Value = vbGrayed
End If
End If
End Sub
: הוסף קוד לטופס.1
מילי שניות12 מופעל כל, קטע הקוד הבא
בקוד זה נבדק מצב מרכיבים שונים בטופס ובהתאם לכך מעודכן ממשק המשתמש
cboCourses- וcboStudents- מאופשר רק אם קיים טקסט בcmdAdd הלחצן
lstStudentToCourse- מאופשר רק אם ישנם פריטים בchkDeleteAll
2- גדול מm_nCheckCount מאפשר רק אםcmdDeleteAll הלחצן
Private Sub tmrUIUpdate_Timer()
' Enable the "Add to list" command only if there is text in
' cboStudents as well as in cboCourses
cmdAdd.Enabled = cboCourses.Text <> "" And cboStudents.Text <> ""
- 11 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
' Enable the "Delete All" - CheckBox
only if there are
' items in the list
chkDeleteAll.Enabled = lstStudentToCourse.ListCount > 0
' Enable cmdDelete only if the number of the checked items
' is greater than 0
cmdDelete.Enabled = m_nCheckCount > 0
End Sub
: הפעל את התוכנית ובדוק את פעולה.1
בתגובה לשינוי תכני הרשימות השונותUser Interface- שים לב לעדכון ה
מאופשר רק אם יש סימון כלשהו ברשימהDelete- שים לב ש
- 13 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :3הפקדים הסטנדרטיים II
תרגילים
.1כתוב תוכנית בשם .DayAndColorמקם על טופס Frameובתוכו שבעה OptionButtonsעם הכותרות ,Sunday
Mondayוכו' .כמו כן מקם על הטופס שלושה CheckBoxesעם הכותרות Green ,Redו .Blue-במקום ריק
בטופס מקם .Labelבעת בחירת אחד הימים ב OptionButtons-יש לשנות את הטקסט הכתוב ב .Label-בעת
לחצה על CheckBoxשל צבע ,יש להוסיף המרכיב שלו לצבע הטופס או להסיר מרכיב זה מצבע הטופס בהתאם
לערך ה .CheckBox-כך למשל ,אם צבע הטופס הוא אדום ) RGB(255, 0, 0לאחר לחיצה על הCheckBox-
הירוק יתוסף המרכיב שלו לצבע וכתוצאה מכך תקבל צבע צהוב () ,RGB(255, 255, 0לחיצה נוספת על Green
תסיר את המרכיב והרקע ישוב להיות אדום.
.1כתוב תוכנית בשם .FulfilListBoxבתוכנית הוסף על טופס את ה Controls-הבאים:
( TextBoxעם Labelמתאים ככותרת) ListBox ,ושלושה .CommandButtons
בעת לחיצה ( )Clickעל ה CommandButton-הראשון יתוסף הטקסט שהוזן לתוך ה TextBox-הListBox-
(ה CommandButton-הזה יהי .)Defaultאם לא קיים טקסט בתוך ה ,TextBox-לא יתבצע מאומה .לאחר
ההוספה יוחזר הפוקוס ל TextBox-ויסומן הקטע שבתוכו.
בעת לחיצה על ה CommandButton-השני ימחק הפריט המסומן ברשימה.
CommandButtonשלישי ישמש ליציאה ויקבל את המאפיין .Cancel
כמו כן ,בעת לחיצה כפולה ( )Double Clickעל שורה בתוך ה ListBox-יוצג Message Boxטקסט פריט שנבחר.
.3צור תוכנית בשם .SumListData
בטופס מקם את ה Controls-הבאים:
שני TextBoxesעם Labelsמתאימים שכותרת הראשון היא " "Nameוכותרת השני היא "."Additional Value
שני CommandButtonsשכותרת הראשון היא Insertוכותרת השני היא .Sum
ListBoxאחד.
בעת לחיצה על Insertיוזן ל ListBox-המידע שני ה .TextBoxes-כאשר ה Additional Data-הוא מידע המוכנס
ל .ItemData-אם המשתמש לא הזין דבר לשדה Nameאזי לא תתבצע ההכנסה .אם רק השדה Additional Data
חסר ,ערך ברירת המחדל יהיה .1לאחר ההוספה יוחזר הפוקוס לתיבה Nameויסומן בה הטקסט לשם החלפה.
בעת לחיצה על הלחצן Sumיחושב סכום כל מאפייני ה ItemData-הצמודיפ לפריטי הרשימה ,ותוצג למשתמש
הודעה מתאימה.
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 6מרכיבי השפה II
בשיעור זה:
תכיר את המילה With
תלמד איך ליצור מערכים חד ממדיים ,רב ממדיים ומערכים דינמיים
תלמד ליצור ( Control Arraysמערכים של פקדים)
תלמד לכתוב רוטינות ופונקציות
תכיר צורות העברה שונות של פרמטרים לרוטינה ופונקציה
תבין מהם משתנים מקומיים ,משתנים גלובליים ומשתנים סטטיים
תבין מהי פרוצדורה סטטית
תלמד ליצור פרוצדורה עם מספר פרמטרים משתנה
תלמד לעבוד עם מודולי קוד (*)bas.
תלמד כיצד להפעיל קוד מחלון הImmediate-
תלמד ליצור רשימות קבועים באמצעות המשפט Enum...End Enum
תלמד להגדיר סוגי משתנים חדשים ()User Defined Type
המילה
WITH
לעתים יש צורך להגדיר מספר גדול של מאפיינים של אובייקט
כדי לקצר את זמן הכתיבה וכדי להפוך את הקוד מובן יותר אפשר להשתמש בתבנית הכתיבה הבאה:
With object
.property1 = value1
.property2 = value2
...
End With
( ARRAYSמערכים)
מערך הוא רצף של משתנים מאותו הסוג הממוקמים ברצף בזכרון
ב Visual Basic-ניתן להצהיר על מערכים חד ממדיים ,רב ממדיים ,ומערכים דינמיים
הפנייה לאיבר במערך ב Visual Basic-מתבצעת על-ידי רישום אינדקס האיבר בתוך סוגריים עגולים
כאשר הפנייה היא לאיבר במערך רב ממדי ,יש להפריד בין אינדקסים ברמות שונות באמצעות פסיקים
הצהרה תוך שימוש במילים Dim Private ,Publicאו ,Staticזהה באופן ובמשמעות שלה להצהרה על משתנים
רגילים
( One-Dimensional Arraysמערכים חד ממדיים)
הצהרה על מערך חד ממדי יכולה להתבצע בשתי צורות ,הצורה הראשונה היא:
Dim arr_name(upper_index) As Type
arr_nameהוא שם המערך
upper_indexהוא האינדקס של האיבר האחרון במערך
Typeהוא סוג האיברים במערך
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :6מרכיבי השפה II
הצורה השניה היא:
השוני בצורה זו ,הוא בכך שאתה מגדיר את האינדקס התחתון ואת האינדקס העליון שיהוו את גבולות המערך
מותר להשתמש גם במספרים שליליים עבור האינדקסים
Dim arr_name(lower_index To upper_index) As Type
המשפט Option Base
אם לא מצוין האינדקס התחתון של המערך ,ברירת המחדל היא 2
כדי לשנות זאת ניתן להשתמש במשפט Option Base 1בתחילת מודול הקוד ,במקרה זה ,האינדקס התחתון של
מערכים שיוצהרו בצורה הראשונה יהיה 1
ניתן להשתמש גם במשפט ,Option Base 0אך זוהי ברירת המחדל
( Multi-Dimensional Arraysמערכים רב ממד יים)
ההצהרה על מערכים רב ממדיים דומה למערכים חד ממדיים ,אלא שיש להפריד בפסיקים בין הגדרת טווחי
האינדקסים של כל ממד ,באופן הבא:
Dim arr_name(lower_index1 To upper_index1, lower_index2 To
upper_index2,...) As Type
טווחי האינדקסים של ממד במערך יכולים להיות מוצהרים כמו בצורה הראשונה שהוצגה עבור מערכים חד
ממדיים .במקרה זה ,האינדקס התחתון יהיה 2אלא אם הוגדר Option Base 1בתחילת הקובץ
( Dynamic Arraysמערכים די נמיים)
כדי להצהיר על מערך דינמי ,יש להצהיר עליו מלכתחילה ללא גודל מוגדר ,באופן הבא:
Dim arr_name() As Type
באמצעות המילה ReDimניתן לשנות את גודל המערך במהלך ריצת התוכנית ,באופן הבא:
]ReDim [Preserve] (lower_index1 To upper_index1, ...) [As Type
ניתן לשנות את מספר הממדים במערך ,את גודל כל ממד
את סוג האיברים במערך ניתן רק אם המערך מאוחסן בתוך משתנה מסוג Variant
אם משתמשים במילה Preserveגודלו משתנה תוך שמירת תוכנו הקודם
בעת שימוש במילה Preserveלא ניתן לשנות את סוג האיברים במערך ,כמו גם את גבולו התחתון של המערך
בעת שימוש במילה Preserveבעת שינוי גודלו של מערך רב ממדי ,ניתן לשנות רק את אינדקסים של הממד
האחרון במערך
אזהרה :השימוש במילה ReDimיכול לשמש גם כהצהרה על משתנה .משמעות הדבר היא שגם אם כתוב בראש
המודול המשפט ,Option Explicitוהשתמשת ב ReDim-יחד עם שם משתנה שלא הוצהר בראש המודול ,לא
תקבל שגיאת קומפילציה ואותו מערך אכן ייוצר באופן מקומי.
בדיקת גודל מע רך ב זמן ריצה באמצעות LBoundו UBound -
מתעורר צורך לעתים קרובות לדעת מהו הגבול התחתון (האינדקס התחתון) של מערך ,כמו גם גבולו העליון .צורך
זה הופך לקריטי כשעוסקים בכתיבת קוד גנרי ,כמו גם תוך עבודה עם מערכים דינמיים
הפונקציה )Lower Bound( LBoundמחזירה את האינדקס התחתון של מערך
הפונקציה )Upper Bound( UBoundמחזירה את האינדקס העליון של המערך
דוגמה 1
Dim m_nArr(9) As Integer
פקודה זו מצהירה על מערך שהאינדקס הראשון שלו הוא 0והאחרון הוא .9סה"כ 10איברים
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
דוגמה 2
Option Base 1
...
...
Dim m_nArr(9) As Integer
שורות קוד אלו זו מצהירה על מערך שהאינדקס הראשון שלו הוא 1והאחרון הוא .9סה"כ 9איברים
שים לב שהמשפט Option Baseיכול להופיע רק פעם אחת בתחילת המודול (לפני כל הפונקציות או ההצהרות על
מערכים)
משפט Option Baseמשפיע רק על מערכים שנוצרו בתוך המודול בו נרשם המשפט
דוגמה 1
Dim TicTacToe(1 To 3, 1 To 3) As Boolean
בשורת קוד זו מוצהר מערך דו ממדי בשם ,TicTacToeשהאינדקסים בשני הממדים שלו נעים בין 1ל( 3-כולל)
דוגמה 4
בדוגמה זו הנח ששורות הקוד מתבצעות בסדר כרונולוגי מהמשפט הראשון לאחרון.
Dim dyn_arr() As Integer
בשורת קוד זו מוצהר מערך דינמי בשם dyn_arrמסוג Integer
בשורת קוד זו קובעים מחדש את ממדי המערך ,dyn_arrכך שיכיל ממד אחד שהאינדקסים שלו נעים בין 5ל1-
)ReDim dyn_arr(5 To 9
)ReDim dyn_arr(3 To 10
שורת קוד זו משנה שוב את ממדי המערך כך שיכיל ממד אחד שהאינדקסים שבו נעים בין 3ל12-
)ReDim Preserve dyn_arr(3 To 12
שורת קוד זו מגדירה שוב את ממדי המערך תוך שמירה על הערכים המאוחסנים בו .בשורה שזו משתנה האינדקס
ל11-
ניסיון להריץ את שורת הקוד הבאה יגרום לשגיאה:
)ReDim Preserve dyn_arr(-2 To 20
שורת קוד זו מנסה (אך לא יכולה) להשתמש במילה Preserveתוך שינוי האינדקס התחתון של המערך
)ReDim dyn_arr(-2 To 7, 11
בשורת קוד זו משנים שוב את ממדי המערך כך שיכיל שני ממדים ,כאשר האינדקסים בממד הראשון נעים בין –2
ל ,1-והאינדקסים בממד השני נעים בין ( 2או 1אם הוגדר 1 Option Baseבראש המודול) ל11-
ניסיון להריץ את שורת הקוד הבאה ייתקל בשגיאה:
ReDim dyn_arr(-2 To 7, 13) As Long
לא ניתן לשנות סוג של מערך
דוגמה 3
בדוגמה זו תראה כיצד ניתן לשנות את סוג המערך
תחילה יש להצהיר על משתנה רגיל מסוג :Variant
שים לב שזהו משתנה רגיל (אין סוגריים ריקים בהצהרה)
לאחר מכן תוכל לשנות את גודל המערך ואת סוגו כל אימת שתרצה בכך:
Dim dyn_arr as Variant
ReDim dyn_arr(3 To 5, 6 To 7) As Long
לא תוכל לשנות את סוג המערך אם השתמשת במילה Preserve
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :6מרכיבי השפה II
( CONTROL ARRAYמערכי פקדים)
כפי שניתן ליצור מערכי משתנים מסוגים בסיסיים וסוגים המוגדרים ע"י המשתמש ,כך ניתן ליצור Control
( Arraysמערכי פקדים)
לכל סוגי הפקדים (בדוק זאת!!!) קיים מאפיין בשם Index
ב Control Array-כל הפקדים חייבים להיות מאותו הסוג ובעלי אותו שם
האינדקס של כל פקד במערך נקבע באמצעות המאפיין Index
גישה לפקד בודד מתוך Control Array
כדי לגשת לפקד מסוים במערך יש לציין את האינדקס שלו באופן הבא:
ControlArrayName(desire_index).property = ...
או
ControlArrayName.Item(desire_index).property = ...
בדיקת גודל המערך וגבולותיו
ניתן לקבוע את גודל ה Control Array-באמצעות הפונקציה ,Countבאופן הבא:
ControlArrayName.Count
ניתן לקבוע את האינדקס התחתון ב Control Array-באמצעות הפונקציה ,LBoundבאופן הבא:
ControlArrayName.LBound...
ניתן לקבוע את גבולו העליון של ה Control Array-באמצעות הפונקציה ,UBoundבאופן הבא:
ControlArrayName.UBound...
אירועים של פקדים השייכים לControl Array-
הפרמטר הראשון בשגרות אירוע של ,Control Arrayהוא האינדקס של הפקד במערך עבורו שוגרה ההודעה
מבנה כללי של שגרת אירוע עבור ControlArrayהוא כדלקמן:
Private Sub ControlArrayName_EventName(Index As Integer, .....all other
)parameters in the event...
שלבי יצירת Control Array
ליצירת Control Arrayישנן כמה דרכים ,אתאר כאן שתיים:
הדרך הראשונה והפשוטה היא ליצור פקד אחד ,להגדיר לו את השם והמאפיינים הנדרשים ולאחר מכן להעתיק
אותו ( )Ctrl+Cולהדביק אותו ( Visual Basic .)Ctrl+Vתשאל אותך האם אתה מעוניין ליצור מערך פקדים אשר
את הבקשה ,והמערך ייוצר.
דרך שניה היא להגדיר באופן ידני את שמות הפקדים ואת האינדקס שלהם כך ששמות הפקדים יהיו זהים ,ולכל
אחד מהם יוקצה אינדקס ייחודי
יצירת פקדים בזמן ריצה
כדי ליצור פקדים בזמן ריצה עליך ליצור Control Arrayשיש בו לפחות איבר אחד בזמן עיצוב התוכנית
בזמן ריצת התוכנית תוכל להשתמש במתודה Loadכדי לטעון פקדים נוספים באופן הבא:
)Load arr_name(new_index
תקבל שגיאה אם תנסה ליצור פקד חדש עם אינדקס שכבר תפוס ע"י פקד אחר באותו המערך
הקפד להגדיר את מאפייני הפקד מיד לאחר שנוצר
כדי להסיר פקד בזמן ריצה ,השתמש במתודה Unloadבאופן הבא:
)Unload arr_name(index_to_remove
לא תוכל להסיר פקדים שנוצרו בזמן עיצוב ,אלא רק פקדים שנוצרו באמצעות קריאה קודמת לLoad-
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Com mandBoard – התוכנ ית1 תרגיל
בדוגמה זו אמחיש לך כיצד ניתן ליצור פקדים בזמן ריצה
ונמקם אותם על גבי הטופס הראשי של התוכניתRuntime-בתוכנית זו נטען פקדים ב
, ותסיר אותו מהטופס (אלא אם מדובר בפקד הראשון,לחיצה על אחד הפקדים תציג הודעה עם מספר הפקד
)Design time-כלומר זה שמוקם על הטופס ב
:Standard EXE צור תוכנית
frmCommandBoard ולטופס את השם,CommandBoard הקצה לפרוייקט את השם
שמור את התוכנית
:הוסף פקד לטופס
cmdBoard על גבי הטופס והקצה לו את השםCommandButton הצב פקד מסוג
:הגדר את המאפיינים הבאים
ערך
מאפיין
אובייקט
1-Fixed Single
BorderStyle
frmCommandBoard
2 - CenterScreen
StartUpPosition
0 - User
ScaleMode
0
ScaleLeft
0
ScaleTop
3
ScaleWidth
3
ScaleHeight
0
Index
cmdBoard
:הוסף קוד לטופס
:Control Array- נוסיף פעולות אתחול ויצירה של ה, של הטופסLoad לאירוע
Private Sub Form_Load()
Dim i As Integer
' Initialize the caption
Me.Caption = "Command Board"
' Reposition the first control
With cmdBoard(0)
.Caption = "&0"
.Left = 0
.Top = 0
.Width = 1
.Height = 1
.Visible = True
End With
' Load the controls from 2 to 9 (th first is already on the form)
' Then, reposition the loaded controls
For i = 1 To 8
Load cmdBoard(i)
- 11 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
.1
.1
.3
.1
שיעור :6מרכיבי השפה II
)With cmdBoard(i
)).Caption = "&" & Trim(Str(i
.Left = i Mod 3
.Top = i \ 3
.Width = 1
.Height = 1
.Visible = True
End With
Next i
End Sub
שים לב ,לאחר טעינת כל פקד השתמשנו ב With-כדי להגדיר קבוצת מאפיינים שלו .צורת רישום כזו נוחה
ומובנת
יש להגדיר את המאפיין Visibleל True-כדי שהפקד הנטען יוצג על פני הטופס
הכותרות של הפקדים הוגרו לפי האינדקס שלהם לצורך הנוחות
כשרוצים להכניס קו תחתון מתחת למספר (מאיץ מקלדת באמצעות ,)ALTמשתמשים בתו המוכר &
(אמפרסנד)
הפונקציה Strהממירה מספר למחרוזת מוסיפה רווח בתחילת המחרוזת כאשר המספר הוא חיובי ,וסימן –
(מינוס) כאשר המספר הוא שלילי .כדי להסיר רווח זה ניתן להשתמש בפונקציה Trim
.1הוסף קוד לטופס:
הקוד הבא פועל בתגובה לאירוע Clickשל הפקדים במערך
אם הפקד שנלחץ אינו הראשון (אינדקס 0שאותו אסור להסיר באמצעות ,)Unloadמוסר הפקד באמצעות
:Unload
)Private Sub cmdBoard_Click(Index As Integer
' Remove the Command only if it isn't the first (index = 0) command
)If Index <> 0 Then Unload cmdBoard(Index
End Sub
.1הרץ ובדוק את פעולת התוכנית
פרוצדורות
בVISUAL BASIC-
כמו בכל שפת תכנות ,גם ב Visual Basic-ניתן לכתוב פרוצדורות קוד
פרוצדורות ב Visual Basic-מגיעות אלינו בארבעה טעמים:
– Sub Routines oרוטינות
- Functions oפונקציות
– Properties oמאפיינים
- Events oאירועים
את השניים הראשונים תכיר בשיעור זה .יצירת מאפיינים ואירועים תכיר בשיעור העוסק במחלקות
- 12אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
רוטי נות ופו נקצ יות שלב I
רוטינה ב Visual Basic-אינה מחזירה ערך ,לעומת פונקציה המחזירה ערך
לרוטינות ופונקציות ניתן להעביר פרמטרים בשתי צורות:
- By Value oעל ידי ערך
– By Reference oעל ידיד ייחוס
oקיימים היבטים נוספים הנוגעים להעברת פרמטרים ,נכיר אותם בהמשך
העברת פרמטר By Valueיוצרת העתק למשתנה והעתק זה נמצא בידי הרוטינה או הפונקציה
העברת פרמטר By Referenceגורמת למשתנה המקורי להיות נגיש על ידי הרוטינה או הפונקציה
תחביר רוטינות ופונקציות
תחביר רוטינה הוא:
תחביר פונקציה הוא:
SubNameהוא שם הרוטינה ו FunctionName-הוא שם הפונקציה
parametersהוא רשימת הפרמטרים המועברים לרוטינה או לפונקציה .בהמשך נראה כיצד מעבירים פרמטרים.
Publicהופך את הרוטינה או הפונקציה לציבורית ,כלומר נגישה על ידי קוד ממודולי קוד אחרים בפרוייקט
ניתן להשתמש במילה Privateבמקום המילה ,Publicואז הרוטינה או הפונקציה הופכת לפרטית באותו מודול
קוד ,ולא תהיה אליה גישה ממודולים אחרים
Publicהיא הרשאת ברירת המחדל עבור פרוצדורות קוד
Typeהוא סוג הערך המוחזר על ידי הפונקציה .אם לא צוין במפורש ,הסוג הוא Variant
– ReturnValueכשרוצים להחזיר ערך מפונקציה יש לבצע השמה לשם הפונקציה
)Public Sub SubName(parameters
...
End Sub
Public Function FunctionName(parameters) As Type
...
FunctionName = ReturnValue
End Function
רשימת פרמטרים
רישום הפרמטרים שהפרוצדורה מקבלת מתבצע באופן הבא:
[ByVal | ByRef] parameter1 As Type, [ByVal | ByRef] parameter2 As
Type...
parameter1ו parameter2-הם שמות הפרמטרים
Typeהוא סוג הערך של הפרמטר .אם לא צוין במפורש ,סוג הפרמטר הוא Variant
ByValאו ByRefקובעים את האופן שבו יועבר הפרמטר לפונקציה .האפשרויות הן:
– ByVal oעל ידי ערך
– ByRef oעל ידי ייחוס
oאם לא צויין במפורש ,ברירת המחדל היא ByRef
מערכים ניתן להעביר ByRefבלבד
יציאה מרוטינה או פונקציה
ניתן לצאת בכל שלב מתוך רוטינה או פונקציה על ידי שימוש במשפטים:
– Exit Sub oליציאה מרוטינה
– Exit Function oליציאה מפונקציה
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :6מרכיבי השפה II
משתנים מקומיים ,גלובליים וסטטיים
ניתן להצהיר על משתנים בתוך פרוצדורות קוד באמצעות המילים Dimאו Staticבלבד
הצהרה על משתנים בתוך פרוצדורה אינה יכולה להתבצע באמצעות המילים Publicאו Private
משתנים המוצהרים בתוך פרוצדורת קוד נקראים משתנים מקומיים
משתנים מקומיים זמינים אך ורק לקטע הקוד התחום בתוך הרוטינה או הפונקציה
משתנים מקומיים מתחילים את חייהם עם תחילת הפרוצדורה ומשוחררים מהזיכרון עם סיום הפרוצדורה
משתנים המוצהרים בראש מודול נקראים משתנים גלובליים
משתנים גלובליים זמינים לכל הרוטינות והפרוצדורות באותו מודול
משתנים גלובליים מתחילים את חייהם בתחילת חייו של מודול הקוד ומסיימים את חייהם בסיום חייו של מודול
הקוד (במקרה של מודול * bas.מדובר בתחילת התוכנית ובסיומה .מודול *.basיילמד בהמשך)
משתנים המוצהרים בפרוצדורה באמצעות המילה Staticנקראים משתנים סטטיים
משתנים סטטיים נשמרים בזכרון גם לאחר שהפרוצדורה מסיימת את פעולתה ,וערכם נשמר עד להפעלה הבאה
של הפרוצדורה .במילים אחרות ,משתנים סטטיים שומרים על ערכם בין שתי קריאות סמוכות לפרוצדורה.
דוגמה 1
)(Public Sub Hello
"!MsgBox "Hello, world
End Sub
פרוצדורה זו מציגה Message Boxעם ההודעה "!"Hello, world
שים לב שהיה ניתן להימנע מהשימוש במילה Publicכיוון שזוהי ברירת המחדל
דוגמה 2
)Public Sub DispSum(ByVal a As Integer, ByVal b As Integer
)MsgBox Str(a + b
End Sub
רוטינה זו מציגה ב Message Box-את סכומם של שני מספרים המועברים אליה
דוגמה 1
)Public Sub Swap(ByRef var1 As Variant, ByRef var2 As Variant
Dim varTmp As Variant
varTmp = var1
var1 = var2
var2 = varTmp
End Sub
הרוטינה Swapמחליפה בין התכנים של שני משתנים המועברים אליה
כיוון שהפרמטרים מוצהרים כ ,Variant-ניתן להפעיל רוטינה זו על כל הסוגים הבסיסיים של Visual Basic
שים לב שניתן היה להימנע מהשימוש במילה ByRefכיוון שזוהי ברירת המחדל
דוגמה 4
Public Function GiveMe5() As Integer
GiveMe5 = 5
End Function
פונקציה זו מחזירה 5למי שקרא לה ()Caller
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
דוגמה 3
Public Function Factorial(ByVal n As Byte) As Long
Dim lRes As Long
lRes = 1
Do While n > 0
lRes = lRes * n
n = n - 1
Loop
Factorial = lRes
End Function
פונקציה זו מחשבת את העצרת של מספר המועבר אליה
שים לב לשימוש בפרמטר ( nהפרמטר המועבר לפונקציה) .שינוי הפרמטר במהלך הפונקציה לא משפיע על המקור,
כיוון שהפרמטר מועבר ,ByValכלומר בפונקציה נעשה שימוש בהעתק של המשתנה המועבר.
דוגמה 6
Public Function FindBigger(ByRef arr() As Integer) As Integer
Dim l As Integer, u As Integer
Dim bigger As Integer
)l = LBound(arr
)u = UBound(arr
bigger = l
Do While l <= u
If arr(l) > arr(bigger) Then bigger = l
l = l + 1
Loop
FindBigger = bigger
End Function
פונקציה זו מקבלת מערך של Integersומחזירה את האינדקס של האיבר הגדול במערך
הפונקציה סורקת את המערך החל מאינדקס האיבר הראשון ( )LBoundעד לאינדקס האיבר האחרון ()UBound
דוגמה 7
Public Function SumCalls() As Integer
Static nCalls As Integer
nCalls = nCalls + 1
SumCalls = nCalls
End Function
בדוגמה זו SumCallsהיא פונקציה המחזירה את מספר הקריאות שהתבצעו אליה עד כולל הקריאה האחרונה
המשתנה nCallsמוצהר כסטטי ,לכן הוא מאותחל ל 2-פעם אחת (בקריאה הראשונה) ,ובכל קריאה נוספת הוא
שומר על ערכו הקודם
- 13אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :6מרכיבי השפה II
קריאות לרוטינות ופרוצדורות
][Call] name [argumentlist
ניתן לקרוא לרוטינות או פונקציות באמצעות המילה Call
השימוש במילה Callהוא אופציונלי ,ולרוב לא משתמשים בו
אם נעשה שימוש במילה ,Callיש לתחום בתוך סוגריים ארגומנטים המועברים לרוטינה או לפונקציה
כאשר קוראים לרוטינה ללא שימוש במילה ,Callאין לתחום בסוגריים את הארגומנטים
אם משתמשים בערך המוחזר של פונקציה ,יש לתחום בסוגריים את הארגומנטים המועברים לפונקציה
דוגמאות לקריאה לפרוצדורת
Call Hello
בשורת קוד זו נקראת הרוטינה Hello
בשורת קוד זו מתבצעת קריאה לרוטינה ,Swapומועברים אליה הפרמטרים aוb-
באופן דומה ניתן היה לרשום:
בשורת קוד זו ,המבצעת קריאה לפונקציה ,Factorialוהערך המוחזר ממנה מושם למשתנה res
)Call Swap(a, b
Swap a, b
)res = Factorial(8
רוטי נות ופרוצדורות שלב II
פרוצדורות סטטיות
ניתן להפוך פרוצדורה לסטטית על ידי הוספת המילה Staticלאחר המילה Publicאו Privateולפני שם
הפרוצדורה ,כלומר:
][Public | Private] Static ProcedureName(arglist) [As Type
פרוצדורה סטטית היא פרוצדורה שכל המשתנים שבה שומרים על ערכם בין הקריאות השונות לפרוצדורה
named-arguments
בעת קריאה לפונקציה ניתן לציין לאיזה פרמטר פורמלי מיועד כל ארגומנט אקטואלי שמעבירים ,תוך שימוש
באופרטור ( =:נקודתיים ושווה)
כך לדוגמה ,אם מוצהרת הפונקציה הבאה:
Public Function Div(ByVal Num1 As Double, ByVal Num2 As Double) As
Double
ונרצה לחשב את הביטוי , 3.12 8 2נוכל לקרוא לפונקציה בשתי צורות:
)res = Div(8, 2
או
)res = Div(Num2 = 2, Num1 = 8
ParamArray
ParamArrayדומה לאופרטור ( ...שלוש נקודות) בשפת ,Cבהקשר של פרמטרים לפונקציות
ParamArrayמאפשר להעביר מספר משתנה של פרמטרים לפרוצדורה
ParamArrayחייב להופיע בסוף רשימת הפרמטרים
לפרוצדורה שהפרמטר האחרון שלה הוא מסוג ,ParamArrayניתן לקרוא עם מספר משתנה של פרמטרים (חוץ
מהפרמטרים שהם חובה כמובן)
בתוך הפרוצדורה ,הגישה לפרמטרים המועברים נעשית בצורה שבה ניגשים לאיברי מערך
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
אי אפשר להשתמש במילים ByValאו ByRefיחד עם ParamArray
ברשימת הפרמטרים לא יכולים להיות יחד ParamArrayופרמטרים אופציונליים (נלמד בסעיף הבא)
תחביר השימוש ב ParamArray-הוא כדלקמן:
......(arg1 As Type, arg2 As Type, ..., ParamArray other_pamaters())....
מילת המפתח היא ParamArray
)( other_paramatersזהו שם המערך (במקרה זה) כפי שיוכר בפרוצדורה
בהמשך תראה דוגמה לשימוש בParamArray-
פרמטרים אופציונליים
ניתן להגדיר פרמטרים מסוימים של פרוצדורה כאופציונליים ,כלומר פרמטרים שאין חובה להעביר לפרוצדורה
ניתן להשתמש בפונקציה IsMissingכדי לבחון אם פרמטר (מסוג Variantבלבד) הועבר לפונקציה
ניתן להגדיר ערכי ברירת מחדל עבור פרמטרים אופציונליים
כאשר משתמשים בפרמטר אופציונלי כל הפרמטרים שאחריו חייבים גם הם להיות אופציונליים
התחביר לפרמטרים אופציונליים הוא כדלקמן:
...(...,Optional [ByVal | ByRef] arg As Type [= DefaultValue],...
מילת המפתח היא Optional
ניתן להמשיך ולהשתמש ב ByRef-או ByVal
Typeהוא סוג הפרמטר שלו מצפה הפרוצדורה
DefaultValueהוא חלק רשות המגדיר את ערך הפרמטר במקרה שלא הועבר לפרוצדורה
יצירת שלד פרוצדורה באמצעות Add Procedureמהתפריט Tools
ניתן ליצור תבנית פרוצדורות מכל הטעמים (רוטינות ,פונקציות ,מאפיינים ואירועים)
באמצעות הAdd Procedure... :Wizard-
לשם פתיחת ה Wizardעליך להיות בחלון הקוד של אחד מהמודולים בתוכנית .ואז מתוך התפריט Toolsבחר
ב...Add Procedure-
אפשרויות הבחירה הן Property ,P Function ,Sub :וProcedure-
אפשרויות הגישה הן Publicאו Private
אם תסמן את האפשרות All Local variables as Staticה Wizard-ייצור עבורך פרוצדורה סטטית
דוגמה 1
_ Public Function Mult(ByVal Num1 As Double,
_ ByVal Num2 As Double,
ParamArray AdditionalNums()) As Double
Dim res As Double
Dim l As Integer, u As Integer
)l = LBound(AdditionalNums
)u = UBound(AdditionalNums
res = Num1 * Num2
Do While l <= u
)res = res * AdditionalNums(l
l = l + 1
Loop
Mult = res
End Function
לפונקציה זו ישנם שני פרמטרים שהם חובה Num1 :וNum2-
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :6מרכיבי השפה II
ניתן להעביר פרמטרים נוספים לפונקציה ואז תחושב המכפלה של כל המספרים
דוגמה 1
_ Public Function Div(Optional ByVal Num1 As Double = 1#,
Optional ByVal Num2 As Double = 1#) As Double
If Num2 = 0# Then Exit Function ' Num2 must be non-zero
Div = Num1 / Num2
End Function
פונקציה זו מחזירה את מנת החלוקה של Num1בNum2-
אם לא מועבר אחד מהמספרים ,ערך ברירת המחדל שלו יהיה 1.0
מודולי קוד סטנדרטיים
מודולי הקוד ב Visual Basic-מתחלקים לשתי קבוצות עיקריות:
Class Modules o
Standard Modules o
מודולי מחלקה ( )Class Modulesיילמדו בהמשך ,טפסים לדוגמה הם סוג של מודול מחלקה
מודול סטנדרטי יכול להכיל פונקציות ומשתנים גלובליים שיהיו זמינים לכל האובייקטים ביישום
ניתן לכלול משתנים ופונקציות שיהיו זמינים לפונקציות שבמודול בלבד על ידי שימוש במילה Private
כדי להוסיף מודול יש לבחור Add Moduleמתוך התפריט Project
הפעלת פונקציות מחלון
*.BAS
הIMMEDIATE
חלון ה Immediate-הוא אחד ממרכיבי מערכת ניפוי השגיאות ( )Debuggerשל ( Visual Basicנושא יילמד
בשיעור הבא)
חלון ה ,Immediate-כשמו ,מאפשר לבצע פעולות באופן מידי
ניתן להריץ פונקציות ורוטינות באמצעות חלון ה Immediate-מבלי להריץ את התוכנית כולה
כמובן שגם במהלך התוכנית ניתן לבחון ערכי משתנים ופונקציות בתוכנית ,אך נושא זה יידון בפירוט בפרק הבא
כדי להציג ערך המוחזר על ידי פונקציה בחלון ה ,Immediateיש להקדים את הסימן? (סימן שאלה) – כמובן שיש
לתחום בסוגריים את הארגומנטים המועברים לפונקציה
כדי להציג את חלון ה Immediate-ניתן לבחור Immediate windowמהתפריט ,Viewאו לחילופין להפעיל את
צירוף המקשים Ctrl+G
תרגיל – 2הפעלת קוד מחלון ה Immediate -
בתרגיל זה תכתוב במודול סטנדרטי קוד המוצג בדוגמאות הקודמות ,ותריץ אותו דרך חלון הImmediate-
.1צור תוכנית :Standard EXE
הסר מהתוכנית את הטופס:
oלחץ לחיצה ימנית על שם הטופס ב( Project Explorer-אם אינך רואה את ה Project Explorer-בחר
אותו מהתפריט )View
oמהתפריט המוקפץ בחר בRemove Form1-
הוסף מודול לפרוייקט:
oבחר באפשרות Add Moduleמהתפריט Project
oבחר ב Module-ולחץ על Open
הקצה לפרוייקט את השם ModuleAndImmediateו-למודול הקצה את השם modProcedures
שמור את הפרוייקט
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
.1הצג את חלון ה:Immediate-
וודא שחלון ה Immediate-מוצג אם אינך רואה אותו לחץ על Ctrl+G
.3בחן את הרוטינה MsgBoxמתוך חלון ה:Immediate-
הקלד בחלון ה Immediate-את הקוד הבא:
"!MsgBox "Hello, world
ברגע שתלחץ על Enterחלון ה Message Box-יופיע
נסה לשנות את הפרמטרים האחרים ברוטינה ובחן את השפעתם על אופן הצגת הMessage Box-
.1בחן את הפונקציה Leftשל :Visual Basic
הקלד את שורת הקוד הבאה בחלון ה:Immediate-
)?Left ("Hello, world!",4
שים לב לסימן השאלה בתחילת השורה ,ולסוגריים המקיים את הארגומנטים
הארגומנטים מטרתם להנחות את Visual Basicשברצוננו להשתמש בערך המוחזר מהפונקציה
סימן השאלה מטרתו להנחות את Visual Basicלהציג את הערך המוחזר בחלון הImmediate-
.1הוסף פונקציה ל:Module-
כתוב את הפונקציה Sumהמוצגת להלן ,בחלון ה:Module-
_ Public Function Divide(ByVal a As Double,
Optional ByVal b As Double = 2#) As Double
Divide = a / b
End Function
.1בחן את הפונקציה מחלון ה:Immediate-
הקלד את שורת הקוד הבאה בחלון ה:Immediate
)?Divide(3,6
אתה צריך לקבל את התוצאה ( 2.1האפס לא מוצג)
הקלד את שורת הקוד הבאה בחלון ה:Immediate-
בשורת קוד זו השתמשת בnamed arguments-
אתה צריך לקבל 2
הקלד את שורת הקוד הבאה בחלון ה:Immediate-
במקרה זה ,חסר הארגומנט השני ,לפיכך הפונקציה משתמשת בערך ברירת המחדל שקבעת לה
אתה צריך לקבל 4
הקלד את שורת הקוד הבאה בחלון ה:Immediate-
)?Divide(b:=3, a:=6
)?Divide(8
)?Divide(7, 0
אתה אמור לקבל ששגיאת חלוקה ב 2-על ידי סביבת הפיתוח
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :6מרכיבי השפה II
( ENUMERATIONSאוספי קבועים)
בדומה למילת המפתח enumבשפת ,Cקיימת המילה EnumבVisual Basic-
Enumמאפשרת ליצור אוסף קבועים המאוגדים תחת שם אחד באופן הבא:
[Public | Private] Enum name
]membername [= constantexpression
]membername [= constantexpression
...
End Enum
Publicאו Privateקובעים לאילו חלקי קוד בתוכנית ה Enum-יהיה מוכר
nameהנו השם שבחרת לEnum-
membernameהנו שם קבוע בתוך הEnum-
constantexpressionהנו ערך קבוע שמוקצה עבור הmembername-
אם לא מגדירים ערך קבוע עבור פריט בתוך Enumאז ערכו נקבע לפי הכלל הבא:
oאם זהו הפריט הראשון ב Enum-ערכו יהיה 0
oעבור של פריט (שאינו הפריט הראשון) ערכו יהיה גדול ב 1-מערך נפריט הקודם
לא ניתן לשנות את ערכו של פריט ב Enum-במהלך התוכנית
לאחר שהוגדר ,Enumניתן להשתמש בו לשם הצהרת משתנים ,פרמטרים של פרוצדורות וערכים מוחזרים של
פונקציות
דוגמאות
Public Enum AgeCategoriesConstants
acChild
acYoung
acAdult
acOld
End Enum
ב Enum-זה מוצהרים ארבעה קבועים
ערכו של acChildהוא ,0של acYoungהוא 1וכן הלאה
בהנחה שרוצים להשים את הקבוע acChildלמשתנה ,nAgeאפשר לבצע זאת בשתי צורות:
nAge = acChild
או
nAge = AgeCategoriesConstants.acChild
הצורה השניה נוחה כאשר יש התנגשות שמות עם קבוע אחר
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
( USER-DEFINED TYPESסוגי נתונים מוגדרים על ידי המשתמש)
ניתן ליצור סוגי נתונים מורכבים (כמו Structבשפת )Cבאמצעות המילה Type
התחביר הוא כדלקמן:
[Public | Private] Type varname
elementname [(subscript)] As type
elementname [(subscript)] As type
...
End Type
Publicאו Privateמגדירים את טווח ההכרה ( )Scopeשל הסוג החדש
varnameהוא שם הסוג החדש שמוגדר על ידי Type
elementnameהוא שם אלמנט בתוך הסוג החדש
אלמנט יכול להיות גם מערך חד ממדי או רב ממדי ,ואז יש להשתמש ב subscript-כדי להגדיר את ממדיו
כל אחד מהאנלמטים בתוך הסוג החדש צריך להיות מסוג ( )typeמוכר באותו שלב
כדי לגשת לאלמט בתוך משתנה מהסוג החדש ,יש להשתמש בסימן ( .נקודה)
דוגמאות
Public Type Point
x As Integer
y As Integer
End Type
בשורות קוד אלו הוגדר סוג חדש בשם Pointשיש לו שני שדות x :וy-
בשורות קוד אלו הוגדר סוג חדש בשם ,Rectangleובו שני שדות ptTopLeft :ו ptBottomRight-מסוג Point
שהוגדר קודם
Public Type Rectangle
ptTopLeft As Point
ptBottomRight As Point
End Type
Public Type Scribble
ptArr(100) As Point
End Type
בדוגמה זו הוגדר סוג חדש בשם ( Scribbleשרבוט) המכיל מערך מסוג Pointבגודל 100
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 7הרצה וניפוי שגיאות
בשיעור זה:
תכיר את אפשרויות ההרצה השונות
תכיר את מרכיבי סביבת הפיתוח המאפשרים ניפוי שגיאות בVisual Basic-
תבין מהם שלושת המצבים Run Time ,Design Tine :וBreak Mode-
תכיר את האובייקט Debug
תכיר את המשפט On Error...המיועד לטיפול בשגיאות
חלונות תצוגה שונים לאבחון
מתוך התפריט Viewישנן ארבע תצוגות מעניינות ,העשויות לסייע באבחון שגיאות בתוכנית:
:Immediate Window oבנוסף לאפשרויות שהוזכרו בשיעור הקודם ,ניתן להעביר לחלון הImmediate-
פלט מהאובייקט ( Debugנדון בהמשך שיעור זה)
:Locals Window oמאפשר לצפות במשתנים מקומיים בפרוצדורה
:Watch Window oמאפשר לצפות במשתנים שנוספו לחלון ה( Watch-נדון בהמשך)
:Call Stack oמציג את מצב הקריאות לפרוצדורות במחסנית .חלון זה מציג את שרשרת הקריאות
לפרוצדורות עד לנקודה מסוימת בתוכנית.
שלושת המצבים של תוכנית
:Design Timeשהו השלב שבו התוכנית נמצאת בעיצוב ,המילים אחרות ,השלב שבו אתה מניח פקדים על
טפסים ,כותב קוד אך עדיין לא מבצע אותו קרוי Design Time
:Run Timeזהו המצב שבו שורות הקוד שבתוכנית שלך מתחילות להתבצע
:Break Modeשהו מצב שבו מושהית התוכנית (לא מפסקת כי אם מושהית)
התפריט ( RUNהרצה)
ב Visual Basic-קיימות מספר אפשרויות להרצה
האפשרויות השונות כלולות בתפריט Run
הפעלת אפשרות להרצה מעבירה את התוכנית למצב Run Time
( Startהתחל)
Startהיא צורת ההרצה השכיחה
ניתן להפעיל את Startבשלושה אופנים:
oלבחור Startמהתפריט Run
oללחוץ על הכפתור המתאים בסרגל הכלים
oלהפעיל את צירוף המקשים Ctrl+F5
בעת הרצה עם Startלא מבוצע קימפול של התוכנית
( Start With Full Compileהתחל לאחר קימפול מלא)
Start With Full Compileמבצע קימפול לפני ההרצה
הרצה כזו מומלצת לשם גילוי שגיאות כבר בזמן הקימפול ,למשל משתנים שלא מוצהרים
ניתן להפעיל אפשרות זו מתפריט Runאו על ידי צירוף המקשים Ctrl+F5
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :7הרצה וניפוי שגיאות
( Breakעבור ל ) Break Mode -
Breakמאפשר לבצע מעבר ממצב ריצה למצב Break
אפשרות זו שימושית כשרוצים לעבור במצב מסוים לשלב Debug
אפשר להפעיל את Breakבשלוש צורות:
oבחירת Breakמהתפריט Run
oבחירת הכפתור המתאים בסרגל הכלים
oהפעלת צירוף המקשים Ctrl+Break
האפשרות האחרונה (צירוף המקשים )Ctrl+Breakשימושית המיוחד כשנכנסים למצב שסרגלי הכלים
והתפריטים לא נגישים :למשל בלולאות אינסופיות ,או כשאר מופיע Message Boxמודאלי
( Endסיים)
Endמסיים את פעולת התוכנית
ניתן להפעיל את Endמהתפריט Runאו מסרגל הכלים
( Restartהתחל מחדש)
Restartמאפשר להפעיל מחדש את התוכנית
ניתן לבחור ב Restartמהתפריט Runאו להפעיל את צירף המקשים Shift+F5
התפריט ( DEBUGניפוי שגיאות)
התפריט Debugמאפשר לבצע כמעט כל דבר אפשרי בזמן ריצת התוכנית לשם ביצוע אבחון של התוכנית
אפשרויות ה Debug-כלולות תחת תפריט Debug
( Step Intoצעד לתוך)
אפשרות זו יכולה לפעול במספר צורות:
oאם התוכנית נמצאת ב ,Design Time-התוכנית תתחיל לרוץ ותעבור מיד למצב של Break Modeכאשר
יש שליטה על כל צעד וצעד בתוכנית
oאם התוכנית עומדת להפעיל פרוצדורה הכתובה בתוכנית ,תתבצע כניסה לתוך הפרוצדורה
ניתן להפעיל אפשרות זו מהתפריט Debugאו באמצעות [F8
( Step Overצעד מעבר)
אפשרות זו פועלת כמו Step Intoאלה שבמקרה שהתוכנית קוראת לפרוצדורה ,לא תתבצע כניסה לתוך
לפרוצדורה
ניתן להפעיל אפשרות זו מתוך התפריט Debugאו על ידי הצירוף Shift+F8
( Step Outצא החוצה)
מצבע יציאה מפרוצדורה פנימית לחיצונית
ניתן להפעיל אפשרות זו מתוך התפריט Debugאו על ידי Ctrl+Shift+F8
( Run To Cursorהרץ עד הסמן)
אפשרות זו מריצה את התוכנית עד אשר שורת הביצוע מגיעה למיקומו של הסמן ואז התוכנית עוברת לBreak -
Mode
ניתן להפעיל אפשרות זו מתוך התפריט Debugאו באמצעות הצירוף Ctrl+F8
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
( Add Watchהוספת תצפית)
באמצעות Watchאפשר לעקוב אחר ערכו של משתנה במהלך ריצת התוכנית
ניתן להוסיף Watchמהתפריט Debug
הבחירה ב Add Watch-פותחת את התיבה Add Watchהמוצגת להלן:
ב Expression-רושמים את הביטוי שאחריו רוצים לעקוב
Module ,Procedureו Project-מגדירים את מיקומו של הביטוי מבין כל הפרוייקטים המודולים והפרוצדורות
שנמצאים בעריכה
Watch Typeמגדיר את הפעולה שברצוננו לבצע:
:Watch Expression oמציג את ערכו של הביטוי בכל נקודת זמן בתוכנית (אם הביטוי אינו קיים באותו
שלב ,תוצג לידו ההודעה )Out Of Context
:Break When Value Is True oמעביר את התוכנית ל Break Mode-ברגע שהביטוי הוא True
:Break When Value Changes oמעביר את התוכנית ל Break Mode-כאשר ערך הביטוי משתנה
( Edit Watchערוך תצפ ית)
מאפשר לשנות הגדרות Watch
תיבת הדו שיח הנפתחת דומה מאוד לזו של ,Add Watchאלא שגם קיימת האפשרות למחוק Watch
כדי להפעיל אפשרות זו יש לבחור אותה מהתפריט Debugאו להפעיל את צירוף המקשים Ctrl+W
( Quick Watchתצפית מהירה)
אפשרות זו מאפשרת לבצע תצפית מיידית על ערכו של משתנה
כדי להפעיל אפשרות זו יש:
oלבחור ביטוי בחלון הקוד
oלהפעיל את האפשרות מהתפריט Debugאו על ידי צירוף המקשים Shift+F9
- 13אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :7הרצה וניפוי שגיאות
החלון הנפתח בתגובה הוא:
:Contextמתאר את מיקום הביטוי בתוך מרחב העבודה של ,Visual Basicכלומר את הנתיב לפרוצדורה שבא
ממוקם הביטוי הנבחן (שם פרוייקט ,שם מודול ,שם פרוצדורה וכו')
:Expressionזהו הביטוי הנצפה
:Valueזהו ערכו של המשתנה .אם המשתנה לא קיים באותו רגע ,תוצג ההודעה Out of context
( Toggle Breakpointהפוך מצב של נקודת עצירה)
Breakpointהיא נקודת עצירה הממוקמת במשפט מסוים בתוכנית
תוכנית רצה עוברת ל Break Mode-בעת הגיעה לBreakpoint-
לחצן זה הוא דו מצבי ,כלומר מוסיף או מנקה Breakpoint
Breakpointמוצג באמצעות נקודה אדומה בחלון הקוד
כדי להוסיף או להסיר Breakpointיש לבחור את האפשרות מהתפריט ,Debugאו מסרגל הכלים או על ידי המקש
,F9או לחיצה על העיגול האדום במסמל Breakpointבחלון הקוד
( Clear All Breakpoi ntsהסר את כל נקודות העצירה)
אפשרות זו מסירה את כל נקודת העצירה שמוקמו בקוד
ניתן להפעיל אפשרות זו מהתפריט Debugאו על ידי הצירוף Ctrl+Shift+F9
( Set Next Statementקבע את המשפט הבא לביצוע)
Next Statementהנו הביטוי הבא שאמור להתבצע לאחר הביטוי הנוכחי
במצב ,Break Modeהביטוי הבא לביצוע מוצג באמצעות חץ צהוב
בעת הרצה ב Break Mode-ניתן לשנות את הביטוי הבא שיבוצע בשתי צורות:
oיש להציב את הסמן במשט שאליו נרצה שהתוכנית תעבור בשלב הבא ,ואז יש לבחור באפשרות Set Next
Statementמתוך התפריט Debugאו להפעיל את הצירוף Ctrl + F9
oניתן לגרור את החץ הצהוב את השורה שרוצים שתהפוך למשפט הבא לביצוע
יש לשים לב כי המשפט הבא לביצוע חייב להיות באותה הפרוצדורה
( Show Next St atementהצג את המשפט הבא לביצוע)
אפשרות זו מעבירה את סמן הטקסט אל המשפט הבא לביצוע
ניתן לבחור באפשרות זו מתוך התפריט Debug
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
האובייקט
DEBUG
האובייקט Debugהוא אובייקט של סביבת Visual Basic
לאובייקט Debugיש שתי מתודות:
oהמתודה Printמוציאה פלט לחלון הImmediate-
oהמתודה Assertבוחנת ביטוי בוליאני ,ואם הוא Falseעוצרת את מהלך התוכנית באותה הנקודה
כל הפעולות המבוצעות בעזרת האובייקט Debugמתקמפלות רק בשלב הפיתוח ,כאשר יוצרים את קובץ הריצה
באמצעות הפריט Makeמהתפריט ,Fileקטעי הקוד הקוראים לאובייקט Debugלא מתקמפלים
דוגמה 1
נניח כי אנו רוצים לכתוב פונקציה בשם SumUpToהמקבלת מספר אי שלילי שלם ומחשבת את סכום כל
המספרים מ 0-עד לאותו מספר (כולל)
נוכל לוודא שהמספר שהועבר הוא אי שלילי באמצעות Debug.Assert
נוכל להדפיס נתונים לחלון ה Immediate-באמצעות Debug.Print
Public Function SumUpTo(ByVal n As Integer) As Integer
Dim res As Integer
_ & " Debug.Print "The input for SumUpTo is :
Trim(Str(n)) ' Print to the immediate
Debug.Assert n >= 0 ' Allow only non-negative arguments
res = 0
Do While n > 0
res = res + n
n = n - 1
Loop
SumUpTo = res
End Function
הרצת קוד זה גורמת להדפסת הערך המועבר לפונקציה לחלון הImmediate-
אם מועבר ערך שלילי ,ההרצה מושהית על ידי המשפט ,Debug.Assertבמקרה כזה נוכל להיעזר בCall Stack-
כדי לדעת מאיזו פרוצדורה התבצעה קריאה לפונקציה זו
כאמור ,קטעי הקוד הללו מקומפלים ורצים רק בשלב הפיתוח ולא במוצר המוגמר
טיפול בשגיאות בקוד התוכנית
אובייקטים של Visual Basicמטפלים בשגיאות בסגנון הException Handling-
פונקציות המיובאות מ DLL-רגילים מחזירים ערך המצביע בדרך כלל על הצלחה או כשלון של הקיאה
כשאר מפעילים פונקציות מ DLL-רגילים (שים לב שהכוונה ל DLL-שונים מאלו שתלמד לבנות בשיעורים אודות
)ActiveXבודקים את הערך המוחזר כדי לזהות שגיאה
כאשר מפעילים קוד סטנדרטי של Visual Basicיש ללכוד חריגים באמצעות המשפט On Error
שים לב ,חריג שלא טופל יגרום לקריסת התוכנית אצל המשתמש ,לפיכך יש לטפל בכל בחריגים האפשריים
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :7הרצה וניפוי שגיאות
האובייקט Err
בזמן התרחשות שגיאה ,הנתונים אודות השגיאה מאוחסנים באובייקט Err
בזמן לכידת שגיאה יש לבחון את האובייקט Err
האובייקט Debugמאפשר להעביר שגיאה החוצה לקוד הקורה לפונקציה
המאפיינים והמתודות של האובייקט Errהם:
:Number oמספר השגיאה שהתרחשה
:Description oתיאור מילולי של השגיאה
:Source oזוהי מחרוזת המכילה את המקור לשגיאה שהתרחשה ,למשל שם המחלקה שיצרה את השגיאה
(הנושא מחלקות נלמד בהמשך הקורס)
:LastDLLError oמחזיר את קוד השגיאה האחרון שנוצר ב( DLL-רגיל) שהתבצעה אליו קריאה .ערך זה
המצוי ב LastDLLError-שקול לקריאה GetLastErrorמתוך Windows API
:HelpFile oמכיל את הנתיב לקובץ עזרה הקשור לשגיאה שהתאלשה
:HelpContext oמכיל את זיהוי הנושא בקובץ העזרה
:Clear oמתודה זו מנקה את האובייקט .Errמומלץ לבצע זאת לאחר ששגיאה טופלה
:Raise oמתודה זו מאפשרת לעורר שגיאה .משתמשים במתודה זו בעיקר בתכנות רכיבים חדשים (הנושא
נדון בשיעורים אודות )ActiveX
On Error...
המשפט On Errorבא בשלושה טעמים:
On Error GoTo line o
On Error Resume Next o
On Error GoTo 0 o
On Error GoTo line
משפט זה מעביר את הביצוע לשורה המצוינת במילה lineכאשר שגיאה מתרחשת
כדי לציין שורה יש להשתמש ב Labels-או במספרי שורות
oכדי לציין Labelיש לרשום שם חוקי עם נקודתיים בתחילת שורה
oניתן להשתמש במספרי שורות בקוד ,Visual Basicאך זוהי שיטה ישנה המתאימה לימי הביניים .בכל
אופן ,מספר חייב להופיע בתחילת השורה
חשוב למקם משפט יציאה מהפרוצדורה Exit Sub :או Exit Functionלפני קוד הטיפול בשגיאות ,על מנת שהוא
לא יתבצע כאשר הקוד בוצע בהצלחה
דוגמה 2
Public Function Div(ByVal Num1 As Double,
ByVal Num2 As Double) As Double
On Error GoTo Err_Handler
Div = Num1 / Num2
Exit Function
Err_Handler:
MsgBox "The following error occured: " & Err.Description
End Function
פונקציה זו מחלקת שני מספרים
אם תתרחש שגיאה (למשל שגיאת חלוקה ב )0-תועבר השליטה לקוד שאחרי התווית Err_Handler
קוד הטיפול פשוט מציג הודעה עם תיאור השגיאה שהתרחשה
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
שים לב שלפני התווית יש יציאה מפונקציה ,כדי למנוע את ביצוע הקוד אם לא התרחשה שגיאה
אין צורך לקרוא למתודה ,Err.Clearכיוון שהאובייקט Errמתנקה אוטומטית בעת יציאה מפונקציה
On Error Resume Next
משפט זה מעביר את הקוד לביצוע לשורה הבאה שלאחר השגיאה
On Error GoTo 0
משפט זה מכבה ( )Turn Offטיפול בשגיאות שהוגדר ,כלומר אם התבצעה קריאה ל On Error GoTo line-או
ל On Error Resume Next-הם יבוטלו
טוב להשתמש במשפט זה אם רוצים לטפל באופן שונה בשגיאות המתרחשות במקומות שונים בקוד
המשפט Resume
המשפט Resumeמאפשר להמשיך את ביצוע התוכנית בשורה מסוימת לאחר טיפול בשגיאה שהתרחשה
קיימות שלוש אפשרויות:
:Resume oמחזיר את הביצוע לשורה ממנה התרחשה השגיאה
Resume Next oמעביר את הביצוע לשורה שאחרי השורה שבה התרחשה השגיאה
:Resume line oמעביר את הביצוע לשורה המצוינת על ידי תווית או מספר שורה (כמובן שהשורה חייבת
להיות באותה פרוצדורה)
לאחר קריאה ל Resume-האובייקט Errמתנקה אוטומטית
דוגמה 1
_ Public Function Div(ByVal Num1 As Double,
ByVal Num2 As Double) As Double
On Error GoTo Err_Handler
Div = Num1 / Num2
Debug.Print Err.Number, Err.Description
Exit Function
Err_Handler:
Num2 = 1#
Resume
End Function
דוגמה זו זהה לקודמת ,אלא שכאן בקוד הטיפול משנים את ערכו של Num2ל 1-ומחזירים את הביצוע לשורה
שיצרה את השגיאה ,כך נמנעים מחלוקה ב0-
הפו נקציה Error
הפונקציה Errorמאפשרת לקבל תיאור של שגיאה לפי המספר שלה
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 1מבוא לתכנות מבוסס רכיבים Componentware Development
בשיעור זה:
תבין את ההבדלים בין ( Procedural Programmingתכנות פרוצדורלי) לבין Object Oriented Programming
(תכנות מונחה עצמים )OOP
תבין מהו ( Event Oriented Programmingתכנות מונחה אירועים)
תבין את עקרונות COM
תבין מהם ( COM Interfacesממשקי ,)COMואת הצורך בהם
תלמד אודות התמיכה של Visual Basicבתכנות מונחה עצמים ,תכנות מונחה אירועים ותכנות רכיבים
תהיה מוכן להרטיב את הרגליים בשיעור הבא העוסק בתכנות מונחה עצמים בVisual Basic-
תכנות פרוצדורלי לעומת תכנות מונחה עצמים
מבדילים בין שני סוגים עיקריים של שפות תכנות:
Procedural Languages
Object Oriented Programming Languages
Procedural Prog ramming
מרכז העצבים בתכנות פרוצדורלי הנם הפונקציות והרוטינות
הגדרה של סוגי נתונים חדשים בתכנות פרוצדורלי אפשרית ,אך במקביל יש לכתוב פרוצדורות המסוגלות לטפל
בסוגים החדשים
סוג נתונים מוגדרים על ידי המשתמש יכולים להכיל בתוכם משתנים מכל הסוגים המוכרים עד לנקודה בה הם
הוגדרו
סוגי נתונים מוגדרים על ידי המשתמש אינם יכולים להכיל בתוכם פונקציות
בתכנות פרוצדורלי ,המשתנים והפרוצדורות חיים בנפרד
בדרך כלל משתמשים ב( Modular Programming-תכנות מודולרי) כדי ליצור איזושהי רמה של הסתרת מידע.
Modular Programmingמשמעותו היא שהקוד מרוכז במודולי קוד (המקבילים למודולים סטנדרטיים בVisual -
,)Basicובאופן זה ניתן להסתיר משתנים מסוימים שאין צורך שייראו מחוץ למודול .מודול הנו קובץ בודד של
קוד.
דוגמה
נמחיש את ההיבטים הללו של תכנות פרוצדורלי באמצעות יישום פשוט בשפת Cוב Visual Basic-תוך שימוש
במגבלות התכנות הפרוצדורלי
נכתוב תוכנית המנהלת רשימה של 20עובדים ומאפשרת את הפונקציונליות הבאה:
oהוספת רשומת עובד (עד 20עובדים ,כאמור)
oהדפסת פרטי העובדים
הגדרת סוג הנתונים:
בשלב הראשון נגדיר סוג נתונים חדש בשם Workerשיכיל את השדות Address ,Name ,IDוPhone-
בשפת Cהיינו מגדירים זאת כך:
>#include <stddef.h
>#include <tchar.h
20
100
#define SIZE_NAME
#define SIZE_ADDRESS
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Componentware Development מבוא לתכנות מבוסס רכיבים:1 שיעור
#define SIZE_PHONE
20
typedef struct tagWorker
{
long ID;
TCHAR Name[SIZE_NAME];
TCHAR Address[SIZE_ADDRESS];
TCHAR Phone[SIZE_PHONE];
} Worker;
: נוכל להשתמש בהגדרה הבאהVisual Basic-ב
Public Const SIZE_NAME As Integer = 20
Public Const SIZE_ADDRESS As Integer = 100
Public Const SIZE_PHONE As Integer = 20
Public Type Worker
ID As Long
Name As String * SIZE_NAME
Address As String * SIZE_ADDRESS
Phone As String * SIZE_PHONE
End Type
: כתיבת פרוצדורות.1
Worker בשלב השני נרצה לכתוב פונקציה המזינה נתונים לרשומה מסוג
: היינו כותבים זאת כךC בשפת
void SetWorkerData(Worker *pWorker, long id, _TCHAR *name,
_TCHAR *address, _TCHAR *phone)
{
pWorker->ID = id;
_tcsncpy(pWorker->Name, name, sizeof(pWorker->Name));
_tcsncpy(pWorker->Address, address, sizeof(pWorker->Address));
_tcsncpy(pWorker->Phone, phone, sizeof(pWorker->Phone));
}
: ניתן לרשום רוטינה דומה באופן הבאVisual Basic-ב
Public Sub SetWorkerData(ByRef pWorker As Worker, _
ByVal nID As Long, _
ByRef strName As String, _
ByRef strAddress As String, _
ByRef strPhone As String)
pWorker.ID = nID
pWorker.Name = strName
pWorker.Address = strAddress
pWorker.Phone = strPhone
End Sub
- 12 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
לבסוף נכתוב פונקציה המדפיסה את מערך העובדים
בשפת Cאפשר לכתוב אותה באופן הבא:
void PrintWorkerData(FILE *out, Worker *pWorker,
)size_t nWorkers
{
;size_t i
)for(i = 0; i < nWorkers; i++
{
_ftprintf(out,
"_T("ID: %ld\n
""Name: %s\n
""Address: %s\n
"Phone: %s\n\n"),
(pWorker + i)->ID,
(pWorker + i)->Name,
(pWorker + i)->Address,
;)(pWorker + i)->Phone
}
}
וב Visual Basic-הרוטינה הבאה תהיה טובה מספיק:
_ Public Sub PrintWorkerData(ByRef out As TextBox,
_ ByRef pWorker() As Worker,
)ByVal nWorkers As Integer
Dim i As Integer
For i = 0 To nWorkers - 1
_ & out.Text = out.Text
_ & "ID: " & Str(pWorker(i).ID) & vbCrLf
_ & "Name: " & pWorker(i).Name & vbCrLf
_ & "Address: " & pWorker(i).Address & vbCrLf
"Phone: " & pWorker(i).Phone & vbCrLf & vbCrLf
Next
End Sub
.1כתיבת תוכנית דוגמה:
ניתן להמשיך ולכתוב תוכנית המדגימה את השימוש בסוג הנתונים החדש ,אך את זאת אני משאיר לך
כתרגיל .בכל מקרה תוכל למצוא את תוכניות הדוגמה (ב C-וב )Visual Basic-בדיסק.
מסקנה
מעיון בקוד הדוגמה ,קל להבחין שישנה הפרדה בין הפרוצדורות לבין הנתונים
כדי להפעיל פונקציה על משתנה מסוג Workerיש להעביר אותו כפרמטר לפונקציה
היה יותר נוח לו יכולנו לרשום:
)pWorker(i).SetData(....
בדיוק כפי שאנו רושמים כשאנחנו קוראים למשל למתודה Showשל ,Formאך זה כבר עניין לOOP-
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1מבוא לתכנות מבוסס רכיבים Componentware Development
Object Oriented Programming
בתכנות מונחה עצמים מגדירים סוגי נתונים חדשים באמצעות ( Classמחלקה) ולא באמצעות ( Typeאו Struct
בשפת )C
במחלקות אורזים יחד משתנים ופרוצדורות .באופן כזה יוצרים יחידה לוגית אחת הכוללת משתנים ומתודות
הפועלות על המשתנים הללו
משתנים של מחלקה קרויים ,member variablesומתודות של מחלקה קרויות member methods
אובייקטים הם מופעים ( )Instancesשל מחלקות .כלומר משתנים המוצהרים בתוכנית מסוג מחלקה מסוימת הנם
אובייקטים של המחלקה
כאשר יש להפעיל מתודה של אובייקט ,אין צורך להעביר את האובייקט למתודה (כפי שראינו בדוגמה הקודמת).
המתודה היא חלק פנימי של האובייקט כך שהפעלת המתודה נעשית באמצעות האובייקט עצמו
בתכנות מונחה עצמים קיימים שלושה רעיונות מרכזיים:
( Encapsulation oכמיסה)
( Inheritance oהורשה)
( Polymorphism oרב צורתיות)
( Encapsulationכמיסה)
כמיסה היא היכולת של מחלקה להסתיר membersמסוימים ,ולחשוף אחרים
ה members-החשופים של מחלקה קרויים ה( Interface-ממשק) של המחלקה
רעיון הכמיסה הנו רעיון מרכזי ב OOP-כיוון שבעזרת כמיסה ניתן למנוע מקוד לא מורשה לגשת לmembers-
פרטיים באובייקט .כך לדוגמה ,לא תרצה שיוזן מספר זיהוי שאינו חוקי ל member-של אובייקט המאחסן מספר
תעודת זיהוי .כיוון שכך ,מומלץ להפוך את כל ה member variables-של מחלקה לפרטיים (עד כמה שהדבר ניתן),
ובמקביל ,לאפשר גישה אליהם באמצעות member methodsשייכתבו כך שלא יפרו את כללי הארגון (אלא אם
אתה חתרן בלתי נלאה)
מחלקה המעונינת להסתיר membersאך במקביל לאפשר גישה ל members-הללו למחלקות ספציפיות תוכלנה
לעשות זאת על ידי הגדרת המחלקות הללו כ( Friends-כך נעשה הדבר בשפת )C++
ב Visual Basic-הרעיון בבסיסו דומה ,אך קיים שוני מסוים :ב Visual Basic-הגדרת membersכFiends-
הופכת אותם לציבוריים עבור כל הקוד שבפרוייקט (מחלקות ומודולים רגילים) ,אך לא נגישים לקוד מפרוייקטים
אחרים
Friendsפוגעים ברעיון הכמיסה ,ולפיכך מומלץ שלא להשתמש בהם אלא במקרים מיוחדים מאוד
( Inheritanceהורשה)
הורשה היא היכולת של מחלקה לרשת תכונות ממחלקה אחרת
המחלקה היורשת קרויה מחלקה נגזרת ( ,)Subclassוהמחלקה המורישה קרויה מחלקת בסיס ()Superclass
הורשה מתבטאת בשני היבטים:
oהורשת ממשק
oהורשת מימוש
הורשת ממשק מתבטאת בהורשת שמות המאפיינים והמתודות ממחלקת הבסיס למחלקה הנגזרת
הורשת מימוש מתבטאת שהורשת מימוש המתודות והמאפיינים ממחלקת הבסיס למחלקה הנגזרת
הורשה הנה המפתח לשימוש חוזר בקוד – שפות מונחות עצמים מחויבות לתמוך שהורשה (ממשק ומימוש)
השימוש בהורשה צריך להתבצע בעת זיהוי יחסי אב-בן בין מחלקות .ניתן להיעזר בתבנית ClassXהוא סוג של
ClassYכדי לזהות יחסי הורשה ,כאשר ClassXהיא המחלקה הנגזרת ו ClassY-היא מחלקת הבסיס .לדוגמה:
oדוגמה נכונה :מלבן הוא צורה
oדוגמה נכונה :מנהל הוא סוג של עובד
oדוגמה לא נכונה :מכונית היא ארבע דלתות ,מנוע ,שלדה...
נכון להגיד :מכונית מכילה ארבע דלתות ,מנוע ,שלדה...
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
צריך להיזהר שלא ליפול למלכודת הטמונה בבלבול שבין יחסי הורשה ( )Inheritanceלבין יחסי
הכלה ()Containment
( Multiple Inheritanceהורשה מרובה) היא היכולת לרשת ממספר מחלקות בו זמנית
שפות מונחות עצמים תומכות בהורשה מרובה במידה כזו או אחרת C++ .למשל מאפשר הורשה מרובה מלאה,
Javaמאפשרת הורשה מלאה ממחלקה אחת והורשה של ממשקים נוספים Visual Basic .מאפשרת מימוש
ממשקים בלבד (חיה מוזרה שדומה להורשת ממשקים)
דוגמאות להורשה מרובה:
oדוגמה נכונה :רכב אמפיבי הוא רכב יבשתי וגם רכב ימי
oדוגמה לא נכונה ComboBox :הוא גם TextBoxוהוא גם ListBox
נכון יהיה להגיד ComboBox :מכיל בתוכו TextBoxוListBox-
( Ploymorphismרב צורתיות)
Polymorphismהוא היכולת של אובייקט ללבוש צורות שונות ,או במילים אחרות לתפעל את אותו member
באופנים שונים
Polymorphismנובע מהשימוש בהורשה
קל יותר להבין מהו Polymorphismבאמצעות דוגמה:
נניח שברצוננו ליצור תוכנית גרפית פשוטה המאפשרת ציור של שלוש צורות( Line :קו)( Rectangle ,מלבן)
ו( Ellipse-אליפסה) .ברור שנרצה לאחסן את הצורות באמצעות מבנה נתונים מסוים .הבעיה הראשונה שתתעורר
היא שלא נוכל להשתמש במבנה נתונים הכולל מצביעים מסוג -Lineים ,למשל ,לאחסון -Rectangleים או
-Ellipseות .כדי לפתור בעיה זו נגדיר את כל המחלקות הללו כנגזרות של מחלקה מופשטת בשם .Shapeהיררכית
המחלקות תיראה ,אם כן ,כמו בציור הבא (כאשר החץ משמעותו "יורש מ:)"...
Shape
Ellipse
Rectangle
Line
את הבעיה הראשונה פתרנו ,כיוון שבשפות מונחות עצמים מצביע למחלקת בסיס (במקרה זה )Shapeיכול להצביע
לסוגים נגזרים (במקרה זה Rectangle ,Lineו .)Ellipse-כלומר סוג המצביע במבנה הנתונים יהיה מסוג .Shape
הבעיה השניה שמתעוררת היא ,כיצד נבצע סריקה על כל האובייקטים במבנה הנתונים לצורך ביצוע פעולה כלשהי
(למשל ציור על המסך) ,הבעיה נובעת מכך שבפועל כל תא במבנה מצביע לסוג נתונים לא ידוע (Rectangle ,Line
או .)Ellipseבעיה זו אינה בעיה כלל ועיקר ,כיוון שנוכל להשתמש במצביע מחלקת בסיס כדי לבצע סריקה במבנה
הנתונים ובאמצעות מצביע זה נפעיל את המתודה הרצויה .השאלה הנשאלת כעת היא איזו מתודה בדיוק תופעל,
האם זו של המחלקה Shapeממנה מוגדרים המצביעים במבנה הנתונים ,או אולי המתודה של האובייקט המוצבע
בפועל ,כאשר זה יכול להיות שונה בין תא לתא במבנה הנתונים .התשובה היא שתופעל המתודה של סוג הנתונים
המוצבע בפועל ולא המתודה של סוג המצביע .זהו Polymorphismבמיטבו.
כדי להשלים את התמונה ,ובכדי להפוך את העניין למוחשי יותר ,נגדיר מתודות המשותפות לכל הצורות כחלק
מהממשק של .Shapeמתודות לדוגמה יהיו .Move ,Paintמתודות אלו עוברות בירושה לכל אחת מהמחלקות
הנגזרות (כלומר Rectangle ,Lineו )Ellipse-ומקבלות בכל מחלקה משמעות שונה .כך למשל Paint ,עבור Line
פירושו שימוש בפונקציות מערכת היודעות לצייר קווים על גבי המסך Paint .עבור Rectangleימומש באמצעות
קריאה לפונקציה מערכת המתמחה בציור מלבנים .היררכית המחלקות אם כן תיראה כך:
- 13אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1מבוא לתכנות מבוסס רכיבים Componentware Development
Shape
)(Paint
)(Move
...
Rectangle
Ellipse
)(Paint
{
)(Paint
{
מימוש המתאים לציור מלבן
מימוש המתאים לציור אליפסה
}
)(Move
{
מימוש המתאים להזזת אליפסה
Line
)(Paint
{
מימוש המתאים לציור קו
}
)(Move
{
מימוש המתאים להזזת מלבן
{
...
}
)(Move
{
מימוש המתאים להזזת לקו
{
...
{
...
כעת נניח שברשותנו מערך של -Shapeים שכל תא בו מצביע על צורה מסוג כלשהו:
Shape
Line
][0
Rectangle
][1
Line
][2
Ellipse
][3
Rectangle
][4
Ellipse
][5
כעת נוכל להצהיר על משתנה מסוג Shapeולבצע סריקה על המערך .מתוך המצביע הזה נפיל את המתודה .Print
מה שיופעל למעשה אלו הן המתודות של האובייקטים המוצבעים ,ובאופן יותר ספציפי עבור האיבר עם האינדקס
] ,[0תופעל המתודה Paintשל ,Lineעבור האיבר עם האינדקס ] [1תופעל המתודה Printשל ,Rectangleוכן
הלאה.
( EVENT ORIENTED PROGRAMMINGתכנות מונחה אירועים)
בתוכנות מונחה אירועים זרימת התוכנית מונחית על פי האירועים המתרחשים
ב Visual Basic-למשל ,מוכרים לך האירועים Click,MouseDownוכו' .קוד הנכתב הפרוצדורות האירועים הללו
יופעל בתגובה לאירועי המשתמש.
לכל אירוע יש שני צדדים :הצד המעורר את האירוע והצד המגיב לאירוע .לדוגמה האירוע MouseMoveצדו
האחד היא מערכת ההפעלה היוזמת את האירוע בתגובה לתזוזת כבר מצד המשתמש ,והצד השני היא התוכנית
שלך המגיבה לאירוע.
אירועים אינם קשורים בהכרח לפעולות משתמש ,למשל האירוע DataArrivalשל פקד Winsockמתרחש בכל
פעם שמידע מגיע למחשב המקומי ממחשב אחר ברשת
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
)COM( COMPONENT OBJECT MODEL
COMמאפשר להתמודד טוב יותר עם הבעיות והאתגרים הבאים:
oפיתוח תוכניות מודולריות ברמה הבינרית:
כתיבת רכיבי קוד בשפות שונות מעלה בעיות של תאימות בינרית בין רכיבי הקוד
לעתים יש רצון וצורך לשפר פונקציונליות של תוכנה מסוימת .פעולה מהסוג הזה כרוכה בדרך כלל
בהחלפת התוכנה כולה .לצורך ההדגמה ,נניח שברשותך מעבד תמלילים מדהים שבדיקת האיות שלו
זוועתית .היה נחמד לו יכולת לרכוש רכיב בדיקת איות מחברה צד ג' ולשלב אותו כחלק אינטגרלי של
מעבד התמלילים.
oשימוש חוזר ברכיבים ותאימות גרסאות רכיבים:
יישומי תוכנה בסדר גודל בינוני ומעלה הופכים קשים לפיתוח ולתחזוק .לעתים תכופות מוצאים עצמם
מתכנתים משתמשים בפונקציונליות שפותחה זה מכבר עבור תוכנה אחרת .הבעיה העיקרית היא ,שמאוד
מסוכן לשנות מחלקות ,או להוסיף פונקציונליות למחלקות בשל פגיעה לא צפויה במחלקות אחרות
הנגזרות או משתמשות במחלקה הספציפית.
oשקיפות בהפעלת רכיב שרת ללא קשר למיקומו ביחס לרכיב הלקוח:
רכיבים הפועלים מול רכיבים אחרים ,מושפעים ממיקום הרכיב ביחס אליהם ,כלומר ,האם הרכיב מצוי
באותו מרחב כתובות (אותו ,)Processאו במרחב כתובות שונה באותו מחשב ( Processשונה באותו
מחשב) ,או אולי במחשב אחר ברחבי הרשת .ברור שפניה לרכיב המצוי במחשב אחר ברחבי הרשת שונה
בתכלית מפניה לרכיב המצוי תחת אותו מרחב כתובות ,שכן פניה לרכיב ברשת כרוכה בהעברת מסרים
בפרוטוקולים שונים ומשונים וכו' .היית מאושר לו יכולת להפעיל רכיב מרוחק בדיוק באותו האופן בו
אתה מפעיל רכיב מקומי וכל משימת ההתקשרות דרך הרשת ,או חציית מרחבי כתובות הייתה נופלת על
כתפי מישהו אחר (ביל גייטס ,למשל).
COMמגדיר תקנים לפיתוח רכיבים :באמצעות ממשקים סטנדרטיים שרכיבי COMאמורים לתמוך בהם .אפשר
להגיד ש COM-הוא הדבק שבין רכיבים
כתיבת רכיבים בהתאם ל ספציפיקצית COMמאפשרת שימוש חוזר ברמה בינרית ,ללא תלות בשפות שבהם
נכתבו הרכיבים .היתרון הנובע מכך הוא שניתן לפתח רכיב בשפה מסוימת המתאימה ביותר לפיתוח אותו רכיב
ואז אפשר יהיה להשתמש בו בשפות שונות
התמיכה הקיימת במערכת ההפעלה עבור COMמאפשרת לבצע את ההתחברות בין רכיבים .כדי להבהיר את
העניין המעורפל הזה אשתמש באנלוגיה ובסוגריים ארשום את ההקבלה:
נניח שישנם שלושה אנשים איש א' (רכיב א) ,איש קשר (מערכת COMהבנויה כחלק אינטגרלי ממערכת ההפעלה)
ואיש ב' (רכיב ב) .בין איש א'(רכיב א') לאיש ב' (רכיב ב') נמצא קיר ,כך שאף אחד מהם לא יודע האם השני קיים
או לא .כדי לברר זאת שואל איש א' (רכיב א') את איש הקשר (מערכת )COMהאם איש ב' (רכיב ב') נמצא והאם
הוא יודע לדבר בשפה שלנו ( )COMהתשובה תהיה חיובית (נניח שהיא חיובית) ובשלב זה יקשר איש הקשר
(מערכת )COMבין איש א' (רכיב א') לאיש ב' (רכיב ב') ויעזוב אותם לנפשם .מכאן והלאה איש א' (רכיב א') ואיש
ב' (רכיב ב') ידברו בניהם – ימצאו או לא ימצאו עניין משותף ( )Interfaceזהו עניינם.
רכיב מאפר גישה אליו על ידי חשיפת ממשק ( )Interfaceשדרכו יוכלו לקוחות להתחבר אליו .נניח למשל שאתה
מעוניין לפתח רכיב לביצוע חישובים מתמטיים מסובכים ,וודאי תחשוף ממשק המאפשר ביצוע חישובים
סטטיסטיים (יתכן שתקרה לו )IStatistics
לקוחות של רכיבים מפרסמים בדרך כלל את הממשק לו הם מצפים בבואם להתקשר עם רכיב ,COMפרסום זה
מטרתו היא לאפשר פיתוח רכיבים מתמחים על-ידי חברות שונות ובכך לאפשר תחרות "הרכיב הטוב ביותר"
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1מבוא לתכנות מבוסס רכיבים Componentware Development
COMאוסר על מפתחי רכיבים לשנות ממשק שכבר פורסם והופץ למשתמשים .שינוי מסוג עלול לגרום לקריסתם
של תוכניות לקוח שהשתמשו ברכיב בגרסאותיו הקודמות .אם הממשק שיצרת דורש שינוי ושיפור ,פשוט צור
ממשק חדש שיכיל את הפונקציונליות הנדרשת ,והשאר את הממשק הקודם ללא שינוי .שים לב שלא אמרתי
שאינך יכול לשנות את המימוש הפנימי של הרכיבים ,תוכל לעשות זאת כל אימת שתחפוץ בכך ,על כל פנים זכור
שהרכיבים שלך מתקשרים באמצעות הממשקים שיצרת עבורם לכן היזהר לפני ביצוע שינויים כלשהם.
רכבי COMיש משלושה סוגים עיקריים:
( In Process oתוך תהליכי) – רכיב COMהפועל החלק מתוכנית הלקוח (בתוך מרחב כתובות הזכרון של
תוכנית הלקוח)
( Out of Process oחוץ תהליכי) – רכיב המופעל כתוכנית נפרדת ,וכתוצאה מכך מוקצים עבורו מרחב
כתובות נפרד.
( Remote oמרוחק) – זהו רכיב COMהממוקם במחשב אחר ברחבי הרשת
COMמשתדל להסתיר ממך את פרטי ההתקשרות עם הרכיב ,כך שפנייה לרכיב ברחבי הרשת תהיה זהה לפנייה
לרכיב תוך תהליכי
)DCOM( Distributed COMהיא טכנולוגיה המאפשרת הפעלת רכיבים מרוחקים ברחבי הרשת ,תוך הסתרת
פרטי
ActiveXזהי טכנולוגיה המבוססת על COM
התמיכה של
VISUAL BASICב OOP-וCOM-
Visual Basicתומכת ב Encapsulation-ובPolymorphism-
,Visual Basicלמרבה הצער ,איננה תומכת בהורשה
Visual Basicתומכת בהורשת ממשקים (יותר מדויק להגיד :מימוש ממשקים ,אך נושא זה יידון בפירוט בשיעור
הבא)
כיוון ש Visual Basic-אינה תומכת בהורשה ,לא יהיה נכון לקרוא לה שפה מונחית עצמים טהורה
Visual Basicתומכת בתכנות מונחה אירועים .כלומר תוכל להגיב לאירועים ,כמו גם לכתוב אירועים משלך
לרכיבים חדשים שאתה מפתח
רכיבי ActiveXשל Visual Basic
ב Visual Basic-תוכל ליצור רכיבי ActiveXמהסוגים הבאים:
– ActiveX DLL oרכיב קוד היכול להכיל גם אלמנטים של ממשק
– ActiveX EXE oתוכניות המאפשרות התקשרות אליהם באמצעות COM
– ActiveX Controls oפקדים חדשים הנוצרים ומותאמים על-ידי המשתמש
ב Visual Basic-יצירת הממשקים בהם תומך הרכיב נעשית באופן אוטומטי .עם זאת ,תוכל ליצור ממשקים
ריקים (ללא מימוש) באמצעות )Interface Definition Language( IDLולממש אותם בשפות שונות
Visual Basicמקילה באופן דרמטי את קלות פיתוח הרכיבים .בשפות אחרות ( C++למשל ,שלא לדבר על Cששם
לא תמצא את הידיים ואת הרגליים) תמצא את עצמך מתעסק עם ממשקים לסידור נתונים לפני שליחה ,IMarshal
רישום רכיבים לקבלת הודעות ( ,)IConnectionPointContaintersשלא לדבר על MTA Model ,STA Model
Single Apartment Modelששם הבלבול הופך לצל שלך.
תשמח לשמוע שרכיבים שאתה מפתח ב Visual Basic-נגישים מסביבות אחרות התומכות ב( ActiveX-למשל
)MFC
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור : 1תכנות מונחה עצמים ב Visual Basic-
בשיעור זה:
תלמד כיצד ליצור מחלקות בVisual Basic-
תלמד להוסיף ,פרוצדורות מכל הסוגים ( Properties ,Functions ,Subו )Events-למחלקות
תלמד מהו ( Interfaceממשק) וכיצד ניתן לממש -Interfaceים בVisual Basic-
תלמד את הצורות השונות בהן ניתן להשתמש באובייקטים בתוכנית
תבין מהו Reference Counting
תבין את ההבדל בין Early BindingלLate Binding-
תלמד מהו ( Collectionאוסף) ,כיצד תוכל ליצור -Collectionים משלך וכיצד לסרוק Collection
( CLASSESמחלקות)
ליצירת מחלקות ב Visual Basic-יש להשתמש בClass Module-
Propertiesשל Class Modul e
:Nameמגדיר את שם המחלקה
:DataBindingBehaviorקובע האם האובייקט יכול להיכרך סביב נתונים (נושא זה נדון בהמשך הקורס)
:DataSourceBehaviorקובע האם האובייקט יכול לשמש כמקור נתונים (גם נושא זה נדון בהמשך הקורס)
Eventsשל Class Module
:Initializeמתעורר בכל פעם שנוצר אובייקט חדש מסוג ה Class-שלך
:Terminateמתעורר בכל פעם באובייקט מסוג ה Class-שלך משתחרר מהזיכרון
הגדרת משתנים ב Class -
ניתן להגדיר משתנים בתוך Class Moduleבדיוק כפי שמצהירים עליהם במודול רגיל
הרשאות הגישה האפשריות עבור הצהרת משתנים:
:Private oמשתנה פרטי
:Public oמתשתנה ציבורי
ברירת המחדל היא ,Privateכלומר הצהרה באמצעות Dimזהה להצהרה באמצעות Private
מומלץ להסתיר את המשתנים באמצעות המילה Privateולאפשר גישה אליהם באמצעות Propertiesמתאימים
בלבד .באופן כזה אתה שומר על עקרון ה Encapsulation-בתכנות מונחה עצמים
הוספת פרוצדורות ל Class -
הרשאות הגישה האפשריות עבור פרוצדורות של Classהן:
:Private oהפרוצדורה היא לשימוש פנימי בלבד של הClass-
:Public oהפרוצדורה נגישה מקוד חיצוני
:Friend oהפרוצדורה נגישה מקוד חיצוני בתנאי שמדובר באותו פרוייקט .עבור תוכניות לקוח מפרויקטים
אחרים ,פרוצדורת Friendתהיה בדיוק כמו Private
בשיעור הבא תיצור ספריות רכיבים הניתנות לשימוש מתוכניות חיצוניות
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
( Propertiesמאפיינים)
Propertiesשל Classהם פרוצדורות שמטרתן לאתחל משתנים בתוך הClass-
היתרון בשימוש במאפיינים Propertiesהוא בכך שניתן לאתחל משתנים באמצעות הסימן = (שווה) ולהפוך בכך
את הקוד לקראי יותר
Propertiesבאים בשלוש צורות:
:Property Let oמאפשר העברת ערכים ל Class-לשם ביצוע פעולות אתחול למשתנים מסוגים בסיסיים
:Property Set oמאפשר העברת אובייקטים ל Class-לשם ביצוע פעולות אתחול לאובייקטים פנימיים
:Property Get oמאפשר לאחזר ערך מהמחלקה (כלומר לבצע השמה מהמחלקה למשתנה הנמצא בחוץ)
בדוגמאות שבהמשך תראה את השימוש בProperties-
( Subרוטינות) ו( Functions-פונקציות)
ניתן להוסיף ל Class-רוטינות ופונקציות בדיוק כפי שהיית מוסיף למודולי הקוד שהכרת עד כה
( Eventsאירועים)
בדיוק כפי שקיימים Eventsל Labels ,CommandButton-ואובייקטים וויזואליים (וגם לא וויזואליים) ,תוכל גם
אתה להוסיף Eventsל Class-שאתה יוצר
כדי להוסיף Eventיש להצהיר עליו בחלק ב General-של הקוד ,כולל הפרמטרים שה Event-מקבל
כדי לעורר ( Event )To Fireיש להשתמש במילה RaiseEvent
תוכל להעביר פרמטרים ByRefולהשתמש בערך שלהם לאחר שהמשתמש ב Class-שלך סיים את הטיפול בהם,
ובכך לאפשר למשתמש במחלקה להעביר מידע ל Classשלך אודות האופן שבו הוא רוצה שה Class-שלך יתנהג
(בדוגמאות שבהמשך עניין זה יובהר)
הצהרה על אובי יקטים מסוג המחלקה
כדי להבחין בין משתנים מסוגים בסיסיים לבין משתנים מסוגים של מחלקות משתמשים במילה אובייקט כדי
לתאר מופע ( )Instanceשל מחלקה
כדי ליצור אובייקטים יש להשתמש במילה New
כדי לשחרר אובייקט מהזיכרון (יותר מדויק יהיה להגיד להפחית את ה Reference Countingשלו ,אך נדון בכך
בהמשך) משתמשים במילה Nothing
ביצוע פעולות של השמת אובייקט מתבצעות באמצעות המילה Set
עליך להבחין בין האובייקט עצמו (הנמצא בזיכרון) לבין המשתנה באמצעותו אתה ניגש לאובייקט .משתנה זה
מאפשר לך להתייחס ( )Referenceלאובייקט
אם לאובייקט מסוים יש אירועים ניתן להצהיר עליו תוך שימוש במילה WithEventsכדי להפוך את האירועים
שלו לזמינים עבור הלקוח (עניין זה יובהר בדוגמאות שבהמשך)
דוגמה 1
Dim prs As New CPerson
בדוגמה זו הוצהר משתנה ייחוס בשם prsמהמחלקה CPersonואותחל באובייקט חדש בזכרות באמצעות המילה
New
דוגמה 2
Dim prs As CPerson
Set prs = New CPerson
שתי שורות קוד אלו זהות להצהרה בדוגמה הקודמת
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
קיימים הבדלים מהותיים באופן ההתנהגות של אובייקט המוצהר כמו בדוגמה 1לבין אובייקט המוצהר כמו
בדוגמה ,1כפי שמפורט להלן:
oאובייקט המוצהר כמו בדוגמה ,1אינו נוצר בפועל אלא רק כאשר אתה ניגש למאפיין או פונקציה שלו.
אובייקט המוצהר כמו בדוגמה 2נוצר בעת הקריאה לNew-
oאובייקט המוצהר כמו בדוגמה 1הוא אובייקט בטוח יותר ,כיוון שמובטח לך שאם תשחרר את
האובייקט מהזיכרון באמצעות ( Nothingכפי שתראה בהמשך) ותנסה לגשת אליו שוב מבלי לקרוא ל-
Newשוב Visual Basic ,תיצור את האובייקט עבורך .כך אתה נמנע משגיאות .לעומת זאת ,אם המהרת
על אובייקט כמו בדוגמה 2ולא יצרת אותו בפועל באמצעות המילה Newאו ששחררת אותו ,ותנסה
לגשת אליו תקבל Runtime Error
oמההבדל הקודם נובע כי אובייקט המוצהר כמו בדוגמה 1ירוץ לאט יותר כיוון ש Visual Basic-מוודאת
עבורך שהאובייקט קיים בכל פעם שאתה מנסה לגשת לפרוצדורה של האובייקט
דוגמה 1
Dim WithEvents obj as CCalendar
בדוגמה זו מוצהר אובייקט מסוג .CCalendarהאירועים שהמחלקה CCalendarחושפת יהיו זמינים עבור יישום
הלקוח
לא ניתן להשתמש במילה WithEventsיחד עם המילה Newבהצהרה .כלומר ,המילה WithEventsזמינה רק
עבור הצהרות כמו בדוגמה 1
דוגמה 4
Dim rc1 As CRect, rc2 As CRect
Set rc1 = New CRect
Set rc2 = rc1
בדוגמה זו הוצהרו שני משתני ייחוס מסוג .CRectהראשון שבהם אותחל לאובייקט חדש מסוג ,CRectואילו
השני אותחל כך שיתייחס לאותו אובייקט CRectש rc1-מתייחס אליו
דוגמה 3
Set prs = Nothing
פעולה זו מטרתה לשחרר את האובייקט ש prs-מתייחס אליו מהזיכרון (בסעיף הבא תראה שאין זה מדויק)
( Reference Countingספירת התיי חסו יות)
כל ה-Class-ים של Visual Basicהם למעשי אובייקטים של COM
לכל אובייקט COMיש משתנה פנימי הסופר את מספר ההתייחסויות ( )Reference Countאליו .בכל עת
שמשתנה ייחוס נוסף מצביע לאובייקט ,מונה זה גדל ב ,1-ואילו כאשר משתנה מפסיק להתייחס לאובייקט (על ידי
קריאה ל )Set...Nothing-מונה ההתייחסויות קטן ב1-
אובייקט משתחרר מהזיכרון ברגע שה Reference Count-שלו מגיע ל0-
ב COM-כל אובייקט ממש את ה Interface-ששמו .IUnknownזהו הממשק הבסיסי ביותר בCOM-
IUnknownכולל שלוש מתודות:
– QueryInterface oמתודה זו מאפשרת קבלת מצביע ל Interface-שהאובייקט ממש
– AddRef oמתודה זו גורמת ל Reference Count-לגדול ב( 1-מתודה זו נקראת אוטומטית עבורך כאשר
אתה מבצע השמה למשתנה ייחוס)
– Release oמתודה זו מפחיתה את ה Reference Count-ב( 1-מתודה זו נקראת עבורך אוטומטית כאשר
אתה מבטל התייחסות של משתנה לאובייקט מסוים)
- 11אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
דוגמה 6
Dim rc1 As CRect, rc2 As CRect
בשורה זו הצהרנו על שני משתני ייחוס לאובייקט מסוג CRect
בשורה זו יוצרים אובייקט מסוג CRectבזיכרון וגורמים ל rc1-להתייחס אליו
ה Reference Count-של האובייקט יהיה בשלב זה 1
בשורה זו גם משתנה הייחוס rc2מצביע לאותו אובייקט בזיכרון שנוצר בשורת הקוד הקודמת .לפיכך
ה Reference Count-של האובייקט יגדל ב1-
Set rc1 = New CRect
Set rc2 = rc1
Set rc1 = Nothing
בשורת קוד זו מבטלים את התייחסות המשתנה rc1לאובייקט בזיכרון ,לפיכך ה Reference Count-יקטן ב1-
ויהיה שוב .1כיוון שה Reference Count-עדיין אינו 0האובייקט לא ישתחרר מהזיכרון
Set rc2 = Nothing
בשורת קוד זו מבטלים את התייחסות המשתנה rc1לאובייקט בזכרון ,לפיכך קטן ה Reference Count-ב.1-
בשלב זה ה reference Count-מגיע ל 0-והאובייקט CRectשנותר בשורת הקוד השניה משוחרר מהזיכרון ומסיים
את חייו.
תרגיל – 1התוכנ ית ClassDemo
בדוגמה זו ניצור מחלקה פשוטה באמצעותה נוכל לעקוב אחר אופן יצירת האובייקטים ושחרורם
.1צור פרוייקט חדש מסוג Standard EXEושמור אותו:
הקצה לפרוייקט את השם ClassDemoולטופס את השם frmClassDemo
שמור את הפרוייקט
.1הוסף Class Moduleלפרוייקט ושמור אותו:
הוסף לפרוייקט Class Moduleתוך שימוש בתפריט Project
הקצה ל Class-את השם CDemoעל ידי שינוי המאפיין Nameשל הClass-
.3הוסף קוד ל:CDemo-
Public val As Integer
בחלון הקוד של CDemoבחר ב Class-מתוך התיבה ( Objectה Combo Box-השמאלי המופיע בראש חלון
הקוד) ומתוך התיבה הימנית בחר בInitialize-
הוסף את הקוד הבא:
)(Private Sub Class_Initialize
val = 0
"MsgBox "Object is now loaded into the memory
End Sub
קטע קוד זה מאתחל את המשתנה valברגע שנוצר אובייקט חדש ,וכמו כן מציג הודעה באמצעות Message
Box
בחר ב Terminate-והוסף את הקוד הבא:
)(Private Sub Class_Terminate
_ & "!MsgBox "Object is now unloaded from the memory
_ & vbCrLf
)"val = " & Str(val
End Sub
- 122אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
קטע קוד זה מציג הודעה בעת שהאובייקט נהרס
:ים לטופס והגדר את המאפיינים הבאים-CommandButton הוסף אחד עשר.1
ערך
Class Demo
3- Fixed Dialog
2-CenterScreen
cmdSetValOfD1
Set val of d1
cmdGetValOfD1
Get val of d1
cmdReleaseD1
Release d1
cmdInitializeD2
Initialize d2
cmdSetValOfD2
Set val of d2
cmdGetValOfD2
Get val of d2
cmdReleaseD2
Release d2
cmdInitializeD3
Initialize d3
cmdSetValOfD3
Set val of d3
cmdGetValOfD3
Get val of d3
cmdReleaseD3
Release d3
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
אובייקט
frmClassDemo
Command1
Command2
Command3
Command4
Command5
Command6
Command7
Command8
Command9
Command10
Command11
:הטופס צריך להיראות כמו זה שבציור הבא
- 121 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic- תכנות מונחה עצמים ב:1 שיעור
: הוסף את קוד לטופס.1
Option Explicit
Dim d1 As New CDemo
Dim d2 As CDemo
Dim d3 As CDemo
CDemo בשורות הקוד הללו מוצהרים שלושה משתני ייחוס לאובייקטים מסוג
ההצהרות מתבצעות בשתי הצורות שהוסברו קודם
בהמשך (לאחר שנפעיל את התוכנית) תבין כיצד צורת ההצהרה משפיעה על אופן הפעולה של האובייקט
Private Sub cmdGetValOfD1_Click()
MsgBox "d1.val = " & Str(d1.val)
End Sub
Private Sub cmdGetValOfD2_Click()
MsgBox "d2.val = " & Str(d2.val)
End Sub
Private Sub cmdGetValOfD3_Click()
MsgBox "d3.val = " & Str(d3.val)
End Sub
Private Sub cmdInitializeD2_Click()
Set d2 = New CDemo
End Sub
Private Sub cmdInitializeD3_Click()
Set d3 = d2
End Sub
Private Sub cmdReleaseD1_Click()
Set d1 = Nothing
End Sub
Private Sub cmdReleaseD2_Click()
Set d2 = Nothing
End Sub
Private Sub cmdReleaseD3_Click()
Set d3 = Nothing
End Sub
Private Sub cmdSetValOfD1_Click()
d1.val = 100
End Sub
- 121 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
)(Private Sub cmdSetValOfD2_Click
d2.val = 200
End Sub
)(Private Sub cmdSetValOfD3_Click
d3.val = 300
End Sub
.1בחינת התוכנית:
כעת לאחר שהתוכנית מוכנה נריץ אותה יחד שלב אחר שלב ונבחן את מה שמתרחש וגם את מה שלא מתרחש
לחץ על הכפתור Startאו F5
שים לב ,הצהרנו על d1באמצעות ,Newולמרות זאת ,האירוע Initializeשל CDemoלא התרחש עדיין
לחץ על Set val of d1או ,Get val of d1שים לב שהאירוע Initializeהתרחש כעת כיוון שניסית לגשת
לאובייקט
כעת לחץ על Release d1פעם אחת
שים לב כי האובייקט התפרק ואתה מקבל Message Boxמהאירוע Terminateשל CDemo
נסה ללחוץ שוב על ,Release d1שום דבר לא מתרחש
כעת לחץ שוב על Set val of d1או ,Get val of d1שוב Visual Basicיוצרת עבורך אובייקט והאירוע
Initializeמתעורר שוב
מסקנה :הקוד הניגש ל d1-בטוח כיוון שמובטח שאם לא קיים אובייקט בזיכרון ,ייווצר אחד כזה .אך
בתמורה לכך משלמים בביצועים מהירים פחות
כעת נסה ללחוץ על .Set val of d2אתה אמור לקבל שגיאה כיוון שאין אובייקט שעליו מצביע d2
עצור את התוכנית והפעל אותה שוב
לחץ על Initialize d2כעת נוצר אובייקט עבור d2והאירוע Initializeשלו מתרחש
שים לב :למרות שעדיין לא ניגשת למאפייני האובייקט הוא נוצר
הפעל את Set val of d2ולאחר מכן את ,Get val of d2אתה אמור לקבל את הערך 200
הפעל את .Initialize d3אם תעיין בקוד תבחין ש d3-מושווה ל ,d2-כלומר שניהם מצביעים כעת על אותו
אובייקט
לחץ על Get val of d3אתה אמור לקבל .200אכן זהו אותו אובייקט
לחץ על Set val of d3ולאחר מכן ,Get val of d2תבחין בוודאי שהשתנה הערך ל ,300-וניתן לקבל אותו הן
מ d2-והן מd3-
כעת לחץ על ,Release d2שים לב שאירוע Terminateעדיין לא התרחש ,לראייה תוכל ללחוץ על Get val of
d3ותראה כי האובייקט עדיין קיים בזיכרון .כלומר כעת ה Reference Count-של האובייקט הוא 1
לחץ על .Release d3ה Reference Count-של האובייקט יורד ל 0-וכתוצאה מכך האובייקט משתחרר
מהזיכרון והאירוע Terminateשאתה מבחין בו מתרחש
אם תנסה כעת לגשת לערך של האובייקט באמצעות d2או d3תקבל שגיאה כיוון שאן אובייקט בזיכרון
כעת נבצע בדיקה אחרונה ,הפסק את פעולת התוכנית והרץ אותה שוב
לחץ על ,Initialize d2הודעה בדבר האירוע Initializeצריכה להופיע .לחץ OK
אנו יודעים כי כעת קיים בזכרון אובייקט ש d2-מתייחס אליו
כעת לחץ שוב על ,Initialize d2שים לב ששוב ייוצר אובייקט אשר d2יהיה אמור להצביע עליו .לראיה אתה
מקבל הודעה מאירוע Initializeשל CDemoאך השאלה היא מה קורה עם האובייקט ש d2-התייחס אליו
קודם .לאובייקט זה הרי כבר אין מי שמתייחס ,כלומר ה Reference Count-שלו יורד ל ,0-לפיכך אתה מקבל
הודעה בדבר פירוקו של האובייקט מהזיכרון
- 123אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
אני ממליץ בפניך לבצע עוד מספר ניסויים כדי להבין כיצד נוצרים אובייקטים וכיצד הם מתפרקים .תוכל
להשתמש גם בהרצה במצב Break Modeכדי לבחון את התוכנית Step By Step
מסקנה :הקוד הניגש ל d2-ו d3-מהיר יותר ,כיוון שאין בדיקה לגבי קיומו של אובייקט בזכרון ,אך קוד זה
פחות בטוח
תרגיל – 2התוכנ ית Rect Demo
בדוגמה זו ניצור Classבשם CRect
Class זה יאחסן נתונים אודות אורך ורוחב של מלבן
נוסיף ל Class-שגרות מאפיינים ומתודות לאתחול נתוני המלבן ,חישוב היקף המלבן ושטחו
.1צור פרוייקט חדש מסוג Standard EXEושמור אותו:
הקצה לפרוייקט את השם RectDemoולטופס את השם frmRectDemo
שמור את הפרוייקט
.1הוסף Class Moduleלפרוייקט ושמור אותו:
הוסף לפרוייקט Class Moduleתוך שימוש בתפריט Project
הקצה ל Class-את השם CRectעל ידי שינוי המאפיין Nameשל הClass-
.3הוסף קוד ל:CRect-
Option Explicit
Private m_dLength As Double
Private m_dWidth As Double
בשורות הקוד הללו אנו מצהירים על שני משתנים ,האחד לאחסון אורך המלבן והשני לאחסון רוחב המלבן
משתנים אלו מוצהרים כ Privateולפיכך לא תוכל להתבצע גישה ישירה אליהם
)(Private Sub Class_Initialize
m_dLength = 0#
m_dWidth = 0#
End Sub
באירוע Initializeנהוג לבצע אתחולים של משתנים ואובייקטים השייכים לClass-
)Public Property Let Length(ByVal dLength As Double
"Debug.Print "Inside Property Let Length
If dLength >= 0# Then
m_dLength = dLength
End If
End Property
המאפיין Lengthמאפשר הכנסת ערך למשתנה m_dLength
נעשית בדיקה כדי לוודא שלא מוכנס ערך לא חוקי (מספר שלילי)
במקרה שמוכנס ערך חוקי ,מעודכן ערכו של m_dLengthבהתאם
כמו כן הוספתי שורת קוד המדפיסה לחלון ה Immediateכאשר הביצוע של התוכנית עובר לפרוצדורה זו
Public Property Get Length() As Double
"Debug.Print "Inside Property Get Length
Length = m_dLength
End Property
Property Getמאפשר ללקוח לקרוא את הערך שבLength-
גם באירוע זה נכתוב לחלון ה Immediate-כדי לבחון את התרחשות התוכנית
- 121אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Public Property Let Width(dWidth As Double)
Debug.Print "Inside Property Let Width"
If dWidth >= 0# Then
m_dWidth = dWidth
End If
End Property
Public Property Get Width() As Double
Debug.Print "Inside Property Get Width"
Width = m_dWidth
End Property
Width באופן דומה יוצרים מאפיינים עבור
Public Function Perimeter() As Double
Perimeter = 2# * (m_dLength + m_dWidth)
End Function
Public Function Surface() As Double
Surface = m_dLength * m_dWidth
End Function
(שטח) מחשבות את היקף ושטח המלבן בהתאמהSurface- (היקף) וPerimeter שתי הפונקציות
:ים לטופס והגדר את המאפיינים הבאים-CommandButton הוסף חמישה
ערך
Rectangle Demo
3- Fixed Dialog
2-CenterScreen
cmdSetNew
Set New
cmdSetLength
Set length
cmdGetLength
Get length
cmdSetWidth
Set width
cmdGetWidth
Get width
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
- 121 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
אובייקט
fmRectDemo
Command1
Command2
Command3
Command4
Command5
שיעור :1תכנות מונחה עצמים בVisual Basic-
הטופס צריך להיראות כמו בציור הבא:
.1הוסף קוד לטופס:
Option Explicit
Dim rc As CRect
)(Private Sub cmdSetNew_Click
Set rc = New CRect
End Sub
בשורת קוד זו יוצרים את האובייקט בזיכרון
)(Private Sub cmdGetLength_Click
)MsgBox "Length = " & Str(rc.Length
End Sub
)(Private Sub cmdGetWidth_Click
)MsgBox "Width = " & Str(rc.Width
End Sub
)(Private Sub cmdSetLength_Click
))"rc.Length = Val(InputBox("Enter the length:
End Sub
)(Private Sub cmdSetWidth_Click
))"rc.Width = Val(InputBox("Enter the width:
End Sub
ארבעה הפרוצדורות הנ"ל מאתחלות את האובייקט rcומציגות את הערכים
שים לב לנוחות שבשימוש במאפיינים ,אתה יכול להשתמש בסימן = כדי לבצע השמה ,ופרוצדורת המאפיין
תופעל עבורך ,כך שאפשר לרשום rc.Length = 90במקום לרשום )rc.Length(90
.1בחינת התוכנית:
התוכנית הנ"ל מציגה מידע בחלון ה Immediate-כך שאם חלון זה איו מוצג ,בצג אותו על ידי בחירתו
מהתפריט View
הרץ את התוכנית
לחץ על Set Newכדי ליצור אובייקט מסוג CRect
- 121אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
לחץ על Set lengthוהכנס ערך כלשהו .שים לב שבחלון ה Immediate-מוצגת הודעה מתוך
הפרוצדורהProperty Let Length
באותו אופן נסה את שאר הלחצנים והבחן בפלט שבחלון הImmediate-
אני ממליץ בפניך להריץ את התוכנית Step By Stepבמצב ( Break Modeהשתמש ב F8-לשם כך) ,ולעקוב
אחר ביצוע התוכנית
תרגיל – 1התוכנ ית EventDemo
בדוגמה זו ניצור Classשיכלול גם Eventsונשתמש ב Events-הללו מתוך תוכנית הלקוח
תוכנית זו אינה קשה ,אם כי ייתכן שזרימת התוכנית תהיה מוזרה לך מעט .אני ממליץ בפנינך להריץ את התוכנית
Step By Stepכדי לעקוב מקרוב אחר אופן ההתנהלות שלה
.1צור פרוייקט חדש מסוג Standard EXEושמור אותו:
הקצה לפרוייקט את השם EventDemoולטופס את השם frmEventDemo
.1הוסף Class Moduleלפרוייקט ושמור אותו:
הוסף לפרוייקט Class Moduleתוך שימוש בתפריט Project
הקצה ל Class-את השם CPersonעל ידי שינוי המאפיין Nameשל הClass-
.3הוסף קוד ל:CPerson-
Option Explicit
Private m_strName As String
Private m_nAge As Integer
בשורות קוד אלו מוצהרים שני משתנים שאובייקט מסוג CPersonיכיל בתוכו
)(Public Event Changed
)Public Event WillReset(ByRef bCancel As Boolean
שתי השורות הנ"ל מצהירות על שני Eventsשאובייקט מסוג CPersonיכול לעורר
את האירוע Changedנעורר בכל פעם שערכו של אחד מהמשתנים הפנימיים ( m_strNameאו )m_nAge
ישונה
האירוע WillResetיתעורר בכל פעם שנקראת השגרה ( Resetרשמה בהמשך)
תפקיד השגרה Resetהוא לאפס את המשתנים m_strNameוm_nAge-
באירוע WillResetאנו מעבירים משתנה bCancelבאמצעות ייחוס ( )ByRefלפיכך אם המשתמש באובייקט
החליט לבטל את פעולת ה Reset-הוא יוכל פשוט לשנות את ערכו של bCancelל( True-בהמשך כשנכתוב
תוכנית המשתמשת ב CPerson-דבר זה יובהר)
)(Private Sub Class_Initialize
"" = m_strName
m_nAge = 0
End Sub
באירוע Initializeאנו מאפסים את m_nAgeומאתחלים את m_strNameלמחרוזת ריקה
)Public Property Let Name(strName As String
m_strName = strName
RaiseEvent Changed
End Property
- 121אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic- תכנות מונחה עצמים ב:1 שיעור
על ידי שימוש במילת המפתחChange ומיד מעורר את האירועm_strName מאפיין זה משנה את תוכן
RaiseEvent
Public Property Get Name() As String
Name = m_strName
End Property
Public Property Let Age(ByVal nAge As Integer)
If nAge >= 0 Then
m_nAge = nAge
RaiseEvent Changed
End If
End Property
שלילי- בתנאי שהמספר המועבר הוא איm_nAge מאפיין זה משנה את ערכו של
Changed מעוררים את האירוע,לאחר שינוי הערך
Public Property Get Age() As Integer
Age = m_nAge
End Property
Public Sub Reset()
Dim bCnl As Boolean
bCnl = False
RaiseEvent WillReset(bCnl)
If bCnl = False Then
m_strName = ""
m_nAge = 0
RaiseEvent Changed
End If
End Sub
m_nAge- וm_strName הוא לאפס את המשתניםReset תפקיד המתודה
)False- (המאותחל לbCnl ומעבירה את הפרמטרWillReset מעוררת את האירועReset תחילה המתודה
כל שעליו לעשות הוא לשנות את ערכו של,Reset- אם המשתמש שלוכד את האירוע החליט לבטל את פעולת ה
True- לbCnl
אזי מאפסים את,False אם הוא עדיין.bCnl נבחן ערכו של, לאחר שלוכד האירוע סיים את הטיפול באירוע
לאTrue- אם ערכו שונה ל.Changed ומעוררים את האירועm_nAge- וm_strName ערכי המשתנים
מבצעים מאומה
:ים לטופס והגדר את המאפיינים הבאים-CommandButton הוסף שלושה.1
ערך
Event Demo
3- Fixed Dialog
2-CenterScreen
cmdSetAge
Set Age
cmdSetName
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
אובייקט
fmEventDemo
- 121 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Command1
Command2
לתוכניתניםVisual Basic 6
Set Name
cmdReset
Reset
cmdSetWidth
Set width
Caption
Name
Caption
Name
Caption
Command3
Command4
:הטופס צריך להיראות כמו בציור שלפניך
: הוסף קוד לטופס.1
Option Explicit
Dim WithEvents prs As CPerson
CPerson שורת קוד זו מצהירה על משתנה ייחוס לאובייקט מסוג
כדי שהאירועים של האובייקט יילכדו בתוך הטופסWithEvents נעשה שימוש במילה
Private Sub Form_Load()
Set prs = New CPerson
End Sub
ברגע שהטופס נוצר יוצרים את האובייקט
משחררים את האובייקט מהזיכרוןUnload באירוע
prs שלReset קוראים למתודהReset בעת לחיצה על
Private Sub Form_Unload(Cancel As Integer)
Set prs = Nothing
End Sub
Private Sub cmdReset_Click()
prs.Reset
End Sub
Private Sub cmdSetAge_Click()
prs.Age = Val(InputBox("Enter the age"))
End Sub
InputBox- לפי הערך המוזן על ידי המשתמש בAge מאתחלים אתSet Age בתגובה ללחיצה על
Private Sub cmdSetName_Click()
prs.Name = InputBox("Enter the name")
End Sub
InputBox- לפי המחרוזת המוזנת על ידי המשתמש בName מאתחלים אתSetName בתגובה ללחיצה על
Private Sub prs_Changed()
MsgBox "prs has changed. The new values are:" & vbCrLf & _
"Name = " & prs.Name & vbCrLf & _
"Age = " & Trim(Str(prs.Age))
End Sub
- 121 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
אירוע זה מתעורר ( )Firedעל-ידי prsבכל פעם שערך מסוים בתוך האובייקט שונה .בנקודה זו אנו מציגים
באמצעות Message Boxאת הערכים העדכניים את prs
)Private Sub prs_WillReset(bCancel As Boolean
If MsgBox("Do you want to cancel the reset?", vbYesNo) = vbYes Then
bCancel = True
End If
End Sub
אירוע זה מתעורר על ידי prsבכל פעם שמנסים לאפס את .prsבנקודה זו אנו מציגים הודעה המאפשרת
למשתמש להחליט האם לבטל את פעולת האיפוס או לא
.1בחינת התוכנית:
הרץ את התוכנית ובחן את פעולתה
כאמור ,אני ממליץ בפניך להריץ את התוכנית Step By Stepבאמצעות F8כדי לבצע מעקב מדויק אחר
זרימת התוכנית
מימוש Interface
Interfaceהוא החלק הציבורי ( )Publicשל Classמסוים – כלומר החלק הנגיש של המחלקה
ב COM-נהוג לכתוב ממשקים באמצעות שפת )Interface Definition Language( IDLולקמפל את הקוד
באמצעות הקומפיילר MIDL
אם אתה מכיר את שפת IDLתוכל להשתמש בה כדי ליצור ממשקים ולממש אותם בכל שפה שתרצה (בתנאי
ששפה זו תומכת COMכמובן)
ב Visual Basic-נוכל ליצור -Interfaceים פשוט על ידי יצירת Classללא משתנים וללא מימושים כלשהם
לפונקציות .למעשה לכל Classב Visual Basic-יש ממשק משלו
Classהמעונין לממש Interfaceצריך להשתמש במילה Implements
מימוש Classים הנו מימוש ה-Interface-ים של אותם -Classים
Classהמממש Interfaceחייב לממש את כל המתודות והמאפיינים שלו
אם לא תממש פרוצדורה מסוימת של Interfaceתקבל שגיאת קומפילציה
אם הצהרת על משתנים Publicב Class-שאת ה Interface-שלו אתה מממש ב Class-אחר ,תקבל עבור כל
משתנה כזה פרוצדורות Property GetוProperty Let-
באמצעות מימוש -Interfaceים ניתן ליצור היררכיה של -Classים וכן ליצור רכיבי תוכנה שיתאימו לתוכנה מוכנה
מצד שלישי
כאשר אובייקט מממש מספר -Interfaceים ,ניתן להשתמש במשתני ייחוס מכל סוגי ה-Interface-ים הממומשים
כדי להתייחס לאובייקט
בשיעור הבא תלמד כיצד ליצור Add-Inל Visual Basic-על ידי מימוש ממשק מתאים
אבחון תכו נות אובייקט בזמן ריצה
ניתן לבדוק אם אובייקט תומך ב Interface-מסוים ע"י שימוש במילה :TypeOf...Is
ניתן לבדוק מהו סוג האובייקט המוצבע בפועל על ידי שימוש בפונקציה .TypeNameפונקציה זו מחזירה מחרוזת
הזהה לשם ה Class-שאליו שייך האובייקט (הכוונה כאן היא לאובייקט המוצבע בפועל ולא לסוג המצביע)
ניתן לבדוק האם אובייקט אותחל או שהוא שווה ל Nothing-ע"י שימוש במילים ....Is Nothing...
- 112אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
דוגמאות
If TypeOf shape is IArchive Then
...
End If
בשורות קוד אלו נבדק האם objמממש את ה Interface-ששמו ,IArchiveאם כן נכנסים לתוך בלוק הביצוע של
הIf-
)MsgBox TypeName(obj
שורת קוד זו מציגה את שם המחלקה אליה שייך האובייקט המוצבע ע"י obj
If obj Is Nothing Then Exit Sub
שורת קוד זו גורמת ליציאה מרוטינה אם objאינו מאותחל (כלומר הוא )Nothing
שים לב שכדי לשלול את התנאי עליך לרשום Notבתחילת התנאי .כלומר:
If Not TypeOf shape is IArchive Then...
וכן:
If Not obj Is Nothing Then Exit Sub
תרגיל – 4התוכנ ית ImplementsDemo
בדוגמה זו ניצור Classעם מספר פרוצדורות בעלות מימוש ריק כלומר ,Interfaceונממש אותו ב Class-אחר
.1צו פרוייקט חדש מסוג Standard EXEושמור אותו:
הקצה לפרוייקט את השם ImplementsDemoולטופס את השם frmImplementsDemo
שמור את הפרוייקט
.1הוסף שלושה -Class Moduleים לפרוייקט ושמור אותם:
הקצה ל-Class-ים את השמות CCircle ,IShape :וCRect-
שמור את ה-Class Module-ים
.3הוסף קוד ל:IShape-
Option Explicit
Public Function Perimeter() As Double
' Empty inside interface
End Function
Public Function Surface() As Double
' Empty inside interface
End Function
בשורות קוד אלו מוצהרות שתי פונקציות Perimeter ,וSurface-
שים לב כי אין מימוש לפונקציות (בתוך כל פונקציה רשומה הערה!)
.1הוסף קוד ל:CCircle-
Option Explicit
Implements IShape
בשורת הקוד הזו אנו מבקשים לממש את ה Interface-של IShape
תשים לב כי ב Combo Box-השמאלי שבחלון הקוד ( )Objectמופיע כעת IShape
Public m_dRadius As Double
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic- תכנות מונחה עצמים ב:1 שיעור
בשורת קוד זו מצהירים על משתנה שיאחסן את רדיוס המעגל
וליצורPrivate- אך ברור לך שכדאי להצהיר עליו כPublic-שים לב כי לצורך ההדגמה המשתנה מוצהר כ
מתאימותProperty Let- וProperty Get עבורו פרוצדורות
Private Function IShape_Perimeter() As Double
IShape_Perimeter = 2 * 3.14 * m_dRadius
End Function
P 2r הוא כמובןCircle עבורPerimeter המימוש של
Private Function IShape_Surface() As Double
IShape_Surface = 3.14 * m_dRadius * m_dRadius
End Function
S r 2 הואCircle עבורSurface המימוש של
:CRect- הוסף קוד ל.1
Option Explicit
Implements IShape
Public m_dLength As Double
Public m_dWidth As Double
Private Function IShape_Perimeter() As Double
IShape_Perimeter = 2 * (m_dLength + m_dWidth)
End Function
Private Function IShape_Surface() As Double
IShape_Surface = m_dLength * m_dWidth
End Function
תוך ביצוע החישובים המתאימים למלבן,IShape שלInterface- ממומש הCRect- גם בCCircle- כמו ב
: והגדר את המאפיינים הבאים, אחדTextBoxים ו-CommandButton הוסף לטופס חמישה
ערך
Implements Demo
3- Fixed Dialog
2-CenterScreen
cmdSetCircle
Set Circle Radius...
cmdSetShapeIsCircle
Set shape = c
cmdSetRectangleValues
Set Rectangle Values...
cmdSetShapeIsRect
Set shape = r
cmdDisplayInfo
Display Info...
txtInfo
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
אובייקט
frmImplementsDemo
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Command1
Command2
Command3
Command4
Command5
Text1
לתוכניתניםVisual Basic 6
][ריק
True
Text
MultiLine
:הטופס אמור להיראות כמו בציור שלפניך
:הוסף קוד לטופס
Option Explicit
Dim c As New CCircle
Dim r As New CRect
Dim shape As IShape
IShape- ומשתנה ייחוס לCCircle אובייקט מסוג,CRect השורות הנ"ל מצהירות על אובייקט מסוג
Private Sub cmdSetCircle_Click()
c.m_dRadius = Val(InputBox("Enter the radius of the circle:"))
End Sub
Private Sub cmdSetRectangleValues_Click()
r.m_dLength = Val(InputBox("Enter the length of the recangle:"))
r.m_dWidth = Val(InputBox("Enter the width of the rectangle:"))
End Sub
r והמלבןc שורות הקוד הנ"ל מאפשרות אתחול של המעגל
Private Sub cmdSetShapeIsCircle_Click()
Set shape = c
End Sub
Private Sub cmdSetShapeIsRect_Click()
- 113 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
Set shape = r
End Sub
בשורות הקוד הללו קובעים לאיזה מבין הצורות ( cאו )rיצביע המשתנה shape
שים לב כי אין כל בעיה ש shape-יצביע על אובייקט מסוג CCircleאו מסוג CRectכיוון שאובייקטים אלו
ממשים את IShape
עם זאת – shapeלא יוכל להפעיל פונקציות שאינן שייכות ל( IShape-נדון בכך בסעיף הבא "Early Binding
לעומת )"Late Binding
)(Private Sub cmdDisplayInfo_Click
If shape Is Nothing Then Exit Sub
txtInfo.Text = TypeName(shape) & "..." & vbCrLf
_ & )" " txtInfo.Text = txtInfo.Text & String(8,
"Perimeter = " & Str(shape.Perimeter()) & vbCrLf
_ & )" " txtInfo.Text = txtInfo.Text & String(8,
"Surface = " & Str(shape.Surface()) & vbCrLf
End Sub
בתגובה ללחיצה על Display Info...מתבצעות שורות הקוד הנ"ל
תחילה נבדק שהמשתנה shapeמאותחל .אם shapeאינו מאותחל יוצאים מהרוטינה
לאחר מכן מציגים את שם סוג האובייקט המוצבע ע"י .shapeעושים זאת באמצעות הפונקציה TypeName
מוסיפים קריאות ל Perimeter-ו Surface-כדי להציג את היקף ושטח הצורה
.1בחינת התוכנית:
הרץ את התוכנית ובדוק את אופן פעולתה
Early Bindingלעומת Late Binding
Early Bindingפירושו קישור הקריאות למתודות ומאפיינים של אובייקט עוד בזמן הקימפול .כלומר בEarly -
Bindingעוד במן הקימפול ידוע לקומפיילר מהן הכתובות הפיסיות של המתודות הנקראות
קישור מסוג זה קרוי VTBL Bindingוהוא המהיר ביותר בCOM-
בדרך כלל אתה משתמש בסוג זה של קישור בתוכניות Visual Basic
Late Bindingהיא האפשרות לגשת למאפיין או מתודה של אובייקט שאין וודאות בזמן הפיתוח שהם נתמכים
ע"י האובייקט .משמעות הדבר היא שבזמן ריצת התוכנית יהיה על התוכנית לגלות אם באותו אובייקט קיימת
המתודה או קיים המאפיין שאליו רוצים לגשת
פונקציונליות זו אפשרית על ידי שימוש בממשק IDispatchמ COM-או ע"י שימוש ב Type Library-וזיהויו בזמן
ריצה
ב Visual Basic-כל האובייקטים מממשים את ה Interfaceששמו Object
Objectהוא למעשה הממשק IDispatchהמאפשר Late BindingבVisual Basic-
Late Bindingהרבה יותר גמיש מבחינת אפשרויות התכנות מאשר .Early Bindingעם זאתLate Binding ,
איטי ביותר ביחס לEarly Binding-
בעת קריאה למתודה או מאפיין בזמן ריצה תוך שימוש ב Object-מתבצעות מספר הכנות לפני שהפונקציה
מופעלת .פעולות אלה בודקות את קיומה של המתודה או קיומו של המאפיין הנקרא .ניקח לדוגמה את המשפטים:
Dim obj As Object
...
...
)obj.SetValues("Today is your day", 57
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
שלבי הביצוע הם:
oהכנת כל המחרוזות הטקסטואליות שיש לזהות :במקרה זה המחרוזת שיש לזהות היא – SetValues
כלומר יש לבדוק האם האובייקט שאליו מצביע objאכן כולל פונקציה כזו
oקריאה ל .IDispatch::GetIDsOfNames()-קריאה זו מטרתה לאחזר את מספרי הזיהוי ( )DISPIDsשל
שם המתודה והפרמטרים שיש להעביר לה :במקרה שלנו יוחזרו מספרי זיהוי עבור השם SetValues
ועבור הפרמטרים שיש להעביר לה
oכל מספרי הזיהוי ( )DISPIDsיוחזרו
oקריאה ל .IDispatch::Invoke()-קריאה זו מטרתה להפעיל (סוף סוף) את המתודה לאחר שזיהינו שאכן
היא נתמכת ,וכל הפרמטרים שלה הוכנו.
oהערך המוחזר של הפונקציה ( )HRESULTמוחזר מ IDispatch::Invoke()-לקוד הקורא
תחשוב על כך שהפעולות הללו מתבצעות עבור כל קריאה למתודה ,כאשר היא מתבצעת באמצעות .IDispatch
ללא ספק זוהי תקורה ( )Overheadגבוהה למדי עבור קריאה בודדת .תחשוב מה כמה זמן היית ממתין לתשובה לו
הקטע הנ"ל היה מתבצע בין שני -Processים נפרדים או בין שני מחשבים ברחבי הרשת
בדוגמה הבאה תבחן במושגים של זמן את ההבדלים בין Late BindingלEarly Binding-
תרגיל – 3התוכנ ית Analyzer
.1צו פרוייקט חדש מסוג Standard EXEושמור אותו:
הקצה לפרוייקט את השם Analyzerולטופס את השם frmAnalyzer
שמור את הפרוייקט
.1הוסף Class Moduleלפרוייקט:
הקצה את השם CTestלClass Module-
שמור את הפרוייקט שוב
הוסף קוד ל:CTest-
Option Explicit
Private m_lVal As Long
)Public Property Let Val(lVal As Long
m_lVal = lVal
End Property
זוהי מחלקה פשוטה עם מאפיין אחד המאפשר להזין ערך למשתנה Val
.3הוסף לטופס שלושה -CommandButtonים ו TextBox-אחד והגדר את המאפיינים הבאים:
אובייקט
frmAnalyzer
Command1
Command2
Command3
Text1
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
Caption
Name
Caption
Name
ערך
Late Binding VS. Early Binding
3- Fixed Dialog
2-CenterScreen
cmdSetNew
Set ... = New
cmdUseObject
Dim ... As Object
cmdStop
!I got it - STOP
txtTimer
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
Background
Locked
Text
MultiLine
Button Face
True
[ריק]
True
הטופס אמור להיראות כמו בציור שלפניך:
הוסף קוד לטופס:
Option Explicit
)(Private Sub cmdSetNew_Click
Dim cls As CTest
Dim lVal As Long, i As Integer
Dim sTime As Single
Set cls = New CTest
sTime = Timer
For i = 1 To 1000
_ & txtTimer.Text = "As CTest... " & vbCrLf
_ & "i = " & Str(i) & vbCrLf
""Time elapsed:" & Str(Timer - sTime) & " sec
DoEvents
For lVal = 1 To 10000
cls.Val = lVal
Next
Next
End Sub
בקטע קוד זה מריצים שתי לולאות מקוננות
בתוך הלולאה הפנימית ניגשים למאפיין של האובייקט cls
לפני הכניסה ללולאה החיצונית נמדד הזמן ולפני כל איטרציה של הלולאה הפנימית מוצג ההפרש בשניות מאז
הכניסה ללולאה החיצונית
בפעולת ההדפסה מציגים את שם האובייקט באמצעות TypeName
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
)(Private Sub cmdUseObject_Click
Dim cls As Object
Dim lVal As Long, i As Integer
Dim sTime As Single
Set cls = New CTest
sTime = Timer
For i = 1 To 1000
_ & txtTimer.Text = "As Object..." & vbCrLf
_ & "i = " & Str(i) & vbCrLf
""Time elapsed:" & Str(Timer - sTime) & " sec
DoEvents
For lVal = 1 To 10000
cls.Val = lVal
Next
Next
End Sub
קטע קוד זה זהה לקודם ,אלא שכאן מוצהר האובייקט כObject-
במקרה זה מופעלת הגישה למאפיין Valבאמצעות Late Binding
)(Private Sub cmdStop_Click
Unload Me
End Sub
)Private Sub Form_Unload(Cancel As Integer
End
End Sub
.1בחינת התוכנית:
הרץ את התוכנית ןהשווה את הביצועים של Early Bindingלעומת Late Binding
תסכים איתי שהתוצאות מרשימות .אצלי במחשב ( )Pentium III 733MHrzהשימוש בEarly Binding-
(שימוש במשתנה ייחוס מסוג )CTestהסתכם ב 4.41-שניות ,ואילו הפעלה באמצעות ( Late Bindingשימוש
במשתנה ייחוס מסוג )Objectהסתכם ב 77.21-שניות.
הגדרת תכונות של פרוצדורות
בINTREFCAE-
בעת יצירת Classב Visual Basic-נוצר עבורו באופן אוטומטי Interface
לפרוצדורות ב Interface-ישנן הגדרות ותכונות נוספות
הגדרה מותאמת אישית של תכונות אובייקטים ב Visual Basic-מהווה לעתים תכופות מטלה שחובה לבצע אותה
על מנת לגרום לאובייקט לפעול בצורה תקינה
בסעיף זה תלמד כיצד ניתן לצפות בתכונות ה ,Interface-וכיצד ניתן להגדיר את התכונות הללו בVisual Basic-
חלק מהתכונות יילמדו בשיעורים הבאים
צפייה בתכו נות באמצעות Object Browser
כדי לצפות בפרוצדורות והתכונות שלהן ניתן להשתמש בObject Browser-
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
תרגיל – 6צפי יה באובייקטים באמצעות ה Object Browser -
תרגיל זה נטול קוד .מטרת התרגיל היא להכיר לך את חלון הObject Browser-
.1פתח את ה:Object Browser-
מתוך התפריט Viewבחר ב ,Object Browser-לחילופין לחץ על F2
.1בחר אובייקט לבחינה:
לצורך התרגול (וגם בגלל שהנושא הבא הוא )Collectionsנבחר לצפות באובייקט Collection
מתוך הרשימה Classesבחר ב( Collection-אם אינך מוצא את ,Collectionוודא שב Combo Box-העליון
בחרת ב <All Libraries>-או בVBA-
.3בחן את :Collection
כפי שאתה רוצה ,בפנל הימני מוצגים המאפיינים והמתודות של Collection
סמן את אחת הפרוצדורות ,תבחין מיד כי בתחתית החלון מוצגת אינפורמציה אודות הפרוצדורה הנבחרת.
אינפורמציה זו כוללת את סוג הפרוצדורה ( Property ,Function ,Subאו )Eventהסבר קצר ,ולינק לClass-
המכיל (במקרה זה )VBA.Collection
.1זהה את פרוצדורת ברירת המחדל:
תשים לב כי ליד Itemישנו עיגול כחול .זהו סימן לכך שהפונקציה Itemהיא פרוצדורת ברירת המחדל עבור
Collection
פרוצדורת ברירת מחדל מופעלת באופן אוטומטי אם לא ציינת במפורש שום פרוצדורה להפעלה
הצג פרוצדורות נסתרות:
לחץ לחיצה ימנית במקום כלשהו ובחר בShow Hidden Members-
תבחין כי לרשימת הפרוצדורות של Collectionנוסף חבר חדש ושמו _NewEnum
על משמעות _NewEnumתלמד בסעיף Collections
צפייה באמצעות היישום OLE VIEW
לא כל התכונות של פרוצדורה מוצגות בObject Browser-
כדי לצפות בכל הפרטים אודות Interfaceמסוים ,אפשר להשתמש ביישום .OLE Viewיישום זה מותקן יחד עם
חבילת .Visual Studioתוכל לפתוח אותו מתוך תת התפריט Microsoft Visual Studio 6.0 Toolsתחת
Microsoft Visual Studio6.0
תרגיל OLE View – 7לבעלי לב ח זק בלבד
אם אתה בעל לב חזק ,בטח תרצה לבחון את Collectionגם מתוך OLE View
.1פתח את :OLE View
OLE View נמצא במסלול הבא (אלא אם התקנת את Visual Studioבמסלול שונה מאשר ברירת המחדל):
OLE View >--Microsoft Visual Studio 6.0 Tools >--Microsoft Visual Studio 6.0 >--Programs>--Start
.1פתח את ה:Type Library-
מהתפריט Fileבחר בView TypeLib...-
עבור לספריית VB98תחת ספריית ההתקנה של ( Visual Studioבררך כלל זהו המסלול:
\)C:\Program Files\Microsoft Visual Studio\VB98
בחר בקובץ .VBA6.DLLהאובייקט Collectionנמצא בספריית .VBA
OLE View ישתהה מעט בזמן שהוא קורא את נתוני הספרייה
.3בחר ב Interface-של האובייקט :Collection
בתחתית הפנל השמאלי לחץ על לחצן הפלוס ( )+שליד הפריט interface _Collection
תוכל להבחין שהמתודות Remove ,Count ,Add ,Itemו _NewItem-מופיעות
מעיון בפרוצדורות תבחין כי לכל פרוצדורה יש מספר זיהוי ( )idהרשום בהגדרת הInterface-
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
אם תעיין במתודה _NewEnumתבחין בכך שמספר הזיהוי שלה הוא -4( 0xfffffffcבהקצהדצימלית) פרט
זה ישמש אותנו כשניצור Collectionמותאם אישית
.1עיין ב-Interface-ים ממומשים על-ידי :Collection
כפי שזכור לך מהדיון על Reference Countingועל ,Late Bindingאמרתי אז ש IUnknown-הוא
ה Interface-הבסיסי ביותר ב COM-ואילו IDispatchמאפשר Late Bindingעבור רכיבי ActiveX
אם תלחץ על Inherited Interfacesתחת הענף הנוכחי ,תגלה את IDispatchחבוי עם המתודות המוכרות לנו
מהדיון אודות Invoke ,GetIdsOfNames( Late Bindingועוד).
אם תלחץ שוב על Inherited Interfacesשתחת IDispatchתגלה את IUnknownעם שלוש המתודות שלו
( AddRef ,Query Interfaceו .)Release-ואכן זהו ה Interface-הבסיסי ביותר IUnknown .אינו נורש מאף
Interfaceאחר
.1אם אתה מרגיש שאתה צריך קפה – זה הזמן!
הגדרת תכונות
עד כה ראינו איפה צופים בתכונות של Interface
תכונות פרוצדורה של מחלקה נקבעים בשני מקומות חשובים:
oהגדרת הפרוצדורה כפי שמופיעה בקוד קובעת:
מהו סוג הפרוצדורה ( Property Let ,Property Get ,Function ,Subאו )Event
מהם הפרמטרים המועברים לפרוצדורה (אם בכלל)
מהו הערך המוחזר מהפונקציה
oתיבת הדו שיח ה:Procedure Attributes-
תיבת הדו שיח ה Procedure Attributes-נמצאת תחת התפריט Tools
תיבת דו שיח זו מאפשרת לשלוט במאפיינים רבים שאת חלקם נסקור רק בשיעורים הבאים
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
o
o
:Name שם הפרוצדורה
:Description תיאור קצר של הפרוצדורה
:Project Help שם קובץ העזרה של הפרוייקט (ניתן להגדרה מתוך חלון הProject -
)Properties
:Help Context ID מגדיר את מספר הקשר העזרה בתוך קובץ העזרה
( :Procedure ID מזהה שגרה) :לכל שגרה ב Interface-יש מספר זיהוי .מספר זה משפיע על
אופן התנהגות השגרה
:Use This Page In Property Browser מגדיר את הדף שייפתח מבין דפי המאפיינים עבור
מאפיין זה
:Property Category הקטגוריה אליה שייכת הפרוצדורה (שים לב כי בחלון המאפיינים יש
אפשרות להציג מאפיינים לפי קטגוריות)
:Hide This Member מסתיר את הפרוצדורה ממשתמשי המחלקה
:Don't Show In Property Browser לא מציג את המאפיין בחלון המאפיינים
:User Interface Default האם הפרוצדורה תהיה פרוצדורת ברירת המחדל בחלון המאפיינים
:Data Binding האם הפרוצדורה יכולה להיות קשורה לנתונים חיצוניים .נושא זה יידון
בהמשך הקורס
בהמשך שיעור זה תשתמש בתיבת דו שיח זו כדי להגדיר ( Procedure IDמזהה שגרה) עבור פרוצדורה
שתכתוב
ביתר ההגדרות שצויינו נשתמש בשיעורים הבאים
( COLLECTIONSאוספים)
Collectionהוא מבנה נתונים דינמי
Collectionהוא Classמוכן של ,Visual Basicכלומר ,מבנה שניתן להוסיף ולהסיר ממנו פריטים במהלך ריצת
התוכנית
לפריטים באוסף יש אינדקסים הרצים מ 1-עד ( Countכאשר Countהוא גודל ה)Collection-
פריטים הנוספים ל Collection-הם מסוג ,Objectלפיכך ניתן להוסיף ל Collection-את כל סוגי האובייקטים,
כיוון שכולם נגזרים מObject-
אם אתה מוסיף אובייקטים מסוגים שונים ל Collection-תוכל להשתמש בזיהוי סוג האובייקט בזמן ריצה כדי
לבצע פעולות האופייניות רק לסוג מסוים
ניתן לבצע סריקה על אובייקטים ב Collection-בשתי צורות:
oלולאת Forרגילה הרצה מ 1-עד Count
oלולאת .For Each...In...Nextסוג זה של לולאה נוסף לשפה כדי להקל את העבודה עם אוספים
תחביר
תחביר ההצהרה על Collectionהוא:
Dim coll As New Collection
oאפשר להצהיר ללא המילה Newואז ליצור את ה Collection-מאוחר יותר
ל Collection-יש את המאפיינים והמתודות הבאות:
:Add oמוסיף פריט ל.Collection-
תחביר:
)]coll.Add (Item, [Key], [Before], [After
:Itemזהו הפריט שיש להוסיף לCollection-
- 112אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
o
:Key מחרוזת ייחודית שניתן להצמיד לפריט .מאוחר יותר ניתן יהיה לאתר את הפריט
באמצעות מחרוזת זו
:Before מוסיף את הפריט לפני הפריט שהאינדקס שלו או המפתח ( )Keyשלו מצוין ב.Before-
לא ניתן לציין Beforeיחד עם After
:After מוסיף את הפריט אחרי הפריט שהאינדקס שלו אן המפתח ( )Keyשלו מצוין ב.After-
לא ניתן להשתמש ב After-יחד עם Before
:Removeמסיר פריט מה:Collection-
תחביר:
)coll.Remove (Index
:Index מציין את האינדקס או המפתח ( )Keyשל הפריט שיש להסיר
:Itemמחזיר מצביע לפריט מסויים בCollection-
תחביר:
)coll.Item (Index
:Indexמציין את האינדקס או המפתח ( )Keyשל הפריט שיש להחזיר
Itemהוא מאפיין ברירת המחדל .לפיכך ניתן לפנות לפריט גם באופן הבא:
)coll(Index
o
:Countמחזיר את מספר הפריטים בCollection-
תחביר:
coll.Count
הלולאה For each ..In .. Next
לולאה זו מיועדת לסריקת אובייקטים מתוך אוסף
תחביר הלולאה הוא כדלקמן:
בכל איטרציה של הלולאה objמתייחס לאובייקט הנוכחי בColl-
For Each obj In Coll
obj.Method1...
obj.Method2...
Next
תרגיל – 1התוכנ ית ShapeColl1
התוכנית ShapeColl1תאפשר למשתמש להוסחף מלבנים או עיגולים
האובייקטים שייוצרו יצורפו ל Collection-שיוצהר לשם כך
לחיצה על List Itemsתציג את כל הפריטים הנמצאים באוסף
סריקת האוסף נעשית באמצעות הלולאה For Each ... In ... Next
.1צו פרוייקט חדש מסוג Standard EXEושמור אותו:
הקצה לפרוייקט את השם ShapeColl1ולטופס את השם frmTest
שמור את הפרוייקט
.1הוסף שני -Class Moduleים לפרוייקט:
הקצה את השמות CCircleו CRect-למחלקות
שמור את הפרוייקט שוב
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic- תכנות מונחה עצמים ב:1 שיעור
:CCircle- הוסף את הקוד הבא ל.3
Option Explicit
Private Const PI As Double = 3.14
Private m_dRadius As Double
Public Property Get Radius() As Double
Radius = m_dRadius
End Property
Public Property Let Radius(dRad As Double)
If dRad >= 0 Then m_dRadius = dRad
End Property
Public Function Surface() As Double
Surface = PI * m_dRadius * m_dRadius
End Function
Public Function Perimeter() As Double
Perimeter = 2 * PI * m_dRadius
End Function
:CRect- הוסף את הקוד הבא ל.1
Option Explicit
Private m_dLength As Double
Private m_dWidth As Double
Public Property Get Length() As Double
Length = m_dLength
End Property
Public Property Let Length(dLen As Double)
If dLen >= 0 Then m_dLength = dLen
End Property
Public Property Get Width() As Double
Width = m_dWidth
End Property
Public Property Let Width(dWid As Double)
If dWid >= 0 Then m_dWidth = dWid
End Property
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Public Function Surface() As Double
Surface = m_dLength * m_dWidth
End Function
Public Function Perimeter() As Double
Perimeter = 2 * (m_dLength + m_dWidth)
End Function
: אחד והגדר את המאפיינים הבאיםTextBox-ים ו-CommandButon הוסף ארבעה
ערך
Shape Collection Demo 1
3- Fixed Dialog
2-CenterScreen
cmdAddRect
Add Rectangle
cmdAddCircle
Add Circle
cmdListItemsMethod1
List items - Method 1
cmdListItemsMethod2
List items - Method 2
txtColl
ButtonFace
True
][ריק
True
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Background
Locked
Text
MultiLine
אובייקט
frmTest
Command1
Command2
Command3
Command4
Text1
: הוסף את הקוד הבא לטופס.1
Option Explicit
Public shpColl As Collection
shpColl בשםCollection-בשורת קוד זו מוצהר מצביע ל
Private Sub Form_Load()
Set shpColl = New Collection
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set shpColl = Nothing
End Sub
עםCollection- ומשחרר את ההתיחסות ל, חדש עם טעינת הטופסCollection הקוד הנ"ל יוצר אובייקט
התפרקות הטופס
- 113 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic- תכנות מונחה עצמים ב:1 שיעור
Private Sub cmdAddCircle_Click()
Dim cr As CCircle
Set cr = New CCircle
cr.Radius = Val(InputBox("Enter the radius for the circle:"))
shpColl.Add cr
Set cr = Nothing
End Sub
Private Sub cmdAddRect_Click()
Dim rc As CRect
Set rc = New CRect
rc.Length = Val(InputBox("Enter the length of the rectangle:"))
rc.Width = Val(InputBox("Enter the width of the rectangle:"))
shpColl.Add rc
Set rc = Nothing
End Sub
בהתאם ללחיצה של המשתמש,בשורות הקוד הנ"ל יוצרים עיגול או מלבן
InputBox מאתחלים את האובייקט שנוצר על ידי שימוש בפונקציה
shpColl-מוסיפים את האובייקט ל
Private Sub cmdListItemsMethod1_Click()
Dim obj As Object
txtColl.Text = ""
On Error Resume Next
For Each obj In shpColl
txtColl.Text = txtColl.Text & TypeName(obj) & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Length = " & obj.Length & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Width = " & obj.Width & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Radius = " & obj.Radius & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Surface = " & obj.Surface & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Perimeter = " & obj.Perimeter & vbCrLf
Next
End Sub
shpColl-בשורות קוד אלו מבצעים סריקה של האובייקטים ב
Surface ,Radius ,Width ,Length עבור כל אובייקט מציגים (יותר מדוייק להגיד "מנסים להציג") את
Perimeter-ו
אין את המאפייניםCCircle ולאובייקטים מסוג,Radius אין את המאפייןCRect כיוון שלאובייקטים מסוג
כדי להעביר את הביצוע לשורה הבאה אם מתרחשתOn Error Resume Next- קוראים ל,Width- וLength
שגיאה
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Late Binding ביצועי, וכפי שראית בתרגיל הקודם, כדי להציג פרטיםLate Binding-שיטה זו משתמשת ב
! צורות10000 חשוב כמה זמן היתה נמשכת פעולת הצגת הפרטים אם נניח שהאוסף מכיל.הם גרועים
Private Sub cmdListItemsMethod2_Click()
Dim obj As Object
Dim rc As CRect
Dim cr As CCircle
txtColl.Text = ""
On Error Resume Next
For Each obj In shpColl
If TypeOf obj Is CRect Then
Set rc = obj
txtColl.Text = txtColl.Text & "CRect" & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Length = " & rc.Length & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Width = " & rc.Width & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Surface = " & rc.Surface & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Perimeter = " & rc.Perimeter & vbCrLf
Else
Set cr = obj
txtColl.Text = txtColl.Text & "CCircle" & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Radius = " & cr.Radius & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Surface = " & rc.Surface & vbCrLf
txtColl.Text = txtColl.Text & String(8, " ") & _
"Perimeter = " & rc.Perimeter & vbCrLf
End If
Next
End Sub
shpColl- גם כאן מבצעים סריקה על האובייקטים ב
או מסוגCRect כאן נבחן סוג האובייקט ולאחר מכן הוא מושם למשתנה מסוג, לעומת השיטה הקודמת
שלהם וכתוצאה מקבלים ביצועיםType Library- הגישה לאובייקטים נעשית דרך ה, כיוון שכך.CCircle
.הרבה יותר טובים
: בחינת התוכנית.1
הרץ את התוכנית ובדוק את פעולתה
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
מחלקות Collectionמותאמות אישית
כפי שראית Collection ,מקבל את הסוג Object
ניתן ליצור מחלקות אוסף מותאמות ,כך שמחלקות אלו יקבלו נתונים מסוג מסוים או מנגזרותיו
היתרון ב Collection-מותאם אישית הוא בכך שהאובייקטים המוחזרים ממנו הם מסוג מסוים ,לפיכך ניתן
להשתמש בEarly Binding-
משתמשים ב-Collection-ים גם כדי ליצור היררכית עצמים
היררכית ( ADOשתכיר בהמשך הקורס) היא דוגמה לצירוף של -Classים ו-Collection-ים היוצרים היררכיה
אחת
בתרגיל הבא תיצור .Collectionמשלך ,בכל מקרה דע שתוכל להשתמש ב( VB Class Builder-אתה מציג אותו
ע"י בחירת Add Class Moduleמתפריט )Projectכדי ליצור היררכת עצמים ואוספים
שים לב שבאוספים הנוצרים ע"י VB Class Builderהמתודה Addיוצרת את האובייקטים .בתרגיל שלפנינו
המתודה Addמקבלת את האובייקט בדיוק כמו ב Collection-רגיל
הוללאה For Each...In...Nextהמוכרת לך ,פועלת על Collectionכיוון שהם ממשים פונקציה בשם _NewEnum
(כפי שראית כשצפינו ב Collection-ב)Object Browser-
המתודה NewEnumמאפשרת ללולאה לאתר רשומות ב .Collection-למעשה Enumeratorעוקב אחר המיקום
של הלולאה בCollection-
כדי שהלולאה For Each...In...Nextתפעל ב Collection-שלך ,עליך להוסיף פונקציה דומה
כפי שראינו ב ,OLE View-ה id-של המתודה _NewEnumהוא . 4לפיכך ,גם למתודה שאתה תכתוב הid-
חייב להיות . 4תוכל להגדיר זאת באמצעות תיבת הדו-שיח ( Procedure Attributesתוכל להבין מכך שהשם
שתיתן לפונקציה שלך הוא לא חשוב ,מה שחשוב הוא שמספר הזיהוי שלה יהיה ) 4
כיוון שלא ניתן לכתוב Collectionיעילים ב ,Visual Bsic-משתמשים בטכניקה הנקראת Object Containment
and Delegationכדי ליצור Collectionsמשלנו:
:Containment oפירושה הכלה .ובאופן יותר מעשי ,האובייקט שאנו יוצרים מכיל אובייקט אחר
:Delegation oפירושה האצלה .כלומר ,בעת קריאה לפונקציה של האובייקט שאנו יוצרים ,אנו מעבירים
את הביצוע (העבודה השחורה) לאובייקט הפנימי
בתרגיל הבא נשתמש בעקרון הנ"ל כדי ליצור Collectionמשלנו לפי השלבים הבאים:
oצור מחלקה והצהר על משתנה Collectionפרטי למחלקה
oהוסף למחלקה פרוצדורות Count ,Item ,Remove ,AddוNewEnum-
oכדי לאפשר ללולאה For Each ... In ... Nextעליך להוסיף מתודה בשם ( NewEnumתוכל לתת לה גם
שם אחר ,אך עדיף לתת לה שם זה)
oממש את הפרוצדורות של המחלקה שלך ,ע"י קריאה לפרוצדורה המקבילה ב Collection-שבתוך
המחלקה
oמימוש NewEnumיפעיל את הפונקציה _NewEnumב Collection-הפנימי במחלקה
oמתוך תיבת הדו שיח Procedure Attributesהגדר את מספר הזיהוי של המתודה NewEnumלמספר –4
והגדר את הפונקציה ItemכDefault-
תרגיל – 1התוכנ ית ShapeColl2
בתוכנית הבאה תיצור היררכיה שלושה -Classים רגילים CRect ,IShape :ו ,CCircle-כאשר CRectוCCircle-
ממשים את הממשק של IShape
תיצור גם Collectionהמקבל את הסוג IShapeולפיכך גם תומך ב CRect-וCCircle-
.1צור פרוייקט חדש מסוג Standard EXEושמור אותו:
הקצה לפרוייקט את השם SahpeColl2ולטופס את השם frmTest
שמור את הפרוייקט
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
:ים-Class Module הוסף לפרוייקט ארבעה.1
Shapes- וCCircle ,CRect ,IShape ים את השמות-Class- הקצה ל
שמור את הפרוייקט שוב
:IShape- הוסף קוד ל.3
לפיכך הפונקציות שלו רישות ממימוש, מגדיר ממשק בלבדIShape
Option Explicit
Public Function Surface() As Double
' Empty inside interface
End Function
מחזירה את שטח הצורהSurface הפונקציה
מחזירה את היקף הצורהPerimeter הפונקציה
Public Function Perimeter() As Double
' Empty inside interface
End Function
Public Function FormatDetails() As String
' Empty inside interface
End Function
: מחזירה מחרוזת עם נתונים אודותFormatDetails הפונקציה
סוג הצורהo
פרמטרים שונים של הצורהo
היקף הצורהo
שטח צורהo
כך שהמשמעות שתינתן לכל אחת מהפונקציות הנ"ל,CCircle- ובCRect- הממשק הנ"ל ממומש ב: זכור
תהיה שונה בכל אחת מהמחלקות הללו
:CCircle הוסף קוד למחלקה.1
Option Explicit
Private Const PI As Double = 3.14
Implements IShape
Private m_dRadius As Double
Public Property Get Radius() As Double
Radius = m_dRadius
End Property
Public Property Let Radius(dRad As Double)
If dRad >= 0 Then m_dRadius = dRad
End Property
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic- תכנות מונחה עצמים ב:1 שיעור
Private Function IShape_Perimeter() As Double
IShape_Perimeter = 2 * PI * m_dRadius
End Function
P 2r בתוך המעגלIShape_Perimeter מימוש הפונקציה
Private Function IShape_Surface() As Double
IShape_Surface = PI * m_dRadius * m_dRadius
End Function
S r 2 בתוך המעגלIShape_Surface מימוש הפונקציה
Private Function IShape_FormatDetails() As String
Dim strRes As String
strRes = "CCircle" & vbCrLf
strRes = strRes & String(8, " ") & "Radius = " & _
Trim(Str(Me.Radius)) & vbCrLf
strRes = strRes & String(8, " ") & "Perimeter = " & _
Trim(Str(IShape_Perimeter())) & vbCrLf
strRes = strRes & String(8, " ") & "Surface = " & _
Trim(Str(IShape_Surface())) & vbCrLf
IShape_FormatDetails = strRes
End Function
: במעגל מחזיר מחרוזת המכילהFormatDetails המימוש שלם
)CCircle( שם המחלקהo
רדיוס המעגלo
היקף המעגלo
שטח המעגלo
:CRect הוסף קוד למחלקה.1
Option Explicit
Implements IShape
Private m_dLength As Double
Private m_dWidth As Double
Public Property Get Length() As Double
Length = m_dLength
End Property
Public Property Let Length(dLen As Double)
If dLen >= 0 Then m_dLength = dLen
End Property
Public Property Get Width() As Double
Width = m_dWidth
End Property
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Public Property Let Width(dWid As Double)
If dWid >= 0 Then m_dWidth = dWid
End Property
Private Function IShape_Perimeter() As Double
IShape_Perimeter = 2 * (m_dLength + m_dWidth)
End Function
Private Function IShape_Surface() As Double
IShape_Surface = m_dLength * m_dWidth
End Function
Private Function IShape_FormatDetails() As String
Dim strRes As String
strRes = "CRect" & vbCrLf
strRes = strRes & String(8, " ") & "Length = " & _
Trim(Str(Me.Length)) & vbCrLf
strRes = strRes & String(8, " ") & "Width = " & _
Trim(Str(Me.Width)) & vbCrLf
strRes = strRes & String(8, " ") & "Perimeter = " & _
Trim(Str(IShape_Perimeter())) & vbCrLf
strRes = strRes & String(8, " ") & "Surface = " & _
Trim(Str(IShape_Surface())) & vbCrLf
IShape_FormatDetails = strRes
End Function
: במלבן מחזיר מחרוזת המכילהFormatDetails המימוש שלם
)CRect( שם המחלקהo
אורך המלבןo
רוחב המלבןo
היקף המלבןo
שטח המלבןo
:Shapes- הוסף קוד ל.1
Option Explicit
Private m_coll As Collection
Private Sub Class_Initialize()
Set m_coll = New Collection
End Sub
Private Sub Class_Terminate()
Set m_coll = Nothing
End Sub
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :1תכנות מונחה עצמים בVisual Basic-
בשורות הקוד הנ"ל מוצהר אובייקט Collectionשיכיל בפועל את האובייקטים
בעת אתחול האובייקט ( )Initializeיוצרים Collectionחדש
בעת שחרור האובייקט ( )Terminateמשחררים את ה Collection-שהוצהר
זהו למעשה קטע ה Containment-במחלקה .כלומר ,במחלקה שלנו ( )Shapesמכילה אובייקט מסוג
Collection
)"" = Public Sub Add(Item As IShape, Optional Key As String
If Len(Key) > 0 Then
m_coll.Add Item, Key
Else
m_coll.Add Item
End If
End Sub
הפונקציה Addמוסיפה אובייקט לCollection-
הפעולה מתבצעת ע"י הפעלת Addמתוך ה Collection-שהוצהר במחלקה
העברת הפעולה מהמחלקה שלנו לאובייקט שפנימי ,m_collהיא למעשה ( Delegationהאצלה)
באופן דומה ננהג בפרוצדורות הבאות
)Public Sub Remove(Index As Variant
m_coll.Remove Index
End Sub
Public Function Item(Index As Variant) As IShape
)Set Item = m_coll.Item(Index
End Function
Public Function Count() As Long
Count = m_coll.Count
End Function
Public Property Get NewEnum() As IUnknown
]Set NewEnum = m_coll.[_NewEnum
End Property
בפונקציה NewEnumהעברנו את הפעולה ל _NewEnum-של האובייקט m_coll
כיוון שאסור להשתמש בקו תחתון בתחילת שם פרוצדורה או משתנה ב Visual Basic-אנו עוטפים את
המילה בסוגריים מרובעים
.1הגדר את תכונות הפרוצדורות במחלקה :Shapes
הישאר בחלון הקוד של Shapes
מתוך התפריט Toolsבחר בProcedure Attributes...-
מתוך הרשימה Nameבחר בItem-
לחץ על הלחצן – Advancedתיבת הדו שיח תתרחב ותכלול אפשרויות נוספות
מתוך הרשימה Procedure IDבחר בDefault-
כך הגדרת את הפרוצדורה Itemכפרוצדורת ברירת המחדל של Shapes
בשדה Nameבחר בNew Enum-
בתיבה Procedure IDרשום 4
ב Attributes-סמן Vליד Hide This Member
- 132אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
אבל מומלץ להסתיר ממשתמש, כמתודה נסתרת (לא היית חייבNewEnum באופן זה הגדרת את המתודה
שלו מצפה 4 את מזהה השגרהNewEnum- כמו כן נתת ל.)המחלקה את מה שהוא לא אמור להשתמש בו
For Each...In...Next הלולאה
Shapes לכל אחת מהפרוצדורות שלDescription כעת הוסף תיאור בשדה
: והגדר את המאפיינים הבאים, אחד לטופסTextBox-ים ו-CommandButton הוסף שלושה.1
ערך
Shapes Collection Demo 2
3- Fixed Dialog
2-CenterScreen
cmdAddRect
Add Rectangle
cmdAddCircle
Add Circle
cmdListItems
List items
txtColl
Button Face
True
2 - Vertical
][ריק
True
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
Caption
Name
Caption
Name
Background
Locked
ScrollBars
Text
MultiLine
אובייקט
frmTest
Command1
Command2
Command3
Text1
:הטופס אמור להיראות דומה לזה שבציור
: הוסף קוד לטופס.1
Option Explicit
Public shpColl As Shapes
- 131 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic- תכנות מונחה עצמים ב:1 שיעור
Private Sub Form_Load()
Set shpColl = New Shapes
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set shpColl = Nothing
End Sub
Shapes מסוגCollection בשורות הנ"ל מוצהר אובייקט
אובייקט זה נוצר בעת טעינת הטופס ומשוחרר עם פריקת הטופס
Private Sub cmdAddCircle_Click()
Dim cr As CCircle
Set cr = New CCircle
cr.Radius = Val(InputBox("Enter the radius for the circle:"))
shpColl.Add cr
Set cr = Nothing
End Sub
Private Sub cmdAddRect_Click()
Dim rc As CRect
Set rc = New CRect
rc.Length = Val(InputBox("Enter the length of the rectangle:"))
rc.Width = Val(InputBox("Enter the width of the rectangle:"))
shpColl.Add rc
Set rc = Nothing
End Sub
נוסף מלבן או מעגל בהתאם לבחירת המשתמש,בדומה לתרגיל הקודם
Private Sub cmdListItems_Click()
Dim shp As IShape
txtColl.Text = ""
For Each shp In shpColl
txtColl.Text = txtColl.Text & shp.FormatDetails
Next
End Sub
נקראת כדי להציגFormatDetails והפונקציהCollection- בקטע קוד זה מתבצעת סריקה של האובייקטים ב
את נתוני הצורה
ולפיכך אנו קוראים,IShape כאן אנו יודעים מראש שאנו ניגשים לאובייקטים מסוג, בשונה מהתרגיל הקודם
Early Binding- אנו מרוויחים מהירות גבוהה המתאימה ל.FormatDetails מיד לפונקציה
הקוד כאן הרבה יותר קריא, בנוסף לרווחים הביצועיים
: בחינה ראשונה של התוכנית – הרצה.12
הרץ את התוכנית ובחן את פעולה
1 בדוק אם הגדרת את תכונות הפרוצדורה בשלב,For Each...In...Next אם התקבלו שגיאות בלולאה
:Object Browser צפייה המחלקות באמצעות- בחינה שניה של התוכנית.11
View מתוך התפריטObject Browser- פתח את חלון ה
- 131 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
מתוך רשימת ה Classes-מצא את המחלקה ( Shapesאם אינך רואה אותה ,וודא שב ComboBox-העליון
בחרת > <All Librariesאו )ShapeColl2
בפנל הימני אתה אמור לראות את הפרוצדורות של Shapes
שים לב שפרוצדורות מוסתרות גם מוצגות בפנל הימני .כשתיצור ( DLLבשיעור הבא) פרוצדורות אלו יוסתרו.
- 133אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX DLL :11
בשיעור זה:
תבין יותר את המושגים Thread ,Address Space ,ProcessוComponent-
תלמד ליצור רכיבי ActiveXמסוג ActiveX DLL
תלמד כיצד להשתמש ברכיבים שנכתבו כ ActiveX DLL-מתוך תוכנית אחרת
תכיר את המושג Instancing
תבין כיצד Windowsטוענת קובץ DLLלתוך תוכנית
תלמד לטפל בשגיאות בתוך רכיבים שתכתוב
מושגים
בסעיף זה תכיר מספר מושגים שיוכלו לסייע לך לנצל טוב יותר את מערכת ,Windowsלהבין מהו ,Component
ולהכיר טוב יותר את ההבדל בין סוגי ה-Component-ות שניתן לפתח בVisual Basic-
( Inctanceמופע) של תוכנית :ניתן להריץ תוכנית מספר פעמים .כל הרצה נפרדת של תוכנית נקראת Instanceשל
התוכנית .כך למשל ,אם הרצת את Microsoft Wordשלוש פעמים ,כל הרצה כזו מהווה Instanceשל Microsoft
Word
( Processתהליך) :אוסף המשאבים הדרושים להרצת Instanceשל תוכנית נקרא .Processה Process-מנהל את
המשאבים הקשורים בתוכנית שרצה .משאבים לדוגמה הם :הקצאת זיכרון לתוכנית ,יצירת -Threadים (יוסבר
בהמשך) ,טעינת רכיבי DLLוכו' .ברגע שתוכנית מסתיימת ,מערכת ההפעלה פורקת את ה Process-וכל
המשאבים הקשורים אליו.
( Threadמטלת ביצוע) Thread :הינו רצף של פקודות שעל המחשב לבצע Thread .הינו משאב הצורך בפועל זמן
מעבד .ב Process-אחד יכולים להיות מספר -Threadים שרצים בו זמנית .כך למשל ,התוכנית Microsoft Word
מאפשרת לך לערוך ולהדפיס בו זמנית על ידי הרצת Threadנפרד עבור פעולת ההדפסה .בעת טעינת Process
מערכת ההפעלה יוצרת באופן אוטומטי Threadעבור ה Process-שהורץ Thread .זה נקרה ה Thread-הראשי של
התוכנית.
( Address Spaceמרחב כתובות) Address Space :הוא מרחב כתובות של 4( 4Gג'יגה) .לכל Processישנו מרחב
זכרון משלו .תוכל להסיק מכך שאם תוכנית מנסה לגשת לכתובת מסוימת ותוכנית אחרת מנסה לגשת לאותה
הכתובת ,כל תוכנית תיגש בפפועל לנתונים ייחודיים משלה – כלומר יש הגנה על מרחב הכתובות מפני -Processים
אחרים .תשאל את עצמך ,בוודאי ,איך ייתכן שלכל Processישנם 4Gכתובות זכרון ,והרי זיכרון ה RAM-הוא
מצומצם מאוד (בדרך כלל בין 32Mל 256M-ברוב המחשבים) .יתרה מזאת ,אם נניח שישנם -Process 50ים
שרצים במקביל במערכת ,כי אז אנו מדברים על 200Gזיכרון ( .) 50 4G 200Gתפתור את עצמך מטרדה זו,
בכך שתדע (מבלי שניכנס לפרטים טכניים) כי מערכת ההפעלה עושה שימוש חסכוני בכתובות על ידי שימוש
במספר טריקים ,כגון שימוש ב-Page-ים (דפי זכרון)( Page Tables ,טבלאות דפים) ועוד .היבט נוסף שחשוב לשים
לב אליו ,בעוד שלכל Processיש Address Spaceמשלו-Thread ,ים הרצים באותו ה Process-משתתפים באותו
.Address Spaceתוכל להסיק מכך ש-Thread-ים הרצים תחת אותו Processיכולים לשתף בניהם מידע גלובלי.
– Executable File( EXEקובץ ריצה) :קובץ EXEהוא קובץ תוכנית שעם הרצתו נוצר עבורו Instanceחדש,
וכתוצאה מכך נוצר Processבמערכת .ל Process-שנוצר מוקצים מיד Main Thread ,Address Spaceועוד.
– Dynamic Link Library( DLLספריית קישור דינמי) :קובץ DLLהוא קובץ שיכול ליצא משאבים (למשל
-Iconים ,מחרוזות ועוד) ,כמו גם פונקציות .משמעות המושג ליצא היא ,שמשאבים אלו נועדו לשימושן של
תוכניות אחרות ,כלומר ,תוכניות שייבאו ת המשאבים הללו.כיוון ש DLL -אינו רץ בפני עצמו ,אלא משמש
תוכניות .EXEקובץ DLLהנטען על ידי תוכנית ,נטען לתוך ה Address Space-של ה.Process-
- 131אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX DLL :11
( Componentרכיב)( Component :כפי שהוסבר בפרק )8הוא רכיב בינרי Component .יכול להיות מאוחסן
בקובץ DLL ,EXEועוד .נבדיל בין מספר מושגים הקשורים ב-Component -ות:
( Server Component oרכיב שרת) :זהו Componentהמספק שירותים .כך למשל ניתן לכתוב
Componentמיוחד ,המספק שירותי חישובים מתמטיים ועוד.
( Client Component oרכיב לקוח) :זהו רכיב המנצל שירותים של רכיב אחר.
שים לב Client Component :יכול להיות גם .Server Componentכך למשל ייתכן שComponent-
מסוים מספק שירותים מסוימים ומבחינה זו הוא ,Serverאך במקביל מנצל שירותים של Component
אחר כדי להשלים את המשימה ,ובחינה זו הוא .Client
( In Process Component oרכיב תוך תהליכי) :זו Componentהנטען אל תוך Address Spaceשל
Processקיים .חשוב למשל על Controlמיוחד המציג לוח שנה ,וממוקם על טופס בתוכנית שלך .רכיב זה
הינו חלק מהתוכנית והוא נטען לתוך התוכנית.
( Out Of Process Component oרכיב חוץ תהליכי) :זהו רכיב הרץ כתוכנית עצמאית ומספק שירותים
לתוכניות אחרות .חשוב למשל על התוכנית שלך המריצה את Microsoft Wordכדי לננצל את שירותי
האיות ( )Spellingשל .Microsoft Wordבמקרה זה ה Server Component-הנו התוכנית Wordהרצה
ב Process-נפרד ( Wordהיא תוכנית EXEולכן היא רצה כתוכנית עצמאית)
יצירת
ACTIVEX DLL
יש לבחור את הפרוייקט ActiveX DLL
יש להבחין בין -DLLים שנוצרים ב Visual Basic-לבין -DLLים רגילים-DLL .ים הנוצרים ב Visual Basic-הם
מסוג ActiveXולפיכך מהווים ספריות של רכיבים .ב DLL-מסוס זה אין גישה ישירה לפונקציה מסוימת ,אלא
קיימת אפשרות ליצור רכיב .לאחר שהרכיב נוצר ניתן לפנות למתודות שלו .כלומר -DLLים של ActiveX
מייצאים רכיבים ולא פונקציות-DLL .ים רגילים של Win32מייצאים פונקציות.
כל רכיב ב DLL-נכתב ב Class Module-נפרד
יצירת אובייקטים
יישום לקוח יכול המעוניין להשתמש ברכיבים מספרייה חיצונית יכול לבצע זאת במספר דרכים:
הוספת הפניה ב ,Project References-ולאחר מכן יצירת אובייקט באמצעות המילה .New
יצירת אובייקט והמתו למשתנה מסוג Objectבאמצעות הפונקציה ( CreateObjectבמקרה כזה יהי שימוש
ב .Late Binding-כדי להמנע מכך ,ניתו ליצור משתנה מסוג האובייקט ,ולהוסחף את ההפניה המתאימה
ב)Project References-
באמצעות הפונקציה CreateObjectניתן ליצור אובייקטים גם במחשבים מרוחקים .פשוט יש להעביר את שם
המחשב ברשת כפרמטר שני לפונקציה לפי התחביר הבא:
)CreateObject(component_name, computer_name
הצגת ממשק משתמש
רכיב DLLיכול ליצור ממשק משתמש למשל על ידי קריאה לפונקציה MsgBox
ניתן למנוע הצגת ממשק משתמש על ידי הרכיב אם מסמנים Vליד האפשרות Unattended Execution
בכרטיסיית Generalבחלון הProject Properties-
אם רכיב שהוגדר עבור Unattended Executionמנסה להציג ממשק משתמש ,תירשם הודעה בקובץ ה Log-של
המערכת (ב Windows 2000-ניתן לצפות בהודעה מתוך חלון ה Event Viewer-תחת הקטגוריה Application
.Logהיישום Application Viewerנמצא תחת )Administrative Tools
- 131אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
ניהול קבוצת פרוייקטים במקביל
בעת פיתוח רכיב יש לבחון אותו במקביל לפיתוח
ניתן ליצור קבוצת פרוייקטים ב Visual Basic-ולנהל אותם במקביל
Visual Basicיוצרת קובץ פרוייקט ( )*.vbgהשוקב אחר מיקום הפרוייקטים ומנהל אותם
אני ממליץ בפניך ליצור ספרייה עבור קבוצת הפרוייקטים .תחת ספרייה זו צור תתי ספריות עבור כל פרוייקט
בקבוצת הפרוייקטים .את הקבצים של כל פרוייקט שמור בספרייה השייכת לפרוייקט ,ואת קובץ הפרוייקט שמור
תחת ספריית הקבוצה
תרגיל – 1ספריית הרכיבים SecurityLib
בתרגיל זה ניצור רכיב DLLהמאפשר הצגת מסך ,Loginובדיקת וסיסמה
הפונקציה Loginתציג את מסך ה .Login-אם הסיסמה שהוכנסה תקינה ,הפונקציה תחזיר ,Trueאחרת יוחזר
Flase
בדוגמה זו אנו מניחים שהמשתמש היחד הוא " "superuserושסיסמתו היא " ,"1234ברור עם זאת שביישום
אמיתי תכתוב משהו קצת פחות טיפשי
.1צור קבוצת פרוייקטים ActiveX DLLו:Standard EXE-
פתח את Visual Basicיחד עם פרוייקט מסוג ActiveX DLL
שנה את שם הפרוייקט לSecurityLib-
בתוך הפרוייקט ישנו .Class Moduleשנה את שמו לCLogin-
הוסף פרוייקט Standard EXEעל ידי בחירת האפשרות Add Projectמהתפריט File
שנה את שם הפרוייקט ל TestLib-ואת שם הטופס שבו לfrmTestLib-
.1שמור את קבוצת הפרוייקטים:
בעת לחיצה על Saveייפתח חלון השמירה .צור ספרייה בשם Securityותחת ספרייה זו צור שתי ספריות
בשם SecurityLibוTestLib-
את קבצי פרוייקט ה ActiveX DLL-שמור תחת הספרייה SecurityLibואת קובצי פרוייקט הStandard -
EXEשמור תחת הספרייה TestLib
לאחר שתשמור את הפרוייקטים Visual Basicתבקש ממשך לשמור את קובץ קבוצת הפרוייקטים .שנה את
שם הקובץ ל grpSecurity.vbg-ושמור אותו תחת הספרייה Security
.3הוסף טופס לספריית הרכיבים:
בחלון ה Project Explorer-בחר בפרוייקט ( SecurityLibאם אינך רואה את חלון ה Project Explorer-תוכל
לבחור אותו מתוך התפריט Viewאו על ידי הצירוף )Ctrl+R
הוסף טופס על ידי בחירת האפשרות Add Formמתוך התפריט Project
שנה את שם הטופס לfrmLogin-
שמור את הטופס תחת הספרייה השייכת לפרוייקט )\Security\SecurityLib\( SecurityLib
עצב את הטופס :frmLogin
הוסף שני -TextBoxים ,שני -CommandButtonים ושני -Labelים לטופס ,והגדר את המאפיינים הבאים:
אובייקט
frmLogin
Label1
Label2
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
TabIndex
Name
ערך
Login
3- Fixed Dialog
1-CenterOwner
lblUsername
&Username
0
lblPassword
- 131אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
ActiveX DLL :11 שיעור
&Password
2
txtUsername
][ריק
1
txtPassword
8
*
][ריק
3
cmdOK
&OK
True
cmdCancel
&Cancel
True
Caption
TabIndex
Name
Text
TabIndex
Name
MaxLength
PasswordChar
Text
TabIndex
Name
Caption
Default
Name
Caption
Cancel
Text1
Text2
Command1
Command2
:הטופס אמור להיראות בדומה לציור שלפניך
:frmLogin הוסף קוד לטופס.1
Option Explicit
Private m_strUsername As String
Private m_strPassword As String
שני המשתנים הללו יכילו את שם המשתמש והסיסמה לאחר שהטופס יוסר
Private Sub cmdOK_Click()
m_strUsername = txtUsername.Text
m_strPassword = txtPassword.Text
Unload Me
End Sub
והטופס מפורקm_strPassword- וm_strUsername מועברים מעוגכנים ערכי המשתניםOK בעת לחיצה על
Unload על ידי המתודה
ברגע. עדיין קיימים בזכרוןm_strPassword- וm_strUsername למרות שהטופס מפורק המשתנים:שים לב
. יפורקו גם המשתנים הללוSet...= Nothing ידי-שהטופס ישוחרר מהזכרון על
- 131 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Private Sub cmdCancel_Click()
Unload Me
End Sub
m_strPassword- וm_strUsername הטופס מפורק מבלי לעדכן אתCancel בעת לחיצה על
Public Property Get Username() As String
Username = m_strUsername
End Property
Public Property Get Password() As String
Password = m_strPassword
End Property
m_strPassword- וm_strUsername שני פרוצדורות המאפיינים הללו מאפשרים לאחזר את ערכם של
:CLogin הוסף קוד למחלקה.1
Option Explicit
Public Function ShowLogin() As Boolean
Dim loginForm As New frmLogin
loginForm.Show vbModal
If LCase(loginForm.Username) = "superuser" And _
loginForm.Password = "1234" Then
ShowLogin = True
Else
ShowLogin = False
End If
Set loginForm = Nothing
End Function
ומציגה אותו למשתמש במצב מודאליfrmLogin של הטופסInstance יוצרתShowLogin הפונקציה
אם.loginForm שלPassword- וUsername נבדקים המאפייניםCancel אוOK לאחר שהמשתמש לחץ על
False אחרת יוחזר,True אזי מוחזר מהפונקציה הערך," בהתאמה1234"–" וsuperuser"-הם שווים ל
:TestLib עבור לפרוייקט.1
Project Explorer- בחלון הTestLib לחץ על שם הפרוייקט
:frmTestLib עצב את הטופס
:ים והגדר את המאפיינים הבאים-CommandButton שניfrmTestLib הוסף לטופס
ערך
Test Login
3- Fixed Dialog
2-CenterScreen
cmdUseNew
Use "Set ...New"
cmdUseCreate
Use "CreateObject (...)"
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Name
Caption
- 131 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
אובייקט
frmTestLib
Command1
Command2
שיעור ActiveX DLL :11
הטופס אמור להיראות דומה לזה שבציור שלפניך:
.1הוסף Referenceלפרוייקט :SecurityLib
מתוך התפריט Projectבחר באפשרות References
סמן Vליד הספרייה SecurityLib
שים לב :ללא הפניה זו לא תוכל ליצור אובייקטים או משתנים מהסוג CLoginבתוך יישום הלקוח (במקרה
הזה התוכנית )TestLibתוך שימוש במילה .Newעם זאת ,תוכל ליצור אובייקטים באמצעות הפונקציה
CreateObjectתוך ציון שם הספרייה ושם הרכיב בספרייה ,כלומר )"CreateObject("SecurityLib.CLogin
.1הוסף קוד לטופס :frmTestLib
Option Explicit
)(Private Sub cmdUseNew_Click
Dim sec As New SecurityLib.CLogin
If sec.ShowLogin() Then
"!MsgBox "You are succesfull logged in
Else
"!MsgBox "Login Failed
End If
Set sec = Nothing
End Sub
בתגובה לליחצה על cmdUseNewיוצרים מופע של המחלקה CLoginמתוך הספרייה SecurityLib
לאחר מכן מפעילים את הפונקציה ShowLoginומציגים הודעה למשתמש באמצעות Message Boxעל פי
התוצאה המוחזרת מShoLogin-
)(Private Sub cmdUseCreate_Click
Dim sec As Object
)"Set sec = CreateObject("SecurityLib.CLogin
If sec.ShowLogin() Then
"!MsgBox "You are succesfull logged in
Else
"!MsgBox "Login Failed
End If
Set sec = Nothing
End Sub
פונקציה זו זהה לקודמת אלא שהפעם האובייקט נוצר באמצעות CreateObjectומושם לתוך משתנה מסוג
Object
- 112אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
.1
.12
.11
.11
קבע את ה:Start Up Project-
לפני שתנסה להריץ את הפרוייקט עליך לקבוע איזה פרוייקט יופעל על ידי Visual Basic
בחלון ה Project Explorer-לחץ לחיצה ימנית על הפרוייקט .TestLibבתגובה יוצג תפריט מוקפץ שהאפשרות
הראשונה בו היא .Set As Start Upבחר באפשרות זו.
שים לב ש Visual Basic-הדגישה את שם הפרוייקט
בחינה ראשונה של הפרוייקט:
הרץ את התוכנית באמצעות F5ובחן את פעולתה
בחינה שניה של הפרוייקט:
בטל את ה Reference-לספרייה SecurityLibעל ידי הסרת סימן ה V-מתיבת הדו שיח .References
(לפתיחת תיבת דו שיח זו בחר ב References-מתוך התפריט )Project
נסה להריץ את הפרוייקט .שים לב כי לחיצה על הלחצן " Use "Set...Newתגרום לשגיאה ,ואילו שימוש
ב Use "CreateObject (...)"-ימשיך לפעול
שמור את הפרוייקטים:
החזר את ה Reference-שביטלת
שמור את הפרוייקטים
אם אתה לא הולך לישון ,השאר את הפרוייקטים פתוחים .בתרגיל הבא נעשה שימוש בקובוצת פרוייקטים זו
( Instancingיצירת מופעים)
לכל Class Moduleישנו מאפיין Instancingהמגדיר כיצד ניתן ליצור אובייקטים מסוג המחלקה
המאפיין Instancingמשפיע על אופן יצירת האובייקטים על ידי תוכנית חיצונית המשתמשת בספריית הרכיבים.
מאפיין זה אינו משפיע על אופן יצירת הרכיבים מתוך הפרוייקט עצמו.
Instancingעבור Classבפרוייקט מסוג ActiveX DLLמאפשר את הערכים הבאים:
:Privateה Class-הוא פרטי של הפרוייקט .יישומים חיצוניים אינם יכולים ליצור אובייקטים מסוג המחלקה.
יתרה מכך ,יישומים חיצוניים אינם יכולים להצהיר אפילו על משתנים מסוג המחלקה .כלומר ,ה-Class-ים הללו
פרטיים באופן מוחלט בפרוייקט ואינם מוכרים כלל מיישומים חיצוניים.
:PublicNoCreatableה Class-יהיה מוכר ביישומים חיצוניים באופן כזה שניתן להצהיר על משתני ייחוס מסוג
האובייקט הזה .עם זאת ,יישומים חיצוניים אינם יכולים ליצור בעצמם אובייקטים מסוג המחלקה.
:MultiUseכל האובייקטים הנוצרים על ידי יישום חיצוני משתתפים בעותק אחד של ה .Class-ברור שעבור
המשתנים הפנימיים של ה Class-נוצרים העתקים עבור כל יצירת אובייקט על ידי יישום לקוח ,עם זאת ,הקוד
מופיע פעם אחת.
:GlobalMultiUseזהה ל MultiUse-אלא שהיישום החיצוני אינו חייב.ליצור עותק של האובייקט .כלומר באופן
אוטומטי נוצר אובייקט כזה על ידי ספריית הרכיבים .כמו כן ,היישום יכול לפנות לפונקציות של המחלקה ללא
הקדמת שם אובייקט .אם לדוגמה קיימת מחלקה בשם CStatisticsהכוללת את הפונקציה ,StdDevאפשר
להשתמש בפונקציה פשוט על ידי רישום ) StdDev(...כאילו היה מדובר בפונקציה גלובלית.
שים לב :בכל פרוייקט ActiveXחייב להיות לפחות Classאחד הניתן ליצירה
תרגיל – 2שינוי המאפיין Instancingבמחלקה CLogin
בתרגיל זה ננסה את האפשרות GlobalMultiUseבמקום MultiUse
.1פתח את קבוצת הפרוייקטים :grpSecurity.vbg
אם סגרת את קבוצת הפרוייקטים grpSecurityתוכל לפתוח אותה מתוך הסייר על ידי לחיצה כפולה על שם
הקובץ grpSecurity.vbg
.1שנה את המאפיינן :Instancing
שנה את המאפיין Instancingשל המחלקה CLoginלGlobalMultiUse-
שמור את הפרוייקט
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX DLL :11
.3בחינה ראשונה:
הרץ את הפרוייקט
שים לב שהכל פועל כרגיל
.1בחינה שניה:
הוסף CommandButtonנוסף לטופס שנה את שמו ל cmdUseGlobal-ואת הכותרת שלו ל"Use Global"-
הוסף את הקוד הבא בתגובה ללחיצה על :cmdUseGlobal
)(Private Sub cmdUsetGlobal_Click
If ShowLogin() Then
"!MsgBox "You are succesfull logged in
Else
"!MsgBox "Login Failed
End If
End Sub
שים לב כי הפונקציה ShowLoginמופעלת כאילו הייתה פונקציה גלובלית .דבר זה מתאפשר הודות להגדרת
CLoginכ .GlobalMultiUse-במקרה זה נוצר עבורנו אובייקט מסוג CLoginבעת שהתוכנית מופעלת
והפונקציות שלה נחשפות באופן אוטומטי .כמו כן שים לב שאתה יכול לרשום SecurityLib.ShowLogin
כאילו מדובר בפונקציה גלובלית של הספרייה
.1שמור את קבוצת הפרוייקטים:
מתוך התפריט Fileבחר בSave-
אם עדיין לא נרדמת אז תיאר ער עוד קצת .בתרגיל הבא נסיים את העבודה על קבוצת הפרוייקטים הזו.
הגדרת כתובות בסיס לרכיבי DLL
רכיב ( DLLכפי שהוסבר בתחילת השיעור) נטען לתוך ה Address Space-של תוכנית הלקוח
בעת קימפול הרכיב ,קריאות לפונקציות מתפרשות לפי כתובות הפונקציות .לדוגמה ,אם נניח שפונקציה מסוימת
נמצאת במרחק ( &H00000100 )Offsetמתחילת ה DLL-ואותו DLLקומפל מתוך הנחה שייטען לכתובת
&H11000000בתוכנית הלקוח (זוהי כתובת הבסיס) ,אזי כתובת הפונקציה לאחר הקימפול תהיה
( &H11000100כתובת בסיס +כתובת היסט)
כאשר תוכנית משתמשת במספר -DLLים סביר מאוד ששני -DLLים או יותר ינסו להיטען לאותה כתובת בסיס
אם DLLמנסה להיטען לכתובת בסיס שנתפסה כבר על ידי DLLאחר ,מערכת ההפעלה Windowsמקצה כתובת
בסיס ייחודית עבור הרכיב כדי למנוע התנגשויות .בנוסף ,מערכת ההפעלה משנה את הכתובות כך שיתאימו
לכתובת הבסיס החדשה .פעולה זו נקראת .Rebasingשינוי כתובות הבסיס כרוך בזמן טעינה ארוך יותר.
ניתן להגדיר את כתובת הבסיס שלפיה יתבצע קימפול הרכיב מתוך הכרטיסייה Compileבתיבת הדו שיח
Project Properties
כתובת ברירת המחדל היא &H11000000ומומלץ לשנות אותה ,כיוון שסביר להניח שישנם לא מעט רכיבים
שכתובת זו מוקצת עבורם
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
בעת הגדרת כתובת בסיס זכור את הכללים הבאים:
oעל כתובת הבסיס להיות כפולה של ( 64Kבהקצהדצימלית ,)&H10000כלומר ארבע הספרות האחרונות
של כתובת הבסיס יהיו .0000
Address Space oשל Processכולל 4Gכתובות .עם זאת ,הכתובות הבאות שמורות עבור מרכיבים שונים
של :Windows
ב Windows NT/2000-וכן ב ,Windows 98-רצץ הכתובות בין ( 2Gהכתובת )&H80000000
לבין ( 4Gהכתובת )&HFFFFFFFFשמורות עבור Windows
ב Windows98-רצף הכתובות המתחילות ב &H00000000-לבין ( &H0040000כלומר 4M
הזיכרון התחתון) שמור גם הוא לWindows-
ב 64k WindowsNT/2000-הזיכרון התחתון (כלומר הרצף )&H00000000-&H00010000
שמור למערכת ההפעלה ,וכן 64Kמתחילים ברצף &H7FFF0000עד )&H80000000
oאני ממליץ לשנות את כתובת הבסיס כך שתהיה כפולה של 64Kבין הכתובת &H40000000לבין
( &H80000000כלומר בין 1Gל)2G-
תרגיל – 1שינוי כתובת הבסיס לספרייה Securi tyLib
בתרגיל זה נשנה את כתובת הבסיס לטעינת הDLL
.1פתח את קבוצת הפרוייקטים שכתבנו בתרגילים הקודמים
.1בחר בפרוייקט :SecurityLib
מתוך קבוצת הפרוייקטים המוצגים בחלון ה Project Explorer-בחר בSecurityLib-
.3שנה את כתובת הבסיס:
בחר באפשרות SecurityLib Properties...מתוך התפריט Project
עבור לכרטיסייה Compile
בשדה DLL Base Addressהמופיע בתחתית תיבת הדו שיח שנה את הכתובת לערך &H80000000ולחץ
.OKאתה אמור לקבל הודעה כי כתובת זו אינה חוקית .נסה את הכתובות הבאות:
כתובת 0אינה חוקית
&H00000000 o
כתובת שאינה כפולה של 6kKאינה חוקית (בכתובות שהן כפולה של 64K
&H40001000 o
ארבע הספרות הימניות הן )0
כתובת חוקית
&H4001000 o
שמור את הפרוייקט:
שמור את הפרוייקט וסגור אותו
טיפול בשגיאות ברכיב
בעת יצירת רכיב שים לב שעל הרכיב שלך לטפל בכל השגיאות העלולות להתרחש במהלך החיים שלו
שגיאה המתרחשת ברכיב ואינה זוכה לטיפול תגרום לקריסת תוכנית הלקוח (חשוב איך יגיבו המשתמשים של
הרכיב שלך ברגע שהם יגלו שאתה הוא הבאג שלהם!!!)
תוכל לטפל בשגיאות הן ע"י פתרון הבעיה בתוך הרכיב או ע"י שיגור שגיאה (מותאמת אישית או המקורית) החוצה
אל תוכנית הלקוח
כדי להקצות מספר לשגיאה מותאמת אישית עליך להוסיף מספר בין 512ל 65535-לקבוע vbObjectError
תוכל לעורר את השגיאה באמצעות המתודה Raiseשל האובייקט Err
שים לב ,אם בתוך הרכיב שלך מתבצע טיפול בשגיאות ואתה רוצה לעורר שגיאה ללקוח ,קרא תחילה לOn Error -
,GoTo 0כדי לבטל את מטפל השגיאות הפעיל
שים לב :אל תנסה לעורר שגיא ללקוח מתוך אירוע השייך לאובייקט .לשגיאה כזו אין מקום לכידה בתוך תוכנית
הלקוח ,ולפיכך היא תקרוס.
- 113אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX DLL :11
תרגיל : 4ספריית הרכיב ים DynamicArray
בדוגמה זו ניצור ספריית רכיבים בשם DynamicArrayשתכיל רכיב אחד בשם CDynamicArray
בשונה מהתרגיל הקודם ,בתרגיל זה נקמפל את ה DLL-ונטען אותו לתוכנית שניה.
רכיב זה ישמש כמערך דינמי המשנה את גודלו באופן אוטומטי כאשר מכניסים איבר באינדקס מסוים שאינו
מוקצה באותו שלב במערך
האינדקסים במערך רצים מ 2-עד ( n 1כאשר nהוא גודל המערך)
ניסיון לגשת לאינדקס שלילי יגרום לשגיאה
ניסיון לקריאה ( )Property Getשל איבר באיננקס שעדיין לא הוקצה גורם לשגיאה
שים לב כי הרכיב מטפל בכל השגיאות ,ע"י פתרון שלהם (כמו שינוי ממדי המערך) או העברה שלהם החוצה ,אל
רכיב הלקוח
בשיעור הקודם הכרנו את אפשרות הגדרת התכונות עבור פרוצדורות של מחלקה .בתרגיל זה נשתמש באפשרות זו.
.1צור פרוייקט חדש מסוג ,ActiveX DLLושמור אותו:
הקצה לפרוייקט את השם DynamicArrayולמחלקה CDynamicArray
שמור את הפרוייקט
.2הוסף משתנים למחלקה:
המחלקה תכיל מערך דינמי פנימי
Private m_anValues() As Integer
.3הוסף את המאפיין :Count
המאפיין Countמחזיר את גודל המערך (אחד מעל האינדקס האחרון במערך) תוך שימוש בפונקציות
LBoundוUBound-
אם לא הוקצו איברים למערך תתרחש שגיאה .לוכדים שגיאה זו כדי להחזיר גודל מערך 0
Public Property Get Count() As Integer
On Error GoTo Err_Handler
Count = UBound(m_anValues) - LBound(m_anValues) + 1
Exit Property
Err_Handler:
Count = 0
End Property
.1הוסף את השגרה :Clear
השגרה Clearמשחררת את הזיכרון שהוקצה עבור המערך תוך שימוש במילה השמורה Erase
)(Public Sub Clear
Erase m_anValues
End Sub
.1הוסף את המאפיין :Item
המאפיין Itemמקבל אינדקס במערך ומאפשר לאחזר או לקבוע את ערכו
כאשר מעבירים מספר פרמטרים ל Property Let-הפרמטר האחרון יהווה את סוג המאפיין
יש להקפיד שכל הפרמטרים (מלבד האחרון ב )Property Let-שב Property Get-וב Property Let-יהיו זהים
בסוגם ובשמם)
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
Public Property Get Item(ByVal n As Integer) As Integer
On Error GoTo Err_Handler
)Item = m_anValues(n
Exit Property
Err_Handler:
Err.Raise Err.Number
End Property
)Public Property Let Item(ByVal n As Integer, ByVal value As Integer
On Error GoTo Err_Handler
m_anValues(n) = value
Exit Property
Err_Handler:
If n > 0 Then
)ReDim Preserve m_anValues(n
Resume
Else
Err.Raise Err.Number
End If
End Property
.1הוסף תיאורים לממשק המחלקה:
בעת שימוש באובייקטים ניתן לבחון את מאפייניהם תוך שימוש ב( Object Browser-ניתן לפתוח את
ה Object Browser-באמצעות F2או מתוך תפריט )View
מתוך התפריט Toolsבחר בProcedure Attributes-
מתוך התיבה Nameבחר ב Clear-והקלד את התיאור הבא בשדה :Description
Free the memory occupied by the array.
באופן דומה הוסף את התיאור הבא למאפיין :Count
Returns the number of items in the array.
ואת התיאור הבא למאפיין :Item
Sets/Returns the value of an item in the array.
אל תסגור את חלון ה Procedure Attributes-אתה צריך אותו לשלב הבא
הגדר את Itemכמאפיין ברירת מחדל:
להזכירך ,מאפיין ברירת מחדל הוא המאפיין שיופעל במקרה שלא צוין במפורש שם מאפיין (לדוגמה ,המאפיין
Textהוא מאפיין ברירת המחדל של )TextBox
בחר במאפיין Itemבתיבה Nameולחץ על הלחצן Advanced
כעת ,כדי להפוך את Itemלמאפיין ברירת מחדל ,ב Procedure ID-בחר ב)Default(-
.1בצע קומפילציה לספריית הרכיבים:
מתוך התפריט Fileבחר ב...Make DynamicArray.dll-
התוכנית תקומפל ו Visual Basic-תרשום את הרכיב באופן אוטומטי במערכת
אם התגלו שגיאות ,תקן אותן וקמפל מחדש את הפרוייקט
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX DLL :11
.1
.1
.12
.11
צור תוכנית לקוח לבחינת ספריית הרכיבים:
הפעל את Visual Basicמחדש ופתח פרוייקט Standard EXE
הקצה לפרוייקט את השם TestDArrayולטופס שבו את השם frmTestDArray
שמור את הפרוייקט
הוסף הפנייה לספריית הרכיבים:
מתוך התפריט Projectבחר בפריט References
סמן Vליד הספרייה ( DynamicArrayשים לב שלא היית צריך לבצע רישום של הרכיב ,כי Visual Basic
ביצעה זאת עבורך בעת קימפול הספרייה בשלב )1
שים לב :אם תרצה לערוך ולאחר מכן לקמפל את ה DLL-כאשר יש הפניה אליו מתוך הפרוייקט ,TestDArray
יהיה עליך להסיר את ההפניה כדי שהקמפול יצליח.
בחינה ראשונה :ה:Object Browser-
פתח את ה Object Browser-מתוך התפריט Viewאו ע"י שימוש בקיצור F2
בחר ב CDynamicArray-ועיין במאפיינים והמתודות המוצגים בפנל הימני של החלון
שים לב שתיאור המאפיינים והמתודות מופיע בתחתית החלון של הObject Browser-
שים לב כי ליד סמל המאפיין Itemמופיע עיגול כחול קטן המעיד כי זהו מאפיין ברירת המחדל
סגור את חלון הObject Browser-
הוסף Controlsלטופס:
הוסף Controlsלטופס כפי שמוצג בציור הבא:
.11הוסף קוד לטופס:
הקוד הבא מצהיר על אובייקט מסוג CDynamicArray
Private m_DArray As DynamicArray.CDynamicArray
הוסף קוד לטופס:
הקוד הבא מאתחל את ממשק המשתמש ויוצר Instanceשל :CDynamicArray
)(Private Sub Form_Load
' Initializations:
"Me.Caption = "Test Dynamic Array
"" = txtIndex.Text
"" = txtValue.Text
"cmdGet.Caption = "&Get
"cmdLet.Caption = "&Let
"cmdCount.Caption = "&Count
"cmdClear.Caption = "Clea&r
' Create the dynamic-array class
Set m_DArray = New CDynamicArray
End Sub
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
.13הוסף קוד לטופס:
הקוד הבא פועל בתגובה ללחיצה על אחד הלחצנים
שים לב שאין חובה לציין במפורש את המאפיין Itemבעת השימוש בו ,כיוון שזהו מאפיין ברירת המחדל.
כלומר הרישום m_DArray(1) = 100כמוהו כרישום m_DArray.Item(1) = 100
)(Private Sub cmdClear_Click
m_DArray.Clear
End Sub
)(Private Sub cmdCount_Click
"MsgBox "The array contains " & Str(m_DArray.Count) & " items
End Sub
)(Private Sub cmdGet_Click
)))txtValue.Text = Str(m_DArray(Val(txtIndex.Text
End Sub
)(Private Sub cmdLet_Click
)m_DArray(Val(txtIndex.Text)) = Val(txtValue.Text
End Sub
בחינה שניה :הרצת הפרוייקט:
הרץ את התוכנית ובצע את הפעולות הבאות (לפי הסדר)
לחץ על :Countאתה צריך לקבל 0
לחץ על :Getאתה אמור לקבל שגיאה .זוהי השגיאה שהרכיב מעורר כשמנסים לקרוא פריט שאינו קיים (עיין
בקוד הרכיב לפרטים נוספים)
הרץ שוב את הפרוייקט והזן ערך למערך .בשדה Indexבחר באינדקס המתאים ובשדה Valueבחר בערך עבור
אותו פריט לאחר מכן לחץ .Letבאופן זה הזן מספר ערכים
השתמש ב Get-כדי לאחזר את הערכים הללו
השתמש ב Count-כדי לקבל את מספר האיברים החדש במערך
השתמש ב Clear-כדי לרוקן את המערך
נסה להזין ערך למערך באינדקס שלילי כלשהו ,אתה אמור לקבל שגיאה שהרכיב מעורר (עיין בקוד הרכיב
לפרטים נוספים)
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :11כתיבת Stored ProceduresבSQL Server-
בשיעור זה:
תבין מהם Stored Proceduresותלמד כיצד להוסיף Stored Procedureל Database-של SQL Server
תלמד לכתוב Stored Procedureהמקבלים פרמטים
תכיר מבני בקרה שונים בTransact SQL-
STORED PROCEDURES
Stored Procedureהיא פרוצדורה המאוחסנת בתוך הDatabase-
Stored Procedureיכול לקבל פרמטרים ולפיכך יכול לשמש לבקשות שונות
Stored Procedureמקומפל בתוך ה Database-ולפיכך כל תהליך ה( Parsing-ניתוח המשפט)בניית הExecution -
( Planמסלול הביצוע) נחסכים
כדי להבין את היתרון שבהפעלת Stored Procedureמתוך תוכנית לקוח לעומת בניית משפט SQLושליחתו
לביצוע ל Database-על ידי תוכנית לקוח ,נבחן את תהליך הביצוע בשני המקרים על ידי ה:Database-
תהליך הביצוע של משפט SQLהנשלח על ידי לקוח
נניח כי תוכנית לקוח יוצרת את משפט ה SQL-הבא ושולחת אותו לביצוע ב:Database-
* SELECT
FROM Employees
WHERE EmployeeID = 10
.1
.1
בתוך ה:Database-
מתבצע ניתוח סינטקטי (תחבירי) של המשפט
קיום הטבלה Employeesנבדק ,כמו כן נבדקות הרשאות הגישה לטבלה זו על ידי המשתמש המפעיל את משפט
הSQL-
נוצר Execution Planעבור משפט הSQL-
( Execution Planהיא תוכנית הביצוע של משפט ה SQL-הכוללת הנחיות כיצד יש לסרוק טבלאות כדי לאתר את
הרשומות ,האם יש להשתמש באינדקסים ,בצירוף טבלאות ,כיצד יש למזג את הטבלאות וכו')
משפט ה SQL-מופעל והתוצאות מוחזרות למשתמש
נניח שאותו משפט SQLנשלח שוב על ידי תוכנית הלקוח
ב Database-ישנו אזור זיכרון הכולל את משפטי ה SQL-האחרונים שהורצו וכן אזור נוסף הכולל את הרשומות
האחרונות שהתקבלו כתוצאהמהפעלת משפטי . SQLאם התמזל מזלך ,משפט ה SQL-יימצאו בתוצאות עבור
שאילתה זו ,או לפחות המשפט עצמו .במקרה כזה ,חלק מהשלבים שצוינו קודם יחסכו
אם המשפט אינו נמצא בין המשפטים האחרונים שבוצעו (זה יקרה אם עבר זמן רב מאז הרצת המשפט ,כי אז
אזורי הזכרון הללו פינו את מקומם למשפטים חדשים .ככה זה בשיטת )LRUכל השלבים שתוארו קודם יבוצעו
שוב
נניח שהמשפט הבא נשלח על ידי תוכנית הלקוח:
לכאורה נראה כי שני משפטי ה SQL-זהים רק התנאי שונה ,ובכל זאת אלו הם שני משפטי SQLשונים לגמרי וכל
התהליך שבוצע קודם יבוצע שוב עד להחזרת הרשומות לתוכנית הלקוח .מדוע? כיוון שלכל משפט SQLהרץ
.3
.1
* SELECT
FROM Employees
WHERE EmployeeID = 18
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :11כתיבת Stored ProceduresבSQL Server-
תהליך הביצוע של בקשה ל הפעלת Stored Procedureמתוך תוכנית לקוח
נניח כי ב Database-מאוחסנת פרוצדורה בשם GetEmployeeהמקבלת כפרמטר מספר המזהה את מספר העובד
()EmployeeID
תוכנית הלקוח שולחת בקשה לקבל את פרטי העובד שמספרו 10
בתוך ה:Database-
.1נבדק כי הפרמטר שהועבר תקין
.1מופעלת הפרוצדורה (שים לב כי הפרוצדורה כבר מקומפלת ואין צורך לקמפל אותה מחדש ,לפיכך כל השלבים
שתוארו במקרה הקודם נחסכים)
כעת נניח כי תוכנית הלקוח מבקשת את פרטי העובד שמספרו .18בקשה כזו לא תיחשב כבקשה שונה מהקודמת
כיוון שמספר העובד מועבר כפרמטר לפרוצדורה
כתיבת
STORED PROCEDURESבSQL SERVER-
פרוצדורות ב SQL Server-נכתבות בTransact SQL-
Transact SQLזוהי ההרחבה של שפת SQLהסטנדרטית במערכת ( SQL Serverבדיוק כפי ש PL SQL-היא
ההרחבה של שפת SQLבמערכת )Oracle
פרוצדורה פשוטה ללא פרמטרים
CREATE PROCEDURE proc_name
AS
statements...
GO
דוגמה 1
הוספת Stored ProcedureלNorthwind-
(לקוח מתוך )Microsoft SQL Server 7 Administrator Companion
הפרוצדורה LateShipmentsמחזירה את תאריך המבוקש למשלוח ( ,)RequiredDateתאריך המשלוח בפועל
( )ShippedDateושם חברת המשלוחים ( CompanyNameמהטבלה )Shippersעבור כל אותן הזמנות שהמשלוח
הגיע באיחור
דוגמה זו לקוחה מהספר Microsoft SQL Server 7.0 Administator Companion
CREATE PROCEDURE LateShipments
AS
SELECT RequiredDate, ShippedDate, Shippers.CompanyName
FROM Orders, Shippers
=
WHERE ShippedDate > RequiredDate AND Orders.ShipVia
Shippers.ShipperID
GO
הפעלת הפרוצדורה ב:Query Analyzer-
oאם זהו המשפט הראשון שמופעל מתוך סדרת משפטים ,ניתן לרשום:
LateShpments
- 112אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
:אם זהו אינו המשפט הראשון יש לרשום
EXECUTE LateShipments
או
EXEC LateShipments
פרוצדורה המקבלת פרמטרי ם
CREATE PROCEDURE proce_name @parameter1 type, @parameter2 type...
AS
statements...
GO
2 דוגמה
אלא שכאן מועבר שם חברת המשלוח כפרמטר ומוצגות רק השורות של חברה זו,דוגמה זו זהה לדוגמה הקודמת
Microsoft SQL Server 7.0 Administator Companion דוגמה זו לקוחה מהספר
CREATE PROCEDURE LateShippmentsByShipperName @shipperName char(40)
AS
SELECT RequiredDate, ShippedDate, Shippers.CompanyName
FROM Orders, Shippers
WHERE ShippedDate > RequiredDate
AND Orders.ShipVia = Shippers.ShipperID
AND Shippers.CompanyName = @shipperName
GO
:Query Analyzer הפעלת הפרוצדורה מתוך
EXECUTE LateShipmentsByShipperName "Speedy Express"
הג ד רת ערך ברירת מחדל לפרמטרים
CREATE PROCEDURE proce_name @parameter1 type [= deft_val], @parameter2
type [= def_val]...
AS
statements...
GO
1 דוגמה
דוגמה זו מציבה בפרוצדורה הקודמת ערך ברירת מחדל עבור שם חברת המשלוחים
Microsoft SQL Server 7.0 Administator Companion דוגמה זו לקוחה מהספר
CREATE PROCEDURE LateShippmentsByShipperName @shipperName char(40) =
"United Package"
AS
SELECT RequiredDate, ShippedDate, Shippers.CompanyName
FROM Orders, Shippers
WHERE ShippedDate > RequiredDate
AND Orders.ShipVia = Shippers.ShipperID
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור :11כתיבת Stored ProceduresבSQL Server-
AND Shippers.CompanyName = @shipperName
GO
הפעלת הפרוצדורה מתוך :Query Analyzer
EXECUTE LateShipmentsByShipperName
"EXECUTE LateShipmentsByShipperName "Speedy Express
החזרת ערך מפרוצדורה באמצעות משת נה
CREATE PROCEDURE proce_name @parameter1 type [= deft_val] OUTPUT,...
AS
statements...
GO
דוגמה 4
בדומה הבאה ניצור פרוצדורה בשם GetUnitPrice
פרוצדורה זו מחזירה באמצעות המשתנה unit_priceאת המחיר ליחידה של מוצר שמספר הזיהוי שלו נתון
בprod_id-
דוגמה זו לקוחה מהספר Microsoft SQL Server 7.0 Administator Companion
CREATE PROCEDURE GetUnitPrice @prod_id INT, @unit_price MONEY OUTPUT
AS
SELECT @unit_price = UnitPrice
FROM Products
WHERE ProductID = @prod_id
GO
הפעלת הפרוצדורה מתוך :Query Analyzer
oיש להצהיר (באמצעות )DECLAREעל משתנה שיאוחסן בו הערך המוחזר מהפרוצדורה
oאת הפרמטר יש להעביר תוך שימוש במילה OUTPUT
oניתן להדפיס ערך באמצעות הפונקציה PRINT
oאם רוצים להמיר סוג נתונים לסוג אחר ,ניתן להשתמש בפונקציה CONVERT
DECLARE @price MONEY
EXEC GetUnitPrice 77, @price output
)PRINT CONVERT(VARCHAR(8), @price
דוגמה 3
ניתן להשתמש במשתנה הן כדי להעביר ערך לפרוצדורה והן כדי לקבל ערך מוחזר מהפרוצדורה
בדוגמה זו ניצור פרוצדורה בשם GetBossהמחזירה באמצעות emp_idאת מספר הזיהוי של המנהל של עובד
שמספר הזיהוי שלו מועבר באמצעות emp_id
בטבלת ( Employeesב )Northwind-שינו שדה בשם ReportsToהמזהה את מספר המנהל
אם מדובר במנהל הראשי ,מוחזר המספר 0
שים לב שניתן להשתמש במשפט תנאי IF...BEGIN...END
כדי להשים ערך למשתנה יש להשתמש במילה SETלפני ההשמה
CREATE PROCEDURE GetBoss @emp_id INT OUTPUT
AS
SELECT @emp_id = ReportsTo
FROM Employees
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
WHERE EmployeeID = @emp_id
IF @emp_id IS NULL
BEGIN
SET @emp_id = 0
END
GO
:Query Analyzerהפעלת הפרוצדורה מתוך ה
DECLARE @emp INT
SET @emp = 8
EXEC GetBoss @emp OUTPUT
PRINT CONVERT(VARCHAR(4), @emp)
שימוש במשתנים מקומי ים
DECLARE ניתן להצהיר על משתנים מקומיים בפרוצדורה באמצעות
6 דוגמה
) (שניצור בהמשךPupilsTBL שורות חדשות לטבלת5 הפרוצדורה הבאה מכניסה
pupil_name- וpupil_id :בטבלה זו שני שדות
WHILE...BEGIN...END בפרוצדורה נעשה שימוש בלולאה
CREATE PROCEDURE Insert5Rows @low_val NUMERIC
AS
DECLARE @loop_counter NUMERIC
SET @loop_counter = 5
WHILE @loop_counter > 0
BEGIN
INSERT INTO PupilsTBL VALUES (@low_val, "new_pupil")
SET @low_val = @low_val + 1
SET @loop_counter = @loop_counter - 1
END
GO
:Query Analyzer הרצה מתוך
CREATE TABLE... תחילה ניצור את הטבלה באמצעות המשפטo
לאחר מכן נריץ את הפרוצדורהo
SELECT לבסוף נציג את התוצאות באמצעות המשפטo
CREATE TABLE PupilsTBL (pupil_id NUMERIC(4), pupil_name NVARCHAR(20))
EXEC Insert5Rows 8
SELECT * FROM PupilsTBL
RETURN יציאה מפרוצדורה באמצעות
RETURN ניתן לצאת מפרוצדורה באופן מיידי על ידי שימוש במילה
) לתוכנית הקוראתINT( ערך מסוג שלםRETURN ניתן להחזיר באמצעות
- 113 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
SQL Server- בStored Procedures כתיבת:11 שיעור
7 דוגמה
: המקבלת מספר מוצר ומחזירה את הערכים הבאיםGetPriceCategory בדוגמה זו ניצור פרוצדורה בשם
) לפרוצדורה (זהו יהיה גם ערך ברירת המחדלNULL אם הועבר-1 o
Products אם המוצר אינו קיים בטבלה0 o
דולר20- אם מחירו של המוצר קטן מ1 o
דולר30- אם מחירו של המוצר קטן מ2 o
דולר50- אם מחירו של המוצר קטן מ3 o
בכל מקרה אחר99 o
CASE...WHEN...THEN...END לצורך הדוגמה נשתמש במשפט
CREATE PROCEDURE GetPriceCategory @prod_id INT = NULL
AS
DECLARE @price INT
IF @prod_id IS NULL
RETURN -1
SELECT
@price = UnitPrice FROM Products WHERE ProductID = @prod_id
RETURN
CASE
WHEN
@price IS NULL THEN 0
WHEN @price < 20 THEN 1
WHEN @price < 30 THEN 2
WHEN @price < 50 THEN 3
ELSE 99
END
GO
:Query Analyzer הרצה באמצעות
DECLARE @cat_id INT
EXEC @cat_id = GetPriceCategory 38
PRINT @cat_id
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
בשיעור זה:
אסקור בפניך את אפשרויות החיבור השונות מהיישום שלך ב Visual Basic-למקורות נתונים
תכיר את מודל האובייקטים של הספרייה ADODB
תכיר את המאפינים ,השיטות והאירועים של האובייקטים השונים של ADO
סקירה של טכנולוגיות הגישה לנתונים
קיימות שיטות רבות לגישה לנתונים ,החל מטכנולוגיות מבוססות ממשקי קריאות ,APIוכלה באובייקטים
וויזואליים נוחים המתממשקים למסדי נתונים
Visual Basicתומכת באפשרויות רבות המאפשרות גישה לנתונים
בסעיף זה נסקור אוסף הרכיבים הללו ,ונראה את אפשרויות החיבור השונות
הגרף הבא מתאר את היררכית האובייקטים ,הספריות ורכיבי הקוד השונים המפרידים בין יישום Visual Basic
לבין שכבת הData-
Visual Basic Application
ADO Data
Control
Data
Control
Remote Data
Control
DAO
ODBCDirect
RDO
ADO
Jet Engine
ODBC Driver Manager
MSDASQL
OLE DB
Provider
Specific ODBC Driver
Database
) Open Database Connectivity ( ODBC
ODBCמספק ממשק APIלקישור עם Databases
ODBCמהיר מאוד כיוון שהוא מבוסס ,)Call Level Interface( CLIמשתמש המפעיל פונקציות ODBC API
מנצל תקורת ( )Overheadמשאבים נמוכה יחסית ,לעומת תקורת קוד גבוהה
,ODBCהחל מגרסה ,3תומך ב .Connection Pooling-כיוון שהתחברות לשרת Databaseהא פעולה ארוכה,
ODBCמנהל חיבורים פתוחים ,כך שייתכן שבקוד שלך מתבצעת פתיחה וסגירה של חיבורים ל Databases-אך
בפועל אותו חיבור ב ODBC-משרת את כל החיבורים שלך
בעת התחברות ,נבחר ה Driver-הספציפי המותאם לעבודה עם ה Database-הספציפי
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
המידע אודות ה ,Database-מיקומו ,אופן ההתחברות אליו ,שם המשתמש והסיסמה המשמשים בהתחברות אליו,
שם ה Driver-המשמש לתקשורת עמו ועוד נשמרים ב)Data Source Name( DSN-
ניתן ליצור DSNמתוך ה ,Control Panel-או מתוך הקוד של התוכנית
קיימים שלושה סוגים של :DSN
DSN :User DSN oהזמין לאותו משתמש בלבד
DSN :System DSN oהזמין לכל המשתמשים במערכת ,כולל שירותי IIS( NTממומש כשירות NT
ולפיכך יש לשתף Databasesשאמורים להשתמש בשירות זה)
DSN :File DSN oהמאפשר לשמור את ההגדרות בקובץ (עם הסיומת ,)*.dsnכך שמשתמשים ברחבי
הרשת יכולים לשתף אותו בניהם ,בתנאי שיש להם Driversמתאימים
הערה :בשני הסוגים הראשונים המידע מאוחסן בRegistry-
כרטיסיות ODBCבControl Panel-
הערה :ב Win2k-יש להיכנס ל Administration Tools-ומשם לפתוח )Data Sources (ODBC
:User DSNכרטיסייה ליצירת DSNשל משתמש ספציפי
:System DSNהכרטיסייה ליצרית DSNשל מערכת
:File DSNהכרטיסייה ליצירת DSNהנשמר בקובץ
:Driversמציג את רשימת ה Drivers-המותקנים ומידע נוסף לגביהם
:Tracingמאפשר לבצע מעקב אחר פעולות ה ,ODBC-כולל הפעלה משולבת יחד עם Visual Studio Analyzer
המאפשר ביצוע אבחון ברשת של פעולות היישום
:Connection Poolingמאפשר לקבוע את הגדרות ה Connection Pooling-עבור ה Drivers-הספציפיים
השונים של ODBC
) Data Access Object ( DAO
DAOהוא ממשק תכנות מונחה עצמים הפועל על גבי מנוע ( Jetמנוע Jetהוא מנוע ה Databases-היוצר ומנהל
קובצי *.mdbהמוכרים מ)Access-
DAOעוצב והותאם המיוחד לעבודה מול Databasesשל Access
ניתן לגשת לטבלאות מכל Databaseשקיים עבורו ,ODBC Driverבאמצעות שיטת הטבלאות המקושרות של
Access
חסרון השימוש במנוע Jetהוא בכך שכולו נטען לזכרון ,גם אם עובדים עם Databaseמסוג שונה מ*.mdb-
DAOאינו חושף את כל היכולות של ODBC API
DAOלא פותחה רבות מאז גרסת ,3.5וככל הנראה Microsoftרואה את העתיד כשייך לADO-
) Data Control ( DC
Data Controlהוא פקד סטנדרטי של Visual Basic
זהו ממשק וויזואלי המאפשר חיבור לDatabase-
Data Controlמהווה ממשק וויזואלי (לא כ"כ מתוחכם) לDAO-
ניתן לכרוך פקדים ( )to bindלמקורות מידע המסופקים ע"י הData Control-
כריכת פקדים היא פעולה שהופכת את היישום לדו שכבתי (שכבת תוכנית המשתמש ושכבת ה ,)Database-ולפיכך
קיימים בכך חסרונות עיצוב רבים
) Remote Data Object ( RDO
RDOמשלב את הפשטות של DAOעם הכוח של ODBC
RDOמדלג על מנוע Jetמה שמשפר את הביצועים באופן ניכר
RDOעוצב המיוחד לעבודה מול ODBC API
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
הגרסה האחרונה של RDOהיא ( 2.0והיא דיי ישנה) ,כך שניתן להסיק ש Microsoft-דוחפת אותנו "בגסות"
לכיוון הADO-
) Remote Data Control ( RDC
Remote Data Controlהוא פקד וויזואלי הדומה בתפקודו ל Data Control-הסטנדרטי של Visual Basic
כל היתרונות והחסרונות של הפקד Data Controlקיימים גם בRemote Data Control-
ההבדל בין Data Controlל Remote Data Control-הוא בשכבת הביניים .עבור DCזהו אובייקט DAOואילו
עבור RDCזהו אובייקט RDO
ODBCDirect
ODBCDirectהוא מצב פעולה של DAOהטוען את רכיב RDOבמקום מנוע Jet
כדי להפעיל אובייקט DAOבמצב ODBCDircetיש לרשום:
DBEngine.DefaultType = dbUseODBC
במקרה של מצב פעולה של ,ODBCDirectניתן לנצל את יתרונות ODBCואת פשטות הקוד של DAO
OLE DB
OLE DBמגדיר ממשקי COMסטנדרטיים שעל כל OLE DB Providerלתמוך בהם ,כדי שצרכני ()Consumers
מידע יוכלו להתקשר אליו באמצעות ממשקים אלו
התחברות ישירה יכולה להתבצע דרך קוד הכתוב בשפת Cמבוסס על קריאות ,COM APIהתחברות באופן כזה
מתוך קוד Visual Basicהיא כמעט בלתי אפשרית לשם כך קיימים רכיבי ADOשנכיר ונתמקד בהם בפרק זה
יתרונה הגדול של טכנולוגיה זו הוא בתמיכה בסוגי מידע שונים ולאו דווקאב-Database-ים רגילים
באמצעות OLE DBניתן לגשת למידע שבכל קובץ נתונים ,מסוג כלשהו ,כולל מסמך ,Excelהודעת דואר ועוד,
ובתנאי שקיים עבורו OLE DB Providerמתאים
השכבה היחידה שחוצצת בין ה Database-לבין היישום ,הוא .OLE DB Providerכיוון שברכיב זה קיימת
תמיכה בממשקי COMהדרושים ,אין צורך בשכבה מפרידה כמו בODBC-
הנתונים שאליהם ניתן לגשת ב OLE DB-הם כל הנתונים תומכי COMולא רק נתונים סטנדרטיים של SQL
) ActiveX Data Objects ( ADO
ADOהוא ממשק עילי לOLE DB-
כיאה לממשקי ADO ,COMתומך ב OLE DB Provider-המציעים ממשקים נוספים המרחיבים את יכולת
פעילותו של ADO
הפונקציונליות של ADOאינה ממוקמת ב DLL-יחיד ,אלה במספר -DLLים .לכן אין צורך להפיץ את כל
ה-DLL-ים למשתמש הקצה אם אין שימוש בפונקציונליות של כולם
ניתן להשתמש ב ADO-מתוך קוד HTMLוASP-
תת מערכת של ADOבשם Remote Data Servicesמאפשר שליחת רשומות ל Client-ברחבי הרשת ,ואפילו
הפעלת COM Componentsאצל הClient-
MSDASQL
MSDASQLהוא אחד מה-Proveder-ים של OLE DB
הייחוד ב MSDASQL-הוא בכך שהוא מהווה Providerמתאם בין OLE DBלODBC-
הצורך ב MSDASQL-קיים ,כיוון שישנם -DBMSים שעדיין לא פותח עבורם OLE DB Providerמתאים
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
) ADO Data Control ( ADODC
ADODCהינו אובייקט וויזואלי הדומה בעיקרו ל DC-ול ,RDC-אם כי ADODCמציג מספר שיפורים לעומת
DCוRDC-
ADODCמשתמש ב )OLE DB( ADO-כשכבת הביניים להתקשרות מול מקור הנתונים
תרגיל Nwi ndDSN – 1
בדוגמה זו ניצור DSNבאמצעות לוח הבקרה של Windows
.1פתח את חלון :ODBC Data Source Administrator
פתח את הControl Panel-
בWindows 2000-מתוך ה Control Panel-בחר בAdministrative Tools-
בחר ב ( ODBC-או ) Data Sources (ODBCב)Windows 2000-
.1הכר את הכרטיסיות השונות ביישום :ODBC Data Source Admiistrator
לפני שניגש להגדרת ה DSN-בתרגיל זה ,נכיר את הכרטיסיות השונות
הכרטיסיה :User DSN
בכרטיסייה User DSNאתה יכול להוסיף ( DSN )Add...חדש השייך למשתמש בנוכחי בלבד במערכת ( User
,)DSNולהגדיר ( )Configure...את המאפיינים שלו ,או להסיר User DSNקיים
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
הכרטיסיה :System DSN
בכרטיסייה System DSNניתן לבצע את אותם הפעולות כמו ב ,User DSN-אלא שה-DSN-ים הנוצרים
ומוגדרים בכרטיסייה זו יהיהו זמינים לכל משתמשי המערכת ()System DSN
הכרטיסיה :File DSN
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
בכרטיסייה File DSNתוכל ליצור -DSNים חדשים ולהגדירם ,כמו גם להסיר -DSNים קיימים .ה-DSN-ים
הנוצרים בכרטיסיה זו נשמרים בקבצים ()File DSN
File DSNנשמרים בדרך כלל בספרייה .C:\Program Files\Common Files\ODBC\Data Sourcesאם
תרצה לשנות את מיקום קובץ ה DSN-שאתה יוצר יהיה עליך ללחוץ על Set Directoryלאחר המעבר
לספרייה המתאימה
הכרטיסיה :Drivers
בכרטיסיה Driversמוצגים ה-Driver-ים השונים של ODBCהמותקנים במערכת והפרטים הבאים עבור כל
:Driver
:Version oמספר הגירסה של הDriver-
:Company oשם החברה המייצרת
:File oשם קובץ ה DLL-של הDriver-
:Date oהתאריך האחרון בו שונה הקובץ
- 112אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
הכרטיסיה :Tracing
בכרטיסיה Tracingתוכל להפעיל מעקב אחר פעולות ODBCשיירשמו בקובץ ששמו נתון בשדה Log file
.Pathאפשרות זו יכולה לסייע כשעובדים באופן ישיר או עקיף (באמצעות ADOלמשל) יחד עם .ODBC
תוכל גם להפעיל את Visual Studio Analyzerכדי לאבחן פעולות של היישום שלך ברחבי הרשת .בשדה
Custom Trace DLLתוכל לבחור DLLאחר שינהל את פעולות המעקב ,אן קיים אחד כזה ברשותך
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
הכרטיסיה :Connetion Pooling
בכרטיסייה Connection Poolingתוכל להגדיר את ההגדרות הבאות:
:Connetion Pooling Timeout oבשדה זה אתה מגדיר את משך הזמן שבו יישארו
-Connectionים בזיכרון לאחר סגירתם .המטרה בהשארת -Connectionים בזכרון ה Pooling-היא
לחסוך את זמן ההתחברות בעת יצירת חיבורים חדשים על ידי אותה תוכנית אם קיימים חיבורים
פנויים המתאימים לדרישות החיבור החדש של התוכנית .כדי לשנות הגדרה זו עבור Driverמסוים,
עליך להקליק על שמו ולהתאים את ההגדרות בתיבת הדו שיח המתקבלת (מוצגת להלן):
:)Performance Monitoring( PerfMon oסימון אפשרות זו מאפשר מעקב אחר ביצועי
ה Connection Pooling-של כל ה-Driver-ים
:Retry Wait Time oכאשר ניסיון התחברות למערכת ניהול -Databaseים נכשלת ,מתבצע ניסיון
נוסף .משך הזמן בשניות בין ניסיון אחד למשנהו מוגדר בשדה זה
מומלץ שלא לשנות ההגדרות של ה Connection Pooling-אלא אם אתה מודע למשמעות השינויים שאתה
מבצע
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
.3
.1
.1
.1
.1
.1
הכרטיסיה :About
בכרטיסייה Aboutתוכל לצפות במידע אודות קובצי הליבה ( )Coreהמנהלים את תת המערכת ODBCתחת
מערכת ההפעלה
הוסף :DSN
וודא שהכרטיסייה UserDSNנבחרה
לחץ על Add
בחר ב Driver-המתאים:
מתוך רשימת ה-Driver-ים המוצעים בחר בSQL Server-
לחץ על Finish
הקצה שם ל:DSN-
בשדה Nameהקצה את השם NwindDSN
הקצה תיאור ל:DSN-
בשדה Descriptionרשום DSNאם Northwind Database
קבע את מיקום ה Server-ברשת:
בשדה Serverבחר מהרשימה הנפתחת או הקלד ידנית את שם המחשב ברשת שבו נמצאת מערכת הSQL -
Serverשאליה תרצה להתחבר באמצעות DSNזה (אם מערכת ה SQL Server-מותקנת במחשב המקומי
ושמו אינו מוצג ברשימה הנפתחת ,תוכל להשתמש גם בכתובת ה)127.0.0.1 :IP-
בחר את שם המשתמש והסיסמה באמצעותם תתחבר ל:SQL Server-
אם שם מערכת ה SQL Server-אליה אתה מתחבר מאפשרת כניסה באמצעות שם המשתמש והסיסמה של
,Windows NT/2000אזי תוכל לבחור באפשרותWith Windows NT Authentication...
תוכל לבחור באפשרות With SQL Server Authentication...ובתחתית החלוןהקלד את שם המשתמש
והסיסמה באופן מפורש
- 113אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
בדוגמה זו הקלד saעבור שם המשתמש והשאר את הסיסמה ריקה (בעת התקנת SQL Serverנוסף באופן
אוטומטי מנהל מערכת בשם saללא סיסמה ,אם שינית את הסיסמה התאם את השדה Passwordבהתאם)
לחץ על Next
.1בחר ב Database-אליו תרצה להתחבר:
סמן Vב Change the default database to:-ומתוך הרשימה הנפתחת בחר Northwind
לחץ על Next
.12סיים את הגדרת ה:DSN
השאר את ההגדרות במסך האחרון ללא שינו ולחץ על Finish
)ACTIVEX DATA OBJECTS( ADO
כאמור ADO ,הוא ממשק עילי לOLE DB-
בסעיף זה נסקור את מודל העצמים של ADOונלמד להשתמש בכל אחד מהאובייקטים הללו
כדי לכלול את ספריית ADOבפרוייקט Visual Basicבצע את השלבים הבאים:
.1פתח את החלון Referencesעל ידי בחירת האפשרות Referencesמהתפריט Project
.1הוסף הפנייה לספרייה .Microsoft ActiveX Data Objects 2.7ייתכן שבמחשב שלך הגרסה 2.7לא תופיעה,
או שתופיעה גרסה מתקדמת יותר .בכל מקרה מומלץ לבחור בגרסה המעודכת היותר של הספרייה.
התרשים הבא מציג את היררכית ה-Object-ים וה-Collection-ים שבספרייה ( ADODBהספרייה ADODBהיא
הספרייה המכילה את האובייקטים של :)ADO
ADODB
Connection
Error
Errors
Property
Properties
Command
Parameter
Parameters
Property
Properties
Recordset
Field
Property
Fields
Properties
Property
Properties
מקרא:
( Libraryספרייה)
( Collectionאוסף)
( Objectאובייקט)
בהמשך השיעור נתעכב על כל אחד מהאובייקטים והאוספים הללו
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
Data Link
בדומה ל Data Link ,DSN-מהווה את אוסף הפרטים הנחוצים לשם פניה למקור נתונים על ידי אובייקט ADO
Data Linkהוא קובץ טקסט הכולל פרטי מידע אודות שם ה Provider-באמצעותו ניגשים למקור הנתונים ,שם
מקור הנתונים ומיקומו ועוד.
בעת בחירת Providerמשתנים הפרטים הנוספים הנדרשים לפי סוג ה .Provider-כך למשל אם בחרת
ב( MSDASQL-זהו ה Provider-עבור מקור נתונים של )ODBCתידרש להזין את שם ה DSN-ולא יהיה צורך
בציון מקור הנתונים כיוון שהוא כלול כבר בתוך ה .DSN-אם ,לעומת זאת ,בחרת ב( SQLOLEDB-זהו Provider
עבור )SQLServerתידרש להזין את שם המחשב עליו מצוי ה SQL Server-ושם ה Database-אליו ברצונך לגשת.
יצירת קובץ Data Link
תחת Windows 98או :Windows NT
.1פתח את הסייר ועבור לספרייה שברצונך ליצור בה את הקובץ
.1לחץ לחיצה ימנית על העכבר במקום ריק בספריה ובחר באפשרות New
.3בחר Microsoft Data Link
.1הקצה שם לקובץ
תחת ( Windows 2000פועל גם ב Windows 98-ו:)Windows NT-
.1פתח את הסייר ועבור לספרייה שברצונך ליצור בה את הקובץ
.1לחץ לחיצה ימנית על העכבר במקום ריק בספריה ובחר בNew-
.3בחר באפשרות Text Document
.1הקצה לקובץ שם כרצונך ,ושנה את הסיומת שלו ל( .udl-אם אינך רואה את סיומת הקובץ בחר באפשרות
Folder Optionsמתוך התפריט Toolsובכרטיסייה Viewנקה את הסימון ליד Hide file Extensions for
known file typesולחץ על )OK
.1אל תתייחס לאזהרה שתתקבל כתוצאה משינוי הסיומת
לאחר שיצרת את הקובץ הקלק עליו והתאם את ההגדרות בתיבת הדו שיח Data Link Properties
בתרגילים הבאים ובסעיף העוסק באובייקט ,Connectionתכיר היטב את פרטי המידע הנחוצים לשם הגדרת
Data Linkואת משמעותם
תרגיל NWind.udl : 2
בתרגיל זה ניצור קובץ Data Linkשיכיל את הנתונים הדרושים לשם פניה לNwind.mdb-
.1צור קובץ Data Linkריק:
צור קובץ עם הסיומת .udlכפי שהוסבר בסעיף הקודם
הקצה לקובץ את השם NWind.udl
.1פתח את תיבת הדו שיח Data Link Propertiesוהכר את הכרטיסיות שבו:
הקלק על הקובץ ,תיבת הדו שיח Data Link Propertiesאמורה להיפתח
לפני שנתאים את ההגדרות ,נבחן את הכרטיסיות השונות של תיבת הדו שיח Data Link
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
הכרטיסיה :Provider
בכרטיסייה Providerאתה בוחר את ה OLE DB Provider-לפי סוג מקור הנתונים שאליו אתה מתכוון
לגשת:
oעבור -Databaseים של Accessבחר ב Microsoft Jet 3.51 OLE DB Provider-או גירסה 4.0
שהיא מעודכנת יותר
oעבור -Databaseים של SQL Serverבחר בMicrosoft OLE DB Provider for SQL Server-
oעבור -Databaseים של Oracleבחר ב Microsoft OLE DB Provider for Oracle-או בProvider-
אחר המתאים ל Oracle-אם קיים כזה במחשב שלך
oעבור גישה ל Database-שלא קיים עבורו OLE DB Providerאך קיים עבורו Driverשל ,ODBC
בחר ב .Microsoft OLE DB Provider for ODBC Drivers-שים לב ש Provider-זה מסומן
כברירת מחדל אם לא בחרת Providerאחר
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
הכרטיסייה :Connection
הכרטיסייה Connectionמאפשרת להגדיר את מיקום ה ,Database-שם המשתמש והסיסמה וכו'.
הפרטים בתוך כרטיסייה זו משתנים בהתאם ל Provider-שנבחר בכרטיסייה הראשונה
את פרטי הכרטיסייה הזו תכיר בהמשך תרגיל זה ובשני התרגילים הבאים
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
הכרטיסייה :Advanced
Connect Timeoutמגדיר את משך הזמן בשניות בהן יתבצע ניסיון התחברות למקור הנתונים .אם החיבור
לא התליח בפרק זמן זה תתרחש שגיאה
Access Permissionsמגדיר את הרשאות הגישה ל Database-בסעיף העוסק במאפיין Modeשל האובייקט
( Connectionבהמשך) תמצא הסבר אודות האפשרויות השונות
Impersonation Levelו Protection Level-מאפשרים הגדרות שונות עבור חיבור למקורות נתונים ברחבי
הרשת המבוססים על שיטות קריאה שונות מאשר ,)Remote Procedure Call( RPCברוב המקרים הגדרות
אלו אינן רלוונטיות
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
הכרטיסייה :All
בכרטיסייה Allמוצגים כל המאפיינים של ה Provider-שבחרת בכרטיסייה הראשונה ,בין שהגדרת להם
ערכים ובין שלא הגדרת להם ערכים
המאפיינים המוצגים בכרטיסייה זו שונים עבור -Providerים שונים
תוכל לסמן מאפיין מסויים ולהגדיר את ערכו באמצעות לחיצה על הכפתור Edit Value...
בדרך כלל לא תצטרך להגדיר מאפיינים שאינם סטנדרטיים ,אך אם בכל זאת תרצה להבין את משמעותו של
מאפיין מסויים ,יהיה עליך לעיין בתיעור של ה Provider-המתאים
.3הגדר את מאפייני ה:Data Link-
בכרטיסייה :Provider
oבחר ב( Microsoft Jet 4.0 OLE DB Provider-אם ברשותך גרסה מעודכנת יותר מ 4.0-בחר בה)
בכרטיסייה :Connection
oבסעיף )Select or enter a database name( 1הזן את המסלול של ( NWIND.MDBקובץ זה נמצא
תחת ספריית ההתקנה של , Visual Basicבמחשב שלי המסלול הוא :
,C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDBאם בחרת בספריית
התקנה שונה בעת התקנת Visual Studioהתאם את המסלול בהתאם)
oלחץ על Test Connectionכדי לוודא שההתחברות ל Database-מצליחה
בכרטיסייה :Advanced
oהשאר את הגדרת ה Access permissions-כמו שהיא
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
בכרטיסייה :All
oתוכל לעיין בכרטיסייה Allכדי לצפות בהגדרות שקבעת עד כה .תוכל גם לשנות הגדרות בכרטיסיה
זו ,או להגדיר ערכי מאפיינים שאינם מופיעים בכרטיסיות הקודמות
.1אשר את ההגדרות:
לחץ על OKוסגור את תיבת הדו שיח
.1עיין בקובץ :NWind.udl
פתח את הקובץ NWind.udlבאמצעות ה Notepad-ועיין במבנה הקובץ ובאופן שבו נשמרו ההגדרות השונות
כפי שקבעת בכרטיסיות השונות
תרגיל Pubs.udl : 1
בתרגיל זה ניצור קובץ Data Linkשיכיל את פרטי המידע הדרושים לשם פניה ל Database-בשם Pubsהנמצא
בSQL Server-
.1צור קובץ Data Linkריק:
צור קובץ Data Linkריק כפי שביצעת בתרגיל הקודם והקצה לו את השם Pubs.udl
.1הגדר את מאפייני ה:Data Link-
בכרטיסייה :Provider
oבחר בMicrosoft OLE DB Provider for SQL Server-
בכרטיסייה :Connection
oבסעיף )Select or enter a server name( 1בחר בשם המחשב בו נמצאת תוכנת הSQL Server-
שלך (אם התוכנה מותקנת על אותו המחשב בו ממוקם קובץ ה Data Link-ואינך יודע מה שמו של
המחשב ברשת ,תוכל להזין בשדה זה את כתובת ה .127.0.0.1 IP-כתובת זו היא כתובת
ה loopback-אשר מצביעה חזרה על המחשב המקומי)
oבסעיף )Enter information to log on to the server( 2קיימות שתי אפשרויות:
:Use Windows NT Integrated security אפשרות זו מתאימה אם התקנת הSQL -
Serverאליה אתה מתחבר מאפשרת התחברות אוטומטית באמצעות שם המשתמש
והסיסמה של מערכת ההפעלה Windows NTשעליה היא מותקנת
:Use a spesific username and password באפשרות זו אתה מזין את שם המשתמש
והסיסמה ידנית .בעת התקנת SQL Serverנוצר באופן אוטומטי usernameששמו הוא sa
בעל סיסמה ריקה .אם לא שינית את ההגדרות ב SQL Server-הזן saלשדה username
והשאר את הסיסמה ריקה .אם הסיסמה ריקה הוסף סימן Vליד האפשרות Blank
.passwordאם אתה מזין סיסמה שאתה מעוניין שתישמר בקובץ ה Data Link-עליך לסמן
Vליד האפשרות Allow Saving Password
oבסעיף 3עליך לבחור את ה Database-אליו תרצה להתחבר .באפשרותך לציין את הDatabase-
בשתי צורות:
לסמן Vליד האפשרות ,Select the database on the serverולבחור ב Pubs-מתוך רשימת
ה-Database-ים
לסמן Vליד האפשרות ,Attach a database file as a database nameולבחור את השם
Pubsבשדה הראשון ,ולהזין את מיקום הקובץ pubs.mdfבשדה השני (SQL Server
ממקם קובץ זה תחת תת הספרייה Dataשתחת ספריית ההתקנה של ,SQL Serverבדרך
כלל זהו )C:\Program Files\Microsoft SQL Server\Data\Pubs.MDF
הערה :בשונה מ Access-יישומים רציניים לניהול -Databaseים ,למשל ,SQL Server
DB2 ,Oracleועוד ,שומרים את הנתונים ופרטי המידע הדרושים עבור ניהולו השוטף של
Databaseבמספר קבצים .במקרה של SQL Serverקיימים שלושה סוגי קבצים:
קובץ עם הסיומת :.MDFזהו קובץ הנתונים הראשי של הDatabase-
- 112אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
קבצים עם הסיומת :.NDFאלו הם קובצי נתונים משניים של הDatabase-
קבצים עם הסיומת :.LDFאלו הם קובצי רישום ( )Log Filesהמשמשים
לפיעילותו השוטפת של הDatabase-
oתוכל לבדוק אם ההתחברות ל Database-מצליחה על ידי לחיצה על Test Connection
בכרטיסיה :Advanced
oבשדה Connect timeoutהקצה 30שניות לניסיון ההתחברות
oשים לב שה Provider-עבור SQL Serverאינו תומך באפשרות Access permissions
בכרטיסיה :All
oתוכל לעיין בערכי המאפיינים שהזנת
oתוכל גם לשנות את ערכי המאפיינים ,או להזין ערכים למאפיינים שאינם מופיעים בכרטיסיות
Connectionו( Advanced-אני ממליץ בפניך לא לשנות ערכי מאפיינים שאינך יודע את משמעותם)
.3אשר את ההגדרות:
לחץ על OKוסגור את תיבת הדו שיח
.1עיין בקובץ :Pubs.udl
פתח את הקובץ ,Pubs.udlשזה עתה יצרת ,באמצעות היישום ,Notepadובחן את תוכנו ואת מבנהו
תר גיל NWindDSN.udl : 4
.1
.1
.3
.1
בתרגיל זה ניצור קובץ Data Linkשיכיל את פרטי המידע הדרושים לשם פניה ל Database-בשם Northwind
המצוי ב SQL Server-תוך שימוש ב DSN-שיצרנו בתרגיל 1בשם NWindDSN
צור קובץ Data Linkריק:
צור קובץ Data Linkריק והקצה לו את השם NWindDSN.udlכפי שביצעת בשני התרגילים הקודמים
הגדר את מאפייני ה:Data Link-
בכרטיסייה :Provider
oבחר ב( Microsoft OLE DB Provider for ODBC Drivers-זוהי אפשרות ברירת המחדל)
בכרטיסייה :Connection
oבסעיף )Use data source name( 1בלר מהרשימה הנפתחת ב( NwindDSN-זהו הUser DSN-
שיצרנו בתרגיל .)1תוכל גם ליצור ConnectionStringאך נושא זה יילמד בהמשך השיעור.
oבסעיף )Enter information to log on to the server( 2הקצה שם משתמש וסיסמה מתאימים
לשם התחברות לDatabase-
oלחץ על Test Connectionעל מנת לוודא שההתחברות מצליחה
בכרטיסייה :Advanced
oתוכל לשנות את הגדרות ה Connect timeout-והגדרות ה( Access permissions-האפשרויות
השונות של ה Access permissions-יילמדו בהמשך ,כאשר תכיר את המאפיין Modeשל האובייקט
.)Connectionלצורך תרגיל זה אני ממליץ בפניך להשאיר את ההגדרות כמו שהן
אשר את ההגדרות:
אשר את ההגדרות על ידי לחיצה על OK
עיין בקובץ :NWindDSN.udl
באמצעות ה Notepad-פתח את הקובץ NWindDSN.udlכדי לעיין במבנהו ותוכנו של הקובץ
האובייקט Connection
אובייקט Connectionשולט על התקשרות אחת למקור נתונים
אובייקט Connectionמשמש כמכולה לטרנזקציות מול מקור הנתונים
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
מאפיינים ,מתודות ואירועים להכנה וביצוע התחברות למקור נתונים
הערה :לא כל המאפיינים נתמכים על ידי כל ה-Provider-ים השונים .למשל המאפיין Modeנתמך על ידי הProvider-
של )Microsoft.Jet.OLEDB( Accessאך אינו נתמך על ידי ה Provider-של .)SQLOLEDB( SQL Serverאינך צריך
לזכור את כל המאפיינים הנתמכים על ידי Providerמסויים כיוון שיצירת ה ConnectionString-הכוללת את
המאפיינים נעשית בדרך כלל על ידי .Wizard
:Provider מגדיר את שם ה OLE DB Provider-המשמש לביצוע ההתחברות .ברירת המחדל היא MSDASQL
המאפשר התחברות באמצעות Driverשל .ODBCניתן להגדיר מאפיין זה כחלק מהמאפיינים בתוך
ה ConnectionString-כפי שיוסבר להלן ,או כאובייקט .Propertyלדוגמה כדי להגדיר את הProveider
כ Provider( SQLOLEDB.1-עבור )SQL Serverניתן להשתמש בכל אחת מהצורות הבאות:
Dim conn As New ADODB.Connection
...
...
"conn.Provider = "SQLOLEDB.1
או
"conn.Properties("Provider") = "SQLOLEDB.1
או
"conn.ConnectionString = "Provider=SQLOLEDB.1;...
:ConnectionStringמחרוזת המכילה את מאפיני החיבור השונים .המחרוזת היא במבנה של
" "PropertyName1=Value; PropertyName2=Value;...כאשר PropertyNameהוא שם של מאפיין וValue-
הוא הערך המושם לאותו מאפיין .ניתן להגדיר את מאפייני החיבור גם באמצעות האוסף Propertiesכפי שהודגם
קודם .קיימים מאפיינים רבים עבור חיבור והם משתנים בין -Providerים שונים .נציין מספר מאפיינים נפוצים:
:Data Source oשם מקור הנתונים או שם של DSNהקיים במערכת במקרה של התחברות למקור נתוני
ODBC
:DSN oשם של DSNהקיים במערכת .מאפיין זה יכול להחליף את Data Sourceבמקרה של התחברות
למקור נתונים של ODBC
:File Name oשם של קובץ המכיל את נתוני ההתחברות .קובץ זה יכול להיות מסוג DSNעבור חיבור
למקור נתונים של ODBCאו שם של קובץ מסוג UDL
:Initial Catalog oהשם של הDefault Database-
:Database oשם ה .Database-ניתן להשתמש במאפיין זה בעת התחברות למקור נתונים של ODBC
:Password oסיסמת המשתמש באמצעותו מתבצע החיבור
:PWD oסיסמת המשתמש באמצעותו מתבצע החיבור .ניתן להשתמש במאפיין זה בעת התחברות למקור
נתונים של ODBC
:Persist Security Info oקובע האם ADOישמור ( )Persistאת שם המשתמש והסיסמה
( )Security Infoבקובץ הData Link-
:Provider oכפי שהוסבר קודם ,זהו שם ה OLE DB Provider-באמצעותו מתבצעת ההתחברות
:User ID oשם המשתמש באמצעותו מתבצעת ההתחברות
:UID oשם המשתמש באמצעותו מתבצעת הנתחברות .ניתן להשתמש במאפיין זה בעת התחברות למקור
נתונים של ODBC
:Default Databaseמחזיר את שם ה .Default Database-מאפיין זה זמין רק לאחר שההתחברות בוצעה ,ואז
הוא לקריאה בלבד
:ConnectionTimeoutמגדיר את משך הזמן (בשניות) המקסימלי שאובייקט ה Connection-ימתין עד להשלמת
ההתחברות למקור הנתונים .אם ההתחברות לא הסתיימה תוך פרק הזמן המוגדר ,תתעורר שגיאה מתאימה .ערך
ברירת המחדל למאפיין זה הוא 15שניות
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
:CommandTimeoutמגדיר את משך הזמן (בשניות) המקסימלי שאובייקט ה Connection-ימתין עד להשלמת
פקודה מול מקור הנתונים .אם הפקודה לא הושלמה תוך פרק הזמן המוגדר תתעורר שגיאה מתאימה .ערך ברירת
המחדל למאפיין זה הוא 30שניות .מאפיין זה משפיע על הפקודות המורצות באופן ישיר באמצעות Connection
זה ,ואינו משפיע על פקודות המורצות מאובייקט Commandהמשתמש באובייקט זה .לאובייקט Commandישנו
מאפיין CommandTimeoutמשלו
:CursorLocationקובע את מיקום ה .Cursor-מאפיין זה יכול לקבל אחד מהערכים הבאים:
הערה Cursor :הינו אובייקטהמכיל רשומה אחת או בלוק של רשומות מתוך אוסף הרשומות המוחזר על ידי
שאילתה ממקור הנתונים
:adUseServer oה Cursor-נוצר במחשב הServer-
:adUseClient oה Cursor-נוצרבמחשב הClient-
שים לב :ניתן ליצור את כל סוגי ה-Cursor-ים ב ,Server-ואילובמחשב ה Client-ניתן ליצור Cursor
מסוג adOpenStaticבלבד .הסבר אודות סוגי ה-Cursor-ים תמצא בהמשך השיעור
:Modeמאפיין זה מגדיר את הרשאות ה .Connection-מאפיין זה יכול לקבל אחד או יותר מהערכים הבאים:
:adModeRead oמאפשר קריאה ממקור הנתונים
:adModeWrite oמאפשר כתיבה למקור הנתונים
:adModeReadWrite oמאפשר קריאה ממקור הנתונים כמו גם כתיבה למקור הנתונים
:adModeShareDenyRead oמונע מלקוחות אחרים להתחבר לאותו מקור נתונים לשם קריאה
:adModeShareDenyWrite oמונע מלקוחות אחרים להתחבר לאותו מקור נתונים לשם כתיבה
:adModeShareExclusive oמונע מלקוחות אחרים התחברות לאותו מקור נתונים בהרשאה כלשהי
:adModeShareDenyNone oמאפשר ללקוחות אחרים להתחבר למקור הנתונים עם הרשאות כלשהן
יצירת Connection String
תוכל להגדיר את ה ConnectionString-במספר דרכים:
.1לקודד בעצמך מאפיין זה – הגדרה באופן כזה קשה למדי כיוון שקשה לזכור את רשימת המאפיינים הרבה
הקיימים עבור מאפיין זה .תוכל להשתמש בטריק קטן :צור קובץ Data Linkולאחר מכן העתק את ההגדרות
שבתוך הקובץ (תוכל לצפות בהן באמצעות ה ,Notepad-כפי שביצעת בתרגילים הקודמים) למאפיין
ConnectionStringשבקוד התוכנית שלך
.1ליצור קובץ Data Linkולהגדיר אותו באמצעות המאפיין File Nameב .Connection String-כך למשל ,כדי
להתחבר למקור הנתונים שהוגדר באמצעות קובץ ה Data Link-מתרגיל ,)Pubs.udl( 1ניתן להגדיר את
ה Connection String-באופן הבא:
Dim conn As New ADODB.Connection
...
...
"conn.ConnectionString = "File Name=...\Pubs.udl
כאשר יש לציין כמובן את המסלול המלא של הקובץ
שיטה זו מומלצת מאוד ,כיוון שתוכל לשנות את הגדרת מקור הנתונים בקובץ ה Data Link-מבלי לשנות
את קוד המקור של התוכנית או לקמפל את התוכנית מחדש
.3תוכל לבנות את המאפיין ConnectionStringבאמצעות האשפים השונים .בתיבות הדו שיח המגדירה את
מקור הנתונים עבור פקד ADODCקיים כפתור Buildליד השדה .Connection Stringלחיצה על כפתור זה
מפעילה אשף המאפשר לך להגדיר את מקור הנתונים .לאחר סיום פעולת האשף ,נוצר עבורך Connection
.Stringתוכל להעתיק Connection Stringזה לתוך הקוד שלך .באחת הדוגמאות הבאות תשתמש בטכניקה
זו.
- 113אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
ActiveX Data Objects :12 שיעור
SimpleConnection – התוכנ ית3 תרגיל
מוכןDSN- תוך שימוש בADO לבין מקור נתונים באמצעותVisual Basic בתרגיל זה ניצור חיבור בין תוכנית
: ושמור אותוStandard EXE צור פרוייקט.1
frmTestConnection ולטופס את השםSimpleConnection הקצה לפרוייקט את השם
: לטופס והגדר את המאפיינים הבאיםCommandButtons הוסף שני.1
ערך
Test Connection
3- Fixed Dialog
2-CenterScreen
cmdConnect
Connect
True
cmdDisconnect
Disconnect
False
מאפיין
Caption
BorderStyle
StartUpPosition
Name
Caption
Enabled
Name
Caption
Enabled
אובייקט
frmTestConnection
Command1
Command2
:הטופס צריך להיראות דומה לזה שבציור
:ADO הוסף הפנייה לספריית.3
References בחר באפשרותProject מתוך תפריט
(ייתכןMicrosoft ActiveX Data Objects 2.7 Library מתוך רשימת ספריות הרכיבים בחר בספרייה
) בחר בגירסה הכי מתקדמת.שבמחשב שלך מותקנת גירסה מוקדמת יותר או מאוחרת יותר של הספריה
: הוסף קוד לטופס.1
Option Explicit
Dim conn As ADODB.Connection
ADO שלConnection בחלק הגלובלי של הטופס הוצהר אובייקט
Private Sub Form_Load()
Set conn = New ADODB.Connection
End Sub
New בעת טעינת הטופס נוצר אובייט באמצעות המילה
Private Sub cmdConnect_Click()
conn.ConnectionString = "DSN=NwindDSN;User ID=sa"
conn.Open
If conn.State = adStateOpen Then
MsgBox "Connection successful"
cmdConnect.Enabled = False
cmdDisconnect.Enabled = True
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
Else
"MsgBox "Connection Failed
End If
End Sub
בעת לחיצה על Connectיוצרים Connection Stringעם הפניה ל DSN-שיצרנו בתרגיל הקודם וכפרמטר
נוסף מעבירים את שם המשתמש
לאחר קריאה לפרוצדורה Openבודקים את מצב החיבור adStateOpen .מצביע על חיבור מוצלח
)(Private Sub cmdDisconnect_Click
conn.Close
If conn.State = adStateClosed Then
"MsgBox "Disconnected
cmdConnect.Enabled = True
cmdDisconnect.Enabled = False
End If
End Sub
בעת ליחצה על Disconnectקוראים לשיטה Closeכדי לנתק את החיבור לDatabase-
)Private Sub Form_Unload(Cancel As Integer
If conn.State = adStateOpen Then
conn.Close
End If
Set conn = Nothing
End Sub
בעת הסרת הטופס מנתקים את החיבור (אם הוא עדיין לא נותק) ומשחררים את אובייקט הADO-
אם לא קוראים באופן מפורש ל ,Close-פעולה זו תתבצע באופן אוטומטי על ידי האובייקט ADOבעת
שיחרורו מהזיכרון
.1בחינת הפרוייקט:
הרץ את התוכנית ובדוק את פעולתה
- Eventים של אובייקט Connection
האובייקטים השונים של ADOחושפים -Eventים שונים .לחלק מבין ה-Event-ים ישנו מבנה קבוע:
:Willxxxx oאירוע זה מתרחש לפני שהפעולה xxxxמתרחשת
:xxxxComplete oאירוע זה מתרחש לאחר השלמת הפעולה xxxx
דוגמאות לצמדים כאלה של אירועים הם WillConnectוWillExecute ,ConnectComplete-
ו ExecuteComplete-וכו'
בעת כניסה לאירוע Willxxxxמועבר פרמטר adStatusשיכול להכיל את הערכים הבאים:
:adStatusOK oאין שום שגיאות
:adStatusErrorsOccured oהתרחשה שגיאה כלשהי
:adStatusCantDeny oלא התרחשה שגיאה ,אך לא ניתן לבטל את הפעולה
בעת כניסה לאירוע Willxxxxתוכל לשנות את ערכו של adStatusלאחד הערכים הבאים:
:adStatusCancel oמורה ל ADO-לבטל את הפעולה (כאמור ,לא ניתן לבצע זאת אם הערך הקודם של
adStatusהיה )adStatusCantDeny
:adStatusUnwantedEvent oמורה ל ADO-לחדול משליחת האירוע
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
תרגיל – 6התוכנ ית ConnectWithEvents
בתרגיל זה ניצור חיבור בין תוכנית Visual Basicלבין מקור נצונים באמצעות ADOתוך שימוש ב OLE
Providerעבור ,SQL Serverכמו כן נשתמש ב-Event-ים של האובייקט Connectionבתרגיל זה
.1שלבים 1-1בתרגיל זה ,זהים לתרגיל הקודם (לתוכנית זו הקצה את השם )ConnectWithEvents
.1צור :Connection String
בתרגיל זה ניצור Connection Stringשישתמש בMicrosoft OLEDB Provider for SQL Server-
שליטה בתחביר של ה Connection String-ויצירת ה Connection String-היא ,כאמור ,משימה מפרכת,
לפיכך נשתמש באובייקט ADODCבאופן זמני כדי ליצור את ה ConnectionString-באמצעות :Wizard
oמהתפריט Projectבחר ב Components-והוסף את הרכיב Microsoft ADO Data Control 6.0
) (OLEDBלפרוייקט
oהוסף אובייקט ADODCלטופס
oלחץ לחיצה ימנית על הפקד שהוספת ובחר ב ,Properties-חלון המאפיינים של ADODCאמור
להפתח
oבכרטיסייה Generalבחר ב Use Connection String-ולאחר מכן לחץ על הלחצן Build...הממוקם
מימין לתיבת הטקסט ,ייפתח חלון שכותרתו Data Link Properties
oמתוך רשימת ה OLEDB Providers-בחר בMicrosoft OLEDB Provider for SQL Server-
ולאחר מכן לחץ על Next
oבסעיף 1בכרטיסייה Connectionבחר ב Server-שבו ממוקמת מערכת SQL Serverשאליה אתה
מתחבר
oבסעיף 2הזן שם משתמש וסיסמה או שתבחר ב Use Windows NT Integrated Security-אם
מערכת ה SQL-שאליה אתה מתחבר מאפשרת זאת .תוכל להזין את שם המשתמש saבצירוף
סיסמה ריקה אם במערכת ה SQL Server-לא שונו ההגדרות
oבסעיף 3בחר מתוך רשימת ה-Database-ים את Northwind
oתוכל ללחוץ על Test Connectionכדי לבחון האם ה Connection-שהגדרת פועל
oלחץ על ,OKכעת חזרת לכרטיסייה General
oשים לב שבתיבת הטקסט מופיעה מחרוזת ,העתק מחרוזת זו ע"י סימונה ולחיצה על Ctrl+C
oסגור את חלון ה Property Pages-והסר את אובייקט ה ADODC-מהטופס ,תוכל להסיר גם את
ההתיחסות ל Microsoft ADO Data Control 6.0 (OLEDB)-שהוספת קודם
.3הוסף את הקוד הבא לטופס:
Option Explicit
Dim WithEvents conn As ADODB.Connection
בשורה זו מוצהר אובייקט Connectionתוך שימוש במילה WithEventsכדי שגם האירועים שלו יילכדו
)(Private Sub Form_Load
Set conn = New ADODB.Connection
End Sub
בעת טעינת הטופס יוצרים את האובייקט
)(Private Sub cmdConnect_Click
On Error Resume Next
_ & ";conn.ConnectionString = "Provider=SQLOLEDB.1
_ & ";"Persist Security Info=False
_ & ";"User ID=sa;Initial Catalog=Northwind
""Data Source=WIN2K
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
conn.Open
If Err.Number <> 0 Then
MsgBox "Error No. " & Trim(Str(Err.Number)) & ":" & vbCrLf & _
Err.Description
Err.Clear
conn.Errors.Clear
End If
End Sub
1 זוהי המחרוזת שהעתקת בשלב: (שים לבConnection String- מגדירים את הConnect בעת לחיצה על
) שהוספת באופן זמני לטופסADODC של האובייקטProperty Pages-מחלון ה
בוטלה או נכשלה, כדי לבחון האם ההתחברות הצליחהErr נבדק האובייקטOpen לאחר הפעלת הפרוצדורה
מסיבה כלשהי
Private Sub conn_WillConnect(ConnectionString As String, _
UserID As String, _
Password As String, _
Options As Long, _
adStatus As ADODB.EventStatusEnum, _
ByVal pConnection As ADODB.Connection)
If adStatus = adStatusOK Then
If MsgBox("Do you want to cancel the operation?", _
vbYesNo Or vbQuestion Or vbDefaultButton2) = vbYes Then
adStatus = adStatusCancel
End If
End If
End Sub
מציגים למשתמש שאלה המאפשרת לו לבטל את פעולת ההתחברותWillConnect באירוע
משמעותו היא שלאadStatusOK .adStatusOK- שווה לadStatus שאלה זו מוצגת רק אם ערך:שים לב
התרחשו שגיאות וכן ניתן לבטל את הפעולה
Private Sub conn_ConnectComplete(ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, _
ByVal pConnection As
ADODB.Connection)
If conn.State = adStateOpen Then
MsgBox "Connection successful"
cmdConnect.Enabled = False
cmdDisconnect.Enabled = True
End If
End Sub
אם כן מציגים הודעה למשתמש, בודקים אם ההתחברות הצליחהConnectComplete-ב
אירוע זה יטופל שם,cmdConnect_Click אם ההתחברות נכשלה אזי תיווצר שגיאה שתילכד באירוע
כיוון שבשלב זהConnectComplete לא תוכל לבדוק אם התרחשה שגיאה בהתחברות בתוך האירוע:שים לב
conn.Open שגיאה תתעורר רק בסיום נסיון ההתחברות לאחר בשורה שבה כתוב,0 יהיהErr.Number ערך
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
ActiveX Data Objects :12 שיעור
Private Sub cmdDisconnect_Click()
conn.Close
End Sub
Close נסגר החיבור על ידיDisconnect בעת לחיצה על
Private Sub conn_Disconnect(adStatus As ADODB.EventStatusEnum, _
ByVal pConnection As ADODB.Connection)
If conn.State = adStateClosed Then
MsgBox "Disconnected"
cmdConnect.Enabled = True
cmdDisconnect.Enabled = False
End If
End Sub
מציגים הודעה מתאימה למשתמשadStateClosed- שווה לconn.State אם פעולת הניתוק הצליחה וערכו של
Private Sub Form_Unload(Cancel As Integer)
If conn.State = adStateOpen Then
conn.Close
End If
Set conn = Nothing
End Sub
בעת הסרת הטופס מנתקים את החיבור אם לא נותק עד כה
: בחינת הפרוייקט.1
הרץ את הפרוייקט ובחן את פעולתו
כדי לבחון אותה מקרובF8 באמצעותStep By Step אני ממליץ בפניך להריץ את התוכנית
RECORDSET
האובייקט
DisplayEmployees – התוכנ ית7 תרגיל
Employees ונציג את תוכן הטבלהNorthwind- בתרגיל זה ניצור חיבור ל
: ושמור אותוStandard EXE צור פרוייקט.1
frmDisplayEmployees ולטופס את השםDisplayEmployees הקצה לפרוייקט את השם
שמור את הפרוייקט
:ADO לספרייתReference הוסף לפרוייקט.1
Project מתוך התפריטReferences בחר באפשרות
(אם יש לך גירסה מוקדמת יותר אוMicrosoft ActiveX Data Objects 2.7 Library ליד הספרייהV סמן
) ליד הספרייה המעודכנת ביותרV סמן,מאוחרת יותר
: והגדר את המאפיינים הבאים, אחד לטופסTextBox-ים ו-CommandButton הוסף שני.3
ערך
Test Connection
3- Fixed Dialog
2-CenterScreen
cmdUseTableName
Use table name
cmdUseSQLStatement
מאפיין
אובייקט
Caption frmDisplayEmployees
BorderStyle
StartUpPosition
Name
Command1
Caption
Name
Command2
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
לתוכניתניםVisual Basic 6
Use SQL statment
txtDisplay
True
3 - Both
Caption
Name
Multiline
ScrollBars
Text1
:הטופס צריך להיראות דומה לזה שבציור
: הוסף קוד לטופס.1
Option Explicit
Dim conn As ADODB.Connection
Dim rcs As ADODB.Recordset
עבור אחזור שלrcs- וNorthwind- עבור התחברות לconn ,בשתי השורות הנ"ל מצהירים עלש ני אובייקטים
)Recordset( אוסף רשומות
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User ID=sa;" & _
"Initial Catalog=Northwind;" & _
"Data Source=WIN2K"
If conn.State = adStateClosed Then
MsgBox "Error: Fail to connect"
Unload Me
End If
Set rcs = New ADODB.Recordset
Set rcs.ActiveConnection = conn
End Sub
Open באמצעות הפרוצדורהNorthwind- פותחים חיבור לForm_Load באירוע
:שים לב
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
ActiveX Data Objects :12 שיעור
בדוגמאות.Open- או כפרמטר לOpen לפני הפעלתConn- לConnection String- ניתן להעביר את ה.1
Open לפני הפעלתConnection String-הקודמות העברנו את ה
כפי שעשית בתרגיל הקודםADODC צור באמצעות פקדConnection String- את ה.1
לחיבורconn והופכים את החיבור,New חדש באמצעות המילהRecordset יוצרים, לאחר יצירת החיבור
rcs ) עבור האובייקטActiveConnection( הפעיל
Private Sub cmdUseTableName_Click()
If rcs.State = adStateOpen Then
rcs.Close
End If
rcs.Source = "Employees"
rcs.Open , , , , adCmdTable
txtDisplay.Text = ""
DisplayRecordset rcs
End Sub
כדי לאחזר את רשומות הטבלהrcs שלOpen מפעילים את הפרוצדורהUse table name בעת לחיצה על
Employees
:שים לב
) (כפי שתראה בשגרה הבאהOpen בעת הפעלת המתודהrcs- לSourec String-ניתן להעביר את ה
.1
. וכו') אין חובה להעביר,adCmdText – SQL משפט,adCmdTable – את סוג הפקודה (בקשת טבלה
.1
יהיהחייב להחליט באיזה סוג פקודהOLE Provider- יהיה הפסד ביצועי קל כיוון שה,במקרה כזה
מדובר
באמצעותrcs ולהשימו לתוךADODB.Command ניתן להגדיר פקודה באמצעות אובייקט מסוג
.3
rcs.ActiveCommand המאפיין
שנכתוב בהמשךDisplayRecordset מוצגות הרשומות באמצעות הפרוצדורה, לאחר שהמשפט בוצע
Private Sub cmdUseSQLStatement_Click()
If rcs.State = adStateOpen Then
rcs.Close
End If
rcs.Open "SELECT * FROM Employees", , , , adCmdText
txtDisplay.Text = ""
DisplayRecordset rcs
End Sub
אלא שנשתמש,Employees נציג את תוכן הטבלהUse SQL Statement- גם ב,Use table name-בדומה ל
במקום שם טבלהSQL במשפט
SQL המציין כי מדובר במשפטadCmdText שים לב שסוג הפקודה שצויין הוא
Private Sub DisplayRecordset(rs As ADODB.Recordset)
rs.MoveFirst
Do Until rs.EOF
DisplaySingleRecord rs.Fields
txtDisplay.Text = txtDisplay.Text & vbCrLf
rs.MoveNext
Loop
End Sub
- 112 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
ברוטינה DisplayRecordsetמציגים את תוכן הטבלה באמצעות לולאה הסורקת את אוסף הרשומות עד
שמגיעים ל EOF-המציין את סיום אוסף הרשומות
השימוש במתודה MoveFirstנועד לאתחל את ה Recordset-כך שימוקם ברשומה הראשונה ברוסף
עבור כל רשומה מעבירים את אוסף השדות שלה למתודה ( DisplaySingleRecordמוגדרת בהמשך)
באמצעותה מציגים את הרשומה הנוכחית באוסף הרשומות
)Private Sub DisplaySingleRecord(flds As ADODB.Fields
Dim fld As ADODB.Field
For Each fld In flds
_ & txtDisplay.Text = txtDisplay.Text
_ & " = " & fld.Name
_ & )IIf(IsNull(fld.Value), "<Null>", fld.Value
)" " String(8,
Next
End Sub
עבור כל רשומה ,סורקים את אוסף השדות שבה ,תוך הצגת שמות השדות ותוכנם
אם ערך שדה מסוים הוא Nullמציגים את המחרוזת ><Null
)Private Sub Form_Unload(Cancel As Integer
Set rcs = Nothing
Set conn = Nothing
End Sub
באירוע Form_Unloadמשחריים את ה Connection-ואת הRecordset-
.1בחינה והרצת הפרוייקט:
הרץ את התוכנית ובדוק את פעולתה
המאפי ין CursorType
:adOpenForwardOnlyיוצר Cursorהנע קדימה בלבד .ב Cursor-מסוג זה תוכל להשתמש במתודות
MoveFirst , MoveNextאו Moveעם פרמטר חיובי .לא תוכל לדלג לרשומה האחרונה באמצעות MoveLastאו
לחזור לרשומותקודמות באמצעות MovePreviousאו Moveעם פרמטר שלילי Cursor .מסוג Forward Only
יכול להיות בצד ה Server-בלבד .ל Cursor-זה הביצועים הטובים ביותר.
:adOpenDynamicיוצר Cursorהמאפשר תנועה חופשית ב Cursor .Recordset-מסוג זה מעודכן תמיד
בנתונים העדכניים ביותר מה .Database-בעת מעבר לרשומה מסוימת ,מובאת הרשומה המעודכנת
מה Cursor .Database-מסוג זה יכול להיות ממוקם בצד ה Server-בלבד .ל Cursor-זה הביצועים הגרועים
ביותר.
:adOpenKeysetבדומה ל Cursor ,adOpenDynamic-מסוג זה מציג גם הוא את הנתונים העדכניים ביותר .עם
זאת Cursor ,מסוג Keysetאינו מציג רשומות חדשות שנוספו על-ידי משתמשים אחרים Cursor .מסוג Keyset
יכול להיות במחשב ה Server-בלבד.
Cursor :adOpenStaticמסוג זה יוצר העתק של הנתונים המאוחזרים מה .Database-ניתן לנוע בחופשיות בין
הרשומות שב Cursor-סטטי .שינויים הנעשים על ידי משתמשים אחרים ברשומות לא יעודכנו ב Cursor-מסוג זה.
ביצועיו של Cursorסטטי הם טובים למרות שמשך הטעינה הראשון הוא ממושך יחסית .מומלץ לעבוד עם Cursor
כזה כאשר מספר הרשומות המאוחזרות קטן יחסית Cursor .סטטי הוא ה Cursor-היחיד הניתן ליצירה בצד
הClient-
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
תנועה ב Recordset -
:MoveFirstהופך את הרשומה הראשונה ב Recordset-לרשומה הנוכחית
:MoveLastהופך את הרשומה האחרונה ב Recordset-לרשומה הנוכחית
:MoveNextהופך את הרשומה הבאה לרשומה הנוכחית
:MovePreviousהופך את הרשומה הקודמת לרשומה הנוכחית
) :Move(nהופך את הרשומה הנמצאת המרחק nמהרשומה הנוכחית ,לרשומה הנוחכית n( .יכול להיות גם מספר
שלילי)
( CURSORSסמנים)
Cursorהוא מערך רשומות המתקבל כתוצאה משליחת בקשה לDatabase-
ניתן לשלוט על שלושה מאפיינים של :Cursor
( CursorLocation oמיקום ה)Cursor-
( CursorType oסוג ה)Cursor-
( LockType oסוג הנעילה)
ניתן להגדיר מאפיינים אלו ,כל עוד לא נפתח ה Recordset-באמצעות הפרוצדורה Open
בשלושת הסעיפים הבאים יפורטו מאפיינים אלו
המאפי ין LockType
:adLockReadOnly
מאפיינים נוספים
:MaxRecordsקובע את מספר הרשומות המקסימלי שיאוחזר מהDatabase-
:CashSize
תרגיל – 3התוכנ ית Nevi gateRecords
בתוכנית זו תנווט בין רשומות באמצעות המתודות MoveFirst ,MovePrev ,MoveNextו .MoveLast-כמו כן
תשתמש באירועים MoveCo
.1לסיים
.1לסיים
.3
.1
.1
CONTROL
ADO DATA
ADODCהוא Controlהמבוסס על אובייקט מסוג ADO
ADODCניתן לקשר לאוסף רשומות מ Database-בדרכים שונות
ניתן להגדיר את ADODCכספק נתונים עבור פקד שהוא צרכן נתונים
רוב הפקדים הסטנדרטיים תומכים ב ,Data Binding-כלומר יכולים לשמש כצרכני נתונים
כדי שניתן יהיה להשתמש בADODC -יש להגדיר אליו הפניה בProject Components-
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
האובייקט Recordset
הוספת רשומה חדשה
מחיקת רשומה
התחלת טרנזקציה (באמצעות גישה ל ActiveConnection-מתוך ה)Recordset-
myadodc.Recordset.AddNew
myadodc.Recordset.Delete
myadodc.Recordset.ActiveConnection.BeginTrans
סיום תוך שמירה של הטרנזקציה
סיום ואי שמירה של הטרנזקציה
לפי בדיקה שלי אין תמיכה בTransaction Nested-
ADODCמבצע Commitאוטומטית בסוף ,אלא אם קראת לBeginTrans-
myadodc.Recordset.ActiveConnection.CommitTrans
myadodc.Recordset.ActiveConnection.RollbackTrans
Propertiesשל ADODC
:Alignמגדיר כיצד ייושר הפקד על פני הטופס
:BOFActionמגדיר מה יבוצע בעת ניסיון לחרוג מתחילת אוסף הרשומות (:)Beginning Of File -BOF
:adDoMoveFirst oגורם להחזרה לרשומה הרשואנה
:adStayBOF oנשאר בBOF-
:EOFActionמגדיר מה יבוצע ה ADODC-בעת ניסיון לחרוג מתחום אוסף הרשומות()End Of File - EOF
:adDoMoveLast oמחזיר לרשומה האחרונה
:adStayEOF oנשאר בEOF-
:adDoAddNew oגורם להוספת רשומה חדשה
:ConnectionStrinמחרוזת המכילה את כל הפרטים הדרושים לשם התחברות לDatabase-
Usernameו :Password-כוללים את שם המשתמש והסיסמה ,שבאמצעותם מתחברים לDatabase-
:ConnectionTimeoutמגדיר את משך זמן שלאחריו ייפסק הניסיון להתחבר אל הDatabase-
:Modeמגדיר את אוסף הפעולות המותר מול הDatabase-
:RecordSourecמגדיר את מקור הרשומות עבור ה .ADODC-קיימות ארבע אפשרויות:
:Table oטבלה או שאילתה
:StoreProcedure oשגרה מאוחסנת בDatabase-
:Text oמשפט SQL
:CommandTypeמגדיר את סוג הRecordSource-
:CommandTimeoutמגדיר את משך הזמן שלאחריו ייפסק ניסיון להפעיל פקודה מול הDatabase-
:Captionכותרת הפקד
Methodsשל ADODC
:Refreshמרענן את התצוגה (חשוב לאחר ביצוע שינויים כגון Deleteאו CommitTransאו ביטול שינויים
באמצעות )RollbakTrans
- 113אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור ActiveX Data Objects :12
Eventsשל ADODC
:WillChangeRecordמתרחש רגע לפני שרשומה מעודכנת .זהו המקום לבצע בדיקת ערכים ולאשר או לבטל
את השינוי
:Errorמתרחש כאשר מתרחשת שגיאה כלשהי .ניתן לבטל את ההודעה המוצגת ע"י שינוי ערכו של
fCancelDisplayהמועבר להודה – לערך True
עיצוב הנתונים
ניתן להשתמש במספר דרכים:
oהמאפיין DataFormatשל Bound Controlsאך לא תמיד מאפיין זה פועל כמו שצריך
oקוד בדיקה מותאם אישית – כרוך בעבודה רבה
oשימוש בStdDataFormat Objects-
StdDataFormats Obj ects
לסיים
יש להוסיף Referenceאליו מתוך ( Project References
הערות לגבי Data Bound Controls
כאשר משתמשים ב Data Bound Label Control-יש להגדיר את המאפיין UseMnemonicsלערך Falseכדי
שתוי אמפרסנד לא יוצגו כקו תחתי.
CheckBoxמקבל ערך vbCheckedעבור ערך שונה מ 2-ב vbUnchecked ,Database-לערך ,0וvbGrayed
לNull-
יש לקשר CheckBoxאך ורק לערך בוליאני ,כיוון שיש לו שני מצבים שהמשתמש שולט בהם True -או False
תמונות מ Access-יש לקשר לcontrol OLE-
תמונות מ SQL Server-ניתן לקשר לPicture Box-
OptionBoxאינו ,Data Bound Controlולפיכך כדי להשתמש בו בצמוד לשדה מה .Database-בכל אופן ,ניתן
לבצע טריקים כדי לפתור את הבעיה בדרך עקיפה ,וגם כמובן ליצור ActiveXמתאים
ניתן לשנות בזמן ריצה את ה DataSource-ל ADODC-אחר( .לא קיימת אפשרות כזו ב Data-ובRDO Data -
)Control
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור COM+ :11
בשיעור זה:
תכיר את המודל N Tiersותשווה אותו לTiers 1-
תכיר את ( MTS - Microsoft Transaction Serverזהו COM+ב ,)Windows 2000-תבין את פעולתו ביחס
לניהול טרנזקציות ,ותכיר בחשיבותו
תלמד להפוך את רכיבי הקוד שאתה מפתח ב Visual Basic-ל Business Objects-הפועלים תחת COM+
תרגיל COM+Demo : 1
בתרגיל זה ניצור אפליקצית COM+ריקה (כלומר ללא רכיבים)
בתרגילים הבאים תיצור רכיבי COM+באמצעות Visual Basicותוסיף אותם לאפליקציה זו
.1פתח את החלון :Component Services
פתח את ה Control Panel-ומשם עבור לAdministrative Tools-
בחר ב Component Services-החלון הבא אמור להיפתח:
.1הוסף אפליקצית COM+ריקה:
בפנל השמאלי הרחב את הענף Component Services
עבור ל My Computer-ומשם ל( COM+ Applications-לחץ על COM+ Applicationsבאמצעות הלחצן
השמאלי של העכבר כך שהאפליקציות המותקנות יוצגו בפנל הימני)
לחץ לחיצה ימנית על COM+ Applicationsובחר ב New-ואחר כך בApplication-
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור COM+ :11
Wizardהמשמש להתקנת אפליקציית COMייפתח:
oבמסך הראשון של ה Wizard-לחץ על Next
oבמסך השני של ה Wizard-קימות שתי אפשרויות .האפשרות הראשונה ,להתקין אפליקציה מוכנה
על ידי בחירת קובץ התקנה ,והאפשרות השניה ,ליצור אפליקציה חדשה .בחר באפשרות השניה
Create an empty application
oבמסך השלישי של ה Wizard-עליך להקצות שם לאפליקציה ולבחור את אופן ההפעלה של
האפליקציה .קיימים שני סוגי הפעלה לאפליקצית Library Application :COM+וServer -
Library Application .Applicationמציין כי האפליקציה תרוץ כמו DLLבתוך ה Process-שיצר
את רכיב מהאפליקציה Server Application .מציין כי האפליקציה תרוץ בתוך Processמשל
עצמה .הגדר את המאפיינים כפי שמתואר בציור שלפניך:
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
oבמסך הרביעי של ה Wizard-עליך לקבוע תחת איזה משתמש NTהאפליקציה תרוץ בעת טעינתה.
תוכל לבחור שם משתמש מסוים ולהזין את הסיסמה ,או לבחור Interactive userשמשמעותו היא
כי האפליקציה רצה תחת חשבון המשתמש המחובר למערכת
oבמסך האחרון של ה Wizard-לחץ על Finish
.3עיין במאפייני האפליקציה:
בפנל הימני של חלון ה Component Services-יוצג סמל האפליקציה COM+Demoשזה עתה יצרת
לחץ לחיצה ימנית על סמל האפליקציה ובחר באפשרות .Propertiesהחלון COM+Demo Propertiesאמור
להיפתח כפי שמוצג בציור הבא:
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור COM+ :11
בחלון זה מוצגות שש כרטיסיות:
oבכרטיסייה Generalתוכל להוסיף שדה תיאור ( )Descriptionלאפליקציה
oבכרטיסייה Securityתוכל להגדיר נושאי אבטחה שונים הקשורים להפעלת האפליקציה
oבכרטיסיה Identityזהה לזה שפגשת ב Wizard-בעת יצירת האפליקציה
oהכרטיסיה Activationזהה לאפשרות Activation typeשפגשת ב Wizard-בתחילת התרגיל
oשים לב :אם אתה משנה את אופן ההפעלה של האפליקציה ,האפשרויות בשאר הכרטיסיות ישתנו
בהתאם
oהכרטיסייה Queuingמגדירה את אופן הפעולה ההדי יחד עם MSMQ
oבכרטיסיה Advancedתוכל להגדיר הגדרות שונות ,כגון משך הזמן בו Processשל אפליקציה ישאר
מופעל ,למרות שהאפליקציה אינה פעילה באותו השלב ,הגנות מסוימות על האפליקציה ועוד
בתרגיל שלנו השאר את ההגדרות ללא שינוי ,וסגור את חלון הCOM+Demo Properties-
יצירת רכיבים המותאמים לפעולה תחת
COM+
המאפי ין MTSTransact ionMode
COM+משתמש במאפיין MTSTransactionModeכדי לקבוע האם יש להפעיל את האובייקט בתוך טרנזקציה,
והאם טרנזקציה נדרשת או אופציונלית
מאפיין זה משפיע רק על האובייקטים הנוצרים תחת .COM+אובייקטים שאינם נוצרים תחת COM+אינם
מושפעים ממאפיין זה
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
מאפיין זה יכול לקבל אחד מהערכים הבאים:
:NotAnMTSObject oהאובייקט אינו תומך בCOM+-
:NoTransactions oהאובייקט אינו תומך בטרנזקציות .מאפיין זה מציין שהאובייקט אינו רץ במסגרת
טרנזקציות .כאשר נוצר אובייקט חדש ,ל ObjectContext-המוצמד לאובייקט לא נוצרת טרנזקציה.
:RequiresTransaction oמאפיין זה מציין כי האובייקט חייב לרוץ במסגרת טרנזקציה .כאשר אובייקט
חדש נוצר ,ה ObjectContext-שלו יורש את הטרנזקציה מה ObjectContext-של ה .Client-אם אין
טרנזקציה ב ObjectContext-של ה Client-תיווצר טרנזקציה חדשה עבור האובייקט.
:UsesTransaction oערך זה מציין כי האובייקט משתמש בטרנזקציה של האובייקט המשתמש בו
(ה .)Client-כאשר נוצר אובייקט חדש הוא יורש את הטרנזקציה מאובייקט ה .Client-אם לאובייקט
ה Client-אין טרנזקציה ,אזי גם ל ObjectContext-של האובייקט הנוצר לא תיווצר טרנזקציה.
:RequiresNewTransaction oערך זה מציין שלאובייקט הנוצר חייבת להיווצר טרנזקציה חדשה
בתוכה הוא ירוץ .כאשר נוצר אובייקט חדש COM+יוצר עבורו טרנזקציה חדשה ללא קשר לקיום או
היעדר טרנזקציה באובייקט ה.Client-
לרוב תקצה לאובייקטים שלך את המאפיינים UsesTransactionאו .RquiresTransactionההבדל בין שני
הערכים הללו הוא במקרה שטרנזקציה אינה קיימת באוביקט היוצר אותם ,שאז עבור אובייקטים בהם מוגדר
המאפיין כ RquiresTransaction-נוצרת טרנזקציה חדשה ,ואילו עבור אובייקטים בהם מוגדר המאפיין
כ UsesTransaction-לא תיווצר טרנזקציה
הגדרת מאפיין כ RequiresNewTransaction-כמו RequiresTransactionמבטיחה כי האובייקט יפעל במסגרת
טרנזקציה .עם זאת הערך RequiresNewTransactionיוצר טרנזקציה חדשה שאינה תלויה בטרנזקציה של
האובייקט המכיל (אובייקט ה .)Client-מאפיין זה שימושי כאשר רוצים לבצע רישום פעילות של אובייקט
ה Client-ללא קשר להצלחה או כישלון של הטרנזקציה שלו.
האובייקט ObjectContext
להוסיף הסבר אודות Objetct Context
תרגיל MTSSample.dll : 2
בתרגיל זה ניצור רכיב DLLאשר יתמוך בCOM+-
לרכיב שניצור נוסיף פונקציה בשם ExecuteTransactionהמקבלת שני פרמטרים:
oמערך של -Stringים המייצגים -ConnectionStringים למקורות מידע שונים
oמערך של -Stringים של משפטי SQLשיש להריץ מול מקורות המידע הללו
הרעיון שבבסיסו של רכיב זה :אם אחד ממשפטי ה SQL-המבוצע מול אחד ממקורות הנתונים נכשל ,יתבצע
Rollbackלכל משפטי ה SQL-שבוצעו עד כה
.1צור תוכנית ActiveX DLLריק:
הקצה לפרוייקט את השם MTSSampleDLL
הקצה ל Class-בפרוייקט את השם MTSObj
שמור את הפרוייקט
.1התאם את הגדרות הפרוייקט:
מתוך התפריט Projectבחר ב ,MTSSampleDLL Properties...-כך שיוצג חלון המאפיינים של הפרוייקט
בכרטיסיה Generalסמן Vליד האפשרות .Unattended Executionאפשרות זו מבטיחה כי הרכיב לא יציג
ממשק משתמש (למשל על ידי שימוש בפונקציה .)MsgBoxאם הרכיב ינסה להציג ממשק ,תירשם שגיאה
מתאימה בקובץ ה Log-של המערכת
בכרטיסיה Generalוודא כי ב Threading Model-נבחרה האפשרות Apartment Threaded
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
שיעור COM+ :11
.3הוסף הפניות לספריות רכיבים בפרוייקט:
כיוון שהפרוייקט משתמש ברכיבי ADOוברכיבי COM+כדי לגשת למקורות הנתונים יש להוסיף הפניות
מתאימות בחלון הReferences-
בחר באפשרות References...מתוך התפריט Project
סמן Vליד הספריה Microsoft ActiveX Data Objects 2.7או גירסה אחרת (בחר את הגירסה המעודכנת
ביותר במחשב שלך)
סמן Vליד הפריט COM+ Services Type Library
.1הגדר את המאפיין :MTSTransactionMode
האפשרויות השונות של המאפיין MTSTransactionModeהוסברו קודם
בחר באפשרות 2 - RequiresTransaction
כך אנו מבטיחים שהאובייקט שלנו ירוץ בתוך טרנזקציה .אם האובייקט נקרא על ידי אובייקט אחר שיש לו
טרנזקציה ,האובייקט שניצור ישתתף בטרנזקציה של אובייקט האב .אם אין לאובייקט האב טרנזקציה
משלו ,תיווצר טרנזקציה חדשה עבור האובייקט
.1הוסף קוד למחלקה:
במודול המחלקה MTSObjהוסף את הקוד הבא:
Option Explicit
_ Public Sub ExecuteTransaction(strSQLStatements() As String,
)strConnectionStrings() As String
Dim l As Long
Dim u As Long
On Error GoTo Err_Handler
בעת התרחשות שגיאה תתבצע קפיצה ל Err_Handler-שם תיקרא השגרה SetAbortותוחזר שגיאה
מתאימה לפונקציה הקוראת
)l = LBound(strSQLStatements
)u = UBound(strSQLStatements
Do While l <= u
)adoExecute strSQLStatements(l), strConnectionStrings(l
l = l + 1
Loop
בלולאה זו מפעילים את הפונקציה ( adoExecuteמוגדרת בהמשך) אשר מריצה כל משפט SQLיחד עם
ה ConnectionString-המתאים לו
GetObjectContext.SetComplete
בשורת קוד זו ,לאחר שכל הקריאות לפרוצדורה adoExecuteשבלולאה לא נתקלו בשום שגיאה ,קוראים
ל SetComplete-כדי להשלים את הטרנזקציה
Exit Sub
Err_Handler:
GetObjectContext.SetAbort
"Err.Raise vbObjectError + 1024, , "Transaction Failed
- 112אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
Visual Basic 6לתוכניתנים
אם התרחשה שגיאה כלשהי ,קוראים ל SetAbort-כדי לבטל את הטרנזקציה .בנוסף ,מעוררים שגיאה החוצה
כדי לסמן לאובייקט חיצוני המריץ טרנזקציה חיצונית (אם קיים אחד כזה) כי הטרנזקציה של האובייקט
נכשלה .באופן כזה מאפשרים לאובייקט החיצוני להגיב בהתאם
End Sub
_ Private Sub adoExecute(ByVal strSQL As String, ByVal
)strConnectionString As String
Dim oConn As ADODB.Connection
Set oConn = New ADODB.Connection
oConn.Open strConnectionString
oConn.Execute strSQL
oConn.Close
End Sub
הפונקציה adoExecuteפשוט למדי .בפונקציה זו ,מתבצע חיבור למקור נתונים באמצעות אובייקט
Connectionשל .ADODBומתוך אובייקט זה מורצת פקודת ה SQL-תוך שימוש בפרוצדורה Executeשל
האובייקט Connection
.1קמפל את הרכיב:
מתוך התפריט Fileבחר בMake MTSSampleDLL.dll...-
תקן שגיאות במידת הצורך
.1הגדר רמת תאימות בינרית לרכיב שיצרת:
מתוך התפריט Projectבחר באפשרות MTSSampleDLL Properties...
בכרטיסיה Componentבחר בBinary Compatibility-
אפשרות זו תבטיח שאם תנסה לשנות את ממשק הרכיב שיצרת ,תקבל הודעת אזהרה מתאימה
תרגיל : 1הוספת MTSSampleDLL.dllל COM+ -
לסיים
תרגיל : 4בחינת פעולת MTSSample.dllתחת COM+
לסיים
תרגיל : 3הוספת Rolesלאפליקצית COM+
לסיים
תרגיל : 6בדיקת הרשאות מתוך רכיב
לסיים
יש להשתמש במתודה IsCallerInRoleשל הObjectContext-
תרגיל : 7העברת ConstructStringלרכיב
לסיים
תרגיל : 1קליטת ConstructStringמרכיב
לסיים
Option Explicit
- 111אילן אמויאל © כל הזכויות שמורות
אין להעתיק ,לשדר או להציג את הספר או חלקים ממנו בשום צורה.
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
COM+ :11 שיעור
Implements COMSVCSLib.IObjectConstruct
להעביר מחרוזת אתחולCOM+- המאפשר לIObjectConstruct בשורת קוד זו מממשים את הממשק
לאובייקט
Dim strConstruct As String
Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
strConstruct = pCtorObj.ConstructString
מעביר לאובייקט את מחרוזת האתחולCOM+ מתרחש כאשרIObjectConstruct_Construct האירוע
ConstructString- מחזיר את ה, המועבר באירועpCtorObj של האובייקטConstructString המאפיין
End Sub
Public Property Get Constructor() As String
Constructor = strConstruct
End Property
- 111 אילן אמויאל © כל הזכויות שמורות
. לשדר או להציג את הספר או חלקים ממנו בשום צורה,אין להעתיק
מותר להפיץ את הספר חינם בשלמותו בלבד אך לא למטרות מסחריות
www.kita.co.il
כתיבה עריכה :אילן אמויאל
כתובת אימיילilan.amoyal@gmail.com :
אתר אינטרנטwww.kita.co.il :
© כל הזכויות שמורות למחבר
אין להעתיק או לשדר בכל אמצעי שהוא ספר זה או קטעים ממנו בכל צורה ובכל אמצעי אלקטרוני
או מכני ,לרבות צילום והקלטה ,אמצעי אחסון והפצת מידע ללא צורך באישור מאת המחבר.
מותר להפיץ את הספר חינם וללא ביצוע כל שינוי בתוכנו ,אך שלא למטרות מסחריות
© Copyright 2025