یه سری آموزش های فوق العاده جالب برای دوستان عزیز

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر عدد N را خوانده و مجموع ارقام آن را نشان دهد :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
[/TD]
[TD="class: code"]Private Sub Command21_Click() '25

Dim n As Integer, s As Integer

n = InputBox("Enter the num:")

While n > 0

s = s + n Mod 10

n = n \ 10

Wend

MsgBox s

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر یک عدد صحیح مثبت را خوانده جذر آن را نمایش دهد :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
[/TD]
[TD="class: code"]Private Sub Command23_Click()

Cls

Dim n As Integer, i As Integer, s As Integer, c As Integer

n = InputBox("Enter a natural number to get its square root (without sqr() function)")

i = 1

While s < n

s = s + i

i = i + 2

c = c + 1

Wend

If s > n Then

Print "Near "; (s / c) - 1

Else: Print "Really "; s / c

End If

'Or use n ^ 0.5 equation

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر 20 جمله اول سری فیبوناچی را نمایش میدهد :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
[/TD]
[TD="class: code"]Private Sub Command24_Click()

Cls

Dim a As Integer, b As Integer, c As Integer, i As Integer

a = 1

For i = 1 To InputBox("Enter number of fibonacci series you want to make", , 20)

c = a + b

Print c

a = b

b = c

Next

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر دو عدد صحیح از ورودی خوانده و عمل ضرب را بدون استفاده از عملگر ضرب محاسبه و نمایش میدهد :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
[/TD]
[TD="class: code"]Private Sub Command25_Click()

Dim a As Integer, b As Integer, i As Integer, m As Integer

a = InputBox("Enter first num")

b = InputBox("Enter second num")

For i = 1 To b

m = m + a

Next

MsgBox a & " * " & b & " = " & m

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر رشته ای را از ورودی دریافت کرده و تعداد حروف بزرگ و کوچک آن را نمایش میدهد بصورت مجزا :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
[/TD]
[TD="class: code"]Private Sub Command1_Click()

Cls

Dim s As String

s = InputBox("")

For i = 1 To Len(s)

Select Case Mid(s, i, 1)

Case "A" To "Z"

u = u + 1

Case "a" To "z"

l = l + 1

End Select

Next

Print "horuf kuchak"; l

Print "horufe bozorg"; u

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر رشته ای را از ورودی دریافت کرده و تعیین میکند که آیا رشته از هردو طرف که در نظر گرفته شود یکسان است یا خیر؟ :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
[/TD]
[TD="class: code"]Private Sub Command2_Click()

Cls

Dim t As String

t = InputBox("Enter string")

If StrReverse(t) = t Then

Print "YES"

Else: Print "NO"

End If

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر بدون استفاده از تابع Replace، کار این تابع را شبیه سازی میکند :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
[/TD]
[TD="class: code"]Private Sub Command3_Click()

Cls

Dim s As Integer, f As Integer, r As Integer, p1 As Integer, p2 As Integer, i As Integer

s = InputBox("Enter string")

f = InputBox("Find")

r = InputBox("Replace with")

Do Until InStr(1, s, f) = 0

i = InStr(1, s, f)

p1 = Mid(s, 1, i - 1)

p2 = Mid(s, i + Len(f))

s = p1 + r + p2

Loop

Print s

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

برنامه زیر رشته ای را از ورودی دریافت میکند و مجموع ارقام نویسه ای موجود در رشته را محاسبه مینماید و نمایش میدهد :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
[/TD]
[TD="class: code"]Private Sub Command5_Click()

Cls

Dim t As String, i As Integer, s As Integer, p As String

t = InputBox("Enter string")

For i = 1 To Len(t)

p = Mid(t, i, 1)

If IsNumeric(p) Then s = s + p

Next

Print s

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

این برنامه حاصل عبارت زیر را تا 10 جمله حساب کند:
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
[/TD]
[TD="class: code"]Private Sub Command1_Click()

Dim i As Integer, a As Single

a = 1

For i = 1 To 9

a = a + i / (i + 1)

Next

Print a

End Sub

[/TD]
[/TR]
[/TABLE]

 

پاسخ : یه سری آموزش های فوق العاده جالب برای دوستان عزیز

