توابع API در VB6 :

آموزش کاربردی توابع API در VB 6 رو توی فروم گرمـدره

شروع کردم لطفــا همکاری کنین تا ادامه پیدا کنه.(برای

رفتن به این فروم از لینک های کنار صــــــفحه روی لینک

"فروم شماره ۱ گرمدره" کلیک کنید.)

وای چه استقبال پر شکوهی:

اینهمه می گفتین فروم و تالار گفتگو راه بندازم چی شد

؟؟؟

دو هفتس فروم بازه فقط ۴ نفر عضو شدن(تازه اونم

یکیش خودمم)

نمیرین عضو بشین بگین تعطیلش کنم همین وبلاگ

فکستنی به اندازه کافی وقتمو می گیره

راستی

قسمت مکالمه آزاد تالار گرمدره راه افتاد

هر کسی می خواد مدریت یه قسمت تالار گرمدره رو

داشته باشه بره قسمت مقررات تالار رو بخونه

درس هشتم پاسکال:

به نام خدا

سلام

ببخشید که اینقدر منتظر ماندید. دلیلش این است که من درگیر یکسری مسائل هستم و فعلا کمتر وقت دارم.

خب بگذریم. من یادم رفت نوعی شرط را بگویم که می خواهم این جلسه آن را توضیح دهم.

در بعضی مواقع شما برای یک متغیر می خواهید چندین مقدار را چک کنید این کار با if زمان بر است و کلی باید شرط بنویسید. برای این کار دستوری به نام case است که مثالی از آن را در زیر مشاهده می کنید:

Case a of

12:write(‘salam’);

13..20:write(‘hello’);

11,12:write(‘chetori/’);

20..30,0..10:write(‘khoobam’);

Else

Write(‘gomsho’);

End;

این دستورات مقادیر مختلفی را برای متغیر a چک می کند در مقدار اولی که معلوم است 12 را چک می کند در مقدار دومی اعداد 13 تا 20 را چک می کند. در سومی 11 و 12 را و در چهارمی 20 تا 30 و 0 تا 10 را و در آخر اگر هیچ کدام نبود دستور آخر را اجرا می کند.

نکته: اگ هر کدام از مقادیر همخوانی داشته باشند بقیه چک نخواهند شد.

نکته: گذاشتن else ضروری نیست.

نکته: به جای یک دستور می توانیثد یک بلاک بگذارید.

نکته: گذاشتن end; ضروری است.

خب این بخش هم یاد گرفتید حالا برنامه ای را که با if در جلسه ی قبل نوشته بودید را با case بنویسید.

(به نقل از سارمام)

 

درس هفتم پاسکال:

به نام خدا

در درس قبل for را خوانديد و فهميديد كه مي توان يكسري از دستور ها را داخل آن گذاشت و به مقدار دلخواه تكرار كرد.

ممكن است بخواهيم تا وقتي يك شرط برقرار است چند دستور تكرار شود:

var

a,b:integer;

begin

readln(a,b);

while a>b do

b:=b*2;

end.

در برنامه بالا while اين كار را انجام مي دهد.يعني تا وقتي كه a از b بزرگتر است،b را ضرب در دو مي كند.شرطي كه داخلwhileمي گذاريم تمام خاصيت هاي شرط داخلif را دارد و مي شود در آن از and,or,not,… استفاده كرد. دستور بعد از while مي تواند يك دستور باشد يا اين كه چند دستور باشد كه با begin شروع و با end; تمام شده باشد:

var

a,b:integer;

begin

readln(a,b);

while a>b do

begin

b:=b+1;

writeln(b);

end;

end.

نوعي از while هست كه به آن while بي پايان مي گويند:

while true do

اين while هيچ وقت تمام نمي شود.بنا براين برنامه شما هيچ وقت تمام نمي شود. دستور true مثل این است که به کامپیوتر بگوییم تا وقتی 1=1 است این کار را بکن. اين روش براي نوشتن ويروس ها مناسب است!!!

