وبلاگ برنامه نویسان اهواز

برنامه جمع و میانگین ساده با سی ++

ahwazdelphi — Thu, 05 Nov 2009 14:57:21 GMT

یه چیزی ...

ahwazdelphi — Fri, 14 Aug 2009 12:55:01 GMT

به روایت افسانه‌ها روزی شیطان همه جا جار زد كه قصد دارد از كار خود دست بكشد و وسایلش را با تخفیف مناسب به فروش بگذارد.
او ابزارهای خود را به شكل چشمگیری به نمایش گذاشت. این وسایل شامل خودپرستی، شهوت، نفرت، خشم، آز، حسادت، قدرت‌طلبی و دیگر شرارت‌ها بود.
ولی در میان آنها یكی كه بسیار كهنه و مستعمل به نظر می‌رسید، بهای گرانی داشت و شیطان حاضر نبود آن را ارزان بفروشد.

كسی از او پرسید: این وسیله چیست؟

شیطان پاسخ داد: این نومیدی و افسردگی‌ست

آن مرد با حیرت گفت: چرا این قدر گران است؟

شیطان با همان لبخند مرموزش پاسخ داد: چون این مؤثرترین وسیلة من است. هرگاه سایر ابزارم بی‌اثر می‌شوند، فقط با این وسیله می‌توانم در قلب انسان‌ها رخنه كنم و كاری را به انجام برسانم. اگر فقط موفق شوم كسی را به احساس نومیدی، دلسردی و اندوه وا دارم، می‌توانم با او هر آنچه می‌خواهم بكنم..
من این وسیله را در مورد تمامی انسان‌ها به كار برده‌ام. به همین دلیل این قدر كهنه است

ahwazdelphi — Fri, 17 Apr 2009 11:51:11 GMT

سلام

یه تابع برای بدست آوردن نام کامپیوتری که برنامه داره اجرا میشه

میتونید از این تابع در ConnectionString برای بدست آوردن WorkStationID استفاده کنید

function ComputerName:string;

var

BufsSIze:DWORD;

CName : array [0..255] of char;

begin

BufsSIze:=255;

GetComputerName(CName,BufsSIze);

Result:= CName;

end;

تبریک سال نو

ahwazdelphi — Wed, 25 Mar 2009 07:26:15 GMT

سلام خدمت تمامی دوستان و اساتید محترم

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

انشا الله اگه فرصت بشه می خوام مطالب بیشتر و تخصصی تری رو تو وبلاگ قرار بدم

امیدوارم مفید واقع بشن

سوکت پروگرمینگ در دلفی

ahwazdelphi — Mon, 06 Oct 2008 00:11:09 GMT

سلام

با توجه به درخواست دوستان برای سوکت پروگرمینگ چون مطلب قبلی زیاد کامل نبود یه مقاله کامل و ساده دارم آماده می کنم که بزودی در همین وبلاگ قرار میدهم. در این مقاله آموزشی کار با سوکت با استفاده از ابزارهای TServerSocket,TClientSocket گفته شده که برای مثال به برنامه برای چت رو با هم طراحی میکنیم . بعد از اون می خوام یه مقاله هم درباره ارسال و دریافت اطلاعات بصورت باینری (File,Image,...) بنویسم و با برنامه مثال همینجا قرار بدم. امیدوارم خوشتون بیاد و بتونه کمکتون کنه

راستی نظر یادتون نره، تا منم سریعتر آمادش میکنم آخه باید ببینم کسی هست که بخواد یا نه

موفق باشید

یا حق

چت با استفاده از موبایل (مخصوص بروبچ ایرانسل)

ahwazdelphi — Thu, 17 Apr 2008 22:31:18 GMT

چت با استفاده از موبایل (مخصوص بروبچ ایرانسل)

این یه راه ساده و جالبه که میتونید از دست هزینه زیاد SMS راحت بشید

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

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

EBuddy Mobile Massenger که میتونید از سایت EBuddy دانلودش کنید و یا با گوشیتون مستقیم اونو دانلود و نصب کنید برای دانلود مستقیم که حدودا یک دیقه بیشتر طول نمیکشه می تونید تو Browser گوشیتون آدرس Get.Ebuddy.Com رو وارد و روی دکمه Download کلیک کنید. بعد برنامه شروع به نصب میکند. (راحت ترین راه از طریق خود گوشیه)

بعد از نصب با انتخاب مثلا Yahoo و تنظیم Yahoo ID , Password و با زدن دکمه SignIn میتونید ID خودتونو ببینید و براحتی چت کنید

هزینه چت بسیار بصرفه تر از SMS است . چون هم سریع به مقصد میرسه و هم خیلی راحت میتونید از شکلکا yahoo استفاده کنید.

برنامه های دیگه ای هم هستن مثل

MovaMessenger که میتونید اونو از سایت خود ایرانسل دانلود و نصب کنید

یه مقاله درباره انواع حافظه

ahwazdelphi — Mon, 03 Mar 2008 00:29:34 GMT

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

http://www.4shared.com/file/39575809/e81194c8/Memory.html

جستجو در جدول (Searching in Table)