نواع متغیرها:

متغیرها در ویژوال بیسیک به دو دسته عددی و غیر عددی تقسیم بندی می شوند. داده های عددی نیز خود به دو گروه صحیح و اعشاری تقسیم می شوند. داده های غیر عددی شامل داده های منطقی ، رشته ای ، تاریخ و زمان و شیء می باشند ، که هر کدام را به اختصار توضیح می دهیم.

الف) متغیرهای عددی :

در زیر جدولی از این نوع برحسب میزان حافظه اشغالی مرتب شده اند، که دانستن آن برای پیشروی در آموختن لازم است:


باره قابل قبول
نوع متغیر

۰ تا ۲۵۵
Byte

۳۲۷۶۷- تا ۳۲۷۶۸
Integer

۲۱۴۷۴۸۳۶۷- تا ۲۱۴۷۴۸۳۶۴۸
Long




تمام متغیرهایی که از یکی از این سه نوع تعریف شوند فقط پذیرای اعداد صحیح خواهند بود. اگر یک عدد اعشاری به این نوع متغیرها نسبت داده شود فقط قسمت صحیح عدد در متغیر قرار می گیرد.

انواع متغیرهای اعشاری هم به این صورت هستند:


بازه قابل قبول
نوع متغیر

گستره وسیعی با ۶ رقم اعشار
Single

گستره وسیعی با ۱۴ رقم اعشار
Double

۴ رقم اعشار
Currency




نکته: توجه نمایید که نوع Currency بیشتر برای محاسبات مالی و اداری استفاده می شود.

ب ) متغیر رشته ای :

در نوشتن اکثر برنامه ها نیاز به متغیرهایی خواهد شد که حروف و کلماتی مثل نام افراد را نگهداری کنند. در ویژوال بیسیک این کار به عهده متغیرهایی هستند که از نوع String تعریف شوند.

ج ) متغیرهای دو مقداری ( منطقی ) :

گاهی متغیری لازم است که بتواند یکی از دو مقدار True یا False ( همان صفر و یک، یا درست و نادرست) را در خود نگهداری کند. این نوع در برنامه با کلمه کلیدی Boolean مشخص می شود. در ادامه با این متغیرها بیشتر آشنا خواهید شد.

د ) نوع تاریخ و زمان :

توضیح خاصی ندارد! فقط به یاد داشته باشید که با کلمه کلیدی Date مشخص می شود. همانگونه که از نام آن پیداست، برای کار با زمان و تاریخ کاربرد دارد.

ه ) نوع Variant:

این نوع می تواند انواع متغیرهای بالا را در خود جای دهد! یعنی در یک قسمت می تواند عدد باشد، و در قسمت دیگر رشته، و . . . !! البته بر خلاف گستردگی ظاهریش چندان پر کاربرد نیست.



تعریف متغیرها:

برای تعریف متغیر - و یا در واقع اعلان نوع آن - از ساختار زیر استفاده می کنیم:

Dim نام متغیر As نوع متغیر

به مثال های زیر توجه کنید:

Dim x As Double

Dim n , m As Integer

Dim fname , str1 , str2 As String * 10

دستور اول x را از نوع اعشاری double تعریف می کند.

در دستور دوم دو متغیر m و n از نوع صحیح integer تعریف می شوند (به علامت , بین دو متغیر توجه کنید).

در سطر سوم str1 ، fname و str2 هر سه از نوع String تعریف می شوند. با این تفاوت که رشته str2 حداکثر می تواند ۱۰ کاراکتر بپذیرد.

نکته بسیار مهم: در حقیقت تعریف کردن متغیرها در زبان ویژوال بیسیک باعث جلوگیری از بروز خطا وکمتر مصرف شدن حافظه می شود، و شما می توانید بدون این که متغیرها را تعریف کنید از آنها استفاده نمایید. اگر چه این امر بر وفق مراد تازه کاران است، ولی بهتر است در برنامه متغیرها را تعریف، و سپس استفاده کنید. یکی از مزایای این کار این است که اگر در برنامه ای نام متغیری را اشتباه تایپ کنید هنگام اجرای آن خطای عدم شناسایی متغیر دریافت می کنید. در صورتی که قصد دارید همواره از قاعده تعریف قبل از استفاده را به کار ببرید، کافی است عبارت Option Explicit را قبل از همه کدهای برنامه تایپ کنید.

