برنامه هاي جالب و مفيد

[fotocopy]

در اينجا ميخواهم يک سري برنامه ويژوال بيسيک قرار بدم که به درد تازه کارا و... ميخوره!
اگه شما برنامه جالبي داريد اينجا بنويسيد!

 

[fotocopy]

ابتدا مشخصات فايل را تعريف ميکنيم:
Form frmCalendar:
Caption = My Calendar
BorderStyle = 1 - Fixed Single
Timer timDisplay:
Interval = 1000
Label lblDay:
Caption = Sunday
FontName = Times New Roman
FontBold = True
FontSize = 24
Label lblTime:
Caption = 00:00:00 PM
FontName = Times New Roman
FontBold = True
FontSize = 24
Label lblYear:
Alignment = 2 - Center
Caption = 1998
FontName = Times New Roman
FontBold = True
FontSize = 24
Label lblNumber:
Alignment = 2 - Center
Caption = 31
FontName = Arial
FontBold = True
FontSize = 72
Label lblMonth:
Alignment = 2 - Center
Caption = March
FontName = Times New Roman
FontBold = True
FontSize = 24

حالا کد برنامه:
Option Explicit
timDisplay Timer Event:
Private Sub timDisplay_Timer()
Dim Today As Variant
Today = Now
lblDay.Caption = Format(Today, "dddd")
lblMonth.Caption = Format(Today, "mmmm")
lblYear.Caption = Format(Today, "yyyy")
lblnumber.Caption = Format(Today, "d")
lblTime.Caption = Format(Today, "h:mm:ss ampm")
End Sub

توضيح اضافه:
timDispl يک تايمر است.

 

[Mehdi Hamedali]

سلام دوست عزيز
با تاسف بايد بگم كه حدود٥٠% از کد هاي که برنامه نويسان اين سايت منويسند تو ويژوال هاي Net. کار نميکنه و اين ميفهمونه که بيشتر برنامه نويسان به روز يا آپديت نيستند.
با عرض شرمندگي
بايد منو ببخشيد

:wacko:

قربان شما
MHa

 

[fotocopy]

سلام دوست عزيز
با تاسف بايد بگم كه حدود٥٠% از کد هاي که برنامه نويسان اين سايت منويسند تو ويژوال هاي Net. کار نميکنه و اين ميفهمونه که بيشتر برنامه نويسان به روز يا آپديت نيستند.
با عرض شرمندگي
بايد منو ببخشيد

:wacko:

قربان شما
MHa

حق با شماست.
سعي ميکنم اينجا برنامه هاي ويژوال Net. بنويسم.

 

[Mehdi Hamedali]

متشكر از توجه شما

قربان شما
MHa

 

[محمودم]

به نام خدا
سلام
بابا دست مريزا خيلي حال كردم اميدوارم كارتو ادامه بدي ماكه منتظريم
سعي كن از مبتدي شروع مني
ممنون