یک ActiveX Object واسه مدیریت دیتا بیس (Database)

این فایل OCX طبق مراحل زیر به نوار ابزارتون اضافه کنین.

روی نوار ابزار RClick کنید و Component سپس Browse .فایل رو انتخاب کنین .Open و بعد ok .تا به نوار اضافه بشه . بعد یکی رو فرمتون بذارین ازش که اسمش DBmanager هست .کد زیر کاملاً مفهوم هست و قسمتی از کارایی این Object رو نشون میده .نتیجه کد در تصویر نشون داده شده .سورس خوده فایل رو بعداً میذارم.....

لینک دانلود : DBManager OCX Download

---

Private Sub Form_Load()
Dim FileName As String
FileName = "c:\test.mdb"
With DBManager1
    .CreateDB FileName, ""
    .DBCreateTable FileName, "Table1"
    .DBAddColumn FileName, "Table1", "FirstName"
    .DBAddColumn FileName, "Table1", "LastName"
End With
End Sub

---

عاقبت یک برنامه نویس....

یک texteditor خوب که حتی از notepad هم سرتره.....

اینم کد یک  Text Editor که خواسته شده بود ....به کدش مخصوصاً کار با منو ها و ذخیره کردن فایل ها و بازیابیشون توجه کنین....خالی از لطف نیست .به طریقه ایجاد کردن Toolbar بالای صفحه هم توجه کنین که خیلی مفیده ....آموزش ساخت و طراحی هم به طور اجمالی پنچ شنبه میذارم .....

لینک دانلود : VB Text Editor Download

اگه.......

تو نظر قبلی از قالب ایراد گرفتن که من باید ازین ایراد متشکر باشم ولی من چون کنکوریم منو فعلاً از طراحی شکیل بلاگ مواف کنید.تابستون شاید یک website با همین نام زدم........

یک پیدا کننده فضای خالی درایو ها با API

زیاد توضیح نداره .کاره خودمه و با API کار می کنه ........

لینک دانلود : VB Drives Free Space(API) Download

یک برنامه واسه پیدا کردن اطلاعاتی در مورد درایوها(Partitions)

این برنامه ای رو که نوشتم ابتدا لیست تمام درایو ها و سپس فضای خا لی قالب درایو و کل حجم رو تو 3 تا Listbox همونطور که تو عکس می بینید  نشون می ده ......

لینک دانلود : VB Drives Information 

ScreenShot برنامه :

ماشین حساب

من دوباره لینک بر نامه ها رو چک کردم ولی هیچ کدوم فیلتر نیستن !!!!!

یک لینک دیگه واسه دانلود : Calculator Download

یک ماشین حساب به تمام معنا......

این یک ماشین حساب خیلی بدرد بخور و تقریباْ کامل با یک Design خوبه که بدرد همه می خوره ........وجود توابع ARC خیلی کاملترش کرده .....

لینک دانلود : VB Calculator Download

 

؟؟؟؟؟

من موندم با این همه مطلب که میذارم یکی صداش در نمیاد بگه آقا فلان آقا بلان ...... حداقل ۴ تا ایراد که میشه گرفت .....انرژی آدم کم میشه وقتی اینقدر کم سروصدایین شما خواننده ها ...... ولی من مطالبم رو ادامه میدم.....

Effect دادن به فرم در load و unload

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

لینک دانلود : VB Form Effect

 

ایجاد یک فرم خط خطی تو VB

فقط یک Timer رو فرم بذارین و ترجیحاً interval اونو 10  قرار بدین کد زیر رو هم کپی کنین تا فرم خوشگلی ایجاد بشه .....

Private Sub Timer1_Timer()
    If Me.WindowState = vbMinimized Then Exit Sub
    Me.BackColor = vbBlack
    Me.ScaleHeight = 100
    Me.ScaleWidth = 100
    For X = 0 To 300
        DoEvents
        X1 = Int(Rnd * 101)
        X2 = Int(Rnd * 101)
        Y1 = Int(Rnd * 101)
        Y2 = Int(Rnd * 101)
        colo = Int(Rnd * 15)
        Me.Line (X1, Y1)-(X2, Y2), QBColor(colo)
        Me.Line (X1, Y2)-(X2, Y1), QBColor(colo)
        Me.Line (X2, Y1)-(X1, Y2), QBColor(colo)
        Me.Line (Y1, Y2)-(X1, X2), QBColor(colo)
    Next X