برای مقدار دهی به متغیرهای تعریف شده دو روش وجود دارد: با دستورات انتساب - که با علامت = انجام می پذیرد - ، و با دستورات ورودی.
ما با دستور = به متغیرهای عددی که در بالا تعریف شده اند مقدار می دهیم:

x = -21.2

n = x

m = ( n + 2 ) * 3 ^ 2 / 5

fname = "ali"

در دستور اول عدد اعشاری 21.2- در x قرار می گیرد. دستور مقدار 21- را در n قرار می دهد.( چرا که n از نوع صحیح تعریف شده است.) مقدار m هم بر اساس تقدم عملگرها تعیین می شود. ترتیب این تقدم به صورت زیر است:

· ( ) : عبارتهای داخل جفت پرانتز بیشترین تقدم رو دارند.

· ^ : توان ریاضی

· * و / : ضرب و تقسیم اعشاری

· \ : تقسیم صحیح (یعنی حاصل این تقسیم همیشه عدد صحیح می باشد.)

· Mod : باقیمانده تقسیم را می دهد. مثلا در عبارت x = 15 Mod 2 مقدار x برابر 1 می شود.

· – و + : جمع و تفریق معمولی

بر اساس مطالب فوق مقدار m به این صورت محاسبه می شود:

m = ( -21 + 2 ) * 3 ^ 2 / 5 = -19 * 3 ^ 2 / 5 = -19 * 9 / 5 = -171 / 5 = -34.2

آخرین دستور کلمه ali را در متغیر رشته ای fname قرار می دهد. اما چرا ali داخل جفت گیومه قرار گرفته؟ عیارت زیر چرا درست عمل نمی کند؟

fname = ali

دو حالت مختلف را بررسی می کنیم:

اول: در ابتدای کدها از Option Explicit استفاده شده است. در این صورت برنامه به دنبال متغری با نام ali می گردد.

دوم: در ابتدای کدها از Option Explicit استفاده نشده است. در این صورت برنامه فرض می کند ali متغیری است رشته ای، و - چون هیچ مقدار خاصی ندارد - رشته تهی در fname قرار می گیرد.

هر دوی این حالتها برخلاف انتظار ماست. لذا برای جلوگیری از چنین اشتباهاتی در ویژوال بیسیک رشته ها (دقت کنید که رشته ها، نه متغیرهای رشته ای) درون " " قرار می گیرند.

حال به عبارات زیر توجه کنید:

str1 = ”Visual “ + ”Basic”

str2 = str1

str1 = 1 + 3

fname = str1 + ” is an integer number”

در دستور اول دو رشته داخل گیومه با هم الحاق شده ، و رشته “Visual Basic” درون str1 قرار می گیرد. با دستور & نیز می توان همانند + دو رشته را به هم متصل نمود.

در دستور دوم محتویات متغیر str1 جایگزین محتویات str2 می شود. اما با توجه به اینکه str2 حداکثر گنجایش ۱۰ کاراکتر را دارد، تنها عبارت "Visual Bas" در آن قرار می گیرد.

در خط سوم سمت راست عملگر انتساب یک عدد صحیح، و سمت چپ یک رشته است. اما چون مقدار سمت راست در متغیر سمت چپ قرار داده می شود - که از نوع رشته ای است - مقدار عددی ۴ به مقدار رشته ای ۴ تبدیل می شود. یعنی:

str1 = "4"

توجه داشته باشید که دو عبارت زیر با هم تفاوت دارند:

str1 = 1 + 3

str1 = "1 + 3"

بر اساس توضیحات فوق در نهایت مقدار متغیر fname به صورت زیر خواهد یود:

fname = str1 + " is an Integer number" = "4" + " is an Integer number" = "4 is an Integer number"

نکته بسیار مهم: البته در نام گذاری متغیر ها باید از قوانین خاصی پیروی کرد. فاصله در نام گذاری متغیر ها مجاز نیست.
مثلاً Dim Ali Reza As Integer غلط است چرا که بین دو کلمه Ali و Reza فاصله است.