سال جدید به همه بازدید کنددگان عزیز تبریک میگم و شرمندم که دیر به دیر میام مطلب می زارم. امیدوارم امسال با یه برنامه ریزی مناسب بتونم بیشتر مطلب بزارم... در هر صورت منتظر سوالات ونظراتتون هستم....

براتون سال خوبی امیدوارم...

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

سی : زبانی دارای ساختاری مستحکم و ساده. جزء برترین زبان های تاریخ کامپیوتر. زبانی که هسته سیستم عامل ها بوسیله آن نوشته شده است. ( بلی هسته سیستم عامل ویندوز هم بوسیله سی نوشته شده است نه بیسیک!!! ) زبانی است که با تفاوتی اندک دارای شاخه های فراوانی شد. در کل زبانی است کامل و پیشرفته.

بیسیک : ساده. تنها برتری آن به دیگر زبان های برنامه نویسی دیگر.

پاسکال : مخلوطی از سادگی بیسیک و قدرت سی. در کل زبانی کامل به مانند سی است.

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

ویژوال بیسیک

تعجب کردین!!!!؟ چون دارای ساختار ساده تری است و از پشتیبانی شرکت بزرگی برخوردار است ( مایکروسافت ). با همه گیر شدن اینترنت و رشد فزاینده استفاده اینترنت در کارهای تجاری و روزمره زندگی و معرفی محصول دات نت مایکروسافت قویترین برنامه ای که با این محصول می تواند ارتباط برقرار کند بیسیک می باشد. با آن سادگی ( و قدرتی که به آن اضافه شده است ) دیگر می توانید پای به عرصه ای از دنیای برنامه نویسی پا بگذارید که در کشورمان دارای زمینه های خوبی برای کسب درآمد است. دنیای برنامه نویسی تحت وب هر روز دارای ابعاد جدید تری است و با زمزمه های بوجود آمدن وب۲ دیگر جای بحثی نیست. ( البته شاید دوستان زیادی اعتراض کنن که با دلفی و یا ویژوال سی هم می شه برنامه های تحت وب نوشت ولی جواب من اینه : بله با دلفی هم می شه ولی وقتی خود مایکروسافت می یاد دات نت رو بوجود می یاره پس با نکات ریز و پیچیده اون آشنا است تا دلفی. از اون طرف هم وقتی می شه با زبان ساده بیسیک نوشت چرا بیایم خودمون تو سختی بندازیم و از سی استفاده کنیم؟؟؟ )

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

منتظر نظرات و پیشنهادات شما می باشم.........

اولین نکته تو برنامه نویسی ( هر زبانی ) اینکه مسئله و برنامه ای که ازتون می خوان رو کاملا تو مغزتون پیاده کنین و بدونین چیکار می خواین بکنین اگه مشکلی هست این کار روی کاغذ پیاده کنین ( الگوریتم نویسی - البته من خودم هیچ وقت روی کاغذ این کار انجام نمیدم و همونطور که گفتم توی مغزم این کارو انجام می دم!!!!! ) البته هیچ وقت وقتتون برای نکات ریز برنامتون تلف نکنین و فقط روی نکات اساسی برنامتون فکر کنین....

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

( سومین نکته ) وقتی برنامتون می نویسین اگه جایی گیر کردین و هیچ کاری نتونستین بکنین پیشنهاد می کنم کامپیوتر خاموش کنین!!!!  بله برید یک مجله بخونید یا برید یه چایی بخورید و پس از استراحت کامل برید دوباره یه چایی دیگر بخورین!!!!! ولی این بار فکرتونم به کار بندازین و ببینین کجای کارتون مشکل داره؟؟؟ و تو مغزتون تمام راه حل ها رو مرتب کنین و سپس برین کامپیوترتون روشن کنین!!!! و تمام اونارو یکی امتحان کنین....

( چهارمین نکته ) اگه بازم نتونستین کاری به پیش ببرید این بار باید از یکی کمک خواست!!! افراد و چیزهای!!! زیادی هستن که می شه ازشون کمک خواست. ۱- یه برنامه نویس دیگه : می شه رفت پیش یه دوست و ازش کمک خواست ( من زیاد اینو پیشنهاد نمی کنم آخه ممکنه فردا بیاد تو سرت بزنه و بگه که یادته کل برنامتو من نوشتم!!! تا حالا خودم به غیر از اساتیدم و افرادی که واقعا خیلی حالیشونه از کسی کمک نخواستم) ۲- کتاب : می تونین یه مرجعی درباره زبان برنامتون پیدا کنین و برید توش بگردید به راه حل مسئله و یا چیزهایی که شبیه راه حل مسئله شما هستن!!! و شما میدونید چه طوری اونا رو تغییر بدین تا به جوابتون برسین ) ۳ - اینترنت : این روزا می شه خیلی راحت از توی اینترنت و وبلاگ ها چیزی که می خواین پیدا کنید ( منم این وبلاگو به هیمن دلیل راه انداختم ) ۴ - Help : این یکی از همه بهتر و مفیدتره ( چون انگلیسیتونم قوی می شه ) بله بهترین و ساده ترین راه همینه استفاده از یک مرجع کامل که همراه محیط برنامه نویسیتونه. 

