تبلیغات
تبلیغات متنی
محبوبترینها
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1837437909
چگونگی نوشتن یک "کلاس" -
واضح آرشیو وب فارسی:سایت ریسک: چگونگی نوشتن یک "کلاس" daland 11 اسفند 1389, 05:29سلام دوستانی که با ویژوال بیسیک آشنایی دارن بیزحمت یه کمکی بکنن.ممنون میشم یه کد خیلی ساده میخوام که: توی کلاس car باشه و متغیرهاش هم اینها: name model color no-drives دقیق نمیدونم سوالم کامله یا نه. اگه کسی چیزی میدوه بگه لطفا the_king 11 اسفند 1389, 07:43سلام دوستانی که با ویژوال بیسیک آشنایی دارن بیزحمت یه کمکی بکنن.ممنون میشم یه کد خیلی ساده میخوام که: توی کلاس car باشه و متغیرهاش هم اینها: name model color no-drives دقیق نمیدونم سوالم کامله یا نه. اگه کسی چیزی میدوه بگه لطفا no-drives قراره چی باشه؟ در هر صورت کاراکتر - که نمی تونه جزئی از اسم متغیر یا متدی باشه. تعریف کلاس در ویژوال بیسیک 6 اینطوریه : یک Class Module به اسم Car بسازید و کد های زیر رو داخلش بنویسید : Private mName As String, mModel As String, mColor As String Public Property Get Name() As String Name = mName End Property Public Property Let Name(ByVal Value As String) mName = Value End Property Public Property Get Model() As String Model = mModel End Property Public Property Let Model(ByVal Value As String) mModel = Value End Property Public Property Get Color() As String Color = mColor End Property Public Property Let Color(ByVal Value As String) mColor = Value End Property Public Function FullName() As String FullName = mName & " " & mModel & " (" & mColor & ")" End Function مثال از نحوه استفاده از کلاس Car در ویژوال بیسیک 6 : Dim c As New Car c.Name = "Bugatti" c.Model = "Veyron" c.Color = "Black" MsgBox c.FullName تعریف کلاس در ویژوال بیسیک Net. اینطوریه : Public Class Car Private mName As String, mModel As String, mColor As String Public Property Name() As String Get Name = mName End Get Set(ByVal value As String) mName = value End Set End Property Public Property Model() As String Get Model = mModel End Get Set(ByVal value As String) mModel = value End Set End Property Public Property Color() As String Get Color = mColor End Get Set(ByVal value As String) mColor = value End Set End Property Public Function FullName() As String FullName = mName + " " + mModel + " (" + mColor + ")" End Function End Class مثال از نحوه استفاده از کلاس Car در ویژوال بیسیک Net. اینطوریه : Dim c As New Car c.Name = "Bugatti" c.Model = "Veyron" c.Color = "Black" MessageBox.Show(c.FullName) daland 11 اسفند 1389, 08:01لطف کردی دوست عزیز..ممنون no-drives رو یادم نیست.. طریقه کلاس تعریف کردنش مثل بقیه هست دیگه؟ اگه آره که میتونم بعدا خودم از روی گفته های شما براش تعریف کنم.. الان این MsgBox c.FullName کل مشخصات رو نشون میده دیگه؟ درسته ؟ اگه یه توضیح مختصر بدید ممنون میشم. daland 11 اسفند 1389, 08:06راستی احتمالا یه کد دیگه با همین مشخصات لازم داشته باشم. ولی 2تاش باید از نوع integer باشه. همون string رو integer کنم کافیه یا تغییرات دیگه ای هم میخواد ؟ daland 11 اسفند 1389, 08:56راستی احتمالا یه کد دیگه با همین مشخصات لازم داشته باشم. ولی 2تاش باید از نوع integer باشه. همون string رو integer کنم کافیه یا تغییرات دیگه ای هم میخواد ؟ خب ! name باید string باشه بقیه هم همه integer تغییرات خاصی لازمه ؟ the_king 11 اسفند 1389, 11:26لطف کردی دوست عزیز..ممنون no-drives رو یادم نیست.. طریقه کلاس تعریف کردنش مثل بقیه هست دیگه؟ اگه آره که میتونم بعدا خودم از روی گفته های شما براش تعریف کنم.. الان این MsgBox c.FullName کل مشخصات رو نشون میده دیگه؟ درسته ؟ اگه یه توضیح مختصر بدید ممنون میشم. بله، همانطور که برای Model و Name و Color نوشته شده می توانید برای هر مشخصه دیگری هم با همان روال کد نویسی کنید. سه بخش لازم داره : 1) تعریف یک متغیر Private از اون نوع داده، مثل mName و mModel و mColor 2) تعریف یک تابع Property Get که مقدار اون متغیر رو بر می گردونه. 3) تعریف یک روتین Property Let که مقدار اون متغیر رو عوض می کنه. راستی احتمالا یه کد دیگه با همین مشخصات لازم داشته باشم. ولی 2تاش باید از نوع integer باشه. همون string رو integer کنم کافیه یا تغییرات دیگه ای هم میخواد ؟ بله، در هر سه بخش تعریف متغیر و Property Get و Property Set نوع داده رو عوض کنید. خب ! name باید string باشه بقیه هم همه integer تغییرات خاصی لازمه ؟ همانطور که خودتان اشاره کردید، صرفا String ها رو به Integer تغییر دهید. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 977]
-
گوناگون
پربازدیدترینها