کمک درنوشتن برنامه تحت visual basic

[Behzadr]

سلام
من می خوام یه برنامه تحت محیط visual basic 2002 ya 2006 برام یکی بنویسه
برنامه هم این باشه
تبدیل تاریخ میلادی به شمسی (روی نوار عناون هم نمایش داده بشه)

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

 

[Behzadr]

یعنی تو این سایت کسی نیست که تو برنامه نویسی تبحر داشته باشه؟؟

 

[B H Z]

سلام بهزاد جان خوبی عزیزم دل

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

 

[Skychaser]

سلام بهزاد جان خوبی عزیزم دل

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

عزیزم ...ایشون فکر کنم خیلی جامع توضیح دادند چی میخان...

آقا بهزاد من یه زمانی با ویژوال کار میکردم... ولی شرمنده الان 5 سال هست که طرفش نرفتم و همه چیز یادم رفته...

 

[Behzadr]

ممنون از کمکتون....
بهزاد جان اون بالا تو پست اول دقیقا گفتم چی می خوام....

 

[MVBDX]

بهزاد جان, من میتونم این برنامه رو تحت VB6 بنویسم برات, VB .Net همون 2003 به بعد خیلی با 6 فرق داره, منم زیاد وارد نیستم.
به هر حال اگه کمکی از دستم بر میاد خوشحال میشم بتونم کمکی کنم.

 

[Behzadr]

سلام
ممنون دوست عزیز خیلی کمک بزرگی می کنی
من زیاد فرصت ندارم.....اگه میشه تحت همون Vb 2006 برام بنویس....
ممنون می شم زودتر خبرشو بهم بدی....

 

[Behzadr]

این خاصیت 10 پست هم برداشته شده...تاپیک رو هم نمی بینه اومده بالا..........چیکار کنم حالا/.؟

 

[B H Z]

نگران نباش بهزاد جان من برات ردیف می کنم ولی یکم صبر کن ok

 

[Behzadr]

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

 

[MVBDX]

بهزاد جان شرمنده، من تازه ديدم.
ببين من گفتم با VB، 6 ميتونم بنويسم. 6 واسه سال 98 ه. حالا من ميذارم شايد بدردت بخوره.
راستي اون يكي بهزاد!، ببين اگه 2002 به بالا بلدي ببين همينو ميتوني كانورت كني!
به هر حال شرمنده.

Private Sub Form_Load()
Me.Caption = DatePersian
MsgBox DatePersian
End Sub
Private Function DatePersian() As String
Dim lngPersianYear As Long, strPersianMonth As String, strPersianDay As String, DayinYear As Long, LatinYear As Integer, LatinDate As Date, dteNow As Date, Dday As Long, d0 As Double, d1 As Double, d2 As Double, d3 As Double
dteNow = Now: LatinYear = Year(dteNow)
lngPersianYear = LatinYear - 621
LatinDate = Str(LatinYear) + "/03/21"
If LatinYear < 1996 Then
DayinYear = dteNow - LatinDate + 1
Else
d0 = LatinYear - 1996
Dday = d0 Mod 4
If Dday = 0 Then DayinYear = dteNow - LatinDate + 2 Else DayinYear = Int(dteNow - LatinDate + 1)
End If
If DayinYear < 1 Then
lngPersianYear = lngPersianYear - 1
d1 = LatinYear Mod 4
d2 = LatinYear Mod 100
d3 = LatinYear Mod 400
If ((d1 = 0 And d2 <> 0) Or d3 = 0) Then DayinYear = DayinYear + 366 Else DayinYear = DayinYear + 365
End If
strPersianMonth = Int((DayinYear - 1) / 31) + 1
If strPersianMonth > 6 Then
strPersianMonth = Int((DayinYear - 187) / 30) + 7
strPersianDay = DayinYear - 186 - (strPersianMonth - 7) * 30
Else
strPersianDay = DayinYear - (strPersianMonth - 1) * 31
End If
If strPersianDay < 10 Then strPersianDay = "0" & strPersianDay
If strPersianMonth < 10 Then strPersianMonth = "0" & strPersianMonth
lngPY = lngPersianYear: strPM = strPersianMonth: strPD = strPersianDay
DatePersian = lngPersianYear & "\" & strPersianMonth & "\" & strPersianDay
End Function​

 