فعلا برای امروز کافی تا روزهای بعد بای....

http://www.4shared.com/dir/7447627/82a343f1/sharing.html

بعضی از دوستا ایمیل زده بودن چطوری میشه تو دیتابیس جستجو کرد؟؟؟ اینم کد موردنظر!!!!

procedure TForm10.Button2Click(Sender: TObject);

var
s:string;
sos:tlocateoptions;

begin

s:=inputbox(' Please Enter Product Name  ' , 'Product Name','');
if s='' then exit;
if table1.IsEmpty then
  begin
      Messagebox (0,pchar (' Database is Empty '),'Error',0);
      exit;
  end;
sos:=[lopartialkey]+[loCaseInsensitive];
if not table1.Locate ('Product Name' , s ,sos )
                      then showmessage (' Nothing ')
end;

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

procedure TForm1.Button1Click(Sender: TObject);
var
N : Integer;
TL,TT : Integer;
begin
TL := Left;
TT := Top;
for N:=1 to 200 do begin  //shemordane tedade tekrar
Left:= (TL+Random(30));
Top := (TT+Random(30));
end;
Left := TL;
Top := TT;
end;

بازم میگم دوستان عزیز هر سوالی دارن ایمیل بزنم اگه کمکی ازم بر بیاد کمک می کنم( ایمیل بزنید و مشکلو توضیح بدید)

ممنون از همگی...

www.iranvig.com

www.Barnamenevis.org

راستی از دوستان هم اگه کسی سوالی درباره برنامه نویسی یا پروژه ای داشت حاضریم راهنمایی کنیم....

Hide/show start button
Uses Shellapi;
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),1);  to show
ShowWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),0);  to hide
EnableWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),True); to enable start button
EnableWindow(FindWindowEx(FindWindow('Shell_traywnd',nil),0,'Button',nil),False); to disable start button

Hide/show task bar
Uses Shellapi;
ShowWindow(FindWindow('shell_traywnd',nil),1); to show
ShowWindow(FindWindow('shell_traywnd',nil),0); to hide
EnableWindow(FindWindow('shell_traywnd',nil),True); enable task bar
EnableWindow(FindWindow('shell_traywnd',nil),False); disable task bar

procedure TForm1.Button1Click(Sender: TObject);
var
  f,t: Double;
  Drivename: Char;
begin
  Drivename := 'c';
  f:= DiskFree(Ord(Drivename) - 64);
  t:= DiskSize(Ord(Drivename) - 64);

  label1.Caption := Format('ÝÖÇí ÎÇáí: %12.0n', [f]);
  Label2.Caption := Format('ÝÖÇí ˜á ÏíÓ˜: %12.0n', [t]);
  Label3.Caption := IntToStr(Round((t - f) / t * 100)) +
    ' ÏÑÕÏ ÇÒ ÇÑÊíÔä ÇÓÊÝÇÏå ÔÏå';
end;

امروز براتون یه کد گذاشتم تا با اجرای اون همه پنجره های ویندوز Minimize میشن...

var
    intHwnd: Integer;
    begin
    intHwnd := FindWindow('Shell_TrayWnd', nil);
    PostMessage(intHwnd, WM_COMMAND, 419, 0);
    end;

اگه جای کد ۴۱۹ از ۴۱۶ استفاده کنین تمامی پنجره ها Maxmize می شن....

با آرزوی سالی خوب برای شما... مهدی

برای اینکار یک تایمر بر روی فرم قرار دهید سپس به قسمت public رفته و متغیر زیر را تعریف نمایید:

A:integer

سپس بر روی فرم دابل کلیک کرده تا به قسمت کد نویسی برای حالت Form Active بروید و سپس کد زیر را وارد نمایید:

Begin

Form1.left:=-700;

end;

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

Begin

A:=A+1;

form1.left:=form1.left-1;

if A=800 then timer1.enabled:=false;

end;

 توجه داشته باشید که می توانید با تغییر کلمه Left فرم را از هرجایی که بخواهید وارد صفحه کنید

در ضورت هرگونه سوالی درباره دلفی سوال خود را به صورت ایمیل به MahdiEaterafi@Yahoo.com 

بفرستید....

http://www.savefile.com/files/1020800

http://www.savefile.com/files/1020801