تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] تطبيق آلة حاسبة بسيطة بـvb6 فقط للمقارنة من حيث سرعة الانتاج
#1
بصراحة متعود على فيجوال بيسك ايا كان قديم او حديث لكن اللي يفرق ان الجديد اسرع واقصد vb.net لان كل شي (غالبا) مجهز.
الموضوع للتسلية
الازرار كانها بسكويت الشاي.
__________________________________________________________________
نسخة اخرى نسيت ان ارفعها بعد معرفة كم خطأ
الملف الجديد مرفق
كما تلاحظون بالصورة لما لم اكتب رقم قبل الفاصلة تم اعتبارها 0

.zip   NewCalc.zip (الحجم : 8.92 ك ب / التحميلات : 37)


الملفات المرفقة
.zip   MyCalc.zip (الحجم : 9.59 ك ب / التحميلات : 38)
الرد }}}
تم الشكر بواسطة: wared , wared , asemshahen5 , sendbad100 , princeofislam , princeofislam , Ahmed_Mansoor
#2
روعة يا سيدي
كيف ممكن اخلي المنازل العشرية فقط رقمين مثال :
5.3 - 2.5 = 2.8
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة: سعود , asemshahen5
#3
(12-08-19, 03:12 AM)princeofislam كتب : روعة يا سيدي
كيف ممكن اخلي المنازل العشرية فقط رقمين مثال :
5.3 - 2.5 = 2.8

ذوقك الرائع
هل تقصد بالمثال ام ماذا؟
لان بالمثال لم اتدخل بشيء فقط نتيجة الحساب ظهرت كما كتبت
جربتها الانSmileSmile
[صورة مرفقة: 999.png]
الرد }}}
تم الشكر بواسطة: asemshahen5 , princeofislam , princeofislam
#4
اقصد مثال خارجي يعطي النتيجة مثلا الجواب يكون 2.75 وهكذا
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
بصراحة لست متاكد لكن تذكرت دالة او كود
PHP كود :
Math.Round(n1 n2)) 
اتمنى يكون هو المطلوب لانه يختص بالتقريب على مااظن.
الرد }}}
تم الشكر بواسطة: asemshahen5 , princeofislam
#6
ممكن كود اخي سعود وليكن مثلا
val(text1.text) - val(text2.text) = 2.75

فقط رقمين عشريات
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة: asemshahen5
#7
(13-08-19, 04:23 AM)princeofislam كتب : ممكن كود اخي سعود وليكن مثلا
val(text1.text) - val(text2.text) = 2.75

فقط رقمين عشريات

هذا الناتج كيف يكونSmile
هل بالطرح ام بالقسمة
لو تكتب لي رقمين وباي عملية حسابية حتى اجرب.

لو اردت ان اتعامل معها كـنص فالموضوع بسيط




PHP كود :
Private Sub Command1_Click()
Text3.Text Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Dim a1 As String
a1 
Split(Text3.Text".")(0)
Dim a2 As String
a2 
Split(Text3.Text".")(1)
Text4.Text a1 "." Mid(a212)
End Sub 
الرد }}}
تم الشكر بواسطة: asemshahen5 , princeofislam , princeofislam
#8
اتعامل معها كرقم احصل علية من قاعدة البيانات
جزاكم الله كل خير وكل عام وانتم بخير سيدي راح احتاج لمساعدتكم قريبا في موضوع اقساط المدرسة
لانني عندي مشكلة وهي الحصول على تقرير الذين لم يدفعو القسط
يعني بالفورم تقدر تحط تعديل على ان ولي الامر قد دفع القسط او لم يدفع وهكذا لاكن المشلكة بالشهر الثاني هل على ادخال ولي الامر مرة اخرى او كيف يتم الموضوع
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طريقة بسيطة لملف أداة ComboBox بمحتويات Field من قاعدة البيانات شبح_الشبكة 1 998 21-11-21, 11:08 PM
آخر رد: Taha Okla
  [مشروع] تطبيق احداث اداة واحدة على كافة مثيلاتها الاخريات vb6.0 سعود 0 1,157 22-03-20, 07:04 AM
آخر رد: سعود
  [مشروع] [لا جديد] كيفية ايجاد حل لاي مشكلة بسيطة سعود 2 3,423 25-02-20, 12:34 AM
آخر رد: ابو روضة
Rainbow [vb6.0] قياس سرعة التحميل للنت mohamdser 4 3,731 10-05-14, 04:58 PM
آخر رد: Bilal HIMITE

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


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