close
تبلیغات در اینترنت
توابع داخلی ویژوال بیسیک {کامل}
loading...

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

توابع ریاضی: مثال این توابع در پایان یکجا ذکر می شود. 1. Abs این تابع قدر مطلق عدد را به دست می آورد.                         کد:                                                    …

Admin بازدید : 1535 سه شنبه 17 خرداد 1390 نظرات ()

توابع ریاضی:
مثال این توابع در پایان یکجا ذکر می شود.

1. Abs
این تابع قدر مطلق عدد را به دست می آورد.

                                                               
کد:                                     
                       

            Function Abs(Number)                       
           


2. Atn
این تابع آرک تانژانت یک عدد را به دست می آورد.

                                                               
کد:                                      
                       

            Function Atn(Number As Double) As Double                       
           


3. Cos
این تابع کسینوس یک زاویه را به دست می آورد.

                                                               
کد:                                      
                       

            Function Cos(Number As Double) As Double                       
           


4. Exp
این تابع e به توان x را محاسبه می کند.

                                                               
کد:                                      انتخاب 
                       

            Function Exp(Number As Double) As Double                       
           


5. Log
این تابع لگاریتم یک عدد را در مبنای e محاسبه می کند.

                                                               
کد:                                       
                       

            Function Log(Number As Double) As Double                       
           


6. Randomize
این رویه مولد عدد تصادفی را Initialize می کند.

                                                               
کد:                                       
                       

            Sub Randomize([Number])                       
           


7. Rnd
این تابع یک عدد تصادفی را برمی گرداند.

                                                               
کد:                                      انتخاب 
                       

            Function Rnd([Number]) As Single                       
           


8. Round
یک عدد اعشاری را گرد می کند.

                                                               
کد: 
                       

            Function Round(Number, [NumDigitsAfterDecimal As Long])                       
           


9. Sgn
عددی را مبنی بر علامت یک عدد داده شده بر می گرداند.
1 برای اعداد مثبت ، 1-  برای اعداد منفی و صفر برای عد صفر

                                                               
کد:                                     
                       

            Function Sgn(Number)                       
           


10. Sin
این تابع سینوس یک زاویه را بر می گرداند.

                                                               
کد:                                     
                       

            Function Sin(Number As Double) As Double                       
           


11. Sqr
این تابع جذر یک تابع را بر می گرداند.

                                                               
کد:                                     
                       

            Function Sqr(Number As Double) As Double                       
           


12. Tan
این تابع تانژانت یک زاویه را بر می گرداند.  منبع DpiGuide.Com

                                                               
کد:                                     
                       

            Function Tan(Number As Double) As Double                       
           


مثال:
فقط کافی است این چند خط را در vb کپی کنید و نتیجه را ببینید:

                                                               
کد:                                      
                       

            Private Sub Form_Load()
            Dim Msg As String
            Msg = "Abs(-1.2)  : " & Abs(-1.2) & vbCrLf & _
                  "Atn(90)    : " & Atn(90) & vbCrLf & _
                  "Cos(90)    : " & Cos(90) & vbCrLf & _
                  "Exp(2)     : " & Exp(2) & vbCrLf & _
                  "Log(10)    : " & Log(10) & vbCrLf & _
                  "Rnd        : " & Rnd & vbCrLf & _
                  "Round(1.3) : " & Round(1.3) & vbCrLf & _
                  "Sgn(-5)    : " & Sgn(-5) & vbCrLf & _
                  "Sin(90)    : " & Sin(90) & vbCrLf & _
                  "Sqr(25)    : " & Sqr(25) & vbCrLf & _
                  "Tan(90)    : " & Tan(90)
            MsgBox Msg
            End
            End Sub                       
           


تابع App:
این تابع حاوی اطلاعات مهمی در بارهء برنامه تان می باشد.

                                                               
کد: 
                       

            Property App As App                       
           


13. App.Comments
توضیح فایل اجرائی برنامه را در صورت وجود بر می گرداند.

14. App.CompanyName
اسم برنامه نویس فایل را در صورت وجود بر می گرداند.

15. App.EXEName
اسم فایل اجرائی برنامه را برمی گرداند. اگر در IDE باشید اسم پروژهء فعلی را بر می گرداند.

16. App.FileDescription
Description فایل را در صورت وجود برمی گرداند.

17. App.HelpFile
می توان آدرس فایل Help برنامه را هم تنظیم و هم دریافت کرد.

18. App.hInstance
Handle نمونهء برنامه را برمی گرداند.

19. App.LegalCopyright
اطلاعات Copyright برنامه را در صورت وجود بر می گرداند.

