آموزش PowerBASIC

[yeketaz]

اینم از قولی که به دوستان داده بودم

من کم کم روی مباحث پاوربیسیک کار می کنم و آموزشش را اینجا می ذارم

اما هر مبحثی را از ساده تا حرفه ای پیش می برم تا یه برنامه نویس حرفه ای پاوربیسیک بشوید

سعی کردم توی مقاله ها بسیار ساده آموزش بدم ولی اگر کم و کسری داره ببخشید دیگه

من به امید اینکه یه روزی پاوربیسیک بین فارسی زبانان و ایران جا بیافته این مقاله ها را می نویسم

فکر کنم ما اولین کسایی هستیم که آموزش کاملی از مباحث پاوربیسیک رو داریم می ذاریم

پس بهتره بره جزو موضوعات مهم چون نمی شه روزی یه آموزش گذاشت و این پست هم به پست های

قدیمی می پیوندد

اینم از قسمت اول آموزش که یک فایل PDF است :


  PowerBASIC(Part1).rar (اندازه: 78.93 KB / تعداد دفعات دریافت: 181)

این قسمت از آموزش مرتبط با کار با اطلاعات در پاوربیسیک است

[yeketaz]

هرکی مشکلی داره همین جا بپرسه یا PM بزنه

دارم روی قسمت دوم داده ها در پاوربیسیک کار می کنم:

1-آرایه ها

2-عملگرها و عملوند ها

سپس می ریم سراغ شروع برنامه نویسی با پاوربیسیک

شاید بپرسید چرا انقدر دارم روی داده ها کار می کنم :

چون PowerBASIC یک زبان ساخت یافته است و اساس کار زبانهای ساخت یافته داده ها و توابع هستند

[yeketaz]

قسمت دوم آموزش داده ها در پاوربیسیک :

این آخرین قسمت از آموزش داده ها در پاوربیسیکه

بعد می خوام برم سره ساختارهای تصمیم گیری و تکرار



  PowerBASIC(Part2).rar (اندازه: 39.97 KB / تعداد دفعات دریافت: 129)

[xsalamx]

من هنوز دارم دنبال یه اینترنت درست حسابی میگردم که دنلودش کنم.;)

سلام

حجمش که خیلی کمه,دیگه اینترنت درستو حسابی نمی خواد

خداحافظ

[ajlajlajl]

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

[yeketaz]

این قسمت رو هم حال نداشتم PDF کنم و هم خیلی ها با دانلود نرم افزار Adobe Reader مشکل دارند
==================================================
قسمت سوم آموزش پاوربیسیک : ساختارهای شرطی قسمت اول
==================================================
دستور IF :

این دستور در شکل های گوناگون به کار برده می شود:

1-IF بدون End IF :

فرمول :

کد:

If شرط Then کدهای صحیح Else کدهای غلط

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

کدهای صحیح کدهایی هستند که در صورت درست بودن شرط اجرا خواهند شد

کدهای غلط کدهایی هستند که در صورت غلط بودن شرط اجرا می شوند

که قسمت کدهای صحیح به بعد اختیاری است و می تواند نباشد :

کد:

If شرط Then کدهای صحیح

مثال :

کد:

x%=10
y%=15
IF x%<y% Then y%=0 Else x%=0

دو خط اول تعریف و مقدار دهی به دو متغیر است=مراجعه شود به قسمت اول آموزش داده ها

خط سوم چک می کند که اگر x از y کوچکتر بود y را مساوی با 0 کند وگرنه x را برابر با 0 می کند

که شرط درست است و y برابر با 0 می شود

2-If با End If :

فرمول :

کد:

If شرط Then

کدهایی که در صورت درست بودن شرط اجرا می شوند

Else

کدهایی که در صورت غلط بودن شرط اجرا می شوند

End If

می بینید که مشابه نوع قبلی است اما در خط های جداگانه به اضافه End If

باز هم Else اختیاری است :

کد:

If شرط Then
کدهایی که در صورت درست بودن شرط اجرا می شوند
End If

در این نوع اگر شرط درست بود دستورات اجرا وگرنه هیچ اتفاقی نمی افتد اما اگر Else در شرط باشد

در صورت غلط بودن شرط دستورات بعد از آن اجرا می شود

مثال :

کد:

Dim x,y as Integer
x=10
y=15
If x%>y% Then
y=0
Else
x=0
End If

در این مثال شرط غلط است زیرا x از y کوچکتر است پس دستورات پس از Else اجرا می شود

3-If متداخل یا تودرتو :

در این نوع می توان شرطهای مختلفی را چک و تصمیم گیری کرد که توصیه می کنم از Select Case که در

قسمت بعد یاد می دهم استفاده کنید

فرمول :

کد:

If شرط اول Then
کدهایی که در صورت درست بودن شرط اول اجرا می شوند
ElseIf شرط دوم Then
کدهایی که در صورت درست بودن شرط دوم اجرا می شوند
ElseIf شرط سوم Then
کدهایی که در صورت درست بودن شرط سوم اجرا می شوند
.
.
.

ElseIf شرط آخر Then
کدهایی که در صورت درست بودن شرط آخر اجرا می شوند
Else
کدهایی که در صورت غلط بودن تمامی شرط ها اجرا می شوند
End If

تذکر :

اگر بیشتر از یک شرط در این نوع درست باشد اولین شرطی که برنامه به آن برسد اجرا خواهد شد

