تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] عملية حسابية
#1
السلام عليكم ورحمة الله وبركاته 
من فضلكم أريد كود يقوم بحساب هذه العملية
مثال: 1500÷2=750
انا اريد:1500÷2=700 و الرقم 50 يوضع في مكان آخر متغير أو تكست بوك ...
مثال آخر :
30000÷4=7500
 انا اريد 30000 ÷4=7000 و الباقي بحفض في مكان آخر
الرد }}
تم الشكر بواسطة: awidan76
#2
السلام عليكم

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

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

PHP كود :
[align=center]Private Sub Command1_Click()[/align]

Dim n1n2n3 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 
الرد }}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , awidan76 , elgokr , princeofislam
#3
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , الشكر موصول للأخ العزيز السندباد100 على تقديم المساعدة , هذا كود آخر لعمل ذلك , أنشئ مشروع جديد ثم أدرج على الفورم 4 تكست بوكس و واحد زر ثم ضع هذا الكود داخل كود الزر :

PHP كود :
Dim A As Long
Dim B 
As Long
Dim Result 
As String

Val(Text1.Text)
Val(Text2.Text)

Result B

Text3
.Text Left$(Result1) & String$(Len(Result) - 1"0")

If 
Len(Result) > 1 Then
   Text4
.Text Mid$(Result2)
End If 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}
تم الشكر بواسطة: sendbad100 , Amir_Alzubidy , awidan76 , elgokr , Microformt , princeofislam
#4
شكرا شكرا شكرا للاخوين  sendbad100 و  Ahmed_Mansoor  

بارك الله فيكما سؤال اخر هل يصلح الكود مهما كان الرقم كبير
الرد }}
تم الشكر بواسطة: sendbad100 , Ahmed_Mansoor , awidan76 , elgokr
#5
السلام عليكم 
جرب اخي الكريم   
بالنسبة للكود الذي وضعته لك   يمكنك زيادة  الشروط في IF  مع زيادة الاصفار في الر قم  100 ثم 1000  ثم  في حال  لم ينجح مع الارقام الكبيرة.
انا بعيد الكمبيوتر لم يتسنى لي التجربة.
الرد }}
#6
شكرا اخي سندباد  بارك الله فيك
الرد }}
#7
السلام عليكم و رحمة الله و بركاته
اريد مساعدة  من الاخوة الاعضاء و هية :
في  داتا ريبورت و بالضبط في  page footer  تنشاء فيه  rptlabel   او rpttextbox  حسب الاحتياج دينامكيا اي حسب عدد التسجيلات في الجدول 
مثلا عندي اربع اقساط لزبون ما، تنشاء اربعة rpttextbox  او  rptlabel   و تاخذ تلك القيم و في حال مثلا سبعة اقساط تنشاء سبعة rpttextbox  او  rptlabel   و تاخذ تلك القيم و هكذا ، و تكون منظمة على شكل مصفوفة     
 
      *          *             *             *
 
      *          *             *             * 
و لكم مني  جزيل الشكر
الرد }}
تم الشكر بواسطة: awidan76 , elgokr , Microformt , Microformt
#8
وهذا كود أخر لسؤالك الأول ان كنت تريده بالعمليات الحسابية فقط
أى لاتريده من خواص التكست

PHP كود :
X1 Val(Text1.Text): X2 Val(Text2.Text)
Int(X1 X2): Len(X)
Real 10 ^ (1)
AAA Real
 RESULT 
Real Int(AAA)
 Print RESULT 
الرد }}
تم الشكر بواسطة: elgokr , elgokr , Microformt , Microformt
#9
(30-08-18, 03:50 PM)بارك الله فيك الأخ      اسلام الكبابى كتب :
PHP كود :
X1 Val(Text1.Text): X2 Val(Text2.Text)
Int(X1 X2): Len(X)
Real 10 ^ (1)
AAA Real
 RESULT 
Real Int(AAA)
 Print RESULT 
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد ادراج كود عملية الفرز او الفلترة abde6726 6 752 14-11-21, 09:57 PM
آخر رد: ahmedabdelaliem
  [vb6.0] المساعدة في عملية البحث برقم السيارة من قائمة الليست فيو وادي العوضي 13 2,516 24-05-20, 09:36 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في عملية البحث برقم التسلسل وادي العوضي 2 1,277 24-05-20, 01:44 PM
آخر رد: وادي العوضي
  [سؤال] مساعدة في كود عملية ضرب عددين ضياء الدين 9 1,884 20-04-20, 02:43 PM
آخر رد: ضياء الدين
  عملية السحب والافلات في flexgrid( اجراء تعديلعلى مثال ) gonm64 3 1,093 17-11-19, 02:18 AM
آخر رد: gonm64
  [vb6.0] المساعدة في عملية معاينة سجل من التقرير عن طريق رقم التسلسل وادي العوضي 1 944 16-10-19, 01:56 PM
آخر رد: وادي العوضي
  ارجو المساعده اخوانى الاحباب "" تاريخ اخر عملية " mhareek 22 4,841 23-08-17, 06:02 PM
آخر رد: mhareek
  [سؤال] ربط المشروع بجدولين وتنسيق عملية الحفظ Abdellah 0 1,098 07-06-17, 10:39 PM
آخر رد: Abdellah
  [vb6.0] ارجو المساعدة باجراء البحث بين MSHFlexGrid1 و MSHFlexGrid2 بحقل واحد و إجراء عملية ح عبدالقادرعواد 6 1,918 27-04-17, 11:56 AM
آخر رد: عبدالقادرعواد
  عملية الحفظ عند نهاية كل شهر abde6726 0 1,092 02-03-17, 01:07 PM
آخر رد: abde6726

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم