+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] عملية حسابية (/showthread.php?tid=25949)
عملية حسابية - fariddidou - 02-08-18
السلام عليكم ورحمة الله وبركاته
من فضلكم أريد كود يقوم بحساب هذه العملية
مثال: 1500÷2=750
انا اريد:1500÷2=700 و الرقم 50 يوضع في مكان آخر متغير أو تكست بوك ...
مثال آخر :
30000÷4=7500
انا اريد 30000 ÷4=7000 و الباقي بحفض في مكان آخر
RE: عملية حسابية - sendbad100 - 02-08-18
السلام عليكم
تم نقل الموضوع لقسم الاسئلة
ارجوا ان تضع مواضيعك في القسم المناسب
انظر فكرة الكود التالي هل هي المطلوب
PHP كود :
[align=center]Private Sub Command1_Click()[/align]
Dim n1, n2, n3 As Double
'n1 = 1500 / 2
n1 = 30000 / 4
If n1 < 1000 Then
n2 = Val(Left(n1, 1)) * 100
ElseIf n1 < 10000 Then
n2 = Val(Left(n1, 1)) * 1000
End If
n3 = n1 - n2
MsgBox n2, , n3
End Sub
RE: عملية حسابية - Ahmed_Mansoor - 02-08-18
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , الشكر موصول للأخ العزيز السندباد100 على تقديم المساعدة , هذا كود آخر لعمل ذلك , أنشئ مشروع جديد ثم أدرج على الفورم 4 تكست بوكس و واحد زر ثم ضع هذا الكود داخل كود الزر :
PHP كود :
Dim A As Long
Dim B As Long
Dim Result As String
A = Val(Text1.Text)
B = Val(Text2.Text)
Result = A / B
Text3.Text = Left$(Result, 1) & String$(Len(Result) - 1, "0")
If Len(Result) > 1 Then
Text4.Text = Mid$(Result, 2)
End If
RE: عملية حسابية - fariddidou - 04-08-18
شكرا شكرا شكرا للاخوين sendbad100 و Ahmed_Mansoor
بارك الله فيكما سؤال اخر هل يصلح الكود مهما كان الرقم كبير
RE: عملية حسابية - sendbad100 - 05-08-18
السلام عليكم
جرب اخي الكريم
بالنسبة للكود الذي وضعته لك يمكنك زيادة الشروط في IF مع زيادة الاصفار في الر قم 100 ثم 1000 ثم في حال لم ينجح مع الارقام الكبيرة.
انا بعيد الكمبيوتر لم يتسنى لي التجربة.
RE: عملية حسابية - fariddidou - 05-08-18
شكرا اخي سندباد بارك الله فيك
داتا ريبورت ديناميكي - fariddidou - 26-08-18
السلام عليكم و رحمة الله و بركاته
اريد مساعدة من الاخوة الاعضاء و هية :
في داتا ريبورت و بالضبط في page footer تنشاء فيه rptlabel او rpttextbox حسب الاحتياج دينامكيا اي حسب عدد التسجيلات في الجدول
مثلا عندي اربع اقساط لزبون ما، تنشاء اربعة rpttextbox او rptlabel و تاخذ تلك القيم و في حال مثلا سبعة اقساط تنشاء سبعة rpttextbox او rptlabel و تاخذ تلك القيم و هكذا ، و تكون منظمة على شكل مصفوفة
* * * *
* * * *
و لكم مني جزيل الشكر
RE: عملية حسابية - اسلام الكبابى - 30-08-18
وهذا كود أخر لسؤالك الأول ان كنت تريده بالعمليات الحسابية فقط
أى لاتريده من خواص التكست
PHP كود :
X1 = Val(Text1.Text): X2 = Val(Text2.Text)
X = Int(X1 / X2): N = Len(X)
Real = 10 ^ (N - 1)
AAA = X / Real
RESULT = Real * Int(AAA)
Print RESULT
RE: عملية حسابية - fariddidou - 15-09-18
(30-08-18, 03:50 PM)بارك الله فيك الأخ اسلام الكبابى كتب :PHP كود :
X1 = Val(Text1.Text): X2 = Val(Text2.Text)
X = Int(X1 / X2): N = Len(X)
Real = 10 ^ (N - 1)
AAA = X / Real
RESULT = Real * Int(AAA)
Print RESULT