در صورتی که هیچ یک از شرط ها اجرا نشود دستورات بعد از Else اجرا خواهد شد

بازهم Else اختیاری است

مثال :

کد:

Dim x%
Dim y%
x%=10
y%=15
If x%=y% Then
    x%=0
ElseIf x%>y% Then
    x%=1
ElseIf x%<y% Then
    y%=1
ElseIf x%>=y% Then
    x%=2
ElseIf x%<=y% Then
    y%=2
Else
    x%=10
    y%=10
End If

دیگه اینم توضیح نمی خواد چون تمام دستوراتی را که استفاده کرددم در مقالات قبلی شرح دادم

===================================================

دستور IIF

این دستور دقیقا کار IF و Else را انجام می دهد

فرمول :

کد:

متغیر=IIf(مقدار غلط,مقدار صحیح,شرط)

شرط در اینجا نیز می تواند یک مقایسه عددی یا ... باشد

در صورتی که شرط درست باشد مقدار صحیح در متغیر قرار می گیرد

و در غیر این صورت مقدار غلط در متغیر قرار می گیرد

این دستور دقیقا مشابه دستور ? در ++C می باشد

مثال :

کد:

Dim x,y,z as Integer
x=10
y=15
z=IIf(x<y,10,15)

در اینجا چک می کند که اگر x از y بزرگتر است 10 را در z قرار ده وگرنه 15 در z قرار می گیرد

که شرط درست است و z برابر با 10 می شود

[EleRam]

شرمنده هنوز وقت نكردم پست ها رو بخونم ولي اون اولي رو خوندم (پست يكه تاز)
ميگم با ساخت يه وبلاگ چطورين؟! مطالب رو هم اينجا ميذاريم هم اونجا...

[yeketaz]

اگه خودت می تونی یه وبلاگ بزن ولی من فعلا توی وبلاگ خودم موندم!
-----------------------------------------------------------------------------------------
آموزش ساختارهای تصمیم گیری (قسمت دوم) در پاوربیسیک
=================================================
دستور Select Case :

از این دستور وقتی استفاده می شه که بخوایم شرطهای زیادی رو چک کنیم که اکثرا برای بیش از 3 شرط

استفاده می شه

فرمول :

کد:

Select Case منبع شرطها
Case شرط اول
مجموعه دستوراتی که در صورت درست بودن شرط اول اجرا می شود
Case شرط دوم
مجموعه دستوراتی که در صورت درست بودن شرط اول اجرا می شود
.
.
.
Case شرط آخر
مجموعه دستوراتی که در صورت درست بودن شرط آخر اجرا می شود
Case Else
مجموعه دستوراتی که در صورت غلط بودن همه شرطها اجرا می شود
End Select

منبع شرطها عبارتی است که شرطهای مختلف باید از آن استنباط شود

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

Case Else اختیاری است و می تواند نباشد و در صورتی دستورات بعد از آن اجرا می شوند که

هیچ یک از شرطها درست نباشد :

مثال :

کد:

Dim x,y,z As Integer
x=20
y=30
z=x+y
Select Case z
Case <10
x=200
Case <20
x=300
Case 30
x=400
Case >49
x=500
Case Else
x=0
End Select

توضیح :

خط اول تا سوم تعریف و مقدار دهی به متغیرها بود که برای اطلاعات بیشتر می توانید به مقاله شماره 1

مراجعه کنید

خط چهارم x و y را با هم جمع کرده و در z قرار می دهد

سپس منبع شرط ها برابر با همین z گشته و روی آن تصمیم گیری می شود

شرط اول یعنی 10> می گوید اگر z از 10 کوچکتر بود x را برابر با 200 قرار بده

شرط دوم یعنی 20> می گوید که اگر z از 20 کوچکتر بود x را برابر با 300 قرار بده

شرط سوم یعنی 30 می گوید که اگر z برابر با 30 بود x را برابر با 400 قرار بده

شرط چهارم یعنی 49< می گوید که اگر z بزرگتر از 49 بود x را برابر با 500 قرار بده

در صورتی هم که هیچ یک از شرطهای بالا درست نبود x را برابر با 0 قرار بده

که شرط شماره 4 درست است و x برابر با 500 می شود

===================================================

پاوربیسیک از توابع داخلی بسیار زیاد و قدرتمندی برای برنامه نویسی حرفه ای استفاده می کنه

و دارای چندین دستور تصمیم گیری که من این سه تا دستور If و IIF و Select case را به دلیل

شباهت آنها به ویژوال بیسیک گذاشتم

جلسه بعدی روی حلقه ها توی پاوربیسیک صحبت می کنم و سپس به سراغ توابع ریاضی و

کار با رشته می ریم

پاوربیسیک کار روی رشته ها را هم بسیار راحت کرده که در جلسات بعدی می فهمید

[Di Di]

خيلي ممنون جناب Yeketaz . آموزش هاي واقعا زيبايي هستند.
اميدوارم آموزشهاتون به همين نحو ادامه پيدا كنه و نسخه PDF شون همراه با فهرست بندي مناسب رو هم براي دانلود قرار بديد.

[EleRam]

اگه خودت می تونی یه وبلاگ بزن ولی من فعلا توی وبلاگ خودم موندم!

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

[hamed_Arfaee]

اینم یه بخش جدا به امید فعالیت روز افزون شما .