View Full Version : سوال: نحوه ساخت رویه ها در VB.NET
Mr.SPi
چهارشنبه 09 تیر 1395, 18:20 عصر
سلام
میشه بگید چه طور میشه یک Sub جداگانه در vb.net تعریف کرد ؟
ممنون
gilsoft
پنج شنبه 10 تیر 1395, 12:33 عصر
سلام دوست عزیز
منظورتون از 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
پنج شنبه 10 تیر 1395, 13:36 عصر
سلام دوست عزیز
منظورتون از 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
پنج شنبه 10 تیر 1395, 15:11 عصر
سلام مجدد
141187
موفق باشید .....
Mr.SPi
پنج شنبه 10 تیر 1395, 19:16 عصر
سلام مجدد
141187
موفق باشید .....
یه سوال ؟
میشه بگید منظور از برگشت مقدار در رویه های تابعی رو بگید ؟ من متوجه نمیشم ممنون میشم.
gilsoft
سه شنبه 15 تیر 1395, 01:43 صبح
سلام مجدد
ببین دوست من .. تابع 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 نمایش میدیم
امیدوارم که: تونسته باشم درست توضیح بدم .....
موفق باشید .....
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.