آموزش مصور ويژوال بيسيك visual basic در مجيد آنلاين

[Mikhak]

بله درسته وقتي شما از استيل none استفاده كنين اصلا تو task bar چيزي نشون نميده اگر هم Minimize كنين يه مستطيل كوچيك بالاي منوي strat ديده ميشه
اين سوالو يكي از بچه ها هم پرسيده بود نمي دونم خود شما بودي يا نه من جواب رو بهش گفتم
واسه همچين كاري بهتره از برنامه هاي skinmaker استفاده كني كه اگه همين انجمن رو يه كم بگردي پيداش ميكني
---------------
سينا

 

[Mikhak]

حلقه Do While Loop

موضوع : حلقه Do While Loop

از اين حلقه براي ايجاد تکرار وابسته به شرط خاصي - بدون آنکه تعداد دقيق تکرار حلقه را بدانيم استفاده مي شود. اين حلقه در هر بار اجرا ابتدا شرط اصلي اجراي حلقه را بررسي مي نمايد و در صورت صحت آن کدهاي مورد نظر را انجام داده و در غير اين صورت کنترل اجراي برنامه به بعد از حلقه منتقل خواهد شد.
شکل کلي :

Do While (شرط)
بلاکی از یک یا چند دستور ویژوال بیسیک 
Loop

مهمترين نکته در اجراي اين حلقه اين است که در ابتداي اجرا شرط مورد نظر يکبار بررسي خواهد شد و در صورت درست بوده مجموعه دستوارت درون حلقه اجرا خواهند شد. بنابراين ممکن است - در صورت غلط بودن شرط در اولين بار - دستورات اصلا اجرا نشوند. کد زير نحوه محاسبه عدد ٧ به توان ٥ را توسط اين حلقه نمايش مي دهد.

intCounter = 1
lngPower = 1
Do While (intCounter <= 5)
 lngPower = lngPower * 7
 intCounter = intCounter + 1
Loop

و اما يك حلقه دقيقا مثل حلقه داريم كه تنها تفاوتشون تو ساختارشونه

حلقه While Went

شكل كلي :

While condition 
   بلاکی از یک یا چند دستور ویژوال بیسیک 
Wend

مثال :

While Not state 
    List1.AddItem i 
    i = i + 1 
    If i > 20 Then state = True 
Wend

تا وقتی که state ارزش نادرستی دارد دستورات انجام می شود.
اعداد 0 تا 20 در لیست چاپ می شوند.



حلقه Do Loop While

اين حلقه در اولين اجرا کدهاي مورد نظر را انجام داده و در موارد بعدي پس از تعيين صحت شرط اصلي اجراي حلقه و در صورت صحت آن کدهاي مورد نظر را انجام داده و در غير اين صورت کنترل اجراي برنامه به بعد از حلقه منتقل خواهد شد.

شكل كلي :

Do
 بلاکی از یک یا چند دستور ویژوال بیسیک 
Loop While (شرط)

مهمترين نکته در اجراي اين حلقه اين است که در ابتداي اجرا شرط مورد نظر بررسي نخواهد شد. بنابراين دستورات در اين شرط حداقل يکبار اجرا خواهند شد. کد زير نحوه محاسبه عدد ٧ به توان ٥ را توسط اين حلقه نمايش مي دهد.

intCounter = 1
lngPower = 1
Do
 lngPower = lngPower * 7
 intCounter = intCounter + 1
Loop While (intCounter <= 5)

حلقه ي : Do Until Loopشكل كلي :

Do Until condition 
   بلاکی از یک یا چند دستور ویژوال بیسیک 
Loop

تا وقتی شرط نادرست است دستورات اجرا می شوند و به محض این که شرط برقرار شد اجرای حلقه خاتمه می یابد. شرط در ابتدای حلقه چک می شود.

مثال:

Dim x As Integer 
x = 1 
Do Until x < 0 
    List1.AddItem x 
    x = x + 1 
    If x > 20 Then x = -1 
Loop

اعداد 1 تا 20 را در لیست چاپ می کند.


