ايقونات متحركة

ما شاء الله إبداع جيد

شكرا للجديد

فكره جميله

يعطيك 1000 عافيه على المجهود

شكرا اخوتى بارك الله فيكم

تشكرا مبدع والله

بارك الله فيك

موضوع كلش حلو شكر

plzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

ساعدوني اعرف امكن متقبل القوانين انو اكتب اهنا بي اني جديدةوميقبل اكتب موضوع جديد

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

:cry: :cry: :cry: :cry:

المعادلة هي

V = (P1 * Ta / Pa * T) * (1 - (Vc / Vs) * ((P2 / P1) ^ (1 / n) - 1)).

المجاهيل هي P1 _ P2 _ T

ادخله بالتيكس من يعمل البرنامج

ام اللاخرون فهم

Const Pa = 1.013

Const Ta = 15

Const Vc = 0.05

Const Vs = 1

Const n = 1.3

ساعدوني الله ايخليكم امتحاني :rose: :rose: :rose: :rose: :rose: بعد يومين

ومن حليت مدتنحل وهاي تجربتي

Dim V As Integer

Dim P1 As Integer

Dim P2 As Integer

Dim T As Integer

Dim Pa As Integer

Dim Ta As Integer

Dim Vc As Integer

Dim Vs As Integer

Dim n As Integer

Private Sub Command1_Click()

Const Pa = 1.013

Const Ta = 15

Const Vc = 0.05

Const Vs = 1

Const n = 1.3

If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then

If IsNumeric(Text1.Text) And (Text2.Text) And (Text3.Text) Then

P1 = Text1.Text

P2 = Text2.Text

T = Text3.Text

V = (P1 * Ta / Pa * T) * (1 - (Vc / Vs) * ((P2 / P1) ^ (1 / n) - 1))

Text4.Text = V

Else

MsgBox " you must enter number", vbCritical, "error"

End If

Else

MsgBox " you must enter something", vbCritical, "error"

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

ششكرا لك

السلام عليكم

ما شاء الله عليك

كود ولا اروع وحركه جميله جدا جدا

الله يعطيك العافيه

جزاك الله خيـــــــــــــــــــرا