آموزش ، برنامه نویسی

طراحی و اجرای انواع پروژه های برنامه نویسی (شبکه ، بانک اطلاعات ، سیستمی ، کاربردی)

کار با تاریخ در وی بی

این کدها مربوط به کار با تاریخ سیستم می باشد. من در اینجا Caption فرم رو برای نمایش نتایج انتخاب کردم . Wink

بدست آوردن روز :

کد:

Me.Caption = Day(Date$)

به دست آوردن سال :

کد:

Me.Caption = Year(Date$)

به دست آوردن ماه :

کد:

me.Caption=Month(date$)

به دست آوردن نام ماه : ( در اینجا من دومین ماه سال رو انتخاب کردم )

کد:

Me.Caption = MonthName(2, True)

امروز چند شنبه است :

کد:

Me.Caption = Weekday(Date$, vbUseSystemDayOfWeek)

نظر یادتون نره

+ نوشته شده در دوشنبه 9 مرداد1385ساعت 1:12 بعد از ظهر توسط محمد امیری |

	تشخيص ورود و خروج CD
برخي مواقع بعضي از برنامه هاي شما احتياج به خواندن اطلاعات از روي CD را دارند. قبل از اجراي برنامه مي توان با استفاده از دستورات مختلفي مانند FileExists وجود CD مورد نظر در CD-Rom را بررسي كرد و در صورت صحيح بودن آن برنامه را اجرا كرد. اما اگر كاربر در هنگام اجراي برنامه CD حاوي اطلاعات را از CD-Rom خارج كند به چه صورت مي توان آن را تشخيص داد. شايد بررسي مكرر توسط دستوراتي از قبيل FileExists كار درستي نباشد. ويندوز براي شما يك دستور تدارك ديده كه توسط آن مي توانيد وارد و خارج شدن CD از CD-Rom را تشخيص دهيد. زماني كه شما يك CD را وارد CD-Rom مي كنيد آن به عنوان يك Device جديد براي ويندوز شناخته مي شود. پس از اين روش مي توان وارد و خارج كردن آن را در هنگام اجراي برنامه تشخيص داد. به كد زير توجه فرماييد : type TForm1 = class(TForm) private procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; // اين قسمت فراموش نشود public end; {...} implementation {$R *.DFM} procedure TForm1.WMDeviceChange(var Msg: TMessage); const DBT_DEVICEARRIVAL = $8000; // system detected a new device DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone var myMsg: string; begin inherited; case Msg.wParam of DBT_DEVICEARRIVAL: myMsg := 'CD inserted!'; DBT_DEVICEREMOVECOMPLETE: myMsg := 'CD removed!'; end; ShowMessage(myMsg); end; به همين سادگي مي توان اين عمل را تشخيص داد. البته راههاي ديگري نيز براي تشخيص اين اعمال وجود دارند اما بهترين و راحت ترين راه ممكن ، همان راهي است كه من براي شما نوشته ام. از اين كد در برنامه هاي خود استفاده كنيد و جلوي Error هاي برنامه را در صورت عدم وجود CD در CD-Rom بگيريد. برنامه را اجرا كنيد ، سپس يك CD در درايو قرار دهيد ، بار ديگر CD را از درايو خارج نماييد و نتيجه آن را مشاهده كنيد. موفق باشيد
+ نوشته شده در دوشنبه 2 مرداد1385ساعت 2:28 بعد از ظهر توسط محمد امیری \|

	درباره


RSS POWERED BY BLOGFA.COM