End Sub

---

save کردن محتوای یک TextBox در فایل متنی

اگه برنامتون نیاز به save کردن متن داره و یا لازمه که کاربر فایل متنی یا محتوای هر فایلی رو ببینه می تونین از دو Sub زیر استفاده کنین.خیلی راحته فقط به مثال توجه کنین.حواستون باشه که آرگومان ورودی متن نیست و خود نام TextBox مورد نظره.....

Sub LoadText(Lst As TextBox, file As String)
On Error GoTo error
Dim mystr As String
Open file For Input As #1
Do While Not EOF(1)
            Line Input #1, a$
            texto$ = texto$ + a$ + Chr$(13) + Chr$(10)
        Loop
        Lst = texto$
Close #1
Exit Sub
error:
X = MsgBox("File Not Found", vbOKOnly, "Error")
End Sub

---

Sub SaveText(Lst As TextBox, file As String)
On Error GoTo error
Dim mystr As String
Open file For Output As #1
Print #1, Lst
Close 1
Exit Sub
error:
X = MsgBox("There has been a error!", vbOKOnly, "Error")
End Sub

---

نمونه :

Call LoadText (Text1,"C:\Windows\System\Saved.txt")

محتوای فایل مسیر داده شده را درون text1 میریزد.

Call SaveText (Text1,"C:\Windows\System\Saved.txt")

محتوای text1 را در فایل مسیر داده شده ذخیره می کند.

خبرنامه......

اگه مایلید کد ها و اطلاعات VB رو هفته ای سه بار داشته باشید در خبرنامه ثبت میل کنید.در خبرنامه بعدی لیست کل خطاهای vb رو واستون میفرستم.در ضمن کم لطفن اونایی که منو از نظراشون محروم می کنن .....

با تشکر پویا

 

یک media player با VB

این برنامه اساس کارش Api هست که خیلی قشنگ کد نویسی شده البته کامل نیست .حودتون یک Browse واسش درست کنین.اگه خواستین با استفاده از مطلب قبلی فرمش رو دایره ای کنین و Background واسش بذارین یا Skin ش رو عوض کنین تا نون و آبدار بشه .......

لینک دانلود برنامه :VB Media Player With API Download

ایجاد یک فرم دایره ای شکل خیلی ساده

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

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Sub Form_Load()
Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
   
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

ساختن فایل دیتابیس(Database) با VB

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

البته قبل از این کار از منو refrences گزینه microsoft dao 3.5 رو به پروژتون اضافه کنین.

Dim ws As Workspace
Dim db As Database
Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase("C:\test.mdb", dbLangGeneral & ";pwd=Password")

                 و یا

Set db = ws.CreateDatabase("C:\test.mdb", dbLangGeneral & ";pwd=")

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

یک برنامه واسه چرخوندن(Rotate) متن ها

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

لینک دانلود :ّّFont Rotator Download

یک فایل ocx برای لایه(Skin) گذاشتن روی فرم

این فایل ocx رو دانلود کنید و بعد از ایجاد یک پروژه جدید روی نوار ابزار برید و RClick کنید .Components رو انتخاب کنید و از Browse همین فایل OCX رو انتخاب و OK کنید.همینطور که میبینین یک Object جدید به نوار ابزار شما اضافه شده.اونو رو فرمتون قرار بدین و اجراش کنید برنامتونو.می بینید که شکل فرمتون عوض شده که به زیبایی بر نامتون خیلی کمک می کنه.کنار دکمه Minimize یک icon جدید اضافه شده که می تونین نوع و رنگ skin رو عوض کنید.واقعاً عالیه..................حتی می تونین تصاویری که خودتون دلتوم می خواد رو skin برنامتون بکنینو صفا کنین.

در یافت فایل : VB Skinner

                                           

