نحوه ساخت رویه ها در VB.NET

[Mr.SPi]

سلام


میشه بگید چه طور میشه یک Sub جداگانه در vb.net تعریف کرد ؟

ممنون

[gilsoft]

سلام دوست عزیز

منظورتون از sub جداگانه چیه ؟ :متفکر:

اگه میخوایی بصورت public در همه جای پروژه ازش استفاده کنی .. باید اونو تو یه Module بنویسی .. مانند کد زیر :
Module Module1
Public Function GetFileName(path As String) As String
Return System.IO.Path.GetFileName(path)
End Function 'GetFileName()

Public Sub GetOsVersion()
Dim os As OperatingSystem
os = Environment.OSVersion
Console.WriteLine("OSVersion = {0}", os)
Console.WriteLine("ServicePack = {0}", os.ServicePack)
Console.WriteLine("Platform = {0}", os.Platform)
Console.WriteLine("Version = {0}", os.Version)
Console.WriteLine("VersionString = {0}", os.VersionString)
End Sub 'GetOsVersion()
End Module



در غیر اینصورت باید توضیحات بیشتری بدی

موفق باشید ....

[Mr.SPi]

سلام دوست عزیز

منظورتون از sub جداگانه چیه ؟ :متفکر:

اگه میخوایی بصورت public در همه جای پروژه ازش استفاده کنی .. باید اونو تو یه Module بنویسی .. مانند کد زیر :
Module Module1
Public Function GetFileName(path As String) As String
Return System.IO.Path.GetFileName(path)
End Function 'GetFileName()

Public Sub GetOsVersion()
Dim os As OperatingSystem
os = Environment.OSVersion
Console.WriteLine("OSVersion = {0}", os)
Console.WriteLine("ServicePack = {0}", os.ServicePack)
Console.WriteLine("Platform = {0}", os.Platform)
Console.WriteLine("Version = {0}", os.Version)
Console.WriteLine("VersionString = {0}", os.VersionString)
End Sub 'GetOsVersion()
End Module



در غیر اینصورت باید توضیحات بیشتری بدی

موفق باشید ....

سلام

منظورم اینه که چطور میشه هخون ماژول رو تعریف کرد. من این کار رو میکنم میشه ببینید درسته یا خیر :


http://8pic.ir/images/iwzom59mmqeh8dlokgzc.jpg

بعد از تعریف رویه برای فراخوانی این کد رو در یک جای برنامه به کار میبرم :

call sepehr()

[gilsoft]

سلام مجدد

141187

موفق باشید .....

[Mr.SPi]

سلام مجدد

141187

موفق باشید .....

یه سوال ؟

میشه بگید منظور از برگشت مقدار در رویه های تابعی رو بگید ؟ من متوجه نمیشم ممنون میشم.

[gilsoft]

سلام مجدد

ببین دوست من .. تابع GetFileName ‌( در پست 2# ) یه پارامتر از نوع رشته‌ای به عنوان ورودی میگیره ، و یک مقدار از نوع رشته‌ای به عنوان خروجی برمیگردونه

برای مثال : اگه به تابع GetFileName مقدار "D:\Ziped\1392.zip" بدیم .. مقدار برگشتی آن میشود " 1392.zip"
Dim FileName As String

FileName = GetFileName("D:\Ziped\1392.zip")

Label1.Text = FileName

در واقع کار تابع GetFileName این است که: مسیر کامل یک فایل را دریافت می‌کند و فقط نام و پسوند فایل را به عنوان خروجی برمیگرداند

اگه به مثال بالا توجه کنید .. می‌بینیم که مقدار برگشتی تابع GetFileName را در متغیر رشته‌ای FileName ذخیره کردیم و در سطر بعد محتوای متغیر FileName رو تو یک Label نمایش میدیم

امیدوارم که: تونسته باشم درست توضیح بدم .....

موفق باشید .....