منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
من فضلكم أريد كود يقوم بحساب هذه العملية
مثال: 1500÷2=750
انا اريد:1500÷2=700 و الرقم 50 يوضع في مكان آخر متغير أو تكست بوك ...
مثال آخر :
30000÷4=7500
انا اريد 30000 ÷4=7000 و الباقي بحفض في مكان آخر

السلام عليكم

تم نقل الموضوع لقسم الاسئلة

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

انظر فكرة الكود التالي هل هي المطلوب

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 

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

أهلا بك أخي الكريم , الشكر موصول للأخ العزيز السندباد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 

شكرا شكرا شكرا للاخوين sendbad100 و Ahmed_Mansoor

بارك الله فيكما سؤال اخر هل يصلح الكود مهما كان الرقم كبير

السلام عليكم

جرب اخي الكريم

بالنسبة للكود الذي وضعته لك يمكنك زيادة الشروط في IF مع زيادة الاصفار في الر قم 100 ثم 1000 ثم في حال لم ينجح مع الارقام الكبيرة.

انا بعيد الكمبيوتر لم يتسنى لي التجربة.

شكرا اخي سندباد بارك الله فيك

السلام عليكم و رحمة الله و بركاته
اريد مساعدة من الاخوة الاعضاء و هية :
في داتا ريبورت و بالضبط في page footer تنشاء فيه rptlabel او rpttextbox حسب الاحتياج دينامكيا اي حسب عدد التسجيلات في الجدول
مثلا عندي اربع اقساط لزبون ما، تنشاء اربعة rpttextbox او rptlabel و تاخذ تلك القيم و في حال مثلا سبعة اقساط تنشاء سبعة rpttextbox او rptlabel و تاخذ تلك القيم و هكذا ، و تكون منظمة على شكل مصفوفة

* * * *

* * * *
و لكم مني جزيل الشكر

وهذا كود أخر لسؤالك الأول ان كنت تريده بالعمليات الحسابية فقط
أى لاتريده من خواص التكست

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 

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

fariddidou

sendbad100

Ahmed_Mansoor

fariddidou

sendbad100

fariddidou

fariddidou

اسلام الكبابى

fariddidou