مشکل تاریخ و تهیه Setup برای برنامه

[S.A]

خواهش می کنم کمک کنید پروژه پایان ترمم مانده! یکی اینکه برای تاریخ شمسی مشکل دارم. ماژول4 را دانلود کردم اما یک روز عقب می ماند. دیدم یک نفر یک فایل dll پیدا کرده بود ولی من نتوانستم ان را پیدا کنم.
آقای غیبی از راهنمایی شما ممنون! ولی من می خواهم برنامه Setup را طوری تنظیم کنم که سریال نامبر نیاز داشته باشد. ولی با Pakag & ..... نمی شه این کار را کرد.
کمک کنید پروژه پایان نامه کاردانی ام است. :گیج: :flower:

[حامد مصافی]

سلام عزیز
بله درسته همون طور که گفتی این ماژول یک روز از روزگار عقبه : mrgreen:

قبلاً درباره این مشکل تو این سایت زیاد بحث شده
این برنامه که ضمیمه کردم کاملترین توابع تبدیل تاریخ میلادی به شمسیه



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

[S.A]

کاربر برنزی تشکر :flower:
اگر میشه در مورد ساخت setup یک برنامه و قفل نرم افزاری آن بیشتر توضیح بدید. تازه کارم و ناشی :thnx:

[M-Gheibi]

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

[حامد مصافی]

بعد میگن چرا عصبی می شی. قاط زده!



سلام :cry:

من از شما خیلی خیلی معذرت میخوام



... به جای اینکه لطف کنند در همون تاپیک تابع بدون نقص خودشون رو ارائه کنند اومدن اینجا ....


آقای غیبی این تابع بدون نقص مال من نیست ؛ بلکه یکی از دوستان که متاسفانه نمی دونم کیه اونو نوشته

در ضمن S.A برای ساختن ستاپ با سریال نامبر باید بری سراغ اینستالر های حرفه ای تر مثل Vise یا Sheild پکیجر خود وی بی چنین قابلیتی نداره
آقای غیبی من بازم از شما معذرت میخوام :wink:

[HAMI]

سلام
بنده یه تایع دارم که این کارو انجام می ده


Function datep()
Dim milad(12) As Integer
Dim day1, month1, year1 As Integer
Dim mm, mah, roz, yy, m, wday As Integer
Dim wdat As String
day1 = Val(Day(Date))
month1 = Val(Month(Date))
year1 = Val(Mid(Year(Date), 3, 2))
If year1 Mod 4 > 0 Then
milad(1) = 31: milad(2) = 59: milad(3) = 90: milad(4) = 120: milad(5) = 151: milad(6) = 181: milad(7) = 212: milad(8) = 243: milad(9) = 273: milad(10) = 304: milad(11) = 334: milad(12) = 365:
Else
milad(1) = 31: milad(2) = 60: milad(3) = 91: milad(4) = 121: milad(5) = 152: milad(6) = 182: milad(7) = 213: milad(8) = 244: milad(9) = 274: milad(10) = 305: milad(11) = 335: milad(12) = 366:
End If
If year1 >= 0 And year1 < 50 Then
year1 = 100 + year1
End If
mm = 0
If month1 - 1 <> 0 Then
mm = milad(month1 - 1)
End If
roz = ((year1 * 365.24) + mm + day1) - 7749.04
yy = Int(roz / 365.24)
mm = roz - (yy * 365.24)
mah = 0
If mm >= 186 Then
mah = 6
mm = mm - 186
m = Int(mm / 30)
wday = mm - (m * 30)
mm = mah + Int((mm / 30)) + 1
Else
If mm = 0 Then
yy = yy - 1
mm = 12
wday = 29
Else
If mm = 30 Or mm = 31 Then
wday = mm
mm = 1
Else
m = Int(mm / 31)
wday = mm - (m * 31)
mm = mah + Int((mm / 31)) + 1
End If
End If
End If
wdat = Trim(Str(yy)) + "/"
If mm < 10 Then
wdat = wdat + "0" + Trim(Str(mm)) + "/"
Else
wdat = wdat + Trim(Str(mm)) + "/"
End If
If wday < 10 Then
wdat = wdat + "0" + Trim(Str(wday))
Else
wdat = wdat + Trim(Str(wday))
End If
datep = wdat
End Function

ببخشید :sorry:

[vbprogramer]

:strange:
جناب hami اولاْ وقتی می خواهید کدی رو بنویسید آن را انتخاب کرده و روی گزینه Code کلیک کنید که ترتیب آن بهم نخوره دوماْ شما اول یه نگاه به بالا می انداختی بعد این کد رو پست میکردی جناب غیبی گفتند که :

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

حالا عیب نداره یکم بگذره بیشتر با قوانین سایت آشنا میشی :)

[M-Gheibi]

این کد مشکل داره : نتیجه برای امروز : 15/10/1383

[Morteza Manafpour]

دوست عزیز برای اینکه برنامه Setup شما Password بخواد می‌تونین از برنامه Wise Installer و یا InstallShild برای ساخت Setup استفاده کنید.