20. App.LegalTrademarks
اطلاعات Trademark برنامه را در صورت وجود بر می گرداند.

21. App.LogMode
مقداری را مبنی بر محل فایل Log برنامه و دیگر صفات بر می گرداند.

22. App.LogPath
آدرس فایل Log برنامه را در صورت وجود بر می گرداند.

23. App.Major
شمارهء Major نسخهء برنامه را بر می گرداند.

24. App.Minor
شمارهء Minor نسخهء برنامه را بر می گرداند.
منبع DpiGuide.Com

25. App.NonModalAllowed
مقداری منطقی مبنی بر اینکه آیا فرم می تواند به صورت modeless نمایش یابد یا خیر.

26. App.Path
مسیر فایل پروژه (VBP) را در محیط IDE و مسیر فایل اجرائی (EXE) را اگر فایل اجرائی در حال اجرا باشد بر می گرداند.

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

28. App.ProductName
ProductName فایل را در صورت وجود بر می گرداند.

29. App.RetainedProject
مقداری منطقی مبنی بر اینکه آیا مقداری از پروژه در حافظه مانده است یا نه را برمی گرداند.

30. App.Revision
شمارهء نسخهء تجدید نظر برنامه را برمیگرداند.

31. App.StartMode
مقداری را مبنی بر اینکه آیا پروژه به صورت stand-alone یا ActiveX component اجرا شده است برمیگرداند.

32. App.TaskVisible
مقداری منطقی مبنی بر اینکه آیا برنامه در لیست Windows Task Manager نمایش می یابد یا خیر را نشان می دهد. همچنین می توان آن را تنظیم کرد که نمایش نیاید.

33. App.ThreadID
شمارهء thread فایل اجرائی را بر میگرداند.

34. App.Title
اسمی را که در لیست Microsoft Windows Task می آید را برمی گرداند. همچنین می توان آن را تنظیم کرد.
منبع DpiGuide.Com

35. App.UnattendedApp
مقداری منطقی مبنی بر اینکه آیا برنامه می تواند بدون user interface اجرا شود یا خیر را برمی گرداند.

خواص تابع App در برنامه نویسی vb بسیار پر کاربرد می باشد. پس آنها را خوب یاد بگیرید.

تابع Clipboard


این تابع دسترسی را به Clipboard سیستم آسان می کند.
Clipboard جائی است که وقتی در ویندوز چیزی را کپی می کنید در آن قرار می گیرد.

36. Clear
این رویه محتویات Clipboard را پاک می کند.

                                                               
کد:                                     
                       

            Sub Clear()                       
           


37. GetData
برای گرفتن یک گرافیک از Clipboard

                                                               
کد:                                     
                       

            Function GetData([Format]) As IPictureDisp                       
           


38. GetFormat
مقداری منطقی مبنی بر اینکه آیا فرمت محتویات Clipboard با آنچه که برایش مشخص می کنیم یکی است یا نه را بر می گرداند.

                                                               
کد:                                      
                       

            Function GetFormat(Format As Integer) As Boolean                       
           


39. GetText
یک رشتهء متنی را از Clipboard می گیرد.

                                                               
کد:                                     
                       

            Function GetText([Format]) As String                       
           


40. SetData
یک عکس را با فرمت مشخص شده در Clipboard می گذارد.

                                                               
کد:                                   
                       

            Sub SetData(Picture As IPictureDisp, [Format])                       
           


41. SetText
یک رشتهء متنی را با استفاده از فرمت مشخص شده درون Clipboard می گذارد.منبع DpiGuide.Com

                                                               
کد: 
                       

            Sub SetText(Str As String, [Format])                       
           


مثال:
برنامه ای که طرز Copy,Cut,Paste را با استفاده از Clipboard نشان می دهد. همان کاری که NotePad انجام می دهد. برای استفاده از این کد به یک TextBox به نام Text1 و سه CommandButton به نام های CmdCopy,CmdCut,CmdPaste احتیاج دارید. لازم به ذکر است که متنی را که می خواهید کپی یا کات کنید باید انتخاب شده باشد. به همین دلیل از خاصیت SelText استفاده شده است.

                                                               
کد:                                   
                       

            Private Sub CmdCopy_Click()
            If Text1.SelText = "" Then
                Exit Sub
            Else
                Clipboard.Clear
                Clipboard.SetText Text1.SelText
            End If
            End Sub
           
            Private Sub CmdCut_Click()
            If Text1.SelText = "" Then
                Exit Sub
            Else
                Clipboard.Clear
                Clipboard.SetText Text1.SelText
                Text1.SelText = ""
            End If
            End Sub
           
            Private Sub CmdPaste_Click()
            Text1.SelText = Clipboard.GetText
            End Sub                       
           