استقبال از پروژه های شما .........

امروز به نظرم رسید که شما برنامه نویسان VB واسه من به آدرس :

[e-mail] پروژه های خودتون رو بفرستین البته با نام و یا اگه دوست داشتین یه توضیح درباره برنامه یا کد که من اونارو تو بلاگ با نام خودتون  بذارم و البته که چیزای خوبی هم یاد بگیرم.......در اینصورت می تونیم یک بانک پروژه VB از برنامه ها و کدهای جوونای برنامه نویس ایجاد کنیم .حتی یک خط کد می تونه خیلی هارو خوشحال کنه.......

با تشکر پویا

تنظیم تاریخ و ساعت کامپیوتر با vb

کد بدرد بخوریه.یک تابعه که بهش آرگومانهای لازم رو میدی و برات همه چیه تنظیم میکنه.به  Dim SetTime As SystemTime توجه کنید .

Private Type SystemTime
  wYear As Integer
  wMonth As Integer
  wDayOfWeek As Integer
  wDay As Integer
  wHour As Integer
  wMinute As Integer
  wSecond As Integer
  wMilliseconds As Integer
End Type

Private Declare Function SetLocalTime Lib "kernel32.dll" (lpSystemTime As SystemTime) As Long

Public Sub SetNewTime(NewHour As Integer, NewMinute As Integer, NewSecond As Integer)
' Set the system time with Hours, Minutes, Seconds
Dim SetTime As SystemTime
Dim RetVal As Long

SetTime.wHour = NewHour
SetTime.wMinute = NewMinute
SetTime.wSecond = NewSecond
SetTime.wMilliseconds = 0
SetTime.wDay = Day(Date)
SetTime.wMonth = Month(Date)
SetTime.wYear = Year(Date)

' Set time and date.
RetVal = SetLocalTime(SetTime)
End Sub

ساعت آنالوگ از خودم....

اینم یک ساعت عقربه ای که بدردتون میخوره احتمالاً....

لینک دانلود: Clock

ScreenShot:

 

انواع اعلان آرایه ها.....

آرایه ها استفاده های فراوانی دارن به طوریکه اگه کسی کامل باهاشون آشنا نباشه گیر میفته و برنامش لنگ میزنه.....با چند تا مثال توضیح میدم :

Dim x As Integer            'Is Not An Array
Dim y(10) As Integer        'Array Include y(0)...y(10)
Dim u(1 To 10) As Integer   'Array Includes  U(1)...U(10)
Dim j() As String           'Array But Without Lenght
ReDim j(5 To 100) As String 'Describe An Array Lenght
Me.Caption = LBound(j) 'Returnes 5
Me.Caption = UBound(j) 'Returnes 150
ReDim Preserve j(10 To 150) As String
Me.Caption = LBound(j) 'Returnes 10
Me.Caption = UBound(j) 'Returnes 150

حتماً متوجه استفاده زیاد واژه Redim شدید که میشه هر موقع که خواستید تو برنامه آرایه رو تغییر بدین .البته کلمه Preserve باعث میشه شماره آرایه هایی که دست نخوردن و همچنان در بازه تعریف جدید هم هستن محتوایشان پاک نشه و باقی بمونه.

UBound و Lbound هم خیلی مفیدن.فرض کنید آرایه شما حاوی متغیر های زیادیه و هر لحظه داره با یک Redim   در یک حلقه زیادتر میشه پس شما نمیدونین که آخرین شماره از طول آرایتون چنده.شاید تو همون حلقه یک متغیر شمارنده بذارین ولی بهترین راه استفاده از این دو واژست.

Ubound بالاترین شماره از تعریف آرایه و LBound پایین ترین رو نشون میده .

اگه سوالی بود....

اگه سوالی داشتین یا دنبال کد بودین تو نظرات بنویسین من سعی میکنم کمتر از یک روز جواب بدم چون الان تقریبا روزی دوتا پست جدید دارم.

گلایــــــــــه

نظر دادن و نظر سنجی یادتووووووووون میره هاااااا .

ایجاد طیف رنگ متغیر با VB

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

