الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو من الاخوة الزملاء المساعد

بدأه usama_hawas في 27 أبريل 2008 · 1 رد · 425 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله علي جميع الاخوة

انا بتعلم جديد فاعذروني

عايز اعمل كلاس بسيطة بتحول بين درجة كلفنية ودرجة سلزيوس

المعادلة هي

K=C+273

فلقيت الكلاس التالي

Public Class clsTemper

Private temperature As Single

Public Property Kelvin() As Integer

Get

Return temperature

End Get

Set(ByVal value As Integer)

temperature = value

value = value + 273.15

End Set

End Property

وباحاول اشغله بالكود التالي

Private Sub btConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btConvert.Click

Dim clTemp As New clsTemper

txtNewTemp.Text = clTemp.Kelvin.ToString(Val(txTemperature.Text))

End Sub

ولكن التاتج دايما Zero

ارجو المساعدة للاهمية

#2

وعليكم السلام ورحمة الله

لا أعتقد أن المسألة تحتاج إلى فئة وعلى العموم هذه الفئة مقتصرة على ما طلبت :

Public Class clsTemper

	Private Temp, Kel As Single

	Sub New()

		Me.Temperature = 0

	End Sub

	Public Property Temperature() As Single
		Get
			Return Temp

		End Get
		Set(ByVal value As Single)

			Temp = value
			Kel = CSng(Temp + 273.15)

		End Set
	End Property

	Public Property Kelvin() As Single
		Get
			Return Kel

		End Get
		Set(ByVal value As Single)

			Kel = value
			Temp = CSng(Kel - 273.15)


		End Set
	End Property

End Class

واستخدامها حسب أسماء مربعات النصوص التي كتبتها في ردك كالتالي :

Dim cl As New clsTemper
cl.Temperature = CSng(txTemperature.Text)
txtNewTemp.Text = cl.Kelvin.ToString

تحياتي

مواضيع مشابهة