حلقه ي : Do Loop Until

شكل كلي :

Do 
   بلاکی از یک یا چند دستور ویژوال بیسیک 
Loop Until condition

تا وقتی شرط نادرست است دستورات اجرا می شوند و به محض این که شرط برقرار شد اجرای حلقه خاتمه می یابد. شرط در انتهای حلقه چک می شود . اين حلقه هم مثل حلقه ي Do Loop While در هر صورت حداقل يه بار اجرا ميشه حتي اگه شرط درست باشه

مثال :

Dim x As Integer 
x = 1 
Do 
    List1.AddItem x 
    x = x + 1 
    If x > 20 Then x = -1 
Loop Until x < 0

اعداد 1 تا 20 را در لیست چاپ می کند.



به حول قوه الهي حلقه ها رو هم تموم كرديم

حالا بريم سراغ چند تا نكته كوچولو ::

برای خارج شدن از حلقه Do از دستور Exit Do استفاده می شود.
مثال:

Dim x As Boolean 
Dim i As Integer 
Do While 1 
    List1.AddItem i 
    i = i + 1 
    If i > 20 Then Exit Do 
Loop

شرط حلقه همیشه برقرار است پس باید برای خاتمه حلقه از Exit Do استقاده کرد.
اعداد 0 تا 20 در لیست چاپ می شوند.

نكته اول :حلقه بینهایت حلقه ای است که هیچگاه خاتمه نمی یابد و این در برنامه ایجاد اخلال می کند. همیشه از خاتمه یافتن حلقه اطمینان پیدا کنید.

نكته دوم :اگر چند حلقه درون هم به کار روند حلقه تودرتو داریم. در حلقه های تودر تو اول حلقه داخی تر کاملا اجرا شده بعد حلقه های بیرونی اجرا می شوند.از حلقه های تودر تو بیشتر برای مقدار دادن به آرایه های چند بعدی استفاده می شود.

موضوع بعدي :توابع


مخلصيم
-------------------------
سينا

 

[MDP]

For Each

سلام

خدا رو خوش نمي ياد فقط اين آقاي ساك يا ميخك خان تاپيك بدن
من دستور For Each رو معرفي مي كنم شكل كلي اين دستور به شكل زير است:

[LTR]For Each name IN OBJECT[/LTR]
[LTR]دستورات مورد نیاز برای کار[/LTR]
[LTR]Next[/LTR]

شما از اين دستور براي بدست آوردن گزينه ها در يك ايجنت و اضافه كردن به يكليست باكس ميتوانيد استفاده كنيد.مثل:

For Each var In (یکی از کارکتر ها).AnimationNames
List1.AddItem var
Next

 

[Mikhak]

خدا رو خوش نمي ياد فقط اين آقاي ساك تاپيك بده

واقعا سالك جان خيلي زحمت ميكشه يعني اونجوري كه اون آموزش ميده خيلي سخته همش با عكس
ولي علاقه آموزش يه چيز ديگست
------------------
سينا

 

[Mikhak]

با اجازه منم يه مثال واسه foreach بزنم تا كاملتر بشه

اين برنامه هر چي textbox رو فرممون باشه خالي ميكنه

Dim txt As Control 

'clear the text boxes 
 For Each txt In frmClearMe 

  If TypeOf txt Is TextBox Then txt.Text = "" 

 Next

خيلي مواقع به درد ميخوره مثلا وقتي يه فرم داريم و توي اون فرم تو چند تا textbox اطلاعات يكي رو ميگيريم و ثبتش ميكنيم ميخوايم بعد از اينكه اين اطلاعات ثبت شد همه ي textbox ها خالي بشه تا دوباره نفر جديد رو وارد كنيم
----------------
سينا

 

[Mikhak]

ثوابت

موضوع : ثوابت

ثابت خانه ای از حافظه است که مقدارآن در طول برنامه ثابت می ماند و نمی توان مقدارآن را تغییر داد. ثوابت با کلمه کلیدی زیر تعریف می شوند:

Const

که نحوه کاربرد آن به صورت زیر می باشد:

[Private/Public] Const ConstantName [As DataType] = Value

كلماتي كه داخل كروشه نوشته شده به اين معنيه كه ميتونين از اون ها استفاده نكنين يعني اختياريه و اگه تعريف نشه به صورت پيش فرض خودش يه چيزي قرار ميده

مثال:

Const Pi = 3.14 
Private Const WelMsg As String = "Hi" 
Public Const T_1 = &HF

در اين مثال در گزينه ي اول ثابتي تعريف كرديم با عنوان pi كه همون عدد پي رياضي كه 3.14 است رو درون خود قرار ميده و در برنامه ميتوان به جاي استفاده از عدد 3.14 فقط كلمه pi رو بياريم
و اما يه دونه هم ثابت تعريف كرديم از نوع رشته و...

تذكرات :
1. اگر قبل از کلمه کلیدی Const چیزی نوشته نشده باشد مقدار پیش فرض Private می باشد. (كه بحث بعديمون راجع به همينه)
2. اگر As DataType ذکر نشود نوع ثابت Variant خواهد بود.
3. یک ثابت عمومی (Public Const ) فقط می تواند در یک ماجول تعریف شود.(به ماجور هم ميرسيم)
4. &H شناسه ای است که نشان دهنده مبنای هگزا دسیمال می باشد. یعنی عددی که بعد از آن می آید در مبنای 16 می باشد.


مدت زمان عمر متغير :
مدت زمانی را که یک متغییر مقدار فعلی خود را حفظ می کند مدت عمر متغییر گویند. متغییر هایی که در بخش Declaration تعریف می شوند طول عمری برابر فرم دارند. ( محلی که Option Explicit را نوشتید به یاد بیاورید!) یعنی با ایجاد فرم ، ایجاد می شوند و با ازبین رفتن فرم نابود می شوند. یعنی حافظه را به سیستم باز می گردانند.اما متغییر هایی که داخل یک تابع یا رویه تعریف می شوندطول عمری برابر با تابع یا رویه دارند. یعنی با از بین رفتن تابع از بین می روند.
اما اگر متغییری را با کلمه کلیدی Static تعریف کنیم دیگر با از بین رفتن تابع یا رویه مقدار متغییر از بین نمی رود. Static به کامپایلر می گوید که ما این متغییر را چقدر دوست داریم و نمی خواهیم مرگ آن را ببینیم. طول عمر Static برابر فرم می باشد.
طرز تعریف متغییر استاتیک:

Static StaticVarName [As DataType]

موضوع بعدي : ماجول يا ماژول و برنامه نويسيه ماژولار


-----------------
سينا

 

[Mikhak]

برنا مه نویسی ماژولار:

موضوع : برنامه نويسي ماژولار(تابع)

برای نوشتن برنامه های طولانی و سنگین باید آنها را به بخش های کوچکتری تقسیم بندی کرد به طوری که هر بخش وظیفه خاصی دارد و کار خاصی را انجام می دهد. به این کار برنا مه نویسی ماژولار گفته می شود. به هر بخش که کار خاصی را در برنامه انجام می دهد زیر برنامه می گویند.

مزایای برنا مه نویسی ماژولار:

1. خوانایی برنامه بالا می رود.
2. کار گروهی را امکان پذیر می کند.
3. از زیر برنامه های از قبل نوشته شده نیز می توان استفاده کرد.
4. رفع اشکال آسانتر می شود.
5. سرعت برنامه نویسی بالا می رود و به علت عدم تکرار حجم برنامه ها کم می شود.

انواع زیر برنامه ها:

1. روال (Sub)
2. تابع ( Function )

روال می تواند چندین مقدار را به برنامه فراخوان باز گرداند ولی تابع فقط می تواند یک خروجی داشته باشد. هر دوی روال و تابع می توانند مقداری را باز نگردانند و فقط عملیات خودشان را انجام دهند مثل چاپ یک مقدار. هر دوی روال و تابع می توانند هیچ مقداری را به عنوان آرگومان نگیرند.

