םיכרעמ - רשע השולש רועיש

:13 רועיש ןכות

?ךרעמ והמ
ךרעמב רביא לכל רשאכ ,דחא םש תחת ,םירביא רפסמ ליכמה ,הנתשמ ןיעמ אוה ךרעמ
.ותוא ההזמה סקדניא רפסמ שי


ךרעמ לע הרהצה
:אמגודל ,הנתשמ לע הרהצהל דואמ המוד ךרעמ לע הרהצהה

Dim Products(9) As String

הנתשמ אוה םירביאהמ דחא לכש ,םירביא 10 ובו Products םשב ךרעמ לע ונרהצה וז הרושב
.(String) תזורחמ גוסמ
?9 לע קר ונרהצה ירה ,םירביא 10 שי הלעמלש ךרעמב המל
אלו 0-מ רופסל תוליחתמ ,תונכתה תופש בור ומכ ,קיסייב לאוזיוש ,איה ךכל הבושתה
םורגל רשפא ךיא הארנ רועישב רתוי רחואמ .םירביא 10 םנשי 9 דע 0-מ ןכלו 1-מ
.0-מ אלו 1-מ רופסל ליחתהל קיסייב לאוזיול


ךרעמב םירביאל םיכרע תבצה
:לשמל ,וירביאל םיכרע ביצהל ןתינ ,ךרעמה לע ונרהצהש ירחא

Products(2) = "Keyboard"

