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

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


الملفات المرفقة
.zip   MyCalc.zip (الحجم : 9.59 ك ب / التحميلات : 5)
الرد
تم الشكر بواسطة: 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] [لا جديد] كيفية ايجاد حل لاي مشكلة بسيطة سعود 1 327 13-09-19, 10:38 AM
آخر رد: مصمم هاوي
Rainbow [vb6.0] قياس سرعة التحميل للنت mohamdser 4 1,891 10-05-14, 04:58 PM
آخر رد: Bilal HIMITE

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


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