توابع:
طرز تعریف يا همان شكل كلي :

[Private/Public] Function FuncName([اسامی آرگومان ها و نوع آنها]) [As DtataType] 
   لیست دستورات vb 
End Function

تذکرات:
1. نامگذاری توابع همانند متغییرهاست.
2. [As DtataType] نوع خروجی تابع را مشخص می کند. اگر نوع را مشخص نکنید همچنان خروجی از نوع Variant خواهد بود.
3. آرگومان مقادیری است که هنگام فراخوانی برنامه فراخوان به تابع منتقل می کند.
4. آرگومان ها با کاما از هم جدا می شوند (به مثال توجه کنید)
5. مقدار تابع در اسم آن قرار می گیرد.

FuncName = مقدار

6. فراخوانی توابع: منظور از فراخواني تابع اينست كه در جايي از برنامه بگوييم كه اين تابع اجرا شود.

(اسامی آرگومانها در صورت وجود)اسم تابع = متغییر

مقدار محاسبه شده تابع در این متغییر قرار می گیرد که نوع آن باید با نوع خروجی تابع یکی باشد.
7. تعداد آرگومان ها و نوع آنها باید حتما با تعداد پارامتر ها و نوع آنها برابر باشد.

مثال:

Private Function Fact(n As Integer) As Long 
. 
. 
. 
End Function

تابعی به نام Fact تعریف کردیم که فقط یک مقدار را دریافت می کند که نوع آن صحیح می باشد. خروجی این تابع از نوع Long می باشد.
این تابع فاکتوریل عدد n ورودی را حساب کرده و حاصل را در Fact قرار می دهد. (كه انشالا بعدا با مثال كاملش رو ميزنم)

Public Function GetComputerName() 
. 
. 
. 
End Function

این تابع هیچ ورودی ندارد و فقط اسم کامپیوتر را در اسمش قرار می دهد.

Function Arr(x1 As Integer, x2 As String, status As Boolean) As Boolean 
. 
. 
. 
End Function

این تابع چند آرگومان دارد که نوع های آنها نیز با هم متفاوت است. خروجی این تابع از نوع منطقی است.

فراخوانی توابع بالا:

Dim Ret As Long 
Ret = Fact (5) 

Dim Name As String 
Name = GetComputerName 

Dim x As Boolean 
x = Arr(m, "Amir", False)

موضوع بعدي : روال(sub)

--------------
سينا

 

[Mikhak]

موضوع : روال

روال يا همون sub
قبلا يه نموره راجع به روال گفتم بس مستقيم بريم سر تعريف و شكل كلي
ايشالا براي درك بهتر مثال هاي زيادي ميزنيم

شكل كلي :

[Private/Public] Sub SubName([اسامی آرگومان ها و نوع آنها]) 
   لیست دستورات vb 
End Sub

تذکرات:
1. نامگذاری رویه ها نیز همانند متغییرهاست.
2. رویه ممکن است یک یا چند کار را انجام دهد ولی برعکس تابع چیزی در نام آن قرار نمی گیرد.
3. از توابع می توان درمحاسبات عددی مثل یک متغییر استفاده کرد ولی رویه چنین نیست.
4. رویه ها به دو صورت فراخوانی می شوند
الف) با استفاده از نام رویه ها:
مثلا اگر رویه زیر تعریف شده باشد

Sub Show_results() 
. 
. 
. 
End Sub

فراخوانی آن به این صورت می باشد:

Show_results

و یا اگر رویه زیر تعریف شده باشد

Sub GetInfo1(Name As String, StNo As Integer) 
. 
. 
. 
End Sub

فراخوانی آن به این صورت می باشد:

GetInfo1 "Sina", 2546

نمی توان در این روش از پرانتز در فراخوانی استفاده کرد.

ب) با استفاده از دستور Call:
فراخوانی رویه های بالا با دستور call به صورت زیر است

Call Show_results 
Call GetInfo1("Sina", 2546)