براي تمام كردن اين while بايد داخل آن از دستوري به نام break استفاده كرد:

var

a,b:integer;

begin

readln(a,b);

while true do

begin

b:=b+1;

writeln(b);

if b>a then

break;

end;

end.

(به نقل از سارمام)

درس ششم پاسکال:

امروز یک اصل دیگر از برنامه نویسی را به شما آموزش خواهم داد و آن حلقه است. حلقه به بخشی از برنامه گفته می شود که دائم تکرار می شود. حلقه ها 2 گونه اند:

1-  شمارشی

2-  شرطی

البته همان طور که در آینده خواهیم فهمید حلقه های شمارشی به نحوی شرطی هستند.

خب حال در این مطلب هدفمان پرداختن به حلقه ی نوع اول است که دستور یا دستوراتی(بلاک) را به دفعات مشخص تکرار کند. حال به مثالی می پردازیم که 10 بار بنویسد سلام.

For a:=1 to 10 do

Writeln(‘salam’);

در مثال بالا a یک متغیر است و ما آن را به وسیله ی for از 1 تا 10 به آن مقدار داده ایم. یعنی اول a می شود 1 سپس دستور اجرا می شود بعد می شود 2 و دستور اجرا می شود و...... و می شود 10 دستور اجرا می شود سپس برنامه می خواهد به آن مقدار 11 بدهد ولی چون می بیند حد اکثر مقدار 10 است دیگر اضافه نمی کند و از حلقه خارج می شود. مثال:

For a:=1 to 10 do

Writeln(a);

مثال بالا اعداد 1 تا 10 را می نویسد.

نکته: متغیر داخل for و دو مقدار شروع و پایان باید  صحیح  باشند.

نکته: شما می توانید به جای اعداد شروع و پایان یا یکیشان متغیر قرار دهید.

For a:= b to c do

Writeln(a);

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

For a:=1 to 10 do

A:=a-1;

حلقه ی بالا بی نهایت است چون هرچه حلقه به مقدار متغیر می افزاید دستور از آن کم می کند.

نکته: اگر در حلقه های بالا مقدار اولیه از ثانویه بیشتر باشد حلقه اجرا نمی شود و اگر مساوی باشد یکبار اجرا می شود.

نکته: اعداد اولیه و ثانویه منفی هم می توانند باشند.

نکته: پس از اتمام یک for که اجرا شده است متغیر آن برابر با مقدار ثانویه خواهد بود.

************حال به نوعی از for می پردازیم که برعکس عمل می کند یعنی آنقدر از مقدار اولیه کم می کند تا به مقدار ثانویه برسد. مثال برنامه ی زیر از 10 تا 1 را می نویسد:

For a:=10 downto 1 do

Writeln(a);

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

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

تمرین حل شده ی 1:

برنامه ای بنویسید که عددی را بگیرد و طول عدد را هم بگیرد سپس آن را برعکس بنویسد.

(پاسخ برای دانلود)

(به نقل از سارمام)

روز از نو روزی از نو :

سلام به همگی

دوباره براتون یه فروم راه انداختم البته اینو بگم کلوب احسان باحالتره ولی خداییش عضویتش خیلی طولانیه (دعوت نامه و.... خود منم هنوز وقت نکردم اونجا عضو بشم) ولی این یکی مثل همون قبلیست که درش تخته شد.

از ۶ نفر عزیزی هم که توی قبلی عضو بودن عذر خواهی میکنم (خداییش تقصیر من نبود دلایل دیگه ای داشت که می دونید)

بیایید در این روز عزیز همه دست به آسمان برداریم و برای حفظ این فروم از گزند بیگانگان دعا کنیم .

**فروم جدید گرمدره**               (جدید)

**فروم احسان در کلوب دات کام**

(لینک های کنار صفحه تصحیح شد)

درس پنجم پاسکال:

 

به نام الله