Private i As Double

Private Sub Timer1_Timer()
   Dim intLoop As Integer
      Me.DrawStyle = vbInsideSolid
   Me.DrawMode = vbCopyPen
   Me.ScaleMode = vbPixels
   Me.DrawWidth = 2
   Me.ScaleHeight = 256
   For intLoop = 0 To 255
   Me.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0 + i, 255 - intLoop), B
      Next intLoop
      i = i + 1
End Sub

 ScreenShot  برنامه:

تغییر Resulution با VB

اگر یک برنامه چند رسانه ای و یا یک برنامه جاگیر تو صفحه می نویسین حتما این برنامه که ماله آقای Abdus Saboor هست استفاده کنین البته بدلیل اهمیت Code برنامه ریاد رو ِDesign اون کار نشده ولی عالیه......

لینک برنامه :Change Resulution 

پخش فایلهای wav با vb

با استفاده از این Api و دادن مسیر فایل در File path می تونین هر فایل wav رو پخش کنید.

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Function Sound(pathfile As String)
    SoundPlay = PlaySound(pathfile, 0&, &H1)
End Function

نظر سنجی....

لطفاً در نظر سنجی این وب لاگ شرکت کنید.مسلماً نظر شما دوستان و مخاطبان گرامی در پیشبرد مطالب این وبلاگ تاثیر زیادی دارد.

با تشکر پویا

shutdown کردن یک کامپیوتر تو شبکه

اصولاً وی بی تو شبکه نقص داره و جز یک winsock که قبلاً گفتم باید از Api هی سیستم عامل استفاده کرد.در این زمینست که آدم نویسندگان .net رو شکر میکنه.همونطور که می دونین دستور shell فرمانهای dos رو هم اجرا می کنه .

که میشه واسه یک کامپیوتر دیگه مه ip اون رو می دونیم یک فرمان فرستاد که خاموشش کنه.کد زیر با ip 127.0.0.1 که locale ip هست کار میکنه و کامپیوتر خودتونو خاموش میکنه .عوضش کنین و ip های مختلف رو توش امتحان کنین.

Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("shutdown /s /m /f  \\127.0.0.1", 1)
End Sub

توی نرم افزار خودم که قولش رو داده بودم که شامل یک برنامه Server Client میشه میتونین با فرستادن کدهایی که تو برنامه به طور قراردادی بین دو برنامه نوشته میشه اونو خاموش کنین.مزیت این روش اینه که شما port رو هم میتونین انتخاب کنین که از security های الکی رد شین.

 

پیدا کردن ip کامپیوتر

کافیه فقط یک winsock به فرمتون اضافه کنین.فرض می کنیم اسمش winsock1 هست با کدهای زیر میتونین نام و ip کامپیوتر جاری رو پیدا کنین.

Text1.Text = Winsock1.LocalHostName

Text1.Text = Winsock1.LocalIP

اینم آیکون winsock واسه کسایی که باهاش آشنایی ندارن.

                                      

تو پست بعدی سعی می کنم استفاده از یک نرم افزار vb که خودم نوشتمش و برای اتصالات شبکه هست رو بنویسم خود برنامه رو هم میذارم .احتمالاً اگه از پشتیبانی نکردن vb بر خلاف vb.net از webservice ناراحتید این بدردتون می خوره.

چطوری یک فایل رو با برناممون اجرا کنیم

یکی از فرمانهایی که بدرتتون میخوره Shell هست که قالب کار رو واسطون با تصویر زیر نشون می دم :

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

Shell  Path name,[Window Style]

چند تا استفاده و مثال با حال :

             Shell "notepad", vbNormalFocus       'Opens Notepad

Shell "explorer", vbNormalFocus       'Opens Explorer

                     Shell "notepad C:\test.txt", vbNormalFocus      'Opens text file with notepad

 

حذف(Delete) کردن فایلها

واسه استفاده از این کد یک text1 و یک commondialog1 روی فرم درست کنید و ازش استفاده کنین.البته خیلی سادس......تنها آرگومان این تابع هم مسیر فایل مورد نظره که تو text1 وارد میشه.