اگر از call استفاده می کنید پرانتز فراموش نشود.

5. بقیه نکات رویه همانند نکات توابع می باشد.

انواع پارامتر ها:
پارامتر های رویه ها و توابع دو گونه اند:
الف) مقدار ( ByVal )
ب) ارجاع ( ByRef)

پارامتر های مقدار فقط مقادیر را به زیر برنامه تحویل می دهند و اگر مقدار آن پارامتر در زیر برنامه تغییر یابد مقادیر جدید در آن پارامتر کپی نمی شود.
ولی در پارامتر های ارجاع تبادل اطلاعات دو طرفه است یعنی اگر مقدار آن پارامتر در زیر برنامه تغییر یابد از این به بعد در برنامه اصلی نیز مقادیرجدید مورد استفاده قرار می گیرند.
به علت سنگینی این مبحث و کاربرد کم آن در برنامه های ساده از توضیح بیشتر پرهیز می شود بنابر این هر جا لازم شد به توضیح بیشترمی پردازم. فقط طرز تعریف را بدانید.

مثال:

Sub Pro(ByVal a As Integer, ByRef b As Integer) 
. 
. 
. 
End Sub[/code

متغییر a از نوع مقدار و متغییر b از نوع ارجاع تعریف شده اند.

از امکانات جالب vb استفاده از آرگومان های اختیاری در برنامه است.
یعنی می توان هنگام فراخوانی به آنها مقدار نداد ، در این صورت مقدار آن آرگومان برابر مقادیر پیش فرض نوعشان می باشد.
برای تعریف یک آرگومان به صورت اختیاری از کلمه کلیدی Optional در پشت آن استفاده می شود.

مثال:

Sub Pro(Optional a As Boolean) 
. 
. 
. 
End Sub

فراخوانی رویه بالا:

Call Pro(True) 
یا 
Call Pro

بنابراین مقدار a در فراخوانی دوم برابر False خواهد بود.

هنگام تعریف آرگومان اختیاری می توان به آن مقدار اولیه نیز داد بنابراین اگر هنگام فراخوانی به آن مقدار ندهیم ، مقدارش برابر همان مقدار اولیه ما خواهد بود.

مثال:

Sub Pro1(Optional Num As Integer = 5) 
. 
. 
. 
End Sub

موضوع بعدي : توابع بازگشتي

--------------
سينا

 

[saalek110]

منبع

مطالبي كه جناب ميخك فرمودند كمي سنگين بود.
من خودم كه كمي كدنويسي بلد بودم شوكه شدم.
ولي نگران نباشيد. تمامي فرمولها با مثالهاي متعدد حلاجي مي شود. حالا يا من يا ميخك جان.
بعضي مباحث بدون ذكر اينها نمي شد ادامه يابد. مثلا ابزارهايي مثل ((چك باكس)) يا ((آپشن باتم)) (موس را روي جعبه ابزار نگه داريد تا اين ابزارها را ببينيد) .....اينها نياز به دستورات شرطي داشت.
--------
كلا حالا دستمون باز تره براي ادامه راه.

=================================
از مولف وبلاگ زير اجازه خواستم تا از آرشيو غني وبلاگشان براي آموزش استفاده كنم.

وبلاگ تخصصي ويژوال بيسيك
http://sheidaian.persianblog.com
​

اما تا ايشان اجازه اش را صادر كنند از آموزشهاي خارجي استفاده مي كنيم. بهر حال شما اين وبلاگ را از دست ندهيد.

 

[saalek110]

ابزارهاي ديگر

می توان به جعبه ابزار تعداد بیشتری ابزار اضافه کرد.
برای اضافه کردن ابزار هاي ديگر بايد به پنجره كامپوننت ها برويم. همان طور كه در زير ميبينيد، اين پنجره به دو راه قابل دسترس است. يكي از منوي پروژه و ديگري با زدن ((كنترل تي)).
ctrl + t

​

در زير اين پنجره را ميبينيد. بعدا از آن براي اضافه كردن ابزارهايي قوي به فرم خود استفاده مي كنيم. فعلا شما لازم نيست ابزاري اضافه كنيد. فقط براي آشنايي اوليه اين مطلب گفته شد.

​

 

[saalek110]

تفاوت بيسيك با ويژوال بيسيك

[ltr]
VISUAL BASIC is a VISUAL and events driven Programming Language.These are the main divergence from the old BASIC. In BASIC, programming is done in a text-only environment and the prgram is executed sequentially. In VISUAL BASIC, programming is done in a graphical environment. Because users may click on a certain object randomly, so each object has to be programmed indepently to be able to response to those actions(events).Therefore, a VISUAL BASIC Program is made up of many subprograms, each has its own program codes, and each can be excecuted indepently and at the same time each can be linked together in one way or another.[/ltr]
ويژوال بيسيك يك زبان ويژوال و رويداد گرا است.
اين تفاوت اصلي ويژوال بيسيك با ((بيسيك قديمي)) است.
در زبان ((بيسيك)) ، فقط ، يك محيط تكست(نوشتاري) داريم و برنامه به صورت پشت سر هم آنجا نوشته مي شود.
ولي در ((ويژوال بيسيك)) برنامه نويسي در يك محيط ويژوال انجام مي شود.
كاربر ممكن است بر يك شي كليك كند،
پس هر شي توانايي پاسخ گويي به اين اكشن(رويداد) را بايد دارا باشد.
بنابراين يك برنامه ((ويژوال بيسيك)) ، از تعداد زيادي ((زيربرنامه)) تشكيل شده كه هر يك كدنويسي خاص خود را دارا است. و هر يك به طور مستقل قابليت اجرا را دارد.
و در همان حال قابليت ارتباط با زير برنامه هاي ديگر را دارد.

.

 

[saalek110]

نقاشي

با خواندن متن بالا اين نقاشي را كشيدم. اميدوارم به واقعيت نزديك باشه.اگر عكس معتبري پيدا كردم جايگزين مي كنم..

​

در اين شكل مي بينيد كه دكمه به عنوان ورودي در نظر گرفته شده و تكست باكس به عنوان خروجي.
ولي مي دونيد كه تكست باكس ورودي هم مي تونه باشه.

 

[saalek110]

تو برنامه نويسي گاهي (شايدم زياد) پيش مياد كه بخوايم يه تيكه از كدمون رو تا وقتي كه ميخوايم تكرار كنيم

[ltr]
For Counter = Start_Value To End_Value [Step Step_Count]
بلاکی از یک یا چند دستور ویژوال بیسیک
Next [Counter][/ltr]

Counter شمارنده حلقه
Start_Value مقدار اولیه شمارنده
End_Value مقدار پایانی شمارنده
ابتدا متغییر counter برابر Start_Value قرار می گیرد و دستورات یک بار اجرا می شوند سپس counter به اندازه Step_Count افزایش یافته و دوباره دستورات اجرا می شوند و این عمل تا وقتی که به End_Value برسیم تکرار می شود.

[ltr]
' mavaade laazem: faghat form
' baa hamaan naame avalieh
dim i as integer
Private Sub Form_Load()

Form1.Show ' line 1
For i = 1 To 5 ' shoroe halghe
Print i
Next i ' entehaaye halghe

End Sub[/ltr]

​

خط يك(لاين يك) لازمه باشه وگرنه روي فرم چيزي نمي بينيم.

[color=green] ' mavaade laazem: faghat form
' baa hamaan naame avalieh[/color]
dim i as integer
Private Sub Form_Load()

Form1.Show ' line 1
For i = 1 To 10 [color=red]Step 2[/color][color=green] ' shoroe halghe[/color]
Print i
Next i [color=green]' entehaaye halghe[/color]

End Sub

​

[ltr]
' mavaade laazem: yek dokmeh
' baa hamaan naame avalieh
Dim i As Integer

Private Sub Command1_Click()
For i = 1 To 10 Step 2
Print i
Next i

End Sub
[/ltr]

​

 

[saalek110]

روال يا همون sub

شكل كلي :
[ltr][Private/Public] Sub SubName([اسامی آرگومان ها و نوع آنها])
لیست دستورات vb
End Sub[/ltr]
تذکرات:
1. نامگذاری رویه ها نیز همانند متغییرهاست.
2. رویه ممکن است یک یا چند کار را انجام دهد ولی برعکس تابع چیزی در نام آن قرار نمی گیرد.
3. از توابع می توان درمحاسبات عددی مثل یک متغییر استفاده کرد ولی رویه چنین نیست.
4. رویه ها به دو صورت فراخوانی می شوند
الف) با استفاده از نام رویه ها:
مثلا اگر رویه زیر تعریف شده باشد
[ltr]Sub Show_results()
.
.
.
End Sub[/ltr]