سلام

ما اکنون یک بخش شرط که اگر است را بلدیم. ولی بعضی مواقع لازم می شود که شما اگر یک شرط درست بود به جای یک کار ده تا کار بکنید! خب اگر می خواهید همین طوری ادامه دهید باید 10 تا شرط که همه یکی هستند را بنویسید!

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

Var

A:integer;

Begin

 Readln(a);

If a mod 2=0 then

Begin

Write(‘salam’);

A:=a-1;

End;

Readln;

End.

خب حتما می پرسید این برنامه چرا دوتا begin end داره و تازه چرا بعد از end اول ; آمده است؟

خب این همان کیفی بود که می گفتم(از begin دومی تا end اولی). و حالا به این می پردازیم که بعد از end اولی چه باید گذاشت؟ شما برای این end باید همان قانونی را اجرا کنید که برای دستور بعد از شرط اجرا می کردید یعنی اگر else داشت هیچی بعدش نگذارید و اگر else نداشت بعدش ; بگذارید. به همین سادگی! و شاید تا به حال فهمیده باشید که begin end. اصلی هم در اصل نوعی بلاک است.

نکته: میتوانید هر چندتا که خواستید بلاک در بلاک بگذارید و محدودیتی وجود ندارد و به همین شکل چند شرط در هم می توانید بگذارید مثال:

If a mod 7=0 then

If a mod 5=0 then

Write(‘salam’);

خب از این به بعد چرت و پرت های اضافی را دیگر در مثالهای کوچک نمیآورم مثل تعریف یا گرفتن متغیرها.

(به نقل از سارمام)

درس چهارم پاسکال:

به نام الله

سلام

در این مطلب می خواهم یکی از مهمترین درسها پس از متغیر را آموزش دهیم و آن چیزی نیست جز شرط.

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

مثال 1:

Var

A:integer;

Begin

Readln(a);

If a mod 2=0 then

Writeln(‘zoj’);

If a mod 2<>0 then

Writeln(‘fard’);

Readln;

End.

در این برنامه همانگونه که می بینید اول یک عدد از کاربر گرفته شده است و سپس برنامه یک کارایی کرده که ما نمی دانیم یعنی چه؟

پس از گرفتن عدد شما یک واژه که همان if می باشد می بینید. این واژه به کامپیوتر می گوید اگر پس باید حدس زده باشید که بخش بعد از آن باید شرط باشد. شرط ما در این بخش این بوده است که باقیمانده ی a بر 2 صفر باشد و پس از گفتن این شرط ما کلمه ی then را به کار بردیم که به معنی آنگاه می باشد و پس از then آن کاری را که کامپیوتر باید پس از درست بودن شرط انجام دهد را نوشته ایم که باید بنویسد زوج یعنی عدد زوج است. توجه کنید که پس از then  ; نگذاشته ام.

حال شرط بعدی  را نگاه کنید و قبل از آن که سطر پایین را بخوانید بگویید چه کار می کند.

بله درست است. این سطر اگر باقیمانده صفر نباشد می نویسد فرد چون عدد فرد است و علامت <> هم به معنی نامساوی می باشد. پس به طور کلی برنامه ی بالا یک عدد را می گیرد و به کاربر می گوید که این عدد زوج است یا فرد.

حال به علامتهای مقایسه ی دو عدد می پردازیم:

=	مساوی
<>	نامساوی
<	بزرگتر
>	کوچکتر
=>	بزرگتر مساوی
=<	کوچکتر مساوی

 

 

 

 

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

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

در برنامه نویسی	معنی	مثال
Not	نباید باشد	Not(x=10)
And	و	(X<=10)and(x>=1)
Or	یا	(x<10)or(x>5)
xor	یکی از شروط	(X<0)xor(x mod 5=0)

 

تفاوت or و xor:

در or اگر یکی از شروط یا هر دو شرط برقرار باشد دستور اجرا می شود ولی در xor اگر هر دو شرط برقرا باشد دستور اجرا نمی شود.