לאוזיו יכ ,ךרעמב ישילשה רביאה אוהש) 2 סקדניאה לעב ,רביאל ונבצה ,הלעמלש הרושב
םירביאל םג ביצהל ןתינ המודב ."Keyboard" תזורחמה תא ,(0-מ רופסל הליחתמ קיסייב
:לשמל ,תונוש תוזורחמ םירחא

Products(9) = "Motherboard"

:האבה האיגשה תא לבקנ ,10 ולש סקדניאהש ,רביאל תזורחמ ביצהל הסננ םא
דע 0 םירביאה םימייק ךרעמב יכ ךרעמה לש םוחתהמ ונגרח רמולכ ,Subscript out of range
.םייק וניא 10 רביאו ,דבלב 9


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

1 2 3 4 5 6 7

Private Sub Command1_Click() Dim Prices(2) As Integer Prices(0) = 100 Prices(1) = 200 Prices(2) = 250 Text1.Text = Prices(1) End Sub

.Command1 רותפכה לע ץחלי שמתשמהש הרקמב להונה ליחתמ 1 הרושב
.(Integer) םלש רפסמ גוסמ אוה רביא לכש ,םירביא 3 לעב ךרעמ לע ונרהצה 2 הרושב
.םינוש םיכרע ,ךרעמבש םירביאה תשולשל ונבצה 5-3 תורושב
סקדניאה לעב) 1 רביאב רומשה ךרעל טסקטה תבית לש טסקטה תא םינשמ ונא ,4 הרושב
.200 ךרעה תא תעכ הארי טסקטה תביתב טסקטה רמולכ ,(ןושארה אלו 1


ךרעמב םיסקדניאה חווט תרדגה
היהי ןורחאה לשו (0 אלו) 1 היהי ךרעמב ןושארה רביאה לש סקדניאש םיצור םכנה םא
:האבה הרוצב ךרעמה לע ריהצהל ןתינ ,10

Dim Prices(1 To 10) As Integer

.10 אוה ןורחאה רביאהו 1 אוה ןושארה רביאהש ,םירביא 10 ןב ךרעמ לע ונרהצה רמולכ
:לשמל וצרתש סקדניא הזיאמ ליחתי ךרעמהש םג ןתינ

Dim Parts(55 To 99) As Long

אוה ןורחאהו 55 סקדניאה לעב אוה ,וב ןושארה רביאהש ךרעמ לע ונרהצה ,הלעמל הרושב
.99 סקדניאה לעב

0 היהי ןושארה רביאה לש סקדניאה םאה ,קיסייב לאוזיוב ינדי ןפואב עובקל ןתינ ףסונב
:דוקה ךרועב הנושארה הרושל ,Option Base 1 הרהצהה תפסוה ידי לע ,1 וא

Option Base 1

ןושארה רביאה ,ךרעמב םיסקדניאה לש םוחת לע םיריהצמ אל רשאכש ,תרמוא האבה הרהצהה
:אמגודל ,0 אלו 1 היהי ךרעמב

Option Base 1 Private Sites(10) As String

.0 אלו 1 היהי Sites ומשש ךרעמב ןושארה רביאה לש סקדניאה הזה הרקמב
:האבה הרהצהה תא דוקה ךרוע שארב םיריהצמש וא ,0 היהי רביאה לש סקדניאהש םיצור םא

Option Base 0

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

Private Sites(20 To 30) As String

ךרעמ לש הרהצהה חווט
.םינתשמ לש הרהצהה חווט יללכל ןיטולחל םיהז ךרעמה לש הרהצהה חווט יבגל םיללכה
.(10 רועיש) םינתשמ לע רועישל ונפ הרהצהה חווט לע םיפסונ םיטרפל


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

Dim Books(999) As String

.(String) תזורחמ גוסמ םירביא 1000 ובו Books םשב ךרעמ לע ןאכ ונרהצה
םיזבזבמ ונא ,20 דיגנ ,טעומ אוה םירפסה רפסמ םא לשמל ,תונורסח רפסמ ךכל שי ךא
תונחל םירפס לש הלודג תומכ ונינקש דיגנ ,אוה ינש ןורסח .לצונמ וניאש בר ןורכיז
.םירפס 1000-ל רבעמ םירפסה תומש תא ןסכאל לכונ אל זא ,םירפס 1000 לע הלועש
םירביאה רפסמ תא וב םירידגמ אלש ךרעמ אוה ימניד ךרעמ .ימניד ךרעמ אוה ךכל ןורתפה
.םאתהב ותונשל ןתינ ,ךרעמב ןטק וא לדג םירביאה רפסמ םא ךכ רחאו ,שארמ
:ךכ תיארנ ,ימניד ךרעמ לע הרהצהה

Dim Books() As String

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

ReDim Books(4) As String

.4 סקדניאה דע 0 סקדניאהמ ,ךרעמב םירביא השימח ביצהל ןתינ תעכו
:לשמל ,ReDim תועצמאב תינש ,ךרעמה תא הרזחב ןיטקהל ןתינו

ReDim Books(1) As String

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

ReDim Books(0) As String

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

1 2 3 4

Dim Movies() As String ReDim Movies (0) As String Movies (0) = " Gone with the wind" ReDim Preserve Movies (19) As String

.Books םשב ימניד ךרעמ לע ונרהצה ,1 הרושב
.דחא רביאל ךרעמה לדוג תא וניניש ,2 הרושב
."Gone with the wind" תזורחמה תא ,0 סקדניאה לעב רביאל ונבצה ,3 הרושב
רמולכ ,םימדוקה םירביאה רומיש ידכ ךות ,םירביא 20-ל ךרעמה תא ונלדגה ,4 הרושב
תלימב םישמתשמ ונייה אל םא ."Gone with the wind" תזורחמה ראשנ 0 רביא לש ךרעה
.תקחמנ התיה ,0 רביאב תנסחואמש תזורחמה Preserve חתפמה


Erase הדוקפה - ךרעמב םירביאה לכמ םיכרעה תקיחמ
ךרעמה לע ונרהצה לשמל ,ךרעמב םירביאה לכמ םיכרעה תא קוחמל םיצור ונא םימעפל
:אבה

Dim Brands(10) As String

:םיכרע ולש םירביא רפסמל ונבצה

Brands(0) = "Microsoft" Brands(1) = "Borland" Brands(2) = "CA"

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

Erase Brands

.ךרעמב םירביאהמ דחא לכ לש ןכותה תא ונספא תאז הרושב
ךרעמב ,הקיר תזורחמ היהי הקיחמה רחאל ךרעה (String) תוזורחמ םה וירביאש ךרעמב
ךרעמב ,0 היהי הקיחמה רחאל ךרעה ,(Long וא Integer ומכ) ירפסמ גוסמ םה וירביאש
לש הרקמבו ,(קיר הנתשמ) Empty היהי הקיחמה רחאל ךרעה ,Variant גוסמ וירביאש
.Nothing היהי ךרעה םיטקייבוא
."" רמולכ ,הקיר תזורחמ אוה Brands(1) רביאה לש וכרע תעכ לשמל


ידמימ בר ךרעמ
שי יכ ,(flat arrays) "םיחוטש םיכרעמ" םג םיארוק הכ דע ונשמתשה םהב םיכרעמל
הלבט ונל שיש דיגנ לשמל ,םיבכרומ רתוי םיניינעה םיתיעל לבא .דחא דמימ קר םהל
הרושה תועצמאב םג את לכ תוהזל םיצור ונאו ,(הצירטמ ןיעמ) םיבר םיאת הב שיש
:האבה הלבטה תא ונל שי ,לשמל ,אצמנ אוה וב הדומעהו

.	1	2	3	4	5	6	7	8
1	.	ADA	.	.	.	.	Eiffel	.
2	Assembler	.	.	Delphi	.	Logo	.	C#
3	.	Pascal	.	.	VB	.	.	.
4	.	.	BASIC	.	.	.	.	Cobol
5	C++	.	.	C	Prolog	.	Fortran	.
6	.	Java	.	.	.	Perl	.	.

.םירוט 8-ו תורוש 6-מ תבכרומ וז הלבט
:ךכ ,וזה הלבטה תא גציימה ידמימ בר ךרעמ לע ריהצנ

Dim Table(1 To 6, 1 To 8) As String

הרקמב גציימה) ןושארה דמימבש ,םידמימ ינש לעב Table םשב ךרעמ לע ונרהצה רמולכ
תא ונלש הרקמב גציימה) ינשה דמימבו ,םירביא 6 םנשי (הלבטבש תורושה תא ונלש
.םירביא 8 םנשי (הלבטבש םירוטה
תאז השענ ,ישימחה רוטבו תישילשה הרושב אצמנה ,"VB" ךרעה תא ןסכאל הצרנ םא תעכ
:ךכ

Table(3, 5) = "VB"

,יעיבשה רוטבו תישימחה הרושב אצמנה "Fortran" ךרעה תא ןסכאל הצרנ םא המודב
:ךכ תאז השענ

Table(5, 7) = "Fortran"

.האלה ךכו
םיכרעמה ןיינע תא שיחמהל קר האב הלבטהו ,םידמימ 60 דע םע םיכרעמ רוציל ןתינ
.םיידמימ ברה
לעב ךרעמב הדוקנה תא גצייל לכונ ,תמיוסמ הדוקנ לש z-ו x, y יכרע ונל שי םא לשמל
.םידמימ השלש

םיימניד םיידמימ בר םיכרעמ
:לשמל ,ידמימ בר ךרעמל ימניד ךרעמ ךופהל ןתינ

Dim Points() As Integer ReDim Points(10, 10, 10) As Integer

אוהש ונעבק הינשה הרושבו ,Points םשב ימניד ךרעמ לע ונרהצה ,הנושארה הרושב
.(10 דע 0-מ) םירביא 11 םהמ דחא לכבש םידמימ 3 ןב היהי
,ןורחאה דמימל קר תאז תושעל לכונ ,הזה ךרעמב םירביאה רפסמ תא תונשל הצרנ םא תעכ
:לשמל

ReDim Preserve Points(10, 10, 15) As Integer

:האיגשה תעדוהל איבי ןורחאהמ ץוח ,דחא דמימב םירביאה רפסמ תא תונשל ןויסינ לכ
.Subscript out of range


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

UBound היצקנופה
:לשמל ,הל רבעוהש ךרעמב רתויב הובגה סקדניאה לש ךרעה תא הריזחמ וז היצקנופ

1 2 3

Dim LargestIndex As Integer Dim Points(5 To 10) As Integer LargestIndex = UBound(Points)

.(Integer) םלש רפסמ גוסמ LargestIndex םשב הנתשמ לע ונרהצה 1 הרושב
10 סקדניאה דע 5 סקדניאהמ םירביא ליכמה ,Points םשב ךרעמ לע ונרהצה 2 הרושב
.(םירביא 6 לכה ךס)
.LargestIndex הנתשמל ותוא ונבצהו Points ךרעמב רתויב הובגה סקדניאה והמ ונקדב 3 הרושב
.ךרעמב רתויב הובגה סקדניאה והז יכ ,10 היהי LargestIndex הנתשמה ךרע תעכ
:לשמל ,ידמימ בר ךרעמ ונל שי םא ךא

Dim Points(5 To 10, 3 To 15, 2 To 20) As Integer

:ךכ תאז השענ זא ,ינשה דמימב רתויב הובגה סקדניאה ךרע תא תעדל םיצור ונאו

LargestIndex = UBound(Points, 2)

הליחתמ קיסייב לאוזיו םידמימה ירפסמב) 15 ךרעה תא לבקי LargestIndex הנתשמה תעכו
.(1 אלו 2 אוה ינשה דמימה לש ורפסמ ןכלו ,-0מ אלו -1מ רופסל
םישוע ונייה ישילשה דמימב רתויב הובגה סקדניאה ךרע תא אוצמל םיצור ונייה םא
:ךכ תאז

LargestIndex = UBound(Points, 3)

LBound היצקנופה
סקדניאה ךרע תא תאצומ איהש ,הדבועה דבלמ UBound היצקנופל דואמ המוד וז היצקנופ
:אמגודל ךרעמה לש רתויב ךומנה

1 2 3

Dim SmallestIndex As Integer Dim Points(5 To 10, 3 To 15, 2 To 20) As Integer SmallestIndex = LBound(Points, 2)

ינשה דמימב רתויב ןטקה סקדניאה והז יכ ,3 תעכ היהי SmallestIndex הנתשמה ךרע
.Points ךרעמב
:לשמל ,(םיידמימ דח) "םיחוטש םיכרעמ" םע םג LBound-ב שמתשהל ןבומכ ןתינ

1 2 3

Dim SmallestIndex As Integer Dim Books(10 To 99) As String SmallestIndex = LBound(Books)

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



Array היצקנופה - Variant גוסמ הנתשמל ךרעמ תבצה
,Array היצקנופה ידי לע ,ךרעמ Variant גוסמ הנתשמל ביצהל ךרוצה הרקמב ןתינ
ךרעמב ומכ ,סקדניא תרזעב ולש רביא לכל תשגל ןתינ היהיש ,ךרעמ וב ןסכאל ךכבו
.ליגר
:אמגודל

Dim Months As Variant Months = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

.Variant גוסמ (םישדוח) Months םשב הנתשמ לע הנושארה הרושב ונרהצה ,וז אמגודב
תועצמאב םייזעולה םישדוחה תומש ירוציק תא Months הנתשמל ונבצה הינשה הרושב
Months הנתשמב ןסחואמה ךרעמבש יעיברה רביאל תשגל הצרנ םא תעכ .Array היצקנופה
:ךכ תאז השענ

Dim MonthName As String MonthName = Months(3)

אלא ,ספאמ רופסל םיליחתמ יכ) יעיברה רביאה תא ,MonthName הנתשמל ונבצה תעכ
."Apr" תעכ היהי MonthName לש וכרע ןכלו ,(Option Base 1-ב ונשמתשה ןכ םא


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

םיטקייבוא ךרעמ תריצי
:םיטקייבוא לש ךרעמ רוציל תוירקיע םיכרד יתש ןנשי
:הנושאר ךרד
הרקמב .Paste ידי לע ולופכשו Copy ידי לע ותקתעה ,בוציעה ןולחב טקייבואה תריצי
וא ,םייקה טקייבואה לש ךרעמ רוציל םכנוצרב םא ,םכתא לאשת קיסייב לאוזיו הז
.שדח טקייבוא רוציל
טקייבואהו 0 סקדניאה תא תיטמוטוא לבקי קתעומה טקייבואה ,ךרעמ תריציב ורחבת םא
.1 סקדניאה תא שדחה
:הז תא לגרתנ ואוב
הדוקפה רותפכ תא ונמסת תעכ ,הדוקפ רותפכ ורצ .קיסייב לאוזיוב שדח טקייורפ וחתפ
ורחבת וא ,דחיב C-ו Ctrl םישקמה לע וצחלו ,(תונטקה תוידיה וביבסמ ועיפויש ךכ)
.Edit טירפתהמ Copy-ב
.Edit טירפתהמ Paste-ב ורחב וא -V-ו Ctrl םישקהמ לע וצחל תעכ
:עיפות האבה העדוהה תבית

תא לבקי ירוקמה Command1 טקייבואה רשאכ ,רצווי םיטקייבואה ךרעמו Yes-ב ורחב
.1 סקדניאה תא לבקי שדחה רביאהו 0 סקדניאה
.םיטקייבואה ךרעמל םיפסונ םיטקייבוא ףיסוהל ןתינ ,הקבדהו הקתעה ידי לע ,המוד ךרדב תעכ
:הינש ךרד
ולש סקדניאה תנוכת תא ונשו ,Command1 הדוקפה רותפכב ורחב ,תונוכתה תביתל וכל
.0 ולש סקדניאהש (ןושארו) דחא רביא לעב םיטקייבוא ךרעמ םתרצי םצעב ךכו ,0-ל

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

1 2 3 4

Load Command1(2) Command1(2).Left = 0 Command1(2).Top = 0 Command1(2).Visible = True

רביא ,Command1 הדוקפה ירותפכ לש םיטקייבואה ךרעמל ,1 הרושב ,ונפסוה וז אמגודב
.2 אוה ולש סקדניאהש שדח
.ךרעמב שדחה הדוקפה רותפכ לש ומוקימ תא ונעבק ,3-2 תורושב
םירביא ללכ ךרדב יכ ,(Visible = True) הארנ היהי הדוקפה רותפכ יכ ונעבק ,4 הרושב
. םיארנל םתוא םיכפוה אלש דע םיארנ םניא ,םיטקייבוא ךרעמל םיפסומה
האיגשה תעדוה תא םילבקמ ונייה ךרעמל 2 רביאה תא תינש ףיסוהל םיסנמ ונייה םא
:האבה
.תינש ותוא ןועטל ןתינ אל ןכלו ןעטנ רבכ טקייבואהש רמולכ ,Object already loaded
דימתש ךכ ,UBound היצקנופב שומיש ךות טקייבוא ןיעטהל ןתינ ,הז בצממ ענמיהל ידכ
:לשמל ,שדח היהי ןכא ,שדחה טקייבואה לש סקדניאה

Load Command1(Command1.UBound + 1)

יפכ ,ליגר ךרעממ טעמב הנוש םיטקייבוא לש ךרעמב LBound-ב וא UBound-ב שומישה
לשמל ,ךרעמב רתויב הובגה סקדניאה תא םיקדוב םיטקייבוא לש ךרעמב .תוארל ןתינש
Command1.UBound :ךכ

םיטקייבוא לש ךרעממ טקייבוא תרסה
:לשמל ,UnLoad הדוקפב שמתשהל שי םיטקייבוא ךרעממ טקייבוא ריסהל ידכ

Unload Command1(0)

םיטקייבואה ךרעמב 0 רביאה תא ןורכיזהמ ןהו ספוטהמ ןה קחמת טושפ ,הלעמל הרושה
.Command1

.ןאכמ דירוהל ןתינ םיטקייבוא לש ךרעמל אמגודל דוק



הרזחל הלאש
?("חוטש ךרעמ") ידמימ דח ךרעמב רתויב הובגה סקדניאה תא תעדל ןתינ דציכ
.לגרס םע ךרעמה הבוג תדידמ ידי לע .1
.רתויב הובגה סקדניאה המ סומינב ךרעמה תא םילאוש .2
.UBound היצקנופה ידי לע .3
םיכרעמב קר אלא ,ידמימ דח ךרעמב רתויב הובגה סקדניאה והמ תעדל ןתינ אל .4
.דבלב םידמימ 289.5 ילעב