فراخوانی آن به این صورت می باشد:
[ltr]Show_results[/ltr]

[ltr]
' mavaade laazem: yek dokmeh
' baa hamaan naame avalieh
Dim i As Integer

Private Sub Command1_Click()
halgheye_man ' sedaa kardane sub
End Sub

Sub halgheye_man()

For i = 1 To 10 Step 2
Print i
Next i

End Sub[/ltr]

​

.

ب) با استفاده از دستور Call:
فراخوانی رویه های بالا با دستور call به صورت زیر است
[ltr]Call Show_results[/ltr]

[color=green] ' mavaade laazem: yek dokmeh
' baa hamaan naame avalieh[/color]
Dim i As Integer

Private Sub Command1_Click()
[color=red] call halgheye_man[/color][color=green] ' sedaa kardane sub[/color]
End Sub

[color=blue]Sub halgheye_man()[/color]

For i = 1 To 10 Step 2
Print i
Next i

[color=blue]End Sub[/color]

​

.

 

[saalek110]

[ltr]
' mavaade laazem: yek dokmeh va yek textbox
' baa hamaan naam haaye avalieh
Dim i As Integer
Dim sum As Integer

Private Sub Command1_Click()
call halgheye_man ' sedaa kardane sub
End Sub

Sub halgheye_man()
For i = 1 To 10 Step 2
sum = sum + i
Next i
Text1.Text = sum
End Sub[/ltr]