کلاس Printer


اجازهء ارتباط با Printer سیستم شما را به راحتی فراهم می کند.

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

42. Printer.DeviceName
اسم پرینتر موجود را در صورت وجود برمیگرداند.

43. Printer.Port
اسم پورتی که پرینترتان روی آن نصب است را برمی گرداند.



کلاس Screen
امکان دسترسی به محل قرار گیری فرم روی صفحهء نمایش و تنظیمات ماوس و ... را فراهم می کند.

44.ActiveControl
کنترلی که Focus روی آن است را بر می گرداند.

45. ActiveForm
فرمی که active window یا فرم قعال است را بر می گرداند.

46. FontCount
تعداد Font های موجود برای Device نمایش فعلی یا پرینتر را برمی گرداند.

47. Fonts
اسم تمامی Font های موجود را برمی گرداند.

                                                               
کد:                                     
                       

            Property Fonts(Integer) As String                       
           


48. Height
ارتفاع Screen را نمایش می دهد.

49. MouseIcon
برای انتخاب کرسر دیگری برای ماوس.
منبع DpiGuide.Com

50. MousePointer
نوع اشاره گر ماوس را نشان می دهد.

51. TwipsPerPixelX
تعداد پیکسل های افقی را برای یک شئ بر حسب Twip بر می گرداند
Twip: واحد اندازه گیری برای اندازه گیری صنعت پرینت. برابر با 1440/1 اینچ.

52. TwipsPerPixelY
تعداد پیکسل های عمودی را برای یک شئ بر حسب Twip بر می گرداند.

53. Width
عرض Screen را نمایش می دهد.

مثال:
این برنامه اسامی تمام Font های سیستم را در یک لیست نمایش می دهد. برای اجرا کافی است یک ListBox با نام List1 را در فرم قرار دهید.

                                                               
کد:                                     
                       

            Private Sub Form_Load()
            Dim i As Integer
            For i = 0 To Screen.FontCount
                List1.AddItem Screen.Fonts(i)
            Next i
            End Sub                       
           


پیدا کردن Resolution صفحهء نمایش.(بسیار کاربردی!)

                                                               
کد:
                       

            Private Sub Form_Load()
            MsgBox Screen.Width Screen.TwipsPerPixelX _
                & " x " & Screen.Height Screen.TwipsPerPixelY
            End Sub                       
           


ثوابت (Constants) تعریف شده در ویژوال بیسیک:
54. vbBack
ثابتی برای backspace معادل کد 8 اسکی

55. vbCr
ثابتی برای carriage return یعنی به سر سطر رفتن معادل با کد 13 اسکی

56. vbCrLf
ثابتی برای ترکیبی از carriage return و LineFeed معادل با کد 13 اسکی و کد 10 اسکی

57. vbFormFeed
ثابتی برای form feed معادل با کد 12 اسکی
نکته: form feed دستوری است برای خالی کردن ورقه ها در پرینتر.

58. vbLf
ثابتی است برای linefeed معادل با کد 10 اسکی

59. vbNewLine
ثابتی برای رفتن به خط بعدی

60. vbNullChar
ثابتی برای کاراکتر Null معادل با کد 0 اسکی

61. vbNullString
ثابتی برای استفاده وقتی از رویه های API استفاده می کنید که مقدار رشتهء آنها صفر می باشد.

62. vbObjectError

                                                               
کد:                                   
                       

            Const vbObjectError = -2147221504 (&H80040000)                       
           


ثابتی که نشانهء ایجاد خطا در یک پروژهء vb می باشد.
منبع DpiGuide.Com

63. vbTab
ثابتی برای کاراکتر Tab معادل کد 9 اسکی

64. vbVerticalTab
ثابتی برای کاراکتر Tab عمودی معادل کد 11 اسکی

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

توابع تبدیل:

65. CBool

                                                               
کد:                                   
                       

            Function CBool(Expression) As Boolean                       
           


یک عبارت را به نوع Boolean تبدیل می کند.

66. CByte

                                                               
کد:
                       

            Function CByte(Expression) As Byte                       
           


یک عبارت را به نوع Byte تبدیل می کند.

67. CCur

                                                               
کد:                                      
                       

            Function CCur(Expression) As Currency                       
           


یک عبارت را به نوع Currency تبدیل می کند.

68. CDate

                                                   
کد: