الاعداد الكسرية في الفجوال بسيك

لازم تجيب قيمة الكسر الأول

يعني لازم تحط val قبل التيكست

x = Val(Text1.Text)

وبكدة هايحسب القيمة اللي انت كتبتها

لأن اللي انت كتبته ده مش رقم

دي عملية حسابية

1/2=0.5

1 على 2 = 0.5

شوف كدة وقولي

بس لازم تعمل متغير X بحيث انه يعرض الكسور

يعني لو عملت Integer

ناتج القسمة هايكون من غير كسور

شوف بقى ايه المتغير اللي يقبل كسور علشان انا مش عارفه

جربت Double وبرضه لم يعرض كسور

وشكرا

اقتباس

بمعنى اذا انا كتبت في text مثلا 0.5 البرنامج يشتغل

و اذا كتبت (1/2) في text البرنامج لا يشتغل

أنت يجب تعرف Text على الأرقام فقط

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then Text1 = ""
End Sub

الأخ الفاضل ...

جرب الكود التالى:

Private Function GetNumber(NumberStr As String) As Double
	Dim P As Double
	Dim B As Double
	Dim i As Long

	B = 1
	P = Val(Trim(NumberStr))

	i = InStr(1, NumberStr, "/")
	If i Then
		P = Val(Trim(Left(NumberStr, i - 1)))
		B = Val(Trim(Mid(NumberStr, i + 1)))
	End If
	If B Then
		GetNumber = P / B
	End If
End Function

فبدلا من استخدام

x = Val(Text1.Text)

أستخدم

x = GetNumber(Text1.Text)

شكراً

	  Private Function GetNumber(NumberStr As String) As Double
	Dim P As Double
	Dim B As Double
	Dim i As Long
	B = 1
	P = Val(Trim(NumberStr))
	i = InStr(1, NumberStr, "/")
	If i Then
	P = Val(Trim(Left(NumberStr, i - 1)))
	B = Val(Trim(Mid(NumberStr, i + 1)))
	End If
	If B Then
	GetNumber = P / B
	End If
End Function

كان لازم تحط من الأول أنك تريد كود للتعرف على إشارة التقسيم في التكست بوكس

وليس كما ذكرت أنت :

اقتباس

بمعنى اذا انا كتبت في text مثلا 0.5 البرنامج يشتغل

و اذا كتبت (1/2) في text البرنامج لا يشتغل

الفضل لله تعالى وحده

اقتباس

و لكن الافضل هو

1/3+1/3=2/3

من يجد لنا نواتج كسرية يا اخواني

ألا يمكن يكون الجواب :

1/3+1/3=4/6

:unsure:

اقتباس

ألا يمكن يكون الجواب :

1/3+1/3=4/6

:unsure:

ان يكون 2/3 او 4/6 كما قلت او 8/12 او 80000000 /120000000 ليس مهما يا 'عبد العزيز

المهم ان يكون كسرا و ليس 0.66666666666666666666666666666666666666666

Private Sub Command1_Click()
Dim f As Double
Dim i As Long
i = 1
f = Text1 * i
	Do While Int(f) <> f
	f = Text1 * i
	i = i + 1
	DoEvents
	Loop
Text1 = f & "/" & i - 1
End Sub

If Val(Text1) <> Int(Val(Text1)) Then
 الكود السابق
end if

لقد قمت بعمل تعديلات واضافات لما تم وضعه

المثال في المرفقات

File.zip

لقد نسيت ان اوضح بعض الأمور

ستجد على الفورم 3 أزرار

الأول يحسب مجموع t1 و t2 بالطريقة العادية

الثاني يحسب مجموع a1 و a2 اذا كان فيهما كسور، ويظهر الناتج في a3 على شكل بسط ومقام

الثالث نفس السابق ولكنه يحسب بطريقة مختلفة وأسرع، أي انه يحسب مجموع a1 و a2 ويظهر الناتج في text2

بالنسبة لاقتراحك الأخير، قم بتعديل الكود الموجود في command3 ليتناسب مع ما تريد