​

 

[saalek110]

پنجره ((ادد پروسيجر))

وقتي كه پنجره كد باز باشد،(وقتي پنجره كد غيرفعال باشد، اين پنجره قابل دسترس نيست) طبق شكل زير به اين منو دسترسي داريد.

​

بعد انتخاب بطور اتوماتيك قالب پروسيجر ساخته ميشه.
البته با نوشتن دستي هم هيچ فرقي نداره. طرز استفاده هم ساده است. يك اسم مي ديد، نوع پروسيجر را مشخص كنيد و پابليك يا پرويت بودنش را . بعدا فرق اينها را شرح مي دهيم.

​

اگر بطور دستي اسم تابع را بنويسيد و اينتر كنيد ، خط ((اند ساب)) بطور اتوماتيك اضافه ميشه و شما كدتان را وسط قالب پروسيجر مي نويسيد.

 

[MnavidM]

با سلام.

سالک جان واقعا خوب پیش رفتی .

جای تحسین داره

اگه مشکلی و یا به چیزی نیاز داشتی بهم بگو (البته تو پیغام خصوصی).

موفق باشی.
نوید.

 

[saalek110]

معرفي دو ابزار ديگر


از جعبه ابزار ، دو ابزار زير را ، اضافه كنيد:

​

شما مي توانيد از پنجره پراپرتي ، صفت پيكچررا تغيير دهيد. يعني يك عكس درونش از هارد قرار دهيد.

​

من اينكار را كرده ام. و نتيجه را در زير مي بينيد. عکس بالایی در یک پیکچرباکس است و پاینی در یک ایمیج قرار دارد. می بینید که عکسها از کادر خارجند.

​

 

[saalek110]

صفت اتو سايز جعبه تصوير(پيكچر باكس)

​

 

[saalek110]

صفت استرچ از ايميج

​