ahwazdelphi — Mon, 03 Mar 2008 00:05:30 GMT

جستجو در جدول (Searching in Table)

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

برای مثال اول یه شی از نوع TEdit و یکی هم TButton از پالت Standard به فرم اضافه کنید (خاصیت کپشن Button رو به جستجو تغییر بدید و Name اونو هم به BSearch و خاصیت Name شی Edit رو هم به ESearch تغییر بدید) بعد روی دکمه دوبار کلیک کن.حالا کد زیر رو بنویس:

FDM.TTelInfo.Locate('Tel',ESearch.Text,[loCaseInsensitive]);

با این دستور اولین رکوردی که فیلد Tel اون مثل عبارت وارد شده در TSearch باشه رو پیدا میکنه و مکان نما رو به اون رکورد انتقال می ده. برای بهتر شدن و جالب تر شدن می تونید اسم فیلد رو هم از کاربر بوسیله یک شی Edit دیگه که مثلا اسم اونو ESField گذاشتید به شکل زیر دریافت کنید.

FDM.TTelInfo.Locate(ESField.text,ESearch.Text,[loCaseInsensitive]);

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

خب این از این روش، بریم برا روشی که باعث انتخاب لیستی از رکوردهای مورد نیاز ما میشه. این روش بسیار دقیق تر و تنظیم اون حرفه ای تره، خیلی سادس فقط باید یکم خلاقیت بخرج بدی، خب، از این روش میشه مثلا برای وقتی که بخوایم لیستی از تمامی شماره هایی که فیلد Name اونا برابر عبارت هست رو نشون بده میشه استفاده کرد.در این دستور میشه از روش های قسمت where در دستور Select از SQL استفاده کرد.مثلا برای مثال بالا میشه:

FDM.TTelInfo.Filtered:=False;

FDM.TTelInfo.Filter:= 'Name = '+QuotedStr(ESearch.text);

FDM.TTelInfo.Filtered:=True;