Public Function Delete(FilePath As String)
Kill FilePath
End Function

Private Sub Command1_Click()
With CommonDialog1
.CancelError = False
.ShowOpen
End With
Text1.Text = CommonDialog1.Filename
End Sub

Private Sub Command2_Click()
Delete Text1.Text
End Sub

اینم یک پروژه بسیار آموزنده برای shut down restart & log off کردن کامپیوتر همراه با تایمر

با تنظیم کردن تایمر برنامه و نوع عمل اون با option Button ها که شامل Restart LogOff و Shut down  میشه می تونین ازش استفاده کنین.نوشته ی خودم نیست از جایی download کردمش .ساید به خاطر همین تمیز و مرتبه .

لینک دانلود : shutdown manager

یک نما از GUI برنامه :

چطوری در Run time کنترل ها را روی Form ایجاد کنیم ؟

شاید دوست داشته باشین به تعداد دلخواه در زمان اجرای برنامه (Run time ) تعدادی کنترل ایجاد کنین.این کد 25 text box به صورت مربعی ایجاد می کنه.با اجاد کمی تغییر می تونین ازش راحت استفاده کنین.

فقط حواستون باشه که برای ایحاد هر کنترل باید یکی از اون رو با Index 0 روی فرمتون ایجاد کنین. کنترل پیش فرض این کد txtinput هست.

Dim i As Integer
   For i% = 1 To 25
       Load txtInput(i%)
       With txtInput(i%)
            .Width = 360: .Height = 240
            .Left = ((i% - 1) Mod 5) * .Width
            .Top = ((i% - 1) \ 5) * .Height
            .Visible = True
            .Text = "test"
       End With
   Next i%

چک کردن وجود فایل ها یا فولدر ها

این کد خیلی تو برنامه هایی که با شاخه ها فایل ها و فولدر ها ارتباط دارن به درد میخوره.می تونین با این تابع وجود فایل ها یا فولدر هایی که حتی اگه Hidden هم که باشن چک کنین.

Public Function PathExists(ByVal Pathname As String, Optional ByVal IsFolder As Boolean = False) As Boolean
  PathExists = (Dir$(Pathname, vbArchive + vbHidden + vbReadOnly + vbSystem + IIf(IsFolder, vbDirectory, 0)) <> "")
End Function

Shut down - Log Off - Reboot & Exit توسط VB

با استفاده از API زیر و این کدها می تونین با VB کامپیتر رو خاموش یا ریست یا log off کنین. احتمالاً زیاد به دردتون می خوره .