[B H Z]

تا چهارشنبه یا پنج شنبه Ok

 

[Behzadr]

بهزاد جان شرمنده، من تازه ديدم.
ببين من گفتم با Vb، 6 ميتونم بنويسم. 6 واسه سال 98 ه. حالا من ميذارم شايد بدردت بخوره.
راستي اون يكي بهزاد!، ببين اگه 2002 به بالا بلدي ببين همينو ميتوني كانورت كني!
به هر حال شرمنده.

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

تا چهارشنبه یا پنج شنبه

بهزاد جان من سخت منتظر برنامه شما هستم

 

[MVBDX]

بهزاد جان (RANGER_NAVAL_USA) شرمنده! يه وقت بين ما كدورتي پيش نياد! فقط مسئله اينه كه ميخوايم به يه دوستمون كمك كنيم.
بهزاد جان من همون برنامه رو تحت VB 2005 تبديل كردم. احتمال زياد تحت 2002 يا 2006 م بدون مشكل اجرا ميشه. روي نوار وظيفه منظورت همون تايتله؟ اگه اونه اره نشون ميده.
بعد من منظورت رو نفهميدم رو دو تا فلاپي؟! اين الان كد يه فرم تو وي-بيه. اگه خواستي كله پروژه رو زيپ كنم بذارم جايي بگيري؟

Option Strict Off
Option Explicit On
Friend Class frmMain
Inherits System.Windows.Forms.Form
Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Me.Text = DatePersian
End Sub
Private Function DatePersian() As String
Dim lngPersianYear, DayYear As Integer
Dim strPersianMonth, strPersianDay As String
Dim LatinYear As Short
Dim LatinDate, dteNow As Date
dteNow = Now : LatinYear = Year(dteNow)
lngPersianYear = LatinYear - 621
LatinDate = CDate(Str(LatinYear) & "/03/21")
If LatinYear < 1996 Then
DayYear = dteNow.ToOADate - LatinDate.ToOADate + 1
Else
If LatinYear - 1996 Mod 4 = 0 Then DayYear = dteNow.ToOADate - LatinDate.ToOADate + 2 Else DayYear = Int(dteNow.ToOADate - LatinDate.ToOADate + 1)
End If
If DayYear < 1 Then
lngPersianYear = lngPersianYear - 1
If ((LatinYear Mod 4 = 0 And LatinYear Mod 100 <> 0) Or LatinYear Mod 400 = 0) Then DayYear = DayYear + 366 Else DayYear = DayYear + 365
End If
strPersianMonth = CStr(Int((DayYear - 1) / 31) + 1)
If CDbl(strPersianMonth) > 6 Then
strPersianMonth = CStr(Int((DayYear - 187) / 30) + 7)
strPersianDay = CStr(DayYear - 186 - (CDbl(strPersianMonth) - 7) * 30)
Else
strPersianDay = CStr(DayYear - (CDbl(strPersianMonth) - 1) * 31)
End If
If CDbl(strPersianDay) < 10 Then strPersianDay = "0" & strPersianDay
If CDbl(strPersianMonth) < 10 Then strPersianMonth = "0" & strPersianMonth
DatePersian = lngPersianYear & "/" & strPersianMonth & "/" & strPersianDay
End Function
End Class​

 

[Behzadr]

بعد من منظورت رو نفهميدم رو دو تا فلاپي؟! اين الان كد يه فرم تو وي-بيه. اگه خواستي كله پروژه رو زيپ كنم بذارم جايي بگيري؟

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