در این مثال در خط اول خاصیت فیلتر جدول رو غیر فعال کردیم و در خط دوم با مقدار دادن به خاصیت Filter جدول گفتیم که عبارت موجود در ESearch رو در فیلد Name جستجو کنه تابع QuotedStr باعث میشه دوتا تک کوتیشن( ' ) دوطرف رشته داده شده قرار بگیره.مثلا اگر مقدار ESearch برابر محمد باشه مقدار خاصیت Filter برابر با عبارت زیر میشه :

Name = 'محمد'

اما بدون دستور QuotedStr میشه :

Name = محمد

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

پیشرفته تر:

مثلا برای پیدا کردن تمامی شماره تلفن های با یک پیش شماره مشخص میشه نوشت:

FDM.TTelInfo.Filter:= 'Tel Like '+QuotedStr(ESearch.text+'*');

در اینجا دستور Like بمعنی شبیه بودن می باشد و * باعث میشود هر کاراکتری جایگزینش شود و باعث پیدا شدن هر رکوردی که فیلد Tel اون با عبارت وارد شده شروع شده باشد می شود.

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

اولین تجربه با دلفی (1)

ahwazdelphi — Sun, 17 Feb 2008 00:44:18 GMT

خب این دلفیه برای نوشتن یه برنامه با دلفی باید این مراحل رو انجام بدی،1- تحلیل برنامه یعنی بفهمی که مسئله چیه و متوجه درخواست ها بشی،2- انتخاب یک دیتابیس مناسب با نیاز کاربر بر اساس نیاز اون از نظر حجم داده ها و نوع سیستم

که تک کامپیوتره یا سیستم شبکه است،3- شروع به طراحی برنامه در دلفی بدین صورت که اول یه برنامه جدید بوسیله New VCL Forms Application درست میکنی که یه فرم به نام Form1 که دارای Unit1 هست رو برات ایجاد می کنه که میتونه فرم اصلی برنامت باشه (من این فرم رو به نام FMain و یونیتشو به نام UMain میذارم) بعد از منوی File وارد New میشی و Other رو کلیک میکنی توکادر ظاهر شده از سمت چپ گزینه Delphi Files رو انتخاب میکنی بعد از سمت راست گزینه (دیتا ماژول) Data Module رو انتخاب وOK رو میزنی اونوخ یه فرم به نام DataModule1 و Unit2 درست می شود (من این فرم رو به نام FDM و یونیتشو به نام UDM میذارم) که میتونی از اون برای نگه داشتن ابزارهای کار با دیتابیس استفاده کنی این روش خوبیه که همه چیز یک جا باشه کنترل راحت تری هم داره فرم های برنامه هم سنگین نمی شن

خب حالا باید ابزارهای دیتابیس رو تو این دیتاماژول بزاری اول مطمئن شو که تو قسمت فرم دیتا ماژول هستی نه کد (برای جابجایی بین این دو قسمت میتونی از کلید F12 استفاده کنی)بعد از قسمت ابزارهای دلفی(Tool Palette) وارد گزینه DBGo میشی و اول یه ADOConnection با دوبار کلیک روی اون به صفحه اضافه میکنی بعد به ازای هر جدول (Table) یا Query (در Access)و (View در SQL) که داری یه ADOTable رو صفحه میزاری حالا باید این Object هایی که آوردی رو تنظیم کنیم یعنی ADOConnection به دیتابیس وصل میشه و تمام Tableها به اون وصل میشن و DataSourceها (که بعدا میگم) هرکدوم به یه Table وصل میشه اینجوری یه ارتباط با دیتابیس وجود داره که باعث امنیت بالاتری میشه و برنامه هم سریعتر ارتباط برقرار میکنه روش تنظیمشون به روش زیره :

از AdoConnection شروع میکنیم من دوست دارم اسم اونو بزارم ADOC که اول رووش یه بار کلیک میکنیم و از قسمت Object Inspector و گزینه Name اونو تغییر میدیم به چیزی که میخوایم (این یه کار اختیاریه) حالا باید ارتباط این شی رو با دیتابیس برقرار کنیم روی این Object دوبار کلیک میکنیم بعد در کادر ظاهر شده دکمه Build رو کلیک می کنیم و کادر اصلی ADO دیده می شود در برگه اول در صورتی که دیتابیس Access باشد باید از لیست گزینه Microsoft Jet 4.0 OLE DB رو انتخاب و در برگه دوم در قسمت 1 باید آدرس فایل دیتابیس رو انتخاب کنیم. اگر دیتابیست Accesse برو به قسمت بعد از تنظیمات SQL،

حالا اگر دیتابیس SQL باشد باید در برگه اولADO از لیست گزینه Microsoft OLE DB Provider for SQL Server رو انتخاب می کنیم و برگه دوم رو اینجوری تنظیم میکنیم در قسمت 1 باید نام سروری که بانک روی اون قرار داره رو وارد کنیم اگه رو کامپیوتر خودته میتونی خالی بزاریش در قسمت دوم باید مشخصات کاربری که برای دیتابیس در SQL تنظیم کردید رو مشخص کنید (اگر هیچ تنظیم کاربری انجام ندادید گزینه Use a specific user name and password رو انتخاب کنید و در قسمت User Name مقدار sa رو وارد کن و Password رو خالی بزار) اگر پسورد تنظیم نکردید دوتا تیک رو هم علامت دار کن که هردوتاشون مشخصه چیکار میکنن، در قسمت 3 باید نام دیتابیس رو مشخص کنیم که بهتره گزینه اول رو انتخاب و نام بانک رو از لیست انتخاب کنی، تنظیمات مربوط به SQLتموم شد

بعد OK رو انتخاب کنیم و در کادر اول هم دوباره ok تا کادرهای باز بسته شود. تمام این تنظیمات در خصوصیت (Property) به نام ConnectionString از شی ADOC ذخیره شدن که شامل یک رشته است که بعدا اونو خودکار تنظیم میکنیم (یکم تحمل کن)،خب فقط مونده خاصیت LoginPromt که باید به False تنظیم بشه تا زمان فعال شدن ارتباط پیغام UserName&Password هست رو نشون نده حالا اگه همه چی رو درست تنظیم کرده باشید با تغییر خاصیت Connected از False به True ارتباط به درستی برقرار میشه و شما تونستید ارتباط رو برقرار کنید.

حالا باید تمام AdoTable ها رو که آوردی رو با موس انتخاب کنی بعد خاصیت Connection اونارو به ADOC تغییر بدی تا از بانک استفاده کنن، حالا یه بار رو فضای خالی کلیک کن تا از حالت انخاب خارج بشن و یکی یکی باید بگی که به کدوم جدول (Table) وصل بشن این کارو با تنظیم خاصیت TableNameهرکدومشون انجام میدی (بهتره که بعد از تنظیم این خاصیت، خاصیت Name رو هم برابر اسم Table انتخاب شده باشه مثلا اگه TableName=TCar اونوخ Name=TCar) خب این کارو باید برای تک تک این AdoTableها انجام بدی و بعد همه رو دوباره انتخاب و خاصیت Active همه رو به True تغییر بدی. خب اگه درست کار رو انجام داده باشی بدون مشکل باید تمام جداولت باید فعال شده باشن.

حالا برای اینکه بتونی اطلاعات رو تو بانک ذخیره کنی و ببینی باید برای هر AdoTable یه شی DataSource از تو ابزارها تو قسمت DataAccess وارد صفحه کنی و خاصیت DataSet هرکدوم رو به نام جدولی که میخوایم وصل بشه مشخص می کنیم (بهتره Name هر کدوم رو مثه DataSet تنظیم کنی مثلا DSTCar وقتی که به TCar تنظیمش میکنید). خب حالا دیگه تنظیمات بانک تا حدی تمام شد. به همین راحتی، توجه داشته باشید که فرمهای از نوع Data Module توی برنامه در حالت اجرا قابل دیدن نیستن. فقط میتونید از اشیاء موجود در اون استفاده کنید.

چقدر آسونه!!! بقیه رو تو پست بعدی می گم

نحوه اجرای دستورات DOS در دلفی

ahwazdelphi — Fri, 21 Dec 2007 16:45:50 GMT

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

http://www.4shared.com/file/32687642/bdfbdc40/Run_Command.html