Const EWX_LogOff As Long = 0
       Const EWX_SHUTDOWN = 1
       Const EWX_REBOOT = 2
       Const EWX_FORCE = 4
       Private Declare Function ExitWindows _
               Lib "User32" Alias "ExitWindowsEx" _
               (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

برای مثال کد زیر توسط یک Command Button کامپیوتر رو خاموش میکنه :

Private Sub Command1_Click()

           ExitWindows EWX_SHUTDOWN, &HFFFFFFFF
 End Sub

چطوری آدرس شاخه های اصلی سیستم عامل رو پیدا کنیم؟

اینجا واسطون محتویات یک مدل رو میذارم. شما میتونین مثلا با خط زیر آدرس StartUp رو پیدا کنین:                                               

Dim i As String

i=FindSystemFolder(startup)

حالا خود مدل :

Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwnd As Long, ByVal nFolder As Long, Pidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (Pidl As Long, ByVal FolderPath As String) As Long
Const MAX_PATH = 260
Public Enum SystemFolder
    Desktop = 0
    StartMenu_Programs = 2
    My_Documents = 5
    Favorites = 6
    Startup = 7
    Recent = 8
    SendTo = 9
    Start_Menu = 11
    Windows_Desktop = 16
    Network_Neighborhood = 19
    Fonts = 20
    ShellNew = 21
    AllUsers_Desktop = 25
    ApplicationData = 26
    Printhood = 27
    TemporaryInternetFiles = 32
    Cookies = 33
    History = 34
End Enum
Public Function FindSystemFolder(ByVal lngNum As SystemFolder) As String
   On Error GoTo FindSystemFolder_Err
   Dim lpStartupPath As String * MAX_PATH
   Dim Pidl As Long
   Dim hResult As Long
    hResult = SHGetSpecialFolderLocation(0, lngNum, Pidl)
    If hResult = 0 Then
        hResult = SHGetPathFromIDList(ByVal Pidl, lpStartupPath)
        If hResult = 1 Then
            lpStartupPath = Left$(Trim$(lpStartupPath), InStr(lpStartupPath, Chr(0)) - 1)
            FindSystemFolder = Trim$(lpStartupPath)
        End If
    End If
FindSystemFolder_End:
    Exit Function
FindSystemFolder_Err:
    Err.Raise Err.Number, "FindSystemFolder::" & Err.Source, Err.Description
End Function

*از عباراتی که قرمز کردم به عنوان آرگومان برای ارسال به تابع استفاده کنین.

باز و بست در CD Rom

یکی از کارای جالبی که میشه کرد باز و بست در Cd -Rom هست.این برنامه بعد از اجرا در Cd Rom رو باز و بست میکنه .میتونین از مدل 1 که تو برنامس استفاده کنین و تو برنامه هاتون بذارین.اگه نتونستین برنامه رو Stop کنین دکمه های Ctrl+ Pause رو بزنین تا به حالت pause برنامه بره.

لینک برنامه : CD-Rom Open/Close

کار با میکرو کنترلر ها با VB

من از طریق یکی از دوستام یک مقاله پیدا کردم که به صورت PDF هست و درباره کار با میکرو کنترلر ها با vb. مقاله خیلی خوبیه .مخصوصاً واسه کسایی که روبوتیک کار می کنن.که این مقاله از آقای بهزاد خزاماست که دانشجو هستند.(www.khazama.com)

لینک دانلود : Micro Controller with VB

چطوری جسمی را به طور دایره ای حول محور بچرخونیم

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

لینک برنامه : Gyrating With VB

تبدیل تاریخ میلادی به شمسی و استفاده در برنامه های VB

امروز میخوام یک مدل برای تبدیل تاریخ میلادی به هجری شمسی براتون بذارم تو بلاگ.البته حواستون باشه که برای صحیح نشون دادان تاریخ شمسی باید تاریخ کامپیوتر به میلادی تنظیم باشه.حالا لیست آرگومانهای برگشتی برنامه رو بهتون میگم چیه:

Y2 شماره سال شمسی

M2 شماره ماه شمسی

D2 شماره روز شمسی

Datenum نام روز هفته

StrM2 نام ماه شمسی

FirstDayNum شماره اولین روز سال .  0 (شنبه) 1 (یکشنبه) ..... 6 (جمعه)

اینم لینک دانلود : DateShamsi

اگه نظری واسه بهتر شدن مدل دارین بهم بگین.

 

محاسبه n! های خیلی بزرگ

تو المپیاد کامپیوتر گرگان که تابستون 85 برگذار شد یک سوال جالب اومده بود و اون اینکه عدد 500! )فاکتوریل) رو حساب کنید با نمایش کامل ارقام . !!!!! فکر نکنم کسی کامل و بی عیب اونجا تو وقت ده دقیقه ای نوشته باشش ولی من چند روز پیش به فکرش افنادم و با vb نوشتمش . 500!رو 3 ثانیه طول می کشه کامپیوتر حساب کنه و 1000! رو تقریبا 11 ثانیه . چند روز پیش 10000! رو حساب کردم که شاید خودش یه رکورد باشه و 68 دقیقه کامپیوتر فکر کرد تا جواب 9999 رقمی رو داد. این لینک دانلوده برنامس الگوریتم جالبی داره در واقع پیاده سازی ضرب دستی به جای ضری کامپیوتره که بشه همچین عددی رو حساب کرد :

 اینم لینک دانلود برنامه : Big n! Calculator

سلام

سلام اسم من پویا ست .می خوام پروژه های VB که نوشتم رو بذارم تو بلاگ که همه استفاده کنن.