نکته: باید دو شرطی را که بین آنها or xor and می گذارید داخل پرانتز باشند.

نکته: شما می توانید چند تا از این ها را با هم استفاده کنید مثال2:

If Not(((1)and(2))or((3)and(4))) then

-----------;

در مثال بالا 1 و 2 و3 و 4 شرط هستند.

حال به نوع دیگری از به کار بردن شرط می پر دازیم برای این کار مثال 1 را بگونهای دیگر می نویسیم:

Var

A:integer;

Begin

If a mod 2=0 then

Writeln(‘zoj’)

Else

Writeln(‘fard’);

Readln;

End.

در مثال بالا else به معنای در غیر این صورت است و باید دستور بعد از then و قبل از else را بدون ; بنویسیم تا گامپیوتر بفهمد که ما از به else  می خواهیم استفاده کنیم.

تمرین:

۱- برنامه ای بنویسید که سه عدد را بگیرد و عدد اول را با توجه به عدد دوم در عدد سوم ضرب یا تقسیم یا جمع یا تفریق کند یعنی اگر عدد دوم 1 بود عدد اول را در عدد سوم ضرب کند اگر 2 بود آنها را تقسیم کند اگر 3 بود آنها را جمع کند و اگر چهار بود آنها را تفریق کند

(به نقل از سارمام)

 

درس سوم پاسکال:

به نام الله

سلام

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

گاهی لازم می شود که مقدار یک متغیر را کاربر معلوم کند یعنی عددی را وارد کند و برنامه آن را در یک متغیر ذخیره کند. شما این کار را با دستوری انجام می دهید که در این مثال است:

Var

A:integer;

Begin

Readln(a);

Writeln(a*2);

Readln;

End.

در مثال بالا دستور readln(a); مقدار a را از کاربر می گیرد و دستور readln; هم هیچی را از کاربر می گیرد یعنی کاربر باید enter بزند تا به دستور بعدی که همان پایان است برسد. برنامه ی بالا عددی را می گیرد و آن را در 2 ضرب می کند سپس نمایش می دهد.

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

Var

A,b:integer;

Begin

Readln(a,b);

Writeln(a*b);

Readln;

End.

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

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

برنامه ی بالا را بنویسید و مقادیر متفاوتی بدهید مثلا salam را وارد کنید و هر بار ببینید برنامه چه کار می کند.

تمرین: برنامه ای بنویسید که 2 عدد را بگیرد و خارج قسمت و باقیمانده ی تقسیم آن دو را بنویسد.

 (به نقل از سارمام)

سوال یکی .....

سلام به همگی آقایون و خانوما

یکی از بیننده های این وبلاگ یه سوال پرسیده بود من جوابی براش نداشتم چون میدونم شاید نرین قسمت نظرات سوالو بخونید همینجا میزارم اگه کسی جوابی به ذهنش رسید بگه

اگر هم جوابی نمیدونین پس چرا این قسمتو خوندین؟؟؟؟؟

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

اصلا به من چه هر کی هر کار میخواد بکنه فقط بلا نسبت شما نمک نشناس نباشین(به کسی بر نخوره با اوناییم که نظر شر و ور دادن)یه تعداد نظر دیدم که واقعا دلم شکست

"دلــــمو شـــکونــــدی بـــرو حــالشو بـــبر ........."

اینم عین همون سوال:

سلام,امیدوارم حال همگی خوب باشه.یه سوال فنی دارم میدونم جاش اینجا نیست ولی مجبورم میفهمید؟نمیدونم چی کار کنم.میلم غاطی کرده,اینباکسم خالی شده,نمیدونم چرا,اصلا همچین چیزی عادیه؟کلی مطلب داشتم.یه مهندس یه نظر کارشناسی بده.میخوام بدونم مشکلش چی بوده.تا حالا واسه کسی پیش نیومده؟