المشاركات : 8
المواضيع 3
الإنتساب : Jun 2014
السمعة :
0
الشكر: 0
تم شكره 18 مرات في 5 مشاركات
السلام عليكم ورحمة الله وبركاته
من فضلكم أريد كود يقوم بحساب هذه العملية
مثال: 1500÷2=750
انا اريد:1500÷2=700 و الرقم 50 يوضع في مكان آخر متغير أو تكست بوك ...
مثال آخر :
30000÷4=7500
انا اريد 30000 ÷4=7000 و الباقي بحفض في مكان آخر
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4339 مرات في 1696 مشاركات
السلام عليكم
تم نقل الموضوع لقسم الاسئلة
ارجوا ان تضع مواضيعك في القسم المناسب
انظر فكرة الكود التالي هل هي المطلوب
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
المشاركات : 2,008
المواضيع 58
الإنتساب : Oct 2014
السمعة :
1,005
الشكر: 31833
تم شكره 22865 مرات في 2187 مشاركات
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , الشكر موصول للأخ العزيز السندباد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
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
المشاركات : 8
المواضيع 3
الإنتساب : Jun 2014
السمعة :
0
الشكر: 0
تم شكره 18 مرات في 5 مشاركات
شكرا شكرا شكرا للاخوين sendbad100 و Ahmed_Mansoor
بارك الله فيكما سؤال اخر هل يصلح الكود مهما كان الرقم كبير
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4339 مرات في 1696 مشاركات
السلام عليكم
جرب اخي الكريم
بالنسبة للكود الذي وضعته لك يمكنك زيادة الشروط في IF مع زيادة الاصفار في الر قم 100 ثم 1000 ثم في حال لم ينجح مع الارقام الكبيرة.
انا بعيد الكمبيوتر لم يتسنى لي التجربة.
المشاركات : 8
المواضيع 3
الإنتساب : Jun 2014
السمعة :
0
الشكر: 0
تم شكره 18 مرات في 5 مشاركات
شكرا اخي سندباد بارك الله فيك
المشاركات : 8
المواضيع 3
الإنتساب : Jun 2014
السمعة :
0
الشكر: 0
تم شكره 18 مرات في 5 مشاركات
السلام عليكم و رحمة الله و بركاته
اريد مساعدة من الاخوة الاعضاء و هية :
في داتا ريبورت و بالضبط في page footer تنشاء فيه rptlabel او rpttextbox حسب الاحتياج دينامكيا اي حسب عدد التسجيلات في الجدول
مثلا عندي اربع اقساط لزبون ما، تنشاء اربعة rpttextbox او rptlabel و تاخذ تلك القيم و في حال مثلا سبعة اقساط تنشاء سبعة rpttextbox او rptlabel و تاخذ تلك القيم و هكذا ، و تكون منظمة على شكل مصفوفة
* * * *
* * * *
و لكم مني جزيل الشكر
المشاركات : 703
المواضيع 129
الإنتساب : Sep 2013
السمعة :
12
الشكر: 428
تم شكره 777 مرات في 196 مشاركات
وهذا كود أخر لسؤالك الأول ان كنت تريده بالعمليات الحسابية فقط
أى لاتريده من خواص التكست
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
المشاركات : 8
المواضيع 3
الإنتساب : Jun 2014
السمعة :
0
الشكر: 0
تم شكره 18 مرات في 5